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%)
(send edit get-start-position)
#f)])
(send edit begin-edit-sequence)
(let ([status (send edit load-file
filename
'same
#f)])
(if status
(begin
(when (is-a? edit text%)
(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)))))))
(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)
(let ([status (send edit load-file
filename
'same
#f)])
(if status
(begin
(when (is-a? edit text%)
(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))
(define/override file-menu:create-revert? (lambda () #t))
(define file-menu:save-callback (lambda (item control)