"{ Encoding: utf8 }"

"{ Package: 'stx:libview' }"

"{ NameSpace: Smalltalk }"

DeviceWorkstation subclass:#ElectronWorkstation

	instanceVariableNames:'bridge eventQueue'

	classVariableNames:'ExposureMask StructureNotifyMask KeyPressMask KeyReleaseMask

		PointerMotionMask EnterWindowMask LeaveWindowMask ButtonPressMask

		ButtonMotionMask ButtonReleaseMask PropertyChangeMask'

	poolDictionaries:''

	category:'Interface-Graphics'

!

DeviceGraphicsContext subclass:#ElectronGraphicsContext

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ElectronWorkstation

!

!ElectronWorkstation class methodsFor:'documentation'!

documentation

"

    experimental work in progress: a Display which draws in an electron application.

"

!

example1

    Smalltalk at:#Display2 put:(dpy := ElectronWorkstation newFor:'localhost:8888').

    v := (TopView onDevice:dpy) 

            label:'Hello';

            open.

    v waitUntilVisible.

    v close.

    dpy close.

! !

!ElectronWorkstation class methodsFor:'class initialization'!

initialize

    ExposureMask        := 1 bitShift:0.

    StructureNotifyMask := 1 bitShift:1.

    KeyPressMask        := 1 bitShift:2.

    KeyReleaseMask      := 1 bitShift:3.

    PointerMotionMask   := 1 bitShift:4.

    EnterWindowMask     := 1 bitShift:5.

    LeaveWindowMask     := 1 bitShift:6.

    ButtonPressMask     := 1 bitShift:7.

    ButtonMotionMask    := 1 bitShift:8.

    ButtonReleaseMask   := 1 bitShift:9.

    PropertyChangeMask  := 1 bitShift:10.

! !

!ElectronWorkstation class methodsFor:'logging'!

logFacility

    "the 'log facility';

     this is used by the Logger both as a prefix to the log message, 

     and maybe (later) used to filter and/or control per-facility log thresholds."

    ^ self nameWithoutPrefix

! !

!ElectronWorkstation methodsFor:'accessing'!

bridge

    ^ bridge

! !

!ElectronWorkstation methodsFor:'accessing & queries'!

defaultEventMask

    "return a mask to enable some events by default."

    ^ ExposureMask | StructureNotifyMask |

      KeyPressMask | KeyReleaseMask |

      PointerMotionMask |

      EnterWindowMask | LeaveWindowMask |

      ButtonPressMask | ButtonMotionMask | ButtonReleaseMask |

      PropertyChangeMask

!

isOpen

    "return true, if there is a valid connection to the display"

    ^ bridge notNil

! !

!ElectronWorkstation methodsFor:'event handling'!

eventPending 

    ^ eventQueue notNil and:[eventQueue notEmpty]

! !

!ElectronWorkstation methodsFor:'font stuff'!

ascentOf:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: ascentOf'.

    ^ 17

!

descentOf:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: descentOf'.

    ^ 17

!

getFontWithFamily:familyString face:faceString style:styleString size:sizeArg sizeUnit:sizeUnit encoding:encodingSym

    "try to get the specified font, return id.

     If not available, try next smaller font.

     If no font fits, return nil"

    "/ return the font name as ID

    ^ '%1-%2-%3-%4-%5-%6' 

        bindWith:familyString 

        with:faceString 

        with:styleString 

        with:sizeArg 

        with:sizeUnit 

        with:encodingSym

!

maxAscentOf:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: maxAscentOf'.

    ^ 17

!

maxDescentOf:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: maxDescentOf'.

    ^ 17

!

maxWidthOfFont:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: maxWidthOfFont'.

    ^ 20

!

minWidthOfFont:aFontId

    "/ the font name is its ID

    Logger info:'unimplemented: minWidthOfFont'.

    ^ 20

!

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

    "/ the font name is its ID

    Logger info:'unimplemented: widthOf'.

    ^ (index2-index1+1) * 20

! !

!ElectronWorkstation methodsFor:'initialization & release'!

closeConnection

    "close down connection to Display - usually never done"

    |b|

    (b := bridge) notNil ifTrue:[

        bridge := nil.

        b close

    ].

    "Created: 13.1.1997 / 22:10:07 / cg"

!

initializeFor:aHostAndPortStringOrNil

    |nodeBridge _ElectronBridge|

    nodeBridge := Smalltalk requirePackage:'exept:bridgeFramework/nodeJSBridge'.

    _ElectronBridge := nodeBridge classNamed:'NodeJSBridge::ElectronBridge'.

    bridge := _ElectronBridge newBridgeForHostAndPort:aHostAndPortStringOrNil.

    bridge startBridgeIn:'.' debug:true.

    bridge connectWithTimeoutMS:5000.

    self initializeScreenProperties.

    self initializeDefaultValues.

    self initializeKeyboardMap.

    self initializeDeviceSignals.

    self initializeDeviceResourceTables.

    Screen default isNil ifTrue:[

        "not initialized yet?"

        self initializeViewStyle.

    ].

    "

     ElectronWorkstation newFor:'localhost:8098'

    "

!

initializeScreenProperties

    super initializeScreenProperties.

    monitorType := #unknown.

    visualType := #TrueColor.

    depth := 24.

    redShift := 16.

    greenShift := 8.

    blueShift := 0.

    Display notNil ifTrue:[

        width := Display width.

        height := Display height.

    ] ifFalse:[

        width := 1280.

        height := 1024.

    ].

! !

!ElectronWorkstation methodsFor:'keyboard stuff'!

ungrabKeyboard

    Logger info:'unimplemented: ungrabKeyboard'.

! !

!ElectronWorkstation methodsFor:'pointer stuff'!

pointerPosition

    Logger info:'unimplemented: pointerPosition'.

    ^ 0@0

!

ungrabPointer

    Logger info:'unimplemented: ungrabPointer'.

! !

!ElectronWorkstation methodsFor:'window stuff'!

createWindowFor:aView type:typeSymbol origin:org extent:ext

        minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv

        style:styleSymbol inputOnly:inp

        label:label owner:owner

        icon:icn iconMask:icnM iconView:icnV

    |result|

    ^ result

!

destroyView:aView withId:aWindowId

    Logger info:'unimplemented: destroyView:'.

!

mapWindow:aWindowId

    "map a window"

    Logger info:'unimplemented: mapWindow:'.

!

setWindowBackground:aColorIndex in:aWindowId

    "set a windows background color"

    Logger info:'unimplemented: setWindowBackground:'.

!

setWindowName:aString in:aWindowId

    "define a windows name (i.e. windowTitle)"

    Logger info:'unimplemented: setWindowName:'.

!

unmapWindow:aWindowId

    "unmap a window"

    Logger info:'unimplemented: unmapWindow:'.

! !

!ElectronWorkstation::ElectronGraphicsContext class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    class:

        <a short class summary here, describing what instances represent>

    responsibilities:    

        <describing what my main role is>

    collaborators:    

        <describing with whom and how I talk to>

    API:

        <public api and main messages>

    example:

        <a one-line examples on how to use - can also be in a separate example method>

    implementation:

        <implementation points>

    [author:]

        exept MBP

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!ElectronWorkstation class methodsFor:'documentation'!

version_CVS

    ^ '$Header$'

! !

ElectronWorkstation initialize!