DeviceWorkstation.st
changeset 656 6a659012c9e3
parent 653 0ad3de022f8b
child 689 8029a9904a6b
equal deleted inserted replaced
655:2a518e85793a 656:6a659012c9e3
  1165 
  1165 
  1166 bounds
  1166 bounds
  1167     "return a rectangle representing the displays bounding box.
  1167     "return a rectangle representing the displays bounding box.
  1168      For Smalltalk-80 4.x compatibility"
  1168      For Smalltalk-80 4.x compatibility"
  1169 
  1169 
  1170     ^ Rectangle origin:(0 @ 0) extent:(width @ height)
  1170     ^ Rectangle left:0 top:0 width:width-1 height:height-1
  1171 
  1171 
  1172     "
  1172     "
  1173      Screen default bounds
  1173      Screen default bounds
  1174     "
  1174     "
  1175     "/ thats the same as:
  1175     "/ thats the same as:
  1176     "
  1176     "
  1177      Display bounds
  1177      Display bounds  
  1178     "
  1178     "
       
  1179 
       
  1180     "Modified: 8.5.1996 / 20:58:26 / cg"
  1179 !
  1181 !
  1180 
  1182 
  1181 center
  1183 center
  1182     "return the centerpoint in pixels of the display"
  1184     "return the centerpoint in pixels of the display"
  1183 
  1185 
  4098 ! !
  4100 ! !
  4099 
  4101 
  4100 !DeviceWorkstation class methodsFor:'documentation'!
  4102 !DeviceWorkstation class methodsFor:'documentation'!
  4101 
  4103 
  4102 version
  4104 version
  4103     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.87 1996-05-08 11:51:04 cg Exp $'
  4105     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.88 1996-05-08 20:02:35 cg Exp $'
  4104 ! !
  4106 ! !
  4105 DeviceWorkstation initialize!
  4107 DeviceWorkstation initialize!