Tools__Inspector2Tab.st
branchjv
changeset 15659 bdc9e920f640
parent 15566 184cea584be5
child 16664 ef51c9c52b52
--- a/Tools__Inspector2Tab.st	Fri May 22 06:42:14 2015 +0200
+++ b/Tools__Inspector2Tab.st	Thu May 21 21:56:44 2015 +0100
@@ -102,11 +102,16 @@
     "Modified: / 24-03-2014 / 18:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-view:aView
-    view := aView.
+view:aViewOrBlock
+    aViewOrBlock isBlock ifTrue:[ 
+        viewHolder := aViewOrBlock
+    ] ifFalse:[
+        view := aViewOrBlock.
+    ]
 
     "Created: / 16-01-2008 / 16:51:05 / janfrog"
     "Modified: / 17-02-2008 / 08:58:46 / janfrog"
+    "Modified: / 21-05-2015 / 21:31:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 viewHolder:something
@@ -129,6 +134,11 @@
     ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.8 2014-03-24 22:38:21 vrany Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: Tools__Inspector2Tab.st,v 1.8 2014-03-24 22:38:21 vrany Exp $'
 ! !