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

.

Browse Source 
original commit: d1e5f330843616eac4b88226ddc4a46b30dfe87e
This commit is contained in:
Matthew Flatt 2000-06-28 19:39:13 +00:00
parent a3d30af820
commit f0fccf74bb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -497,6 +497,8 @@
(send ip2 set-label "Sub-sub panel") (send ip2 set-label "Sub-sub panel")
(add-testers2 "Sub-sub-panel" ip2) (add-testers2 "Sub-sub-panel" ip2)
(make-object text-field% #f ip2 void "start focus here")
(when prev-frame (when prev-frame
(add-disable "Previous Tester Frame" prev-frame ep2)) (add-disable "Previous Tester Frame" prev-frame ep2))
@ -550,7 +552,6 @@
(add-change-label "Vert Gauge" gv lp2 #f OTHER-LABEL) (add-change-label "Vert Gauge" gv lp2 #f OTHER-LABEL)
(add-change-label "Text" txt lp2 #f OTHER-LABEL) (add-change-label "Text" txt lp2 #f OTHER-LABEL)
(let* ([items (list sh sv (let* ([items (list sh sv
gh gv gh gv
; cmt cmi ; cmt cmi