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

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

@ -723,22 +723,29 @@
(if (is-a? edit text%) (if (is-a? edit text%)
(send edit get-start-position) (send edit get-start-position)
#f)]) #f)])
(send edit begin-edit-sequence) (when (gui-utils:get-choice
(let ([status (send edit load-file (string-constant are-you-sure-revert)
filename (string-constant yes)
'same (string-constant no)
#f)]) (string-constant are-you-sure-revert-title)
(if status #f
(begin this)
(when (is-a? edit text%) (send edit begin-edit-sequence)
(send edit set-position start start)) (let ([status (send edit load-file
(send edit end-edit-sequence)) filename
(begin 'same
(send edit end-edit-sequence) #f)])
(message-box (if status
(string-constant error-reverting) (begin
(format (string-constant could-not-read) filename) (when (is-a? edit text%)
this))))))) (send edit set-position start start))
(send edit end-edit-sequence))
(begin
(send edit end-edit-sequence)
(message-box
(string-constant error-reverting)
(format (string-constant could-not-read) filename)
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)