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

changed the 'cancel' button to say something more accurate

Browse Source 
closes PR 11473

original commit: 81de0c133765cd75235ba29b9601fa4a69999bde
This commit is contained in:
Robby Findler 2010-12-08 21:26:35 -06:00
parent 02522b73e4
commit 0591eccbe6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.rkt
View File

@ -761,7 +761,7 @@
(let-values ([(cw _4) (get-client-size)] (let-values ([(cw _4) (get-client-size)]
[(tw _1 _2 _3) (send dc get-text-extent str normal-control-font)]) [(tw _1 _2 _3) (send dc get-text-extent str normal-control-font)])
(when (< cw tw) (when (< cw tw)
(min-client-width (inexact->exact (floor tw))))))) (min-client-width (inexact->exact (ceiling tw)))))))
(define/override (on-paint) (define/override (on-paint)
(let ([dc (get-dc)]) (let ([dc (get-dc)])
(send dc set-font normal-control-font) (send dc set-font normal-control-font)

4
collects/framework/private/preferences.rkt
View File

@ -295,7 +295,9 @@ the state transitions / contracts are:
(gui-utils:ok/cancel-buttons (gui-utils:ok/cancel-buttons
bottom-panel bottom-panel
ok-callback ok-callback
(λ (a b) (cancel-callback))) (λ (a b) (cancel-callback))
(string-constant ok)
(string-constant undo-changes))
(make-object grow-box-spacer-pane% bottom-panel) (make-object grow-box-spacer-pane% bottom-panel)
(send* bottom-panel (send* bottom-panel
(stretchable-height #f) (stretchable-height #f)