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

Fixed alignment issue in toolbars

db4
nicolas-p 2015-07-26 10:40:18 +02:00 committed by John Benediktsson
parent 40c6e04128
commit a0eaf7a66b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/gadgets/toolbar/toolbar.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2005, 2009 Slava Pestov, 2015 Nicolas Pénet. ! Copyright (C) 2005, 2009 Slava Pestov, 2015 Nicolas Pénet.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes fry kernel locals ui.commands USING: accessors assocs classes fry kernel locals ui.baseline-alignment ui.commands
ui.gadgets ui.gadgets.borders ui.gadgets.buttons ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.buttons.private ui.gadgets.colors ui.gadgets.packs ui.gadgets.buttons.private ui.gadgets.colors ui.gadgets.packs
ui.gadgets.tracks ui.pens ui.pens.solid ; ui.gadgets.tracks ui.pens ui.pens.solid ;
@ -30,8 +30,8 @@ PRIVATE>
: <toolbar> ( target -- toolbar ) : <toolbar> ( target -- toolbar )
horizontal <track> horizontal <track>
0 >>fill 1 >>fill
1/2 >>align +baseline+ >>align
{ 5 5 } >>gap { 5 5 } >>gap
swap swap
[ [ "toolbar" ] dip class-of get-command-at commands>> ] [ [ "toolbar" ] dip class-of get-command-at commands>> ]