"{ Package: 'stx:libtool2' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#ShowMeHowItWorksRunner
	instanceVariableNames:'showMe script root listModel listHolder listSelectionHolder
		actionQueue'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Help'
!

!ShowMeHowItWorksRunner 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:]

"
!

examples
"
 Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator
 to create nicely formatted and clickable executable examples in the generated html-doc.
 (see the browser's class-documentation menu items for more)

 opening the application:
                                                        [exBegin]
    ShowMeHowItWorksRunner open
                                                        [exEnd]

 opening the application on some model:
                                                        [exBegin]
    ShowMeHowItWorksRunner openOn:aModel
                                                        [exEnd]
"
! !

!ShowMeHowItWorksRunner class methodsFor:'help specs'!

helpSpec
    "This resource specification was automatically generated
     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the UIHelpTool may not be able to read the specification."

    "
     UIHelpTool openOnClass:ShowMeHowItWorksRunner
    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#menuDeleteAction
'Delete the current action from the sequence'

#menuEditAction
'Edit the current action'

#menuInsertAction
'Add a new action to the sequence'

#menuPause
'Pause the presentation'

#menuRun
'Run/Continue the presentation'

#menuStep
'Execute the next action'

)
! !

!ShowMeHowItWorksRunner class methodsFor:'interface specs'!

windowSpec
    "This resource specification was automatically generated
     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the UIPainter may not be able to read the specification."

    "
     UIPainter new openOnClass:ShowMeHowItWorksRunner andSelector:#windowSpec
     ShowMeHowItWorksRunner new openInterface:#windowSpec
     ShowMeHowItWorksRunner open
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: windowSpec
       uuid: '0c43911e-ee7c-11e9-b0b5-10ddb1cc5928'
       window: 
      (WindowSpec
         label: 'ShowMeHowItWorksRunner'
         name: 'ShowMeHowItWorksRunner'
         uuid: 'e69fd518-ee7a-11e9-b0b5-10ddb1cc5928'
         min: (Point 10 10) bounds: (Rectangle 0 0 573 132) menu: mainMenu
      ) component: 
      (SpecCollection
         collection: (
          (MenuPanelSpec
             name: 'ToolBar1'
             layout: (LayoutFrame 0 0.0 0 0 0 1.0 36 0) uuid: 'e69fd9a0-ee7a-11e9-b0b5-10ddb1cc5928'
             menu: toolbarMenu
             textDefault: true
          )
          (ViewSpec
             name: 'Box1'
             layout: (LayoutFrame 1 0 36 0 0 1 -26 1) uuid: 'e69fdd06-ee7a-11e9-b0b5-10ddb1cc5928'
             level: 1
             component: 
            (SpecCollection
               collection: (
                (LabelSpec
                   label: 'Hello World'
                   name: 'Contents'
                   layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'e69fdf54-ee7a-11e9-b0b5-10ddb1cc5928'
                   translateLabel: true
                )
              )
            )
          )
          (ViewSpec
             name: 'Box2'
             layout: (LayoutFrame 0 0 -26 1 0 1 0 1) uuid: 'e69fe242-ee7a-11e9-b0b5-10ddb1cc5928'
             level: 1
             component: 
            (SpecCollection
               collection: (
                (LabelSpec
                   label: 'InfoLabel'
                   name: 'Label2'
                   layout: (LayoutFrame 0 0 -26 1 -1 1 0 1) uuid: 'e69fe3fa-ee7a-11e9-b0b5-10ddb1cc5928'
                   level: -1
                   translateLabel: true
                   labelChannel: infoLabelHolder
                   adjust: left
                )
              )
            )
          )
        )
      )
    )
! !

!ShowMeHowItWorksRunner class methodsFor:'menu specs'!

mainMenu
    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,
     the MenuEditor may not be able to read the specification."

    "
     MenuEditor new openOnClass:ShowMeHowItWorksRunner andSelector:#mainMenu
    "

    <resource: #menu>

    ^ #(Menu (MenuItem label: 'File' submenu: (Menu (MenuItem label: 'New' itemValue: menuNew) (MenuItem label: '-') (MenuItem label: 'Open...' itemValue: menuOpen) (MenuItem label: '-') (MenuItem label: 'Save' itemValue: menuSave) (MenuItem label: 'Save As...' itemValue: menuSaveAs) (MenuItem label: '-') (MenuItem label: 'Exit' itemValue: closeRequest))) (MenuItem label: 'MENU_Help' startGroup: right submenu: (Menu (MenuItem label: 'Documentation' itemValue: openDocumentation) (MenuItem label: '-') (MenuItem label: 'About this Application...' itemValue: openAboutThisApplication))))
!

toolbarMenu
    "This resource specification was automatically generated
     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the MenuEditor may not be able to read the specification."


    "
     MenuEditor new openOnClass:ShowMeHowItWorksRunner andSelector:#toolbarMenu
     (Menu new fromLiteralArrayEncoding:(ShowMeHowItWorksRunner toolbarMenu)) startUp
    "

    <resource: #menu>

    ^ 
     #(Menu 
       (MenuItem
          activeHelpKey: menuRun
          label: 'Run'
          itemValue: menuRun
          labelImage: (ResourceRetriever #'Expecco::ExpeccoIconLibrary' startExecutionIcon) isButton: true
       ) 
       (MenuItem
          activeHelpKey: menuPause
          label: 'Pause'
          itemValue: menuPause
          labelImage: (ResourceRetriever #'Expecco::ExpeccoIconLibrary' pauseExecutionIcon)
       ) 
       (MenuItem
          activeHelpKey: menuStep
          label: 'Step'
          itemValue: menuStep
          labelImage: (ResourceRetriever #'Expecco::ExpeccoIconLibrary' stepExecutionIcon)
       ) 
       (MenuItem
          activeHelpKey: menuInsertAction
          label: 'InsertAction'
          itemValue: menuInsertAction
          startGroup: right
          labelImage: (ResourceRetriever #'Expecco::ExpeccoIconLibrary' addActionIcon)
       ) 
       (MenuItem
          activeHelpKey: menuDeleteAction
          label: 'DeleteAction'
          itemValue: menuDeleteAction
          startGroup: right
          labelImage: (ResourceRetriever #'Expecco::ExpeccoIconLibrary' removeActionIcon)
       ) 
       (MenuItem
          activeHelpKey: menuEditAction
          label: 'EditAction'
          itemValue: menuEditAction
          startGroup: right
          labelImage: (ResourceRetriever ToolbarIconLibrary edit16x16Icon)
       )
     )
! !

!ShowMeHowItWorksRunner class methodsFor:'startup'!

openOn:showMeInstance
    ^ self new
        showMe:showMeInstance;
        open;
        yourself
! !

!ShowMeHowItWorksRunner methodsFor:'accessing'!

showMe
    ^ showMe
!

showMe:something
    showMe := something.
    self updateCurrentAction.
!

updateCurrentAction
    self halt.
! !

!ShowMeHowItWorksRunner methodsFor:'initialization & release'!

closeDownViews
    "This is a hook method generated by the Browser/CodeGeneratorTool.
     It will be invoked when your app/dialog-window is really closed.
     See also #closeDownViews, which is invoked before and may suppress the close
     or ask the user for confirmation."

    "/ change the code below as required ...
    "/ This should cleanup any leftover resources
    "/ (for example, temporary files)
    "/ super closeRequest will initiate the closeDown

    "/ add your code here

    "/ do not remove the one below ...
    ^ super closeDownViews
!

closeRequest
    "This is a hook method generated by the Browser/CodeGeneratorTool.
     It will be invoked when your app/dialog-window is about to be
     closed (this method has a chance to suppress the close).
     See also #closeDownViews, which is invoked when the close is really done."

    "/ change the code below as required ...
    "/ Closing can be suppressed, by simply returning.
    "/ The 'super closeRequest' at the end will initiate the real closeDown

    self hasUnsavedChanges ifTrue:[
        (self confirm:(resources string:'Close without saving ?')) ifFalse:[
            ^ self
        ]
    ].

    ^ super closeRequest
!

postBuildWith:aBuilder
    "This is a hook method generated by the Browser/CodeGeneratorTool.
     It will be invoked during the initialization of your app/dialog,
     after all of the visual components have been built,
     but BEFORE the top window is made visible.
     Add any app-specific actions here (reading files, setting up values etc.)
     See also #postOpenWith:, which is invoked after opening."

    "/ add any code here ...

    ^ super postBuildWith:aBuilder
!

postOpenWith:aBuilder
    "This is a hook method generated by the Browser/CodeGeneratorTool.
     It will be invoked right after the applications window has been opened.
     Add any app-specific actions here (starting background processes etc.).
     See also #postBuildWith:, which is invoked before opening."

    "/ add any code here ...

    ^ super postOpenWith:aBuilder
! !

!ShowMeHowItWorksRunner methodsFor:'menu actions'!

doSaveAs
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'save/saveAs' is selected."

    "/ change below and add any actions as required here ...
    self warn:'no action for ''save/saveAs'' defined.'.
!

menuNew
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'new' is selected."

    "/ change below and add any actions as required here ...
    self warn:'no action for ''new'' defined.'.
!

menuOpen
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'open' is selected."

    "/ change below and add any actions as required here ...
    self warn:'no action for ''open'' defined.'.
!

menuReload
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'reload' is selected."

    "/ change below and add any actions as required here ...
    self warn:'no action for ''reload'' defined.'.
!

menuSave
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'save' is selected."

    "/ change below and add any actions as required here ...
    self warn:'no action for ''save'' defined.'.
!

menuSaveAs
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'saveAs' is selected."

    "/ change below as required... (see examples in Dialog class for more options)
    Dialog
        requestSaveFileName:(resources string:'Save')
        default:'foo.txt'
        fromDirectory:nil
        action:[:fileName | self doSaveAs:fileName]
        appendAction:nil.
!

openAboutThisApplication
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'help-about' is selected."

    "/ could open a customized aboutBox here ...
    super openAboutThisApplication
!

openDocumentation
    "This method was generated by the Browser/CodeGeneratorTool.
     It will be invoked when the menu-item 'help-documentation' is selected."

    "/ change below as required ...

    "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
    self openDocumentationFile:'TOP.html'.

    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
    "/ directory, and open a viewer with:
    "/ self openDocumentationFile:'help/<MyApplication>/TOP.html'.
! !

!ShowMeHowItWorksRunner methodsFor:'private queries'!

hasUnsavedChanges
    "Return true, if any unsaved changes are present
     (i.e. the contents needs to be saved or else will be lost)"

    "/ add real code as required (or remove the halt and always return false)...
    "/ self halt:'check this code'.
    ^ false.
! !

!ShowMeHowItWorksRunner class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !