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

use 'system-position-ok-before-cancel?' in GUI overview example

Browse Source 
svn: r13067

original commit: 9a177b251e71fb66003a314f9c9466560f72c0ce
This commit is contained in:
Matthew Flatt 2009-01-11 15:39:54 +00:00
parent c2e68cba46
commit 368e8a7bf4
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribblings/gui/area-container-intf.scrbl
View File

@ -71,7 +71,8 @@ Gets or sets the border margin for the container in pixels. This
} }
@defmethod[(change-children [filter ((listof (is-a?/c subarea<%>)) . -> . (listof (is-a?/c subarea<%>)))]) @defmethod[(change-children [filter ((listof (is-a?/c subarea<%>))
. -> . (listof (is-a?/c subarea<%>)))])
void?]{ void?]{
Takes a filter procedure and changes the container's list of Takes a filter procedure and changes the container's list of

2
collects/scribblings/gui/win-overview.scrbl
View File

@ -357,6 +357,8 @@ with the following program:
(code:comment #, @t{Add @onscreen{Cancel} and @onscreen{Ok} buttons to the horizontal panel}) (code:comment #, @t{Add @onscreen{Cancel} and @onscreen{Ok} buttons to the horizontal panel})
(new button% [parent panel] [label "Cancel"]) (new button% [parent panel] [label "Cancel"])
(new button% [parent panel] [label "Ok"]) (new button% [parent panel] [label "Ok"])
(when (system-position-ok-before-cancel?)
(send panel #,(:: area-container<%> change-children) reverse))
(code:comment #, @t{Show the dialog}) (code:comment #, @t{Show the dialog})
(send dialog #,(:: dialog% show) #t) (send dialog #,(:: dialog% show) #t)