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

new accessors

db4
Doug Coleman 2008-09-01 22:44:10 -05:00
parent 04d2f95536
commit e060a103b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,7 +43,7 @@ M: label gadget-text* label-string % ;
TUPLE: label-control < label ; TUPLE: label-control < label ;
M: label-control model-changed M: label-control model-changed
swap model-value over set-label-string relayout ; swap value>> over set-label-string relayout ;
: <label-control> ( model -- gadget ) : <label-control> ( model -- gadget )
"" label-control new-label "" label-control new-label