(defn make-main
"Creates the main window and all
its controls."
[name]
(ui/init)
(let [main (ui/frame name)
tabs (ui/tabbed-pane)
ui-main {:main main :tabs tabs}
icons (map (comp ui/image io/resource) icons-paths)]
(-> main
(ui/set :icon-images icons)
(ui/set :j-menu-bar (build-menu ui-main))
(ui/set :size 800 600)
(ui/maximize)
(ui/show)
(ui/add tabs))
ui-main))
(attr text-field :text "Hola")
(update window :label attr :text "Last name")
[:#center [:text-editor (partial has-doc? doc)]]
(def window [:window {:visible true
:size [200 60]
:layout :flow}
[:label {:text "Name"}]
[:text-field {:text "Enter your name here"}]]
(let [window (ui/window {:visible true
:size [200 60]
:layout :flow})
label (ui/label {:text "Name"})
text (ui/text-field {:text "Enter your name here"})]
(->> window
(ui/add label)
(ui/add text)))
Ventana Principal + Editor
Ir a línea
Deshacer / Rehacer
Notificador
Explorador de Archivos
Buscar y Reemplazar
Perfil de Código
Clojure
Markdown
Coloreado Sintáctico
Autocompletar
Resaltado de Delimitadores
Delimitadores Arcoiris
Paredit
Macro expansión
Vista Previa (Markdown)