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

Update minor demos for inheritance

db4
Slava Pestov 2008-07-12 01:29:25 -05:00
parent 41adbaf6be
commit 3e082f21e3
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/gesture-logger/gesture-logger.factor
View File

@ -5,10 +5,10 @@ ui.gadgets.scrollers ui.gadgets.theme ui.gestures colors
accessors ;
IN: gesture-logger
TUPLE: gesture-logger stream ;
TUPLE: gesture-logger < gadget stream ;
: <gesture-logger> ( stream -- gadget )
\ gesture-logger construct-gadget
\ gesture-logger new-gadget
swap >>stream
{ 100 100 } >>dim
black solid-interior ;

4
extra/nehe/2/2.factor
View File

@ -2,13 +2,13 @@ USING: arrays kernel math opengl opengl.gl opengl.glu ui
ui.gadgets ui.render ;
IN: nehe.2
TUPLE: nehe2-gadget ;
TUPLE: nehe2-gadget < gadget ;
: width 256 ;
: height 256 ;
: <nehe2-gadget> ( -- gadget )
nehe2-gadget construct-gadget ;
nehe2-gadget new-gadget ;
M: nehe2-gadget pref-dim* ( gadget -- dim )
drop width height 2array ;

4
extra/nehe/3/3.factor
View File

@ -2,13 +2,13 @@ USING: arrays kernel math opengl opengl.gl opengl.glu ui
ui.gadgets ui.render ;
IN: nehe.3
TUPLE: nehe3-gadget ;
TUPLE: nehe3-gadget < gadget ;
: width 256 ;
: height 256 ;
: <nehe3-gadget> ( -- gadget )
nehe3-gadget construct-gadget ;
nehe3-gadget new-gadget ;
M: nehe3-gadget pref-dim* ( gadget -- dim )
drop width height 2array ;

4
extra/nehe/4/4.factor
View File

@ -2,14 +2,14 @@ USING: arrays kernel math opengl opengl.gl opengl.glu ui
ui.gadgets ui.render threads ;
IN: nehe.4
TUPLE: nehe4-gadget rtri rquad thread quit? ;
TUPLE: nehe4-gadget < gadget rtri rquad thread quit? ;
: width 256 ;
: height 256 ;
: redraw-interval 10 ;
: <nehe4-gadget> ( -- gadget )
nehe4-gadget construct-gadget
nehe4-gadget new-gadget
0.0 over set-nehe4-gadget-rtri
0.0 over set-nehe4-gadget-rquad ;

4
extra/nehe/5/5.factor
View File

@ -2,13 +2,13 @@ USING: arrays kernel math opengl opengl.gl opengl.glu ui
ui.gadgets ui.render threads ;
IN: nehe.5
TUPLE: nehe5-gadget rtri rquad thread quit? ;
TUPLE: nehe5-gadget < gadget rtri rquad thread quit? ;
: width 256 ;
: height 256 ;
: redraw-interval 10 ;
: <nehe5-gadget> ( -- gadget )
nehe5-gadget construct-gadget
nehe5-gadget new-gadget
0.0 over set-nehe5-gadget-rtri
0.0 over set-nehe5-gadget-rquad ;