Виртуальный GUI на Clojure



Рассмотрим создание приложения с графическим интерфейсом, который бы работал на рабочем столе и в браузере без изменения кода Live Demo с моего сайта
Для рабочего стола будем использовать библиотеку SWT, для браузера будем манипулировать DOM.
Будем считать что графический виджет это структура данных ключ- значение в Clojure это Maps. Такая абстракция дасть возможность манипулировать виджетами с помощью только двух функций (widget w :key value) для получения данных с виджета и (widget w/[w1...wn] :key/{:key1 val1 …:keyn valn} v/[v1...vn]) для смены данных.

Например:

прочитать текст из текстового поля — (widget! txtHello :text)

записать текст в текстовое поле - (widget! txtHello :text “hello”)

очистить несколько текстовых полей (widget! [txtName txtAge txtTel] :text “”)

установить обработчиков событий на несколько виджетов (widget! [btHello cbHello] :on-select [btClick cbChange])

заполнить combo и установить обработчик событий (widget! CbHello {:on-select cbChange :fill [“man” “women”]})

Показать код функции widget для рабочего стола
(defn widget
  ([w prop]
  (case prop
     …...................
    :index (.getSelectionIndex w)
    :text (.getText w)))
  ([w n prop]
    (case prop
      …............
      :text (.getText w n)
      :index (.indexOf w n))))

Показать код функции widget! для рабочего стола
(defn widget!
  ([w prop]
    (if (map? prop)(dorun (map #(widget! w  (key %) (val %)) prop))
      (if (vector? w)(dorun (map #(widget! % prop ) w))
        (case prop
          …......................
          :close (.dispose w)
          :select-all (.selectAll w)))))
  ([w prop v]
    (if (vector? w)
   (if (vector? v) (dorun (map #(widget! % prop %2) w v))
  (dorun (map #(widget! % prop v) w)))
      (case prop
         …...............
        :index (.select w v)
        :text (.setText w v))))
  ([w n prop v]
    (if (keyword? n)
      (case n
        …........... 
        :select (.setSelection w prop v))
    (case prop
      …..............................
      :text (.setText w n v)))))

Для браузера эта функция будет несколько сложнее из-за необходимости вызвать внутреннии функции для манипуляции DOM. Строить графический интерфейс для рабочего стола мы будем в дизайнере Eclipse используя WindowBuilder. Это даст нам java-class с построенным графическим интерфейсом. Получение виджетов из этого класса выглядит так:
(def btHello (.btHello shell))
….....
(def txtHello (.txtHello shell))

А если виджетов десятки? К тому же для браузера это будет просто:
(def btHello “btHello”)
….......
(def txtHello “txtHello”)

Просятся макросы:

Показать код макроса defc для робочего стола
(defmacro defc [shell & body]
  (let [res (map #(nop `(def ~% (~(symbol (str "." %)) ~shell))) body)]
    (conj  res 'do)))

Показать код макроса defc для браузера
(defmacro defc [shell & body]
  (let [res (map #(nop `(def ~% (str ~(str  % ) ~shell))) body)]
    (conj  res 'do)))

теперь всё будет просто (defc shell btHello … txtHello) Особенностью SWT есть то что необходимо написать свою оконную процедуру

Показать код функции loop-gui для робочего стола
(defn loop-gui! [^Shell sh & fw]
  (. sh (open))
  (loop [] (when-not (. sh (isDisposed))
             (try
               (if (not (. display (readAndDispatch)))
                 (. display (sleep)))
               (catch Exception e
                 (show-exception  sh "Error: " e)))
             (recur))))

Показать код функции loop-gui для браузера
(defn loop-gui!  [sh & fw]
  (when-not (= sh "")
    (let [sh-obj (by-id sh)]
      (set! (.-display (.-style sh-obj )) "block"))))

Ну и ещё нам понадобится функция вывода сообщений

Показать код функции message для рабочего стола
(defn message [^Shell sh s]
  (when-not (.isVisible sh) (.open sh ))
  (let [mbox ( MessageBox. sh SWT/ICON_INFORMATION )]
    (doto mbox
      (.setText "Info")
      (.setMessage s)
      (.open))))

Показать код функции message для браузера
(defn message [sh s] (js/alert s))

Ну и теперь код простого приложения. Инициализацию shell тоже можно сделать макросом.

Показать код приложения
(def shell (HelloApp. (new Display)) // (def shell “”) для браузера 

(defn -main []
    (defc btHello,cbHello,lstHello,txtHello)
    (widget![cbHello lstHello] :fill [[“man”,”woman”][“One” “Two” “Three”]])   
    (widget! [btHello cbHello] :on-select [btClick cbChange])   
    (loop-gui  ))

(defn btClick[] (message(shell (widget txtHello :text))))
(defn cbChange[] (message(shell (widget cbHello :text))))

Комментарии

Отправить комментарий

Популярные сообщения из этого блога

Работа с глобальными переменными в Rust

Глобальные переменные в Раст объявляются так: static ИМЯ:тип=значение . Например: static mut COUNT:i32=0; Но если ми попробуем объявить вектор static mut MYVECT:Vec =Vec::new(); , то получим ошибку при компиляции: «calls in statics are limited to struct and enum constructors” Попытка сделать так static mut MYVECT: Option<Vec<i32>>=None; вызовет другую ошибку “destructors in statics are an unstable feature” и отправит нас искать счастья в ночные сборки. Так было в Rust 1.13, такая же ситуация и сейчас в Rust 1.15. Для решения этой проблемы есть нескоько способов. Способ первый- Ленивая инициализация с помощью макроса lazy_static! с использованием Mutex. #[macro_use] extern crate lazy_static; use std::sync:: {Mutex,RwLock}; lazy_static! { pub static ref MUTEX_VEC:Mutex<Vec<u32>>= Mutex::new(Vec::new()); } fn main() { let mut v1=MUTEX_VEC.lock().unwrap(); *v1 =vec!(1,2,3); v1.push(4); println!("{:?}",*v1); } Этот ...
Далее...

IUP - библиотека элементов GUI

Iup — кросплатформенная библиотека графического интерфейса с использованием языков программирования С и Lua. Библиотека содержит ряд интересных и уникальных возможностей.
Далее...

Виртуальный GUI на Rust

Рассмотрим создание приложений с графическим интерфейсом, который бы работал на рабочем столе и в браузере без изменения кода. В качестве крос-платформенной библиотеки для приложений для рабочего стола будем использовать библиотеку IUP , для работы в браузере , естественно , DOM . Конечно нам понадобятся библиотеки-фасады, которые инкапсулируют разницу между этими библиотеками. Для этого я написал библиотеки RIUP и RDOM . Необходимо отметить ,что идеологично IUP сильно похожа на DOM , в отличии от других графических библиотек для рабочого стола. На нижнем уровне этих библиотек находятся Ihandle для IUP и HtmlNode для DOM - поведение и внешний вид которых зависит от их атрибутов. RIUP и RDOM обладают функциями нижнего уровня для работы с атрибутами и структурами с набором функций для конкретных виджетов. Эти виджеты -обёртки над Ihandle и HtmlNode. К основным функциям нижнего уровня относятся: get_attr_str(w: *Ihandle/ &HtmlNode, attr: &str)->String; get_a...
Далее...