"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#FileBrowserV2SettingsFrame

	instanceVariableNames:'appList requestor selectionInApplList subCanvasApplicationHolder

		help applList appIsCategory enableButtons doReload doSave

		settingsAppl'

	classVariableNames:'ApplicationList'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2SettingsFrame 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 to File...'

                  #itemValue: #loadSettings

                  #translateLabel: true

                )

               #(#MenuItem

                  #label: 'Save Settings to File...'

                  #itemValue: #saveSettings

                  #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)

                        )

                       )

                    )

                  )

                 )

              )

            )

           )

        )

      )

! !

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

! !

!FileBrowserV2SettingsFrame methodsFor:'actions'!

doReload

    settingsAppl loadRequest.

!

doSave

    settingsAppl saveRequest.

!

help

    settingsAppl help

! !

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

! !

!FileBrowserV2SettingsFrame methodsFor:'menu actions'!

loadSettings

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

    ].

!

saveSettings

    |fileName resources|

    resources := self class owningClass classResources.

    self sendLoadRequestToAll ifFalse:[^ self].

    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"

        self saveSettingsIn:fileName.

    ]

!

saveSettingsIn:fileName

    "save settings to a settings-file."

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

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

     Will move entries over to UserPreferences over time;

     new items should always go there."

    |resources s screen currentUserPrefs|

    resources := self class owningClass classResources.

    s := fileName asFilename writeStream.

    s isNil ifTrue:[

        self warn:(resources string:'Cannot write the %1 file !!' with:fileName).

        ^ self

    ].

    currentUserPrefs := UserPreferences current.

    screen := Screen current.

    s nextPutLine:'"/ ST/X saved settings';

      nextPutLine:'"/ DO NOT MODIFY MANUALLY';

      nextPutLine:'"/ (modifications would be lost with next save-settings)';

      nextPutLine:'"/';

      nextPutLine:'"/ this file was automatically generated by the';

      nextPutLine:'"/ ''save settings'' function of the Launcher';

      nextPutLine:'"/'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString.

    s nextPutLine:'"/'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Display settings:'.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.

    s nextPutLine:'Display notNil ifTrue:['.

    s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.

      screen fixColors notNil ifTrue:[

        s nextPutLine:'  Image flushDeviceImages.'.

        s nextPutLine:'  Color colorAllocationFailSignal catch:['.

        s nextPutLine:'    Color getColorsRed:6 green:6 blue:4 on:Display'.

        s nextPutLine:'  ].'.

      ] ifFalse:[

        s nextPutLine:'  Display releaseFixColors.'.

      ].

      s nextPutLine:'  Display hasColors: ' , (screen hasColors storeString) , '.'.

      s nextPutLine:'  Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.

      s nextPutLine:'  Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.

      s nextPutLine:'  Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.

      s nextPutLine:'  Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.

      s nextPutLine:'  View defaultStyle:' , View defaultStyle storeString , '.'.

    s nextPutLine:' ].'.

    s nextPutLine:'].'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Compiler settings:'.

    s nextPutLine:'"/'.

    s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.';

      nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.';

      nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.';

      nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.';

      nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.';

      nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.';

      nextPutLine:'Compiler allowSqueakExtensions: ' , (Compiler allowSqueakExtensions storeString) , '.';

      nextPutLine:'Compiler allowDolphinExtensions: ' , (Compiler allowDolphinExtensions storeString) , '.';

      nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.';

      nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.';

      nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';

      nextPutLine:'Compiler stcCompilation: ' , (Compiler stcCompilation storeString) , '.';

      nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:[';

      nextPutLine:'  Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.';

      nextPutLine:'  Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.';

      nextPutLine:'  Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.';

      nextPutLine:'  ' , (Compiler stcModulePath storeString) , ' asFilename exists ifTrue:[';

      nextPutLine:'    Compiler stcModulePath: ' , (Compiler stcModulePath storeString) , '.';

      nextPutLine:'  ].';

      nextPutLine:'  Compiler stcPath: ' , (Compiler stcPath storeString) , '.';

      nextPutLine:'  Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.';

      nextPutLine:'  Compiler ccPath: ' , (Compiler ccPath storeString) , '.';

      nextPutLine:'  ObjectFileLoader linkArgs: ' , (ObjectFileLoader linkArgs storeString) , '.';

      nextPutLine:'  ObjectFileLoader linkCommand: ' , (ObjectFileLoader linkCommand storeString) , '.';

      nextPutLine:'  ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.';

      nextPutLine:'  ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.';

      nextPutLine:'].';

      nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';

      nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.

    HistoryManager notNil ifTrue:[

        HistoryManager isActive ifTrue:[

            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.

            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.

        ] ifFalse:[

            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.

        ].

    ].

    ObjectFileLoader notNil ifTrue:[

        s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.

        s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.

    ].

    s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.

    s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Info & Debug Messages:'.

    s nextPutLine:'"/'.

    s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.';

      nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';

      nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';

      nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.

    FlyByHelp isActive ifTrue:[

        s nextPutLine:'FlyByHelp start.'

    ].

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Edit settings:'.

    s nextPutLine:'"/'.

    "/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.

    s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.

    s nextPutLine:'UserPreferences current syntaxColoring: ' , (currentUserPrefs syntaxColoring storeString) , '.'.

    (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[

        s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.

    ] ifFalse:[

        s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.

    ].

    s nextPutLine:'"/'.

    s nextPutLine:'"/ User preference values:'.

    s nextPutLine:'"/'.

    currentUserPrefs keysAndValuesDo:[:k :v |

        (UserPreferences includesSelector:(k , ':') asSymbol) ifTrue:[

            s nextPutLine:'UserPreferences current ' , k , ':' , v storeString , '.'.

        ] ifFalse:[

            s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString , '.'.

        ]

    ].

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Misc settings:'.

    s nextPutLine:'"/'.

    s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';

      nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';

      nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';

      nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';

      nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';

      "/ claus - I dont think its a good idea to save those ...

      nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';

      nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';

      nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';

      nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';

      nextPutLine:'Display notNil ifTrue:[';

      nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.';

      nextPutLine:'].';

      nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';

      nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.

    (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[

        s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.

    ].

    Processor isTimeSlicing ifTrue:[

        s nextPutLine:'Processor startTimeSlicing.'.

        s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').

    ] ifFalse:[

        s nextPutLine:'Processor stopTimeSlicing.'.

    ].

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Printer settings:'.

    s nextPutLine:'"/'.

    s nextPutLine:'Printer := ' , (Printer name) , '.';

      nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.

    Printer supportsPageSizes ifTrue:[

        s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.

        s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.

    ].

    Printer supportsMargins ifTrue:[

        s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.

        s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.

        s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.

        s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.

    ].

    Printer supportsPostscript ifTrue:[

        s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.

    ].

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Font settings:'.

    s nextPutLine:'"/ (only restored, if image is restarted on the same display)'.

    s nextPutLine:'"/'.

    s nextPutLine:'Display notNil ifTrue:['.

    s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.

    s nextPutLine:'  View defaultFont: ' , (View defaultFont storeString) , '.'.

    s nextPutLine:'  Label defaultFont: ' , (Label defaultFont storeString) , '.'.

    s nextPutLine:'  Button defaultFont: ' , (Button defaultFont storeString) , '.'.

    s nextPutLine:'  Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'.

    s nextPutLine:'  SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'.

    s nextPutLine:'  MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'.

    s nextPutLine:'  PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'.

    s nextPutLine:'  TextView defaultFont: ' , (TextView defaultFont storeString) , '.'.

    s nextPutLine:'  EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'.

    s nextPutLine:'  CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'.

    s nextPutLine:' ].'.

    s nextPutLine:'].'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ Language setting:'.

    s nextPutLine:'"/'.

    s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'.

    s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'.

    s cr.

    s nextPutLine:'"/'.

    s nextPutLine:'"/ SourceCodeManager settings:'.

    s nextPutLine:'"/ (only restored, if image is restarted on the same host)'.

    s nextPutLine:'"/'.

    s nextPutLine:'OperatingSystem getHostName = ' , (OperatingSystem getHostName storeString) , ' ifTrue:['.

    s nextPutLine:'  Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.

    (Smalltalk at:#SourceCodeManager) == CVSSourceCodeManager ifTrue:[

    s nextPutLine:'  Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'.

    s nextPutLine:'  AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'.

    s nextPutLine:'  CVSSourceCodeManager cvsBinDirectory:' , CVSSourceCodeManager cvsBinDirectory storeString , '.'.

    s nextPutLine:'  CVSSourceCodeManager repositoryNamesPerModule:' , CVSSourceCodeManager repositoryNamesPerModule storeString , '.'.

    s nextPutLine:'  CVSSourceCodeManager initializeForRepository:' , CVSSourceCodeManager repositoryName storeString , '.'.

    ].

    s nextPutLine:'].'.

    s close.

    "

     Transcript topView application saveSettings

    "

    "Modified: / 6.1.1999 / 14:24:16 / cg"

! !

!FileBrowserV2SettingsFrame class methodsFor:'documentation'!