DeviceWorkstation.st
changeset 2622 c1f2727a424b
parent 2621 f3edd1f7eae3
child 2631 c42013ed57a8
equal deleted inserted replaced
2621:f3edd1f7eae3 2622:c1f2727a424b
  2771 !
  2771 !
  2772 
  2772 
  2773 displayPointX:x y:y in:aDrawableId with:aGCId
  2773 displayPointX:x y:y in:aDrawableId with:aGCId
  2774     "draw a point"
  2774     "draw a point"
  2775 
  2775 
  2776     self displayLineFromX:x y:y toX:x y:y with:aGCId.
  2776     "/ could use
  2777 "/    ^ self subclassResponsibility
  2777     "/ self displayLineFromX:x y:y toX:x y:y in:aDrawableId with:aGCId.
  2778 
  2778     "/ but then, we had to care for lineWidth & style ...
  2779     "Modified: / 3.5.1999 / 14:17:21 / cg"
  2779 
       
  2780     ^ self subclassResponsibility
       
  2781 
       
  2782     "Modified: / 3.5.1999 / 14:26:32 / cg"
  2780 !
  2783 !
  2781 
  2784 
  2782 displayPolygon:aPolygon in:aDrawableId with:aGCId
  2785 displayPolygon:aPolygon in:aDrawableId with:aGCId
  2783     "draw a polygon"
  2786     "draw a polygon"
  2784 
  2787 
  6222 ! !
  6225 ! !
  6223 
  6226 
  6224 !DeviceWorkstation class methodsFor:'documentation'!
  6227 !DeviceWorkstation class methodsFor:'documentation'!
  6225 
  6228 
  6226 version
  6229 version
  6227     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.285 1999-05-03 12:36:29 cg Exp $'
  6230     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.286 1999-05-03 12:45:32 cg Exp $'
  6228 ! !
  6231 ! !
  6229 DeviceWorkstation initialize!
  6232 DeviceWorkstation initialize!