--- a/MultiViewToolApplication.st	Fri Aug 03 22:23:23 2012 +0200
+++ b/MultiViewToolApplication.st	Fri Aug 03 22:25:30 2012 +0200
@@ -586,12 +586,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
             ].
         ].
@@ -607,11 +606,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
                 ].
             ].
@@ -1359,5 +1357,5 @@
 !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 $'
 ! !