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

added prompt to file|revert

Browse Source 
original commit: 0ba8f695aa4ea86cae768bce5d802726eebaf876
This commit is contained in:
Robby Findler 2001-12-02 15:14:05 +00:00
parent 0bae515bc3
commit c26850a0c9
1 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/frame.ss
View File

@ -723,6 +723,13 @@
(if (is-a? edit text%) (if (is-a? edit text%)
(send edit get-start-position) (send edit get-start-position)
#f)]) #f)])
(when (gui-utils:get-choice
(string-constant are-you-sure-revert)
(string-constant yes)
(string-constant no)
(string-constant are-you-sure-revert-title)
#f
this)
(send edit begin-edit-sequence) (send edit begin-edit-sequence)
(let ([status (send edit load-file (let ([status (send edit load-file
filename filename
@ -738,7 +745,7 @@
(message-box (message-box
(string-constant error-reverting) (string-constant error-reverting)
(format (string-constant could-not-read) filename) (format (string-constant could-not-read) filename)
this))))))) this))))))))
#t)) #t))
(define/override file-menu:create-revert? (lambda () #t)) (define/override file-menu:create-revert? (lambda () #t))
(define file-menu:save-callback (lambda (item control) (define file-menu:save-callback (lambda (item control)