fill/drawArc..w:h:.. renamed to ...width:height:...
--- a/MenuView.st Wed May 08 09:48:08 1996 +0200
+++ b/MenuView.st Wed May 08 13:52:25 1996 +0200
@@ -1412,8 +1412,8 @@
fill the arcs
"
self paint:hilightBgColor.
- self fillArcX:1+margin+1 y:y w:r2 h:r2+1+1 from:90 angle:180.
- self fillArcX:width-r2-1-1-margin-1 y:y w:r2 h:r2+1+1 from:270 angle:180.
+ self fillArcX:1+margin+1 y:y width:r2 height:r2+1+1 from:90 angle:180.
+ self fillArcX:width-r2-1-1-margin-1 y:y width:r2 height:r2+1+1 from:270 angle:180.
"
a highlight-border around
@@ -1423,8 +1423,8 @@
self displayLineFromX:radius+2 y:y toX:width-radius-3 y:y.
self displayLineFromX:radius+2 y:y2 toX:width-radius-3 y:y2.
- self displayArcX:1+margin+1 y:y w:r2 h:r2+1+1 from:90 angle:180.
- self displayArcX:width-r2-1-1-margin-1 y:y w:r2 h:r2+1+1 from:270 angle:180.
+ self displayArcX:1+margin+1 y:y width:r2 height:r2+1+1 from:90 angle:180.
+ self displayArcX:width-r2-1-1-margin-1 y:y width:r2 height:r2+1+1 from:270 angle:180.
^ self
].
@@ -1443,21 +1443,21 @@
self paint:topLeftColor.
self displayLineFromX:radius+2 y:y toX:width-radius-3 y:y.
- self displayArcX:1+margin+1 y:y w:r2 h:r2+1+1 from:90 angle:125.
- self displayArcX:width-r2-1-1-margin-1 y:y w:r2 h:r2+1+1 from:270+125 angle:55.
+ self displayArcX:1+margin+1 y:y width:r2 height:r2+1+1 from:90 angle:125.
+ self displayArcX:width-r2-1-1-margin-1 y:y width:r2 height:r2+1+1 from:270+125 angle:55.
self paint:botRightColor.
self displayLineFromX:radius+2 y:y2 toX:width-radius-3 y:y2.
- self displayArcX:1+margin+1 y:y w:r2 h:r2+1+1 from:90+125 angle:55.
- self displayArcX:width-r2-1-1-margin-1 y:y w:r2 h:r2+1+1 from:270 angle:125.
+ self displayArcX:1+margin+1 y:y width:r2 height:r2+1+1 from:90+125 angle:55.
+ self displayArcX:width-r2-1-1-margin-1 y:y width:r2 height:r2+1+1 from:270 angle:125.
].
^ self
].
^ super drawVisibleLine:visLineNr with:fg and:bg
"Created: 28.2.1996 / 18:41:17 / cg"
- "Modified: 28.2.1996 / 19:42:57 / cg"
+ "Modified: 8.5.1996 / 08:43:29 / cg"
! !
!MenuView methodsFor:'event handling'!
@@ -2453,5 +2453,5 @@
!MenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.74 1996-04-30 13:55:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.75 1996-05-08 11:52:25 cg Exp $'
! !