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

ui.gadgets.labels: fix stack effects for label-on-left and label-on-right

db4
Slava Pestov 2010-07-18 17:30:49 -04:00
parent fd053eb028
commit 80d0ed0110
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/labels/labels.factor
View File

@ -106,12 +106,12 @@ M: f >label drop <gadget> ;
{ 5 5 } >>gap ; inline { 5 5 } >>gap ; inline
PRIVATE> PRIVATE>
: label-on-left ( gadget label -- button ) : label-on-left ( gadget label -- track )
label-on-left/right label-on-left/right
swap >label f track-add swap >label f track-add
swap 1 track-add ; swap 1 track-add ;
: label-on-right ( label gadget -- button ) : label-on-right ( label gadget -- track )
label-on-left/right label-on-left/right
swap f track-add swap f track-add
swap >label 1 track-add ; swap >label 1 track-add ;