"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#FileBrowserV2SettingsDialog

	instanceVariableNames:'appList requestor selectionInApplList subCanvasApplicationHolder

		help applList appIsCategory enableButtons doReload doSave

		settingsAppl'

	classVariableNames:'ApplicationList'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2SettingsDialog class methodsFor:'interface specs'!

mainMenu

    "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:FileBrowserV2SettingsFrame andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(FileBrowserV2SettingsFrame mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'File'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Load Settings from...'

                  #itemValue: #loadSettingsFromFile

                  #translateLabel: true

                )

               #(#MenuItem

                  #label: 'Save Settings to...'

                  #itemValue: #saveSettingsIntoFile

                  #translateLabel: true

                )

               #(#MenuItem

                  #label: 'Exit'

                  #itemValue: #closeRequest

                  #translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

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:FileBrowserV2SettingsFrame andSelector:#windowSpec

     FileBrowserV2SettingsFrame new openInterface:#windowSpec

     FileBrowserV2SettingsFrame open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Settings Dialog'

          #name: 'Settings Dialog'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 12 22 365 596)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#ViewSpec

              #name: 'Box2'

              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#SubCanvasSpec

                    #name: 'FileBrowserV2SettingsAppl'

                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)

                    #level: 0

                    #hasHorizontalScrollBar: false

                    #hasVerticalScrollBar: false

                    #majorKey: #FileBrowserV2SettingsAppl

                    #createNewApplication: true

                    #createNewBuilder: true

                    #postBuildCallback: #postBuildSubCanvas:

                  )

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanel1'

                    #layout: #(#LayoutFrame 0 0.0 -34 1 0 1.0 0 1)

                    #horizontalLayout: #fitSpace

                    #verticalLayout: #center

                    #horizontalSpace: 3

                    #verticalSpace: 3

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#ActionButtonSpec

                          #label: 'OK'

                          #name: 'OK'

                          #translateLabel: true

                          #model: #doSave

                          #enableChannel: #enableButtons

                          #extent: #(#Point 84 22)

                        )

                       #(#ActionButtonSpec

                          #label: 'Reload'

                          #name: 'Reload'

                          #translateLabel: true

                          #model: #doReload

                          #enableChannel: #enableButtons

                          #extent: #(#Point 85 22)

                        )

                       #(#ActionButtonSpec

                          #label: 'Cancel'

                          #name: 'Cancel'

                          #translateLabel: true

                          #model: #closeRequest

                          #extent: #(#Point 84 22)

                        )

                       #(#ActionButtonSpec

                          #label: 'Help'

                          #name: 'Help'

                          #translateLabel: true

                          #model: #help

                          #enableChannel: #enableButtons

                          #extent: #(#Point 85 22)

                        )

                       )

                    )

                  )

                 )

              )

            )

           )

        )

      )

! !

!FileBrowserV2SettingsDialog methodsFor:'accessing'!

requestor

    "return the value of the instance variable 'requestor' (automatically generated)"

    ^ requestor

!

requestor:something

    "set the value of the instance variable 'requestor' (automatically generated)"

    requestor := something.

! !

!FileBrowserV2SettingsDialog methodsFor:'actions'!

doReload

!

doSave

    settingsAppl saveRequest.

    self closeRequest.

!

help

    settingsAppl help

! !

!FileBrowserV2SettingsDialog methodsFor:'initialization & release'!

closeRequest

    "This is a hook method generated by the Browser.

     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."

    settingsAppl saveRequest ifFalse:[

        ^ self

    ].

    ^ super closeRequest

!

initialize

    super initialize.

!

postBuildSubCanvas:aWidget

    settingsAppl := aWidget client.

    aWidget keepClientView:true. 

! !

!FileBrowserV2SettingsDialog methodsFor:'menu actions'!

loadSettingsFromFile

    "restore settings from a settings-file."

    "a temporary kludge - we need a central systemSettings object for this,

     which can be saved/restored with a single store/read."

    |fileName|

    fileName := Dialog 

        requestFileName:(resources string:'Load Settings From:') 

        default:'settings.stx'

        ok:(resources string:'Load') 

        abort:(resources string:'Cancel') 

        pattern:'*.stx'

        fromDirectory:nil.

    (fileName size == 0) ifTrue:[

        "/ canceled

        ^ self

    ].

    self withWaitCursorDo:[

        Smalltalk fileIn:fileName.

        Transcript current topView model reOpen.

        self doReload.

    ].

!

saveSettingsIntoFile

    |fileName resources|

    self doReload.

    fileName := Dialog 

        requestFileName:(resources string:'Save settings in:') 

        default:'settings.stx'

        ok:(resources string:'Save') 

        abort:(resources string:'Cancel') 

        pattern:'*.stx'

        fromDirectory:'.'.

    fileName size ~~ 0 ifTrue:[

        "not canceled"

    ]

! !

!FileBrowserV2SettingsDialog class methodsFor:'documentation'!

version

! !