"{ 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$'
! !