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

...

Browse Source 
original commit: 0042f0312400b040b8bc07db02726230ed064458
This commit is contained in:
John Clements 2000-08-09 03:12:13 +00:00
parent 060863e0fc
commit 38edd5b5a7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mred/item.ss
View File

@ -1273,6 +1273,14 @@
(lambda (b e) (lambda (b e)
(send c select (send c get-selection) #f))) (send c select (send c get-selection) #f)))
null)) null))
(define change-button-name (if list?
(make-object button%
"Change Name" cdp
(lambda (b e)
(send c set-string
(send c get-selection)
"New Name")))
null))
(define (make-selectors method mname numerical?) (define (make-selectors method mname numerical?)
(define p2 (make-object horizontal-panel% p)) (define p2 (make-object horizontal-panel% p))
(send p2 stretchable-height #f) (send p2 stretchable-height #f)