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

UI tweaks

slava 2006-04-02 00:51:48 +00:00
parent cfdefab518
commit 717cba001c
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/ui/labels.factor
View File

@ -27,7 +27,6 @@ M: label pref-dim* ( label -- dim ) label-size ;
: draw-label ( label -- ) : draw-label ( label -- )
dup label-color gl-color dup label-color gl-color
dup label-font* dup world get font-sprites rot dup label-font* swap label-text draw-string ;
label-text draw-string ;
M: label draw-gadget* ( label -- ) draw-label ; M: label draw-gadget* ( label -- ) draw-label ;

3
library/ui/world.factor
View File

@ -45,3 +45,6 @@ M: world pref-dim* ( world -- dim )
: focused-ancestors ( world -- seq ) : focused-ancestors ( world -- seq )
world-focus parents reverse-slice ; world-focus parents reverse-slice ;
: draw-string ( open-fonts string -- )
>r dup world get font-sprites r> (draw-string) ;