--- a/SimpleView.st	Sat Feb 05 15:22:21 2000 +0100
+++ b/SimpleView.st	Mon Feb 07 12:51:59 2000 +0100
@@ -40,15 +40,15 @@
 	privateIn:SimpleView
 !
 
-SimpleView::ViewShape subclass:#ArbitraryViewShape
-	instanceVariableNames:'viewShapeForm borderShapeForm'
+SimpleView::ViewShape subclass:#RoundViewShape
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SimpleView
 !
 
-SimpleView::ViewShape subclass:#RoundViewShape
-	instanceVariableNames:''
+SimpleView::ViewShape subclass:#ArbitraryViewShape
+	instanceVariableNames:'viewShapeForm borderShapeForm'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SimpleView
@@ -5235,13 +5235,15 @@
     "set widget tabable or not
     "
     aBool == true ifTrue:[
-	self objectAttributeAt:#tabable put:true
+        self objectAttributeAt:#tabable put:true
     ] ifFalse:[
-	(self objectAttributeAt:#tabable) == true ifTrue:[
-	    self objectAttributeAt:#tabable put:false
-	]
-    ].
-
+        self removeObjectAttribute:#tabable
+"/        (self objectAttributeAt:#tabable) == true ifTrue:[
+"/            self objectAttributeAt:#tabable put:false
+"/        ]
+    ].
+
+    "Modified: / 5.2.2000 / 19:44:55 / cg"
 !
 
 focusNext
@@ -5517,7 +5519,7 @@
     ^ self
 ! !
 
-!SimpleView methodsFor:'initialize / release'!
+!SimpleView methodsFor:'initialization & release'!
 
 defaultControllerClass
     ^ nil "/ Controller
@@ -8566,6 +8568,14 @@
     ^ false
 ! !
 
+!SimpleView::RoundViewShape methodsFor:'queries'!
+
+isRoundShape
+    ^ true
+
+
+! !
+
 !SimpleView::ArbitraryViewShape methodsFor:'accessing'!
 
 borderShapeForm
@@ -8600,17 +8610,9 @@
     "Created: 18.9.1997 / 11:04:29 / cg"
 ! !
 
-!SimpleView::RoundViewShape methodsFor:'queries'!
-
-isRoundShape
-    ^ true
-
-
-! !
-
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.362 2000-02-05 14:22:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.363 2000-02-07 11:51:59 cg Exp $'
 ! !
 SimpleView initialize!