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

Removed interactions box from showing up and corrected example box to work with ProfJ

Browse Source 
svn: r1629
This commit is contained in:
Kathy Gray 2005-12-16 21:12:22 +00:00
parent f87c602e42
commit 723876317a
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profjBoxes/private/example-box.ss
View File

@ -80,12 +80,13 @@
(send example get-value) (send example get-value)
level)]) level)])
#'(define name value))))) #'(define name value)))))
#`(parse-example-box (list #,@(send examples map-children (syntax-property #`(parse-example-box (list #,@(send examples map-children
(lambda (example) (lambda (example)
(with-syntax ([type (send example get-type)] (with-syntax ([type (send example get-type)]
[id (send example get-name)] [id (send example get-name)]
[value (send example get-value)]) [value (send example get-value)])
#'(list type id value)))))) #'(list type id value))))))
'example-box #t)
)) ))
#;(-> void?) #;(-> void?)

2
collects/profjBoxes/tool.ss
View File

@ -44,7 +44,7 @@
(send text end-edit-sequence))))) (send text end-edit-sequence)))))
(demand-callback has-editor-on-demand)) (demand-callback has-editor-on-demand))
(new menu-item% #;(new menu-item%
(label (string-constant profjBoxes-insert-java-interactions)) (label (string-constant profjBoxes-insert-java-interactions))
(parent (get-special-menu)) (parent (get-special-menu))
(callback (callback