more UI code cleanups

cvs
Slava Pestov 2005-06-27 18:55:35 +00:00
parent 1088ebdebb
commit dbe9ce0715
2 changed files with 0 additions and 24 deletions

View File

@ -28,7 +28,6 @@ USING: kernel parser sequences io ;
"/library/ui/scrolling.factor"
"/library/ui/editors.factor"
"/library/ui/menus.factor"
"/library/ui/presentations.factor"
"/library/ui/splitters.factor"
"/library/ui/panes.factor"
"/library/ui/init-world.factor"

View File

@ -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 ;