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

Macro stepper: added support for extra nav tools (zoom, jump) but disabled

Browse Source 
svn: r5461

original commit: f9dfebefa311ee1881255f21ae4ff8967f5d958c
This commit is contained in:
Ryan Culpepper 2007-01-25 19:20:44 +00:00
parent a6da39cc8f
commit 56e01595c4
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/macro-debugger/view/cursor.ss
View File

@ -89,6 +89,10 @@
(define (cursor:can-move-previous? c) (define (cursor:can-move-previous? c)
(pair? (cursor-prefix c))) (pair? (cursor-prefix c)))
(define (cursor->list c)
(append (reverse (cursor-prefix c))
(cursor-suffix->list c)))
(define (cursor-suffix->list c) (cursor-suffix c))
) )

1
collects/macro-debugger/view/interfaces.ss
View File

@ -29,6 +29,7 @@
pref:highlight-foci? pref:highlight-foci?
pref:suppress-warnings? pref:suppress-warnings?
pref:one-by-one? pref:one-by-one?
pref:extra-navigation?
)) ))
;; macro-stepper-config% ;; macro-stepper-config%

2
collects/macro-debugger/view/prefs.ss
View File

@ -31,6 +31,7 @@
(preferences:set-default 'MacroStepper:ShowRenameSteps? #f boolean?) (preferences:set-default 'MacroStepper:ShowRenameSteps? #f boolean?)
(preferences:set-default 'MacroStepper:SuppressWarnings? #f boolean?) (preferences:set-default 'MacroStepper:SuppressWarnings? #f boolean?)
(preferences:set-default 'MacroStepper:OneByOne? #f boolean?) (preferences:set-default 'MacroStepper:OneByOne? #f boolean?)
(preferences:set-default 'MacroStepper:ExtraNavigation? #f boolean?)
(pref:get/set pref:width MacroStepper:Frame:Width) (pref:get/set pref:width MacroStepper:Frame:Width)
(pref:get/set pref:height MacroStepper:Frame:Height) (pref:get/set pref:height MacroStepper:Frame:Height)
@ -45,6 +46,7 @@
(pref:get/set pref:show-rename-steps? MacroStepper:ShowRenameSteps?) (pref:get/set pref:show-rename-steps? MacroStepper:ShowRenameSteps?)
(pref:get/set pref:suppress-warnings? MacroStepper:SuppressWarnings?) (pref:get/set pref:suppress-warnings? MacroStepper:SuppressWarnings?)
(pref:get/set pref:one-by-one? MacroStepper:OneByOne?) (pref:get/set pref:one-by-one? MacroStepper:OneByOne?)
(pref:get/set pref:extra-navigation? MacroStepper:ExtraNavigation?)
)) ))
) )