mirrors: makes string an inspectable sequence, fixes #1238

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index ecd6da18faeee325006a998ac1d60ffbf4980ad7..ca8ff7fd6ace72be0b4a547be2a519a62c0c588b 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -1,9 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs byte-arrays classes classes.tuple
-classes.tuple.private combinators fry hash-sets hashtables
-kernel math quotations sequences sets slots slots.private
-vectors ;
+classes.tuple.private combinators fry hash-sets hashtables kernel math
+quotations sequences sets slots slots.private strings vectors ;
 IN: mirrors
 
 TUPLE: mirror { object read-only } ;
@@ -61,6 +60,7 @@ INSTANCE: array             inspected-sequence
 INSTANCE: vector            inspected-sequence
 INSTANCE: callable          inspected-sequence
 INSTANCE: byte-array        inspected-sequence
+INSTANCE: string            inspected-sequence
 
 GENERIC: make-mirror ( obj -- assoc )
 M: hashtable make-mirror ;

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 9c6f0f71359cf3679ced83cd6018efba3b7a7bcd..e76417ee71470315aba8497b04418fc8b5669b84 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -442,8 +442,3 @@ pane H{
 
 GENERIC: content-gadget ( object -- gadget/f )
 M: object content-gadget drop f ;
-
-M: string content-gadget
-    '[ _ write ] make-pane <scroller>
-        { 450 100 } >>pref-dim
-    <wrapper> ;