home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / cnretch.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  736 b   |  34 lines
  1.  
  2.  
  3. !EwTableList privateMethods !
  4.  
  5. etchLeftUsing: anRC
  6.     "Paint etching along the left side of the EwRenderContext."
  7.  
  8.     anRC drawable
  9.         fillRectangle: anRC gc
  10.         x: anRC x
  11.         y: anRC y
  12.         width: self etchSize
  13.         height: anRC height - 1!
  14.  
  15. etchRightUsing: anRC
  16.     "Paint etching along the right side of the EwRenderContext."
  17.  
  18.     anRC drawable
  19.         fillRectangle: anRC gc
  20.         x: anRC right - self etchSize
  21.         y: anRC y + 1
  22.         width: self etchSize
  23.         height: anRC height - 1! !
  24.  
  25. EwTableList commentFor: #etchLeftUsing: is:
  26. 'Copyright 1995 Object Technology International Inc.
  27. All rights reserved.
  28.  
  29. !!'!
  30. EwTableList commentFor: #etchRightUsing: is:
  31. 'Copyright 1995 Object Technology International Inc.
  32. All rights reserved.
  33.  
  34. !!'!