--- a/TabWidget.st	Thu Jul 24 18:26:35 1997 +0200
+++ b/TabWidget.st	Sat Jul 26 17:09:54 1997 +0200
@@ -436,7 +436,7 @@
 containsPoint:aPoint
     "return true, if a point is contained in the tab
     "
-    |d x y top bot origin|
+    |d x y origin|
 
     d := tabView direction.
     x := aPoint x.
@@ -465,7 +465,7 @@
 !TabWidget::Window class methodsFor:'accessing'!
 
 tabStyleOn:aView
-    |style col|
+    |style|
 
     style := super tabStyleOn:aView.
 
@@ -506,7 +506,7 @@
 redrawAtBottom:isSelected
     "redraw tab at bottom of view
     "
-    |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor|
+    |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor|
 
     origin := self computeOrigin.
     corner := self computeCorner.
@@ -572,7 +572,7 @@
 redrawAtLeft:isSelected
     "redraw tab at left of view
     "
-    |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor|
+    |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor|
 
     origin := self computeOrigin.
     corner := self computeCorner.
@@ -631,7 +631,7 @@
 redrawAtRight:isSelected
     "redraw tab at right of view
     "
-    |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor|
+    |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor|
 
     origin := self computeOrigin.
     corner := self computeCorner.
@@ -689,7 +689,7 @@
 redrawAtTop:isSelected
     "redraw tab at top of view
     "
-    |polygon origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor|
+    |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor|
 
     origin := self computeOrigin.
     corner := self computeCorner.
@@ -922,7 +922,7 @@
 redrawAtTop:isSelected
     "redraw tab at top of view
     "
-    |origin corner level polygon x y x1 eX eY color shadowColor lightColor|
+    |origin corner level polygon x y x1 eX eY shadowColor lightColor|
 
     isSelected ifFalse:[
         lightColor  := tabView styleAt:#lightColorUnselected.
@@ -970,5 +970,5 @@
 !TabWidget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.9 1997-06-11 13:58:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.10 1997-07-26 15:09:54 cg Exp $'
 ! !