mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

resizable server file dialog

Browse source
This commit is contained in:
David Botton 2024-04-08 16:55:52 -04:00
parent 7b87dd2760
commit 9131bfa92f
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

27
source/clog-gui.lisp
View file

@ -1780,6 +1780,8 @@ Calls on-input with t if confirmed or nil if canceled."
(time-out nil) (time-out nil)
(left nil) (top nil) (left nil) (top nil)
(width 400) (height 500) (width 400) (height 500)
(size 40) (rows 4) (size 40) (rows 4)
(client-movement nil) (client-movement nil)
(html-id nil)) (html-id nil))
@ -2016,13 +2018,11 @@ If time-out return result of on-file-name, cancels dialog if time runs out."
:hidden t :hidden t
:client-movement client-movement :client-movement client-movement
:html-id html-id)) :html-id html-id))
(box (create-div (window-content win) :class "w3-panel")) (form (create-form (window-content win)))
(form (create-form box))
(fname (file-namestring initial-dir)) (fname (file-namestring initial-dir))
(dirs (create-select form)) (dirs (create-select form))
(files (create-select form)) (files (create-select form))
(input (create-form-element form :input :label (input (create-form-element form :input))
(create-label form :content "File Name:")))
(ok (create-button form :content "OK" (ok (create-button form :content "OK"
:class "w3-button w3-black w3-margin")) :class "w3-button w3-black w3-margin"))
(cancel (create-button form :content "Cancel" (cancel (create-button form :content "Cancel"
@ -2033,15 +2033,20 @@ If time-out return result of on-file-name, cancels dialog if time runs out."
(unless left (unless left
(setf (left win) (unit :px (- (/ (inner-width (window body)) 2.0) (setf (left win) (unit :px (- (/ (inner-width (window body)) 2.0)
(/ (width win) 2.0))))) (/ (width win) 2.0)))))
(setf (size dirs) 5) (setf (positioning dirs) :absolute)
(setf (box-width dirs) "100%") (setf (positioning files) :absolute)
(setf (size files) 7) (setf (positioning input) :absolute)
(setf (box-width files) "100%") (setf (positioning ok) :absolute)
(setf (box-width input) "100%") (setf (positioning cancel) :absolute)
(setf (size dirs) 4)
(setf (size files) 4)
(set-geometry dirs :left 5 :right 5 :top 5 :height 75)
(set-geometry files :left 5 :right 5 :top 85 :bottom 90)
(set-geometry input :left 5 :right 5 :bottom 65 :height 20)
(set-geometry ok :right 95 :bottom 0 :width 85)
(set-geometry cancel :right 5 :bottom 0 :width 85)
(setf (overflow files) :auto) (setf (overflow files) :auto)
(setf (overflow dirs) :auto) (setf (overflow dirs) :auto)
(setf (width ok) "7em")
(setf (width cancel) "7em")
(setf (visiblep win) t) (setf (visiblep win) t)
(when modal (when modal
(window-make-modal win)) (window-make-modal win))