mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2022-12-27 11:04:31 +01:00
parent bd776bf6b3
commit 28e9337972
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
examples/cl-repl/lisp/editor.lisp
View file

@ -881,12 +881,13 @@
title text (x:callback-name callback)))
(defun save-file ()
(if *file*
(confirm-dialog "Save?"
(format nil "Save to opened file, overwriting it?<br><br>~S<br>"
*file*)
'safe-file-confirmed?)
(safe-file-confirmed? nil)))
(when (q< |canUndo| ui:*edit*)
(if *file*
(confirm-dialog "Save?"
(format nil "Save to opened file, overwriting it?<br><br>~S<br>"
*file*)
'safe-file-confirmed?)
(safe-file-confirmed? nil))))
(defun safe-file-confirmed? (save)
(if save

2
examples/cl-repl/platforms/ios/Info.plist
View file

@ -30,6 +30,8 @@
<string>designable.storyboard</string>
<key>UILaunchStoryboardName~iPad</key>
<string>designable_iPad.storyboard</string>
<key>UIRequiresFullScreen</key>
<true/>
<key>UISupportedInterfaceOrientations</key>
<array>
<string>UIInterfaceOrientationPortrait</string>