"{ Package: 'jv:statascripteditor' }"

"{ NameSpace: Smalltalk }"

StandaloneStartup subclass:#StataScriptEditorMain
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Stata Script Editor'
!


!StataScriptEditorMain class methodsFor:'constants & defaults'!

applicationRegistryPath
    "the key under which this application stores its process ID in the registry
     as a collection of path-components.
     i.e. if #('foo' 'bar' 'baz') is returned here, the current applications ID will be stored
     in HKEY_CURRENT_USER\Software\foo\bar\baz\CurrentID.
     (would also be used as a relative path for a temporary lock file under unix).
     Used to detect if another instance of this application is already running."

    ^ #('stx' 'StataScriptEditor')
!

applicationUUID
    "answer an application-specific unique uuid.
     This is used as the name of some exclusive OS-resource, which is used to find out,
     if another instance of this application is already running.
     Under win32, a mutex is used; under unix, an exclusive file in the tempDir could be used.
     If redefined, please return a real UUID (i.e. UUID fromString:'.....') and not a string or 
     similar possibly conflicting identifier.
     You can paste a fresh worldwide unique id via the editor's more-misc-paste UUID menuFunction."

    ^ UUID fromString:'9cae6e80-ad00-11e4-9cc7-606720e43e2c' 
! !

!StataScriptEditorMain class methodsFor:'defaults'!

allowDebugOption
    "enable/disable the --debug startup option.
     Can be redefined in subclasses to enable it"

    ^ true

    "Created: / 12-03-2015 / 02:28:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

suppressRCFileReading
    "enable/disable the rc-file reading (and also the --rcFileName option).
     If suppressed, there is no chance to interfere with the startup.
     Can be redefined in subclasses to disable it"

    ^ true

    "Created: / 12-03-2015 / 02:28:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!StataScriptEditorMain class methodsFor:'startup'!

main:argv
    "main entry; argv is the array of command arguments (as array of words from space-separated command line).
     Parse arguments, and proceed to the real work function"

    "/ do not exit here; caller will go into event loop when returning

    Smalltalk openDisplay.
    StataScriptEditor open

    "Modified: / 12-03-2015 / 03:16:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

realMain:args
    "opens the application"

    StataScriptEditor open
!

usage
    Stderr nextPutLine:'usage: ',self applicationName,' [options...]'.
    Stderr nextPutLine:'  -h .................. output this message'.

    Smalltalk isStandAloneApp ifTrue:[ Smalltalk exit:1 ].
! !

!StataScriptEditorMain class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !