more UI code cleanups

diff --git a/library/ui/load.factor b/library/ui/load.factor
index 76e144eb70065f46cd8257e24fb9fdd671082968..d26ebcd8a0c9d13548ea25d79fdd46f26cfe59ce 100644 (file)
--- 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 (file)
index e252307..0000000
--- 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 <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 ;