--- a/MultiViewToolApplication.st	Fri Sep 07 12:37:19 2012 +0100
+++ b/MultiViewToolApplication.st	Fri Sep 07 18:28:09 2012 +0100
@@ -604,12 +604,11 @@
             "/ for now: if that buffer is modified, do not allow removing.
             "/ (must be brought to front, in order for check-for-modification to work)
             ws := workspaces at:index.
-            (ws isKindOf:ScrollableView) ifTrue:[
+            ws isScrollWrapper ifTrue:[
                 ws := ws scrolledView
             ].
-            ((ws isKindOf:TextView) not
-            or:[ ws modified ])
-            ifTrue:[
+            (ws isTextView not
+             or:[ ws modified ]) ifTrue:[
                 i disable
             ].
         ].
@@ -625,11 +624,10 @@
 
             idx ~~ index ifTrue:[
                 ws := wsArg.
-                (ws isKindOf:ScrollableView) ifTrue:[
+                ws isScrollWrapper ifTrue:[
                     ws := ws scrolledView
                 ].
-                ((ws isKindOf:TextView) and:[ ws modified ])
-                ifTrue:[
+                (ws isTextView and:[ ws modified ]) ifTrue:[
                     i disable
                 ].
             ].
@@ -1377,9 +1375,9 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.44 2012/07/20 08:22:53 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.45 2012/08/03 20:25:30 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: MultiViewToolApplication.st 8022 2012-07-25 09:51:30Z vranyj1 $'
+    ^ '$Id: MultiViewToolApplication.st 8048 2012-09-07 17:28:09Z vranyj1 $'
 ! !