               :items [[(label "Имя пользователя:") ""]
                       [(text :id :username :columns 15)]
                       [(vertical-panel
-                        :items [(label :id :orig-ava
+                        :items [(busy-label :id :orig-ava
                                        :border (line-border :color "#ddd" :thickness 1)
                                        :halign :center
                                        :valign :center
                                        :size [106 :by 106]) [:fill-v 10]
-                                (label :id :stamped-ava
+                                (busy-label :id :stamped-ava
                                        :border (line-border :color "#ddd" :thickness 1)
                                        :halign :center
                                        :valign :center

      (config! (select form [:#save-label-new])
               :text (str (:save-dir-new @state) filename)))))

;;(require '[clojure.core.async :refer [chan >!! <!! <! >! alts!! alts! timeout thread put! go go-loop close!]])
(defn prepare-avatars [username lb-log form]
  "Fetches an avatar from server, fills in image views, stamps it"
  (when (not (blank? username))

  (:use [seesaw.core])
  (:use [seesaw.mig])
  (:use [seesaw.border])
  (:use [seesaw.swingx])
  (:use [seesaw.widgets.log-window])
  (:require [clojure.string :refer [blank?]])
  (:require [clojure.core.async :refer [chan >!! <!! <! >! alts!! alts! timeout thread put! go go-loop close!]])
  (:require [ecregister.avatars :as av])
  )

;; to be evaluated in *scratch*, to be executed in clj buffer
;; (define-key clojure-mode-map (kbd "C-c SPC")
