hg/stx-libview: comparison NeXTWorkstation.st

equal deleted inserted replaced

-:ca6d2f117ee8
+:481783839f19
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 DeviceWorkstation subclass:#NeXTWorkstation
-instanceVariableNames:'screen
+instanceVariableNames:'
 			      buffered
 			      knownDrawableIds'
 classVariableNames:   ''
 poolDictionaries:''
 category:'Interface-Graphics'
 objc-code here (due to define conflicts with Class, nil ...) we call
 helper functions to do the job; the helpers are in ../librun/NXsupport.c
 All non-monochrome stuff is untested (I only have a monochroome station)
-$Header: /cvs/stx/stx/libview/NeXTWorkstation.st,v 1.20 1997-05-06 12:49:50 cg Exp $
+$Header: /cvs/stx/stx/libview/NeXTWorkstation.st,v 1.21 2008-07-23 12:12:54 cg Exp $
 written spring 92 by claus
 '!
 !NeXTWorkstation primitiveDefinitions!
 ^ self shouldNotImplement
 !
 createWindowFor:aView left:xpos top:ypos width:wwidth height:wheight
 |ext minWidth minHeight maxWidth maxHeight
 bWidth bColor viewBg viewBgId wsuperView wsuperViewId
 wlabel wcursor wcursorId wicon wiconId windowId
 wiconView wiconViewId
 drawableId|
 wsuperView := aView superView.
 !
 freeColor:colorIndex
 "colors are never freed"
 ^ self
 !
 colorRed:redVal green:greenVal blue:blueVal
 "allocate a color with rgb values - return index"
 setColor:index red:redVal green:greenVal blue:blueVal
 "change color in map at:index.
 Since NeXTs are either StaticGrey or StaticColor, do nothing here."
 ^ self
 !
 getRedFrom:index
 "get red part of color in map at:index"
 float r, g, b;
 NXColor clr;
 if (__isSmallInteger(aColorId)) {
 	id = _intVal(aColorId);
 	ir = (id >> 16) & 0xFF;
 	ig = (id >> 8) & 0xFF;
 	ib = id & 0xFF;
 	/* scale from 0 .. 255 to 0.0 .. 1.0 */
 	r = (float)ir / 255.0;
 	g = (float)ig / 255.0;
 	b = (float)ib / 255.0;
 	clr = NXConvertRGBToColor(r, g, b);
 ! !
 !NeXTWorkstation methodsFor:'drawing'!
 displayString:aString x:x y:y in:aDrawableId with:aGCId
 "draw a string - draw foreground only"
 %{
 float fx, fy;
 do {
 .
 self primitiveFailed
 !
 displayString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
 "draw part of a string - draw foreground only"
 ^ self primitiveFailed
 !
 displayOpaqueString:aString x:x y:y in:aDrawableId with:aGCId
 "draw a string - draw both foreground and background"
 ^ self primitiveFailed
 !
 displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
 "draw part of a string - draw both foreground and background"
 ^ self primitiveFailed
 !
 displayPointX:x y:y in:aDrawableId with:aGCId
 "draw a point"
 ^ self primitiveFailed
 !
 displayLineFromX:x0 y:y0 toX:x1 y:y1 in:aDrawableId with:aGCId
 "draw a line"
 %{
 float fx0, fy0, fx1, fy1;
 do {
 .
 ^ self primitiveFailed
 !
 drawRectangleX:x y:y width:width height:height in:aDrawableId with:aGCId
 "draw a rectangle"
 ^ self primitiveFailed
 !
 drawPolygon:aPolygon in:aDrawableId with:aGCId
 "draw a polygon"
 ^ self primitiveFailed
 !
 copyFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h
 "fill a polygon"
 ^ self primitiveFailed
 !
 drawBits:imageBits depth:imageDepth width:imageWidth height:imageHeight
 		       x:srcx y:srcy
 		    into:aDrawableId x:dstx y:dsty width:w height:h with:aGCId
 "draw a bitimage which has depth id, width iw and height ih into
 the drawable. draw a region of w/h pixels from srcx/srcy to dstx/dsty.
 It has to be checked elsewhere, that server can do it with the given

changeset 5015	481783839f19
parent 1711	9758281e72fd
child 6065	75ff98ae918d