Mercurial Mercurial > hg > stx-libwidg2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TabWidget.st
changeset 894 d5a703c21f7a
parent 703 f07158f92e36
child 1220 77cf87aa302e 
--- a/TabWidget.st	Wed May 20 09:47:25 1998 +0200
+++ b/TabWidget.st	Thu May 21 01:17:18 1998 +0200
@@ -611,15 +611,23 @@
     tabView paint:lightColor.
 
     1 to:level do:[:i|
-        tabView displayLineFromX:x+1 y:y-i toX:x1+i y:y-i.
+        "/ removed: cg
+"/        tabView displayLineFromX:x+1 y:y-i toX:x1+i y:y-i.
         tabView displayLineFromX:x+i y:y-1 toX:x+i  y:1.
     ].
     tabView paint:shadowColor.
+
+    "/ added: cg
+    1 to:(level-2) do:[:i|
+        tabView displayLineFromX:x+1 y:y-i toX:x1+i y:y-i.
+    ].
     tabView displayPolygon:polygon.
 
     isSelected ifFalse:[
         tabView displayLineFromX:x y:eY toX:eX y:eY.
     ]
+
+    "Modified: / 21.5.1998 / 01:16:32 / cg"
 !
 
 redrawAtLeft:isSelected
@@ -703,15 +711,22 @@
 
     1 to:level do:[:i|
         tabView displayLineFromX:0   y:y+i toX:x-1  y:y+i.
-        tabView displayLineFromX:x-i y:y+1 toX:x-i  y:y1+i.
+        "/ removed: cg
+"/        tabView displayLineFromX:x-i y:y+1 toX:x-i  y:y1+i.
     ].
     tabView paint:shadowColor.
     tabView displayPolygon:polygon.
 
+    "/ added: cg
+    1 to:level-2 do:[:i|
+        tabView displayLineFromX:x-i y:y+1 toX:x-i  y:y1+i.
+    ].
+
     isSelected ifFalse:[
         tabView displayLineFromX:0 y:y toX:0 y:eY.
     ]
 
+    "Modified: / 21.5.1998 / 01:16:24 / cg"
 !
 
 redrawAtTop:isSelected
@@ -838,11 +853,11 @@
         tabView paint:lightColor.
         tabView displayPointX:x   y:y+1.
         tabView displayPointX:x+1 y:y+1.
+
+        tabView paint:shadowColor.
         tabView displayLineFromX:x+1 y:y+2 toX:xR-1 y:y+2.
         tabView displayLineFromX:x+2 y:y+3 toX:xR-2 y:y+3.
 
-        tabView paint:shadowColor.
-
         0 to:tabLevel do:[:i |
             tabView displayPointX:xR-i   y:y.
             tabView displayPointX:xR-i   y:y+1.
@@ -867,6 +882,7 @@
         tabView displayLineFromX:xR-i y:y-i toX:xR-i y:yB.  "/ right edge
     ].
 
+    "Modified: / 21.5.1998 / 01:07:01 / cg"
 !
 
 redrawAtLeft:isSelected
@@ -960,11 +976,11 @@
         tabView paint:lightColor.
         tabView displayPointX:x y:y+1.
         tabView displayPointX:x y:y+2.
+
+        tabView paint:shadowColor.
         tabView displayLineFromX:x+1 y:y+2 toX:x+1 y:yB-1.
         tabView displayLineFromX:x+2 y:y+3 toX:x+2 y:yB-1.
 
-        tabView paint:shadowColor.
-
         0 to:tabLevel do:[:i |
             tabView displayPointX:x   y:yB-i.
             tabView displayPointX:x+1 y:yB-i-1.
@@ -984,6 +1000,8 @@
     0 to:tabLevel do:[:i |
         tabView displayLineFromX:x-i+1 y:yB-i toX:1 y:yB-i.       
     ].
+
+    "Modified: / 21.5.1998 / 01:04:41 / cg"
 !
 
 redrawAtTop:isSelected
@@ -1054,5 +1072,5 @@
 !TabWidget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.15 1998-01-29 12:00:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.16 1998-05-20 23:17:18 cg Exp $'
 ! !
hg/stx-libwidg2