Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 20 May 1999 19:29:18 +0200
changeset 1381 af7df1844287
parent 1380 3b343d2e69ef
child 1382 a852ac554869
checkin from browser
TabView.st file | annotate | diff | comparison | revisions
TabWidget.st file | annotate | diff | comparison | revisions 
--- a/TabView.st	Tue May 18 21:15:53 1999 +0200
+++ b/TabView.st	Thu May 20 19:29:18 1999 +0200
@@ -720,7 +720,7 @@
     |rectangle oldSelect prevClipArea|
 
     self shown ifFalse:[
-	^ self
+        ^ self
     ].
 
     self paint:(self viewBackground).
@@ -733,18 +733,21 @@
     device setClipX:x y:y width:w height:h in:drawableId gc:gcId.
     rectangle := Rectangle left:x top:y width:w height:h.
 
+    maxRawNr isNil ifTrue:[
+        self recomputeList.
+    ].
     maxRawNr to:1 by:-1 do:[:i| self redrawRawAt:i in:rectangle].
 
     selection notNil ifTrue:[
-	oldSelect := selection.
-	selection := nil.
-	self setSelection:oldSelect.
+        oldSelect := selection.
+        selection := nil.
+        self setSelection:oldSelect.
     ].
 
     prevClipArea isNil ifTrue:[device noClipIn:drawableId  gc:gcId]
-		      ifFalse:[self clippingRectangle:prevClipArea].
+                      ifFalse:[self clippingRectangle:prevClipArea].
 
-    "Modified: / 18.4.1998 / 16:19:58 / cg"
+    "Modified: / 20.5.1999 / 19:16:51 / cg"
 !
 
 selectedTab:aTab redrawBlock:aRedrawBlock
@@ -1363,5 +1366,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.43 1999-05-17 19:48:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.44 1999-05-20 17:28:57 cg Exp $'
 ! !
--- a/TabWidget.st	Tue May 18 21:15:53 1999 +0200
+++ b/TabWidget.st	Thu May 20 19:29:18 1999 +0200
@@ -795,12 +795,12 @@
 
     style at:#expandSelection    put:4@4.
     style at:#tabLevel           put:2.
-    style at:#labelTopInset      put:2.
-    style at:#labelBottomInset   put:2.
+    style at:#labelTopInset      put:0.
+    style at:#labelBottomInset   put:0.
     style at:#roundedEdges       put:true.
   ^ style
 
-    "Modified: / 4.5.1999 / 02:15:57 / cg"
+    "Modified: / 20.5.1999 / 19:18:04 / cg"
 ! !
 
 !TabWidget::Window class methodsFor:'calculate dimensions'!
@@ -1080,5 +1080,5 @@
 !TabWidget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.19 1999-05-04 00:34:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.20 1999-05-20 17:29:18 cg Exp $'
 ! !
hg/stx-libwidg2