diff --git a/library/ui/load.factor b/library/ui/load.factor index 76e144eb70..d26ebcd8a0 100644 --- a/library/ui/load.factor +++ b/library/ui/load.factor @@ -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" diff --git a/library/ui/presentations.factor b/library/ui/presentations.factor deleted file mode 100644 index e2523070db..0000000000 --- a/library/ui/presentations.factor +++ /dev/null @@ -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 show-menu ; - -: presentation-actions ( presentation obj -- ) - [ literal, \ press-presentation , ] make-list - [ button-down 1 ] set-action ; - -: ( obj -- gadget ) - dup unparse f - [ swap presentation-actions ] keep ;