               :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

                              ;; important to put it back to channel immediately so others could read
                              (>! active-chan false)
                              (update-state :username (text te-name))
                              (prepare-avatars (text te-name) lb-log form)
                              ))))


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

(defn show-busy-indicators [show? form]
  (let [label-ava-orig (select form [:#orig-ava])
        label-ava-stamped (select form [:#stamped-ava])]
    (if show?
      (do
        (config! label-ava-orig :icon (config label-ava-orig :user-data))
        (config! label-ava-orig :busy? true)
        (config! label-ava-stamped :icon (config label-ava-stamped :user-data))
        (config! label-ava-stamped :busy? true))
      (do
        ;; save their custom icons and temporarily replace them with nil ones
        ;; this is done to hide busy indicator on start and let it by shown only later before busy anim is launched
        (config! label-ava-orig :user-data (config label-ava-orig :icon))
        (config! label-ava-orig :icon nil)
        (config! label-ava-stamped :user-data (config label-ava-stamped :icon))
        (config! label-ava-stamped :icon nil)
        ))))

(defn prepare-avatars [username lb-log form]
  "Fetches an avatar from server, fills in image views, stamps it"
  (when (not (blank? username))
