suzanne.soy/racket
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
This commit is contained in:
Matthew Flatt 2009-01-11 15:39:54 +00:00
parent 72b272ebd0
commit 9a177b251e
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?]{
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})
(new button% [parent panel] [label "Cancel"])
(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})
(send dialog #,(:: dialog% show) #t)