From 1a0ecb755a21471e79d97aa65221ae9cd392d90a Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 26 Aug 2006 07:27:37 +0000
Subject: [PATCH] UI fixes

---
 library/tools/definitions.factor | 2 +-
 library/ui/ui.factor             | 5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/library/tools/definitions.factor b/library/tools/definitions.factor
index 2113aedfb8..bc62e55853 100644
--- a/library/tools/definitions.factor
+++ b/library/tools/definitions.factor
@@ -25,7 +25,7 @@ SYMBOL: edit-hook
         first2 edit-location
     ] [
         "Not from a source file" throw
-    ] if ;
+    ] if* ;
 
 GENERIC: synopsis ( defspec -- )
 
diff --git a/library/ui/ui.factor b/library/ui/ui.factor
index ac6d219aff..a5cb1d8472 100644
--- a/library/ui/ui.factor
+++ b/library/ui/ui.factor
@@ -150,7 +150,7 @@ C: titled-gadget ( gadget title -- )
 
 : gadget-info ( gadget -- )
     "Gadget: " write
-    [ unparse-short ] keep write-object terpri ;
+    [ class word-name ] keep write-object terpri ;
 
 : commands. ( gadget -- )
     dup gadget-info
@@ -163,8 +163,7 @@ C: titled-gadget ( gadget title -- )
     >r make-pane <scroller> r> open-titled-window ;
 
 : commands-window ( gadget -- )
-    [ commands. ]
-    "Commands" pane-window ;
+    [ commands. ] "Commands" pane-window ;
 
 gadget {
     { f "Keyboard help" T{ key-down f { C+ } "1" } [ commands-window ] }