"
 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' }"

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)
          max: (Point 1024 768)
          bounds: (Rectangle 0 0 443 621)
          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 85 22)
                        )
                       (ActionButtonSpec
                          label: 'Apply'
                          name: 'Apply'
                          translateLabel: true
                          model: doApply
                          enableChannel: enableButtons
                          extent: (Point 85 22)
                        )
                       (ActionButtonSpec
                          label: 'Reload'
                          name: 'Reload'
                          translateLabel: true
                          model: doReload
                          enableChannel: enableButtons
                          extent: (Point 85 22)
                        )
                       (ActionButtonSpec
                          label: 'Cancel'
                          name: 'Cancel'
                          translateLabel: true
                          model: doCancel
                          extent: (Point 85 22)
                        )
                       (ActionButtonSpec
                          label: 'Help'
                          name: 'Help'
                          visibilityChannel: false
                          translateLabel: true
                          model: help
                          enableChannel: enableButtons
                          extent: (Point 85 22)
                        )
                       )
                     
                    )
                  )
                 )
               
              )
            )
           )
         
        )
      )
! !

!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: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.11 2010-10-15 08:31:37 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.11 2010-10-15 08:31:37 cg Exp $'
! !