ui.gadgets.scrollers: minor tweak in 'new-scroller'

db4
Eduardo Cavazos 2008-11-08 16:23:06 -06:00
parent 8e44e783cf
commit 8262b50c87
1 changed files with 1 additions and 1 deletions

View File

@ -41,7 +41,7 @@ scroller H{
dup model>> dependencies>> first <x-slider> >>x dup x>> @bottom grid-add
dup model>> dependencies>> second <y-slider> >>y dup y>> @right grid-add
swap over model>> <viewport> >>viewport
tuck model>> <viewport> >>viewport
dup viewport>> @center grid-add ;
: <scroller> ( gadget -- scroller ) scroller new-scroller ;