mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-05 15:23:03 -08:00
Code Issues Projects Releases Wiki Activity

tweeks

Browse source
This commit is contained in:
David Botton 2021-02-16 16:51:08 -05:00
parent cfb8c99b47
commit b2f54569ae
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-gui.lisp
View file

@ -593,7 +593,7 @@ on-window-resize-done at end of resize."))
<span data-drag-obj='~A' data-drag-type='m' id='~A-title'
style='flex-grow:9;user-select:none;cursor:move;'>~A</span>
<span id='~A-closer'
style='cursor:pointer;user-select:none;'>X</span>
style='cursor:pointer;user-select:none;'>&times;</span>
</div>
<div id='~A-body' style='flex-grow:9;overflow:auto'>~A</div>
<div id='~A-sizer' style='user-select:none;height:3px;
@ -932,7 +932,7 @@ on-window-resize-done at end of resize."))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun server-file-dialog (obj title initial-dir on-file-name
&key (left nil) (top nil) (width 400) (height 360)
&key (left nil) (top nil) (width 400) (height 375)
(initial-filename nil))
"Create a local file dialog box called TITLE using INITIAL-DIR on server
machine, upon close ON-FILE-NAME called with filename or nil if failure."