--- a/TabWidget.st Thu Apr 29 14:42:37 1999 +0200
+++ b/TabWidget.st Tue May 04 02:34:49 1999 +0200
@@ -75,7 +75,7 @@
maxY := 0.
style := aTabView style.
lftIns := style at:#labelLeftInset.
- topIns := style at:#lableTopInset.
+ topIns := style at:#labelTopInset.
level := style at:#tabLevel.
aTabView device isNil ifTrue:[
@@ -112,6 +112,8 @@
"/ caused by vertical layout for images
maxX < maxY ifTrue:[style at:#maxX put:maxY].
^ list
+
+ "Modified: / 4.5.1999 / 02:15:33 / cg"
!
validateDimensions:aStyle
@@ -139,6 +141,8 @@
aStyle at:#unselectedColor put:unselectedColor.
aStyle at:#selectedColor put:selectedColor.
aStyle at:#labelColor put:Color black.
+
+ "Modified: / 4.5.1999 / 02:16:32 / cg"
!
computeColorsOn:aView style:aStyle selectionColor:aSelectedColor
@@ -176,13 +180,15 @@
style at:#expandSelection put:0@0. "/ expand selection extent x y when raised
style at:#tabLevel put:0. "/ level
- style at:#lableTopInset put:4. "/ additional top label inset
+ style at:#labelTopInset put:4. "/ additional top label inset
style at:#labelBottomInset put:4. "/ additional bottom inset
style at:#labelLeftInset put:4. "/ label left inset
style at:#labelRightInset put:4. "/ label right inset
style at:#rightCovered put:0. "/ covers right tab for n pixels
^ style
+
+ "Modified: / 4.5.1999 / 02:15:50 / cg"
!
widgetClass:aWidget
@@ -789,13 +795,12 @@
style at:#expandSelection put:4@4.
style at:#tabLevel put:2.
- style at:#lableTopInset put:2.
+ style at:#labelTopInset put:2.
style at:#labelBottomInset put:2.
style at:#roundedEdges put:true.
^ style
-
-
+ "Modified: / 4.5.1999 / 02:15:57 / cg"
! !
!TabWidget::Window class methodsFor:'calculate dimensions'!
@@ -1075,5 +1080,5 @@
!TabWidget class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.18 1999-04-24 16:48:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.19 1999-05-04 00:34:49 cg Exp $'
! !