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

.

Browse Source 
original commit: 182522b28604020ad1a7edfa00b5db885f553351
This commit is contained in:
Matthew Flatt 2005-02-10 23:10:17 +00:00
parent 0cbe90f6be
commit 62dd37bded
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/private/mritem.ss
View File

@ -116,7 +116,7 @@
label parent void #f))))))
(define button%
(class100*/kw basic-control% () [(label parent callback [style null]) control%-keywords]
(class100*/kw basic-control% () [(label parent [callback (lambda (b e) (void))] [style null]) control%-keywords]
(override
[label-checker (lambda () check-label-string-or-bitmap)]) ; module-local method
(sequence
@ -137,7 +137,7 @@
label parent callback #f))))))
(define check-box%
(class100*/kw basic-control% () [(label parent callback [style null] [value #f]) control%-keywords]
(class100*/kw basic-control% () [(label parent [callback (lambda (b e) (void))] [style null] [value #f]) control%-keywords]
(sequence
(let ([cwho '(constructor check-box)])
(check-label-string-or-bitmap cwho label)
@ -168,7 +168,7 @@
(define radio-box%
(class100*/kw basic-control% ()
[(label choices parent callback [style '(vertical)] [selection 0]) control%-keywords]
[(label choices parent [callback (lambda (b e) (void))] [style '(vertical)] [selection 0]) control%-keywords]
(private-field [chcs choices])
(sequence
(let ([cwho '(constructor radio-box)])
@ -238,7 +238,7 @@
(define slider%
(class100*/kw basic-control% ()
[(label min-value max-value parent callback [init-value min-value] [style '(horizontal)])
[(label min-value max-value parent [callback (lambda (b e) (void))] [init-value min-value] [style '(horizontal)])
control%-keywords]
(private-field [minv min-value][maxv max-value])
(sequence
@ -423,7 +423,7 @@
(define choice%
(class100*/kw basic-list-control% ()
[(label choices parent callback [style null] [selection 0])
[(label choices parent [callback (lambda (b e) (void))] [style null] [selection 0])
control%-keywords]
(sequence
(let ([cwho '(constructor choice)])
@ -446,7 +446,7 @@
(define list-box%
(class100*/kw basic-list-control% ()
[(label choices parent callback [style '(single)] [selection #f] [font no-val] [label-font no-val])
[(label choices parent [callback (lambda (b e) (void))] [style '(single)] [selection #f] [font no-val] [label-font no-val])
control%-nofont-keywords]
(sequence
(let ([cwho '(constructor list-box)])

2
collects/mred/private/mrpanel.ss
View File

@ -101,7 +101,7 @@
(define tab-panel%
(class100*/kw vertical-panel% ()
[(choices parent callback [style null] [font no-val]) panel%-keywords]
[(choices parent [callback (lambda (b e) (void))] [style null] [font no-val]) panel%-keywords]
(sequence
(let ([cwho '(constructor tab-panel)])
(unless (and (list? choices) (andmap label-string? choices))

4
collects/mred/private/mrtextfield.ss
View File

@ -45,7 +45,7 @@
(define text-field%
(class100*/kw basic-control% ()
[(label parent callback [init-value ""] [style '(single)])
[(label parent [callback (lambda (b e) (void))] [init-value ""] [style '(single)])
control%-keywords]
(sequence
(check-text-field-args '(constructor text-field)
@ -86,7 +86,7 @@
(define combo-field%
(class100*/kw text-field% ()
[(label choices parent callback [init-value ""] [style '()])
[(label choices parent [callback (lambda (b e) (void))] [init-value ""] [style '()])
control%-keywords]
(inherit set-value popup-menu get-size focus get-editor)
(sequence