more UI code cleanups
parent
1088ebdebb
commit
dbe9ce0715
|
@ -28,7 +28,6 @@ USING: kernel parser sequences io ;
|
||||||
"/library/ui/scrolling.factor"
|
"/library/ui/scrolling.factor"
|
||||||
"/library/ui/editors.factor"
|
"/library/ui/editors.factor"
|
||||||
"/library/ui/menus.factor"
|
"/library/ui/menus.factor"
|
||||||
"/library/ui/presentations.factor"
|
|
||||||
"/library/ui/splitters.factor"
|
"/library/ui/splitters.factor"
|
||||||
"/library/ui/panes.factor"
|
"/library/ui/panes.factor"
|
||||||
"/library/ui/init-world.factor"
|
"/library/ui/init-world.factor"
|
||||||
|
|
|
@ -1,23 +0,0 @@
|
||||||
! Copyright (C) 2005 Slava Pestov.
|
|
||||||
! See http://factor.sf.net/license.txt for BSD license.
|
|
||||||
IN: gadgets
|
|
||||||
USING: kernel lists namespaces prettyprint io unparser ;
|
|
||||||
|
|
||||||
DEFER: inspect
|
|
||||||
|
|
||||||
: object-menu ( obj -- assoc )
|
|
||||||
[
|
|
||||||
[[ "Inspect" [ inspect ] ]]
|
|
||||||
] actionize ;
|
|
||||||
|
|
||||||
: press-presentation ( presentation obj -- )
|
|
||||||
#! Called when mouse is pressed over a presentation.
|
|
||||||
swap button-update object-menu <menu> show-menu ;
|
|
||||||
|
|
||||||
: presentation-actions ( presentation obj -- )
|
|
||||||
[ literal, \ press-presentation , ] make-list
|
|
||||||
[ button-down 1 ] set-action ;
|
|
||||||
|
|
||||||
: <presentation> ( obj -- gadget )
|
|
||||||
dup unparse f <roll-button>
|
|
||||||
[ swap presentation-actions ] keep ;
|
|
Loading…
Reference in New Issue