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

Fixed linking bug

Browse Source 
svn: r4532
This commit is contained in:
Ryan Culpepper 2006-10-09 15:38:20 +00:00
parent 7e9cb94ce3
commit a930138643
3 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/macro-debugger/tool.ss
View File

@ -23,17 +23,9 @@
(define stepper@
(compound-unit/sig
(import)
(link [PREFS : view:prefs^ (view:prefs@)]
[SBKEYMAP : sb:keymap^ (sb:keymap@)]
[SBMENU : sb:context-menu^ (sb:context-menu@ SBSNIP)]
[SBSNIP : sb:snip^ (sb:global-snip@)]
[SBWMENU : sb:context-menu^ (sb:widget-context-menu-extension@ SBMENU)]
[VMENU : sb:context-menu^ (view:context-menu-extension@ SBWMENU)]
[SBWIDGET : sb:widget^ (sb:widget@ SBKEYMAP SBWMENU)]
[VWIDGET : sb:widget^ (view:browser-extension@ SBWIDGET VMENU)]
[BASE : view:view-base^ (view-base/tool@)]
[VIEW : view:view^ (view:view@ PREFS BASE VWIDGET)])
(export (open VIEW))))
(link [BASE : view:view-base^ (view-base/tool@)]
[STEPPER : view:view^ (view:pre-stepper@ BASE)])
(export (open STEPPER))))
#;(define stepper@
(compound-unit/sig

19
collects/macro-debugger/view/gui.ss
View File

@ -7,10 +7,10 @@
(lib "framework.ss" "framework")
(lib "boundmap.ss" "syntax")
"interfaces.ss"
"prefs.ss"
"warning.ss"
"hiding-panel.ss"
(prefix sb: "../syntax-browser/embed.ss")
"../syntax-browser/util.ss"
"../model/deriv-util.ss"
"../model/trace.ss"
"../model/hide.ss"
@ -20,6 +20,7 @@
"util.ss")
(provide catch-errors?
pre-stepper@
view@
context-menu-extension@
browser-extension@)
@ -575,4 +576,20 @@
(widget this)
(macro-stepper macro-stepper)))
(super-new)))))
(define pre-stepper@
(compound-unit/sig
(import [BASE : view-base^])
(link [PREFS : prefs^ (prefs@)]
[SBKEYMAP : sb:keymap^ (sb:keymap@)]
[SBMENU : sb:context-menu^ (sb:context-menu@ SBSNIP)]
[SBSNIP : sb:snip^ (sb:global-snip@)]
[SBWMENU : sb:context-menu^ (sb:widget-context-menu-extension@ SBMENU)]
[VMENU : sb:context-menu^ (context-menu-extension@ SBWMENU)]
[SBWIDGET : sb:widget^ (sb:widget@ SBKEYMAP SBWMENU)]
[VWIDGET : sb:widget^ (browser-extension@ SBWIDGET VMENU)]
[VIEW : view^ (view@ PREFS BASE VWIDGET)])
(export (open VIEW))))
)

11
collects/macro-debugger/view/view.ss
View File

@ -1,12 +1,9 @@
(module view mzscheme
(require (lib "unitsig.ss")
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "framework.ss" "framework")
(prefix sb: "../syntax-browser/embed.ss")
"interfaces.ss"
"prefs.ss"
"gui.ss")
(provide (all-defined))
@ -19,9 +16,7 @@
(define-values/invoke-unit/sig view^
(compound-unit/sig
(import)
(link (PREFS : prefs^ (prefs@))
(SB : sb:implementation^ (sb:implementation@))
(BASE : view-base^ (view-base@))
(VIEW : view^ (view@ BASE SB)))
(export (open VIEW))))
(link [BASE : view-base^ (view-base@)]
[STEPPER : view^ (pre-stepper@ BASE)])
(export (open STEPPER))))
)