"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2003 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:libtool' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#FileBrowserV2SettingsDialog

	instanceVariableNames:'settingsDialog settingsAppl'

	classVariableNames:'ApplicationList'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2SettingsDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2003 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.

"

! !

!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:FileBrowserV2SettingsDialog andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(FileBrowserV2SettingsDialog 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: '-'

                )

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

     FileBrowserV2SettingsDialog new openInterface:#windowSpec

     FileBrowserV2SettingsDialog open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Settings Dialog'

         name: 'Settings Dialog'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 528 649)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (SubCanvasSpec

             name: 'FileBrowserV2SettingsAppl'

             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1)

             level: 0

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             majorKey: FileBrowserV2SettingsAppl

             createNewApplication: true

             createNewBuilder: true

             postBuildCallback: postBuildSubCanvas:

           )

          (HorizontalPanelViewSpec

             name: 'HorizontalPanel1'

             layout: (LayoutFrame 0 0.0 -36 1 -16 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 97 32)

                   usePreferredHeight: true

                 )

                (ActionButtonSpec

                   label: 'Apply'

                   name: 'Apply'

                   translateLabel: true

                   model: doApply

                   enableChannel: enableButtons

                   extent: (Point 98 32)

                   usePreferredHeight: true

                 )

                (ActionButtonSpec

                   label: 'Reload'

                   name: 'Reload'

                   translateLabel: true

                   model: doReload

                   enableChannel: enableButtons

                   extent: (Point 97 32)

                   usePreferredHeight: true

                 )

                (ActionButtonSpec

                   label: 'Cancel'

                   name: 'Cancel'

                   translateLabel: true

                   model: doCancel

                   extent: (Point 98 32)

                   usePreferredHeight: true

                 )

                (ActionButtonSpec

                   label: 'Help'

                   name: 'Help'

                   visibilityChannel: false

                   translateLabel: true

                   model: help

                   enableChannel: enableButtons

                   extent: (Point 98 32)

                   usePreferredHeight: true

                 )

                )

             )

             keepSpaceForOSXResizeHandleH: true

           )

          )

       )

     )

! !

!FileBrowserV2SettingsDialog class methodsFor:'resources'!

classResources

    ^ FileBrowserV2 classResources

! !

!FileBrowserV2SettingsDialog methodsFor:'accessing'!

settingsDialog

    ^ settingsDialog

!

settingsDialog:something

    settingsDialog := something.

! !

!FileBrowserV2SettingsDialog methodsFor:'actions'!

doApply

    (settingsAppl saveRequestAsking:false) ifFalse:[

        ^ self

    ].

!

doCancel

    super closeRequest.

!

doReload

    settingsAppl readSettings.

!

doSave

"/    settingsAppl saveRequest.  -- already done in closeRequest.

    (settingsAppl saveRequestAsking:false) ifFalse:[

        ^ self

    ].

    ^ super 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 saveRequestAsking:true) ifFalse:[

        ^ self

    ].

    ^ super closeRequest

!

postBuildSubCanvas:aWidget

    settingsAppl := aWidget client.

    settingsAppl settingsDialog:self settingsDialog.

    aWidget keepClientView:true. 

!

postOpenWith:aWidget

    settingsAppl readSettings.

    super postOpenWith:aWidget. 

! !

!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|

    resources := self class classResources.

    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"

        UserPreferences current saveIn:fileName.

    ]

! !

!FileBrowserV2SettingsDialog class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !