steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-11-21 18:55:37 -06:00
parent f67e583d27 985aca75ba
commit 841c8dddb5
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/listener/listener.factor
View File

@ -73,9 +73,15 @@ SYMBOL: error-hook
] tabular-output ] tabular-output
] unless-empty ; ] unless-empty ;
SYMBOL: display-stacks?
t display-stacks? set-global
: stacks. ( -- ) : stacks. ( -- )
datastack [ nl "--- Data stack:" title. stack. ] unless-empty display-stacks? get [
retainstack [ nl "--- Retain stack:" title. stack. ] unless-empty ; datastack [ nl "--- Data stack:" title. stack. ] unless-empty
retainstack [ nl "--- Retain stack:" title. stack. ] unless-empty
] when ;
: prompt. ( -- ) : prompt. ( -- )
"( " in get auto-use? get [ " - auto" append ] when " )" 3append "( " in get auto-use? get [ " - auto" append ] when " )" 3append

1
basis/ui/gadgets/buttons/buttons.factor
View File

@ -71,6 +71,7 @@ M: button-paint draw-boundary
: roll-button-theme ( button -- button ) : roll-button-theme ( button -- button )
f black <solid> dup f <button-paint> >>boundary f black <solid> dup f <button-paint> >>boundary
f f pressed-gradient f <button-paint> >>interior
align-left ; inline align-left ; inline
: <roll-button> ( label quot -- button ) : <roll-button> ( label quot -- button )