"

 COPYRIGHT (c) 1998 by eXept Software AG

	      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.

"

"{ Package: 'stx:libjavascript' }"

Object subclass:#JavaScriptEnvironment

	instanceVariableNames:'_theReceiver _functions _variables _outerEnvironment

		_isHTMLEnvironment _fallBackReceiver _outStream'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-JavaScript-Framework'

!

Object subclass:#AppletObject

	instanceVariableNames:'window element view'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#AppletsObject

	instanceVariableNames:'window'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Smalltalk::Array variableSubclass:#Array

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Timestamp subclass:#Date

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#Document

	instanceVariableNames:'forms link anchor applets'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#DocumentObject

	instanceVariableNames:'images applets forms links anchors'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#FormFieldObject

	instanceVariableNames:'window element widget'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#FormObject

	instanceVariableNames:'window element'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#FormsObject

	instanceVariableNames:'window'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#HistoryObject

	instanceVariableNames:'historyItems window'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#Math

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Smalltalk::String variableByteSubclass:#String

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

Object subclass:#WindowObject

	instanceVariableNames:'view history location document frames'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaScriptEnvironment

!

!JavaScriptEnvironment class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 by eXept Software AG

	      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.

"

! !

!JavaScriptEnvironment class methodsFor:'queries'!

scriptingNamespace

    "return a namespace, in which the scripts global variables

     are searched. Returning myself here, will make Math and Date

     visible (maybe more in the future)"

    ^ self

    "Created: / 17.5.1998 / 20:52:17 / cg"

! !

!JavaScriptEnvironment methodsFor:'accessing'!

_argVariables

    ^ nil

!

_beHTMLEnvironment

    _isHTMLEnvironment := true

!

_defineFunction:aFunction as:selector

    _functions isNil ifTrue:[

	_functions := IdentityDictionary new

    ].

    _functions at:selector put:aFunction

    "Created: / 17.5.1998 / 00:34:41 / cg"

    "Modified: / 17.5.1998 / 21:28:13 / cg"

!

_defineVariable:name value:initialValue

    _variables isNil ifTrue:[

        _variables := IdentityDictionary new.

    ].

    _variables at:name asSymbol put:initialValue.

!

_functions

    ^ _functions

    "Created: / 17.5.1998 / 00:02:36 / cg"

    "Modified: / 17.5.1998 / 21:28:17 / cg"

!

_functions:aDictionary

    _functions := aDictionary

    "Created: / 17.5.1998 / 00:02:43 / cg"

    "Modified: / 17.5.1998 / 21:28:20 / cg"

!

_isHTMLEnvironment

    ^ _isHTMLEnvironment ? false

!

_localVariables

    ^ _variables

!

_localVariables:aDictionary

    _variables := aDictionary

    "Created: / 17.5.1998 / 00:04:16 / cg"

    "Modified: / 17.5.1998 / 21:28:33 / cg"

!

_outStream

    ^ _outStream

!

_outStream:aStream

    _outStream := aStream

!

_outerEnvironment

    ^ _outerEnvironment

    "Created: / 17.5.1998 / 00:02:49 / cg"

    "Modified: / 17.5.1998 / 21:28:23 / cg"

!

_outerEnvironment:anEnvironment

    _outerEnvironment := anEnvironment

    "Created: / 17.5.1998 / 00:02:52 / cg"

    "Modified: / 17.5.1998 / 21:28:27 / cg"

!

_topEnvironment

    ^ _outerEnvironment isNil ifTrue:self ifFalse:[_outerEnvironment _topEnvironment]

!

isReturnedFrom:something

    "/ isReturnedFrom := something.

!

receiver

    ^ _theReceiver ? self

! !

!JavaScriptEnvironment methodsFor:'builtin functions'!

alert:msg

    self warn:('JavaScript alert:\\' withCRs , msg)

    "Created: / 16-05-1998 / 23:47:12 / cg"

    "Modified: / 19-05-2010 / 13:59:00 / cg"

!

confirm:msg

    ^ Dialog confirm:('JavaScript confirmation:\\' , msg) withCRs

    "Created: / 17.5.1998 / 23:39:59 / cg"

!

js_alert:msg

    Dialog warn:('JavaScript alert:\\' , msg) withCRs

    "Created: / 16.5.1998 / 23:47:12 / cg"

    "Modified: / 17.5.1998 / 23:40:10 / cg"

!

js_confirm:msg

    ^ Dialog confirm:('JavaScript confirmation:\\' , msg) withCRs

    "Created: / 17.5.1998 / 23:39:59 / cg"

!

print:msg

    (_outStream ? Transcript) show:msg

!

println:msg

    (_outStream ? Transcript) showCR:msg

! !

!JavaScriptEnvironment methodsFor:'error handling'!

doesNotUnderstand:aMessage

    |f|

    _functions notNil ifTrue:[

        f := _functions at:aMessage selector ifAbsent:nil.

        f notNil ifTrue:[

            "/ ^ f.

            ^ f valueWithReceiver:self arguments:(aMessage arguments)

        ]

    ].

    _fallBackReceiver notNil ifTrue:[

        ^ aMessage sendTo:_fallBackReceiver

    ].

    ^ super doesNotUnderstand:aMessage

    "Created: / 17-05-1998 / 00:48:43 / cg"

    "Modified: / 06-12-2011 / 01:48:59 / cg"

! !

!JavaScriptEnvironment methodsFor:'expression evaluation'!

_evaluateAction:aString with:aComponentName

    "invoked when some HTML-element (such as a button) with an ONCLICK

     action is pressed. This is supposed to parse the passed string as

     an expression in my language (i.e. javaScript) and invoke that

     function."

    ErrorSignal handle:[:ex |

	Transcript showCR:('error in script: ' , ex description).

"/        self warn:'error in script: ' , ex description

	ex reject.

    ] do:[

	"/

	"/ here, we parse the string and evaluate it as an expression.

	"/

	JavaScriptParser evaluate:aString receiver:self in:self.

    ].

    "Modified: / 17.5.1998 / 21:24:35 / cg"

!

_readEvalFrom:inputStream to:outputStream errorTo:errorStream

    self _readEvalFrom:inputStream to:outputStream errorTo:errorStream print:false.

    "Created: / 13-07-2006 / 12:25:29 / cg"

!

_readEvalFrom:inputStream to:outputStream errorTo:errorStream print:doPrint

    [true] whileTrue:[

        ErrorSignal handle:[:ex |

            errorStream showCR:('error in script: ' , ex description).

    "/        self warn:'error in script: ' , ex description

            ex reject.

        ] do:[

            |line result|

            "/

            "/ here, we parse the string and evaluate it as an expression.

            "/

            outputStream nextPutAll:'js>'.

            inputStream atEnd ifTrue:[^ self].

            result := JavaScriptParser evaluate:inputStream receiver:self in:self.

"/            line := inputStream nextLine.

"/            result := JavaScriptParser evaluate:line receiver:self in:self.

            doPrint ifTrue:[

                outputStream nextPutAll:result printString; cr.

            ]

        ].

    ]

    "Created: / 13-07-2006 / 12:22:47 / cg"

!

_readEvalPrintFrom:inputStream to:outputStream errorTo:errorStream

    self _readEvalFrom:inputStream to:outputStream errorTo:errorStream print:true.

    "Modified: / 13-07-2006 / 12:23:09 / cg"

!

exitWith:val

    ^ val

! !

!JavaScriptEnvironment methodsFor:'html-browser interaction'!

_start

    |f|

    "/ cannot do:

    "/      self perform:#js_start ifNotUnderstood:[].

    "/ because the ifNotUnderstood-part does not handle delegated notUnderstood

    _functions notNil ifTrue:[

	f := _functions at:#js_start ifAbsent:nil.

	f notNil ifTrue:[

	    f valueWithReceiver:self arguments:#()

	]

    ].

!

_stop

    |f|

    "/ cannot do:

    "/      self perform:#js_stop ifNotUnderstood:[].

    "/ because the ifNotUnderstood-part does not handle delegated notUnderstood

    _functions notNil ifTrue:[

	f := _functions at:#js_stop ifAbsent:nil.

	f notNil ifTrue:[

	    f valueWithReceiver:self arguments:#()

	]

    ].

! !

!JavaScriptEnvironment methodsFor:'queries'!

_isFunctionEnvironment

    ^ false

!

isInnerJavaScriptBlock

    ^ false

! !

!JavaScriptEnvironment methodsFor:'setup'!

_setupForWindow:aWindow

    |painter window history

     document formElements realForms formNames appletElements appletViews appletNames index|

    painter := aWindow painter.

"/    painter notNil ifTrue:[

"/        formElements := painter forms.

"/        index := 1.

"/        formNames :=

"/            formElements

"/                collect:[:aFormElement |

"/                            |nm|

"/

"/                            nm := aFormElement nameString.

"/                            nm isNil ifTrue:[

"/                                nm := 'form' , index printString

"/                            ].

"/                            index := index + 1.

"/                            nm

"/                        ].

"/        realForms :=

"/            formElements

"/                collect:[:aFormElement |

"/                            |widgets widgetNames widgetViews|

"/

"/                            widgets := aFormElement widgets select:[:wE | wE nameString notNil].

"/                            widgetNames := widgets collect:[:aWidgetElement | |nm|

"/                                                nm := aWidgetElement nameString.

"/                                                nm

"/                                           ].

"/                            widgetViews := widgets collect:[:aWidgetElement | aWidgetElement view].

"/                            Structure newWith:widgetNames values:widgetViews.

"/                        ].

"/        appletElements := aWindow painter applets.

"/        index := 1.

"/        appletNames :=

"/            appletElements

"/                collect:[:anAppletElement | |nm|

"/

"/                            nm := anAppletElement nameString.

"/                            nm isNil ifTrue:[

"/                                nm := 'form' , index printString

"/                            ].

"/                            index := index + 1.

"/                            nm

"/                        ].

"/        appletViews := appletElements collect:[:anAppletElement | anAppletElement view].

"/    ].

    document := DocumentObject new.

    document forms:(FormsObject new window:aWindow).

    document applets:(AppletsObject new window:aWindow).

"/    formNames notNil ifTrue:[

"/        formNames := formNames , (formNames collect:[:nm | 'js_' , nm]).

"/        realForms := realForms , realForms.

"/        document forms:(Structure newWith:formNames values:realForms).

"/    ].

"/    appletNames notNil ifTrue:[

"/        appletNames := appletNames , (appletNames collect:[:nm | 'js_' , nm]).

"/        appletViews := appletViews , appletViews.

"/        document applets:(Structure newWith:appletNames values:appletViews).

"/    ].

    window := WindowObject new.

    window location:(aWindow currentURL).

    window document:document.

    window view:aWindow.

    history := HistoryObject new.

    history window:window.

    history historyItems:(aWindow history).

    "/ window history:(aWindow history).

    window history:history.

    self _defineVariable:#window value:((JavaScriptVariable name:#window) value:window). 

    _fallBackReceiver := window.

    "Created: / 21.9.1996 / 12:44:55 / cg"

    "Modified: / 17.5.1998 / 21:35:19 / cg"

! !

!JavaScriptEnvironment::AppletObject methodsFor:'accessing'!

window:windowArg element:elementArg view:viewArg

    "set instance variables (automatically generated)"