"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

DeviceWorkstation subclass:#NeXTWorkstation

       instanceVariableNames:'screen

			      buffered

			      knownDrawableIds'

       classVariableNames:   ''

       poolDictionaries:''

       category:'Interface-Graphics'

!

NeXTWorkstation comment:'

COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

this class provides the interface to NeXTStep; since we cannot include

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)

written spring 92 by claus

'!

%{

#include <stdio.h>

#include <dpsclient/wraps.h>

#include <dpsclient/psops.h>

/*

 * cannot include objc stuff - too many name conflicts

 */

#define id INT

static INT lastDrawable = 0;

setDrawable(drawableId)

    OBJ drawableId;

{

    id drawable;

    drawable = (id)(_intVal(drawableId));

    if (drawable != lastDrawable) {

	if (lastDrawable) {

	    _objc_unlockFocus(lastDrawable);

	}

	_objc_lockFocus(drawable);

	lastDrawable = drawable;

    }

}

%}

!NeXTWorkstation class methodsFor:'initialization'!

initialize

    self initializeDisplayConstants.

    self initializeConstants.

!

initializeDisplayConstants

    "initialize some common constants"

! !

!NeXTWorkstation methodsFor:'initialize / release'!

initialize

    "{ Symbol: color      }"

    "{ Symbol: monochrome }"

%{

    int depth, width, height;

    char *visual;

    /* do NXApp stuff, get screen infos */

    _NX_init(&visual, &depth, &width, &height);

    _INST(visualType) = _MKSYMBOL(visual, (OBJ *)0, __context);

    _INST(depth) = _MKSMALLINT(depth);

    _INST(width) = _MKSMALLINT(width);

    _INST(height) = _MKSMALLINT(height);

    _INST(widthMM) = _MKSMALLINT(300);

    _INST(heightMM) = _MKSMALLINT(222);

    if (strcmp(visual, "StaticGray") == 0) {

	_INST(hasColors) = false;

	_INST(hasGreyscales) = true;

	_INST(bitsPerRGB) = _MKSMALLINT(2);

	if (depth == 2)

	    _INST(ncells) = _MKSMALLINT(4);

	_INST(monitorType) = _monochrome;

    } else if (strcmp(visual, "TrueColor") == 0) {

	_INST(hasColors) = true;

	_INST(hasGreyscales) = true;

	/*

	 * does this exist ?"

	 *

	if (depth == 8) {

	    _INST(ncells) = _MKSMALLINT(256);

	}

	 *

	 */

	/* should work for colorStation */

	if (depth == 12) {

	    _INST(ncells) = _MKSMALLINT(4096);

	    _INST(bitsPerRGB) = _MKSMALLINT(4);

	}

	/* should work for nextDimension */

	if (depth == 24) {

	    _INST(ncells) = _MKSMALLINT(4096 * 4096);

	    _INST(bitsPerRGB) = _MKSMALLINT(8);

	}

	_INST(monitorType) = _color;

    }

%}

.

    dispatching := false.

    shiftDown := false.

    ctrlDown := false.

    metaDown := false.

    altDown := false.

    motionEventCompression := true.

    buffered := true.

    self initializeKeyboardMap

!

close

%{

    _NX_close();

%}

! !

!NeXTWorkstation methodsFor:'private'!

addKnownView:aView winId:aNumber withId:aDrawableNumber

    "add the View aView with Id:aNumber to the list of known views/id's"

    knownViews isNil ifTrue:[

	knownViews := (VariableArray new:100) grow:0.

	knownIds := (VariableArray new:100) grow:0.

	knownDrawableIds := (VariableArray new:100) grow:0

    ].

    knownViews add:aView.

    knownIds add:aNumber.

    knownDrawableIds add:aDrawableNumber

! !

!NeXTWorkstation methodsFor:'misc'!

lastError

    "return the last X-error string - when buffering is on, this may be

     an error for a long-ago operation"

    ^ nil

!

unBuffered

    "make all drawing be sent immediately to the display"

    buffered := false

!

buffered

    "buffer drawing - do not send it immediately to the display"

    buffered := true

!

synchronizeOutput

    "send all buffered drawing to the display"

%{

    NXPing();

%}

! !

!NeXTWorkstation class methodsFor:'queries'!

platformName

    ^ 'NeXTStep'

! !

!NeXTWorkstation methodsFor:'accessing & queries'!

displayFileDescriptor

    "return the displays fileNumber - for select"

    ^ nil

!

serverVendor

    ^ 'NeXT'

!

vendorRelease

    ^ 2.1  "this is wrong - should get it from somewhere ..."

!

protocolVersion

    ^ self vendorRelease

!

hasShape

    "return true, if display supports arbitrary shaped windows.

     (actually, DPS does support this - but I currently dont know how)"

    ^ false

!

hasDPS

    "return true, if display supports postscript output into a view"

    ^ true

!

blackpixel

    "return the colorId of black;

     for next, we use the color directly"

    ^ 16r000000

!

whitepixel

    "return the colorId of white;

     for next, we use the color directly"

    ^ 16rFFFFFF

!

visualType:aSymbol

    ^ self shouldNotImplement

!

viewIdFromPoint:aPoint in:windowId

    "given a point in rootWindow, return the viewId of the subview of windowId

     hit by this coordinate.

     return nil if no view was hit.

     - use to find window to drop objects after a cross-view drag"

     ^ self shouldNotImplement

!

translatePoint:aPoint from:windowId1 to:windowId2

    "given a point in window1, return the coordinate in window2

     - use to xlate points from a window to rootwindow"

     ^ self shouldNotImplement

! !

!NeXTWorkstation methodsFor:'bitmap/window creation'!

createFaxImageFromArray:data width:w height:h type:type k:k msbFirst:msbFirst

    "create a new faxImage in the workstation"

    ^ nil

!

createBitmapWidth:w height:h

     ^ self shouldNotImplement

!

createPixmapWidth:w height:h depth:d

     ^ self shouldNotImplement

!

createBitmapFromFile:aString for:aForm

     ^ self shouldNotImplement

!

createBitmapFromArray:anArray width:w height:h

     ^ self shouldNotImplement

!

createWindowFor:aView left:xpos top:ypos width:wwidth height:wheight

    |ext minWidth minHeight maxWidth maxHeight 

     drawableId|

    wsuperView := aView superView.

    wsuperView notNil ifTrue:[

	wsuperViewId := wsuperView id

    ].

    wlabel := aView label.

    wcursor := aView cursor.

    wsuperView isNil ifTrue:[

	ext := aView minExtent.

	ext notNil ifTrue:[

	    minWidth := ext x.

	    minHeight := ext y

	].

	ext := aView maxExtent.

	ext notNil ifTrue:[

	    maxWidth := ext x.

	    maxHeight := ext y

	].

    ].

%{

    id win;

    id view;

    int w, h, resizable;

    if ((minWidth != nil) && (maxWidth != nil)

     && (minWidth == maxWidth) && (minHeight == maxHeight)) {

	w = _intVal(minWidth);

	h = _intVal(maxHeight);

	resizable = 0;

    } else {

	w = _intVal(wwidth);

	h = _intVal(wheight);

	resizable = 1;

    }

    win = _NX_create_window(_intVal(xpos), _intVal(ypos), 

			    w, h, resizable);

    if (! win)

	return nil;

    /*

     * define its name

     */

    if (_isString(wlabel))

	_objc_setTitle(win, _stringVal(wlabel));

    else

	_objc_setTitle(win, "untitled");

    view = _objc_contentView(win);

    _objc_setFlipped_(view, 1);

    _objc_makeKeyAndOrderFront(win, 0);

    _objc_display(win);

    windowId = _MKSMALLINT(win);

    drawableId = _MKSMALLINT(view);

%}

.

    self addKnownView:aView winId:windowId withId:drawableId.

    ^ drawableId

!

rootWindowFor:aView

     ^ self shouldNotImplement

!

destroyView:aView withId:aWindowId

     ^ self shouldNotImplement

!

destroyPixmap:aDrawableId

     ^ self shouldNotImplement

!

destroyFaxImage:aFaxImageId

     ^ self shouldNotImplement

!

destroyGC:aGCId

     ^ self shouldNotImplement

!

gcFor:aDrawableId

     ^ self shouldNotImplement

! !

!NeXTWorkstation methodsFor:'misc stuff'!

setInputFocusTo:aWindowId

    ^ self primitiveFailed

! !

!NeXTWorkstation methodsFor:'font stuff'!

listOfAvailableFonts

    "return a list with all available font names on this display"

%{

	char **names;

	char **cp;

	int count, i;

	static struct inlineCache dummy1 = _DUMMYILC1;

	extern OBJ _new_;

	OBJ arr;

	names = (char **) _objc_availableFonts(_FontManager_new());

	/* count them */

	for (cp = names; *cp; cp++) ;;

	count = cp - names;

	arr = _SEND1(Array, _new_, CON_COMMA nil, &dummy1, _MKSMALLINT(count));

	for (i=0; i<count;i++)

	    _ArrayInstPtr(arr)->a_element[i] = _MKSTRING(names[i] COMMA_CON);

	free(names);

	RETURN (arr);

%}

!

createFontFor:aFontName

    ^ self primitiveFailed

!

releaseFont:aFontId

    ^ self primitiveFailed

!

ascentOf:aFontId

    ^ self primitiveFailed

!

descentOf:aFontId

    self badFont

!

minWidthOfFont:aFontId

    self badFont

!

maxWidthOfFont:aFontId

    self badFont

!

widthOf:aString inFont:aFontId

    ^ self primitiveFailed

!

widthOf:aString from:index1 to:index2 inFont:aFontId

    ^ self primitiveFailed

! !

!NeXTWorkstation methodsFor:'cursor stuff'!

destroyCursor:aCursorId

    ^ self primitiveFailed

!

createCursorSourceFormId:sourceFormId maskFormId:maskFormId hotX:hx hotY:hy

    ^ self primitiveFailed

!

grabPointerIn:aWindowId

    ^ self primitiveFailed

!

ungrabPointer

    ^ self primitiveFailed

!

pointerPosition

    ^ self primitiveFailed

! !

!NeXTWorkstation methodsFor:'color stuff'!

listOfAvailableColors

    ^ super listOfAvailableColors

!

freeColor:colorIndex

    "colors are never freed"

    ^ self 

!

colorRed:redVal green:greenVal blue:blueVal

    "allocate a color with rgb values - return index"

    | r g b |

    "on the next, we use rgb value as index"

    r := (redVal * 16rFF / 100) asInteger.

    g := (greenVal * 16rFF / 100) asInteger.

    b := (blueVal * 16rFF / 100) asInteger.

    r := (r min:255) max:0.

    g := (g min:255) max:0.

    b := (b min:255) max:0.

    ^ (((r bitShift:8) bitOr:g) bitShift:8) bitOr:b

!

colorNamed:aString

    "allocate a color with color name - return index"

    ^ super colorNamed:aString

!

colorCell

    "allocate a color - return index.

     Since NeXTs are either StaticGrey or StaticColor, return nil here."

    ^ nil

!

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"

    ^ ((index bitShift:-16) bitAnd:16rFF) * 100 / 16rFF

!

getGreenFrom:index

    "get green part of color in map at:index"

    ^ ((index bitShift:-8) bitAnd:16rFF) * 100 / 16rFF

!

getBlueFrom:index