suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 463529600579dc7e8a1c36ac0d9d5e5818fa4141
This commit is contained in:
Robby Findler 2000-09-22 03:32:00 +00:00
parent 3bc1178607
commit 1ef0992f87
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/finder.ss
View File

@ -578,6 +578,8 @@
(make-object button% "OK" bottom-panel do-ok (if multi-mode? '() '(border)))] (make-object button% "OK" bottom-panel do-ok (if multi-mode? '() '(border)))]
[cancel-button (make-object button% "Cancel" bottom-panel do-cancel)]) [cancel-button (make-object button% "Cancel" bottom-panel do-cancel)])
(sequence (sequence
(make-object grow-box-spacer-pane% bottom-panel)
(cond (cond
[(and start-dir [(and start-dir
(directory-exists? start-dir)) (directory-exists? start-dir))

10
collects/framework/main.ss
View File

@ -85,11 +85,6 @@
(or (eq? x 'common) (or (eq? x 'common)
(eq? x 'std)))) (eq? x 'std))))
;; reset this -- this preference is only for the test suite.
;; it does not need to be set across starting up and shutting down
;; the application.
(preferences:set 'framework:file-dialogs 'std)
;; groups ;; groups
(preferences:set-default 'framework:exit-when-no-frames #t boolean?) (preferences:set-default 'framework:exit-when-no-frames #t boolean?)
@ -150,6 +145,11 @@
;(wx:application-file-handler edit-file) ;; how to handle drag and drop? ;(wx:application-file-handler edit-file) ;; how to handle drag and drop?
(preferences:read) (preferences:read)
;; reset these -- they are only for the test suite.
;; they do not need to be set across starting up and shutting down
;; the application.
(preferences:set 'framework:file-dialogs 'std)
(preferences:set 'framework:exit-when-no-frames #t) (preferences:set 'framework:exit-when-no-frames #t)
(void)) (void))