FileBrowserV2SettingsAppl.st
branchjv
changeset 12123 4bde08cebd48
parent 10901 57250d62a38d
child 12125 0c49a3b13e43
equal deleted inserted replaced
11227:3d57003855a7 12123:4bde08cebd48
    16 		showHiddenFiles openMultipleApplicationsForType
    16 		showHiddenFiles openMultipleApplicationsForType
    17 		toolBarVisibleHolder viewDirectoryDescription
    17 		toolBarVisibleHolder viewDirectoryDescription
    18 		openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription
    18 		openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription
    19 		viewPreview viewTime viewSize viewSizeInBytes viewType
    19 		viewPreview viewTime viewSize viewSizeInBytes viewType
    20 		viewDetails viewPermissions viewGroup viewDirsInContentsBrowser
    20 		viewDetails viewPermissions viewGroup viewDirsInContentsBrowser
    21 		viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes
    21 		viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes'
    22 		useCodeView2InTools'
       
    23 	classVariableNames:''
    22 	classVariableNames:''
    24 	poolDictionaries:''
    23 	poolDictionaries:''
    25 	category:'Interface-Tools-File'
    24 	category:'Interface-Tools-File'
    26 !
    25 !
    27 
    26 
    72         window: 
    71         window: 
    73        (WindowSpec
    72        (WindowSpec
    74           label: 'Settings'
    73           label: 'Settings'
    75           name: 'Settings'
    74           name: 'Settings'
    76           min: (Point 10 10)
    75           min: (Point 10 10)
    77           bounds: (Rectangle 0 0 469 622)
    76           bounds: (Rectangle 0 0 432 621)
    78         )
    77         )
    79         component: 
    78         component: 
    80        (SpecCollection
    79        (SpecCollection
    81           collection: (
    80           collection: (
    82            (VerticalPanelViewSpec
    81            (VerticalPanelViewSpec
   105                           translateLabel: true
   104                           translateLabel: true
   106                         )
   105                         )
   107                        (CheckBoxSpec
   106                        (CheckBoxSpec
   108                           label: 'Directory Tree'
   107                           label: 'Directory Tree'
   109                           name: 'CheckBox2'
   108                           name: 'CheckBox2'
   110                           layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
   109                           layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
   111                           model: showDirectoryTree
   110                           model: showDirectoryTree
   112                           translateLabel: true
   111                           translateLabel: true
   113                         )
   112                         )
   114                        (CheckBoxSpec
   113                        (CheckBoxSpec
   115                           label: 'Regular Files in TreeView (Left)'
   114                           label: 'Regular Files in TreeView (Left)'
   116                           name: 'CheckBox3'
   115                           name: 'CheckBox3'
   117                           layout: (LayoutFrame 20 0 51 0 0 1.0 71 0)
   116                           layout: (LayoutFrame 20 0 57 0 0 1.0 77 0)
   118                           model: viewFilesInDirectoryTree
   117                           model: viewFilesInDirectoryTree
   119                           translateLabel: true
   118                           translateLabel: true
   120                         )
   119                         )
   121                        (CheckBoxSpec
   120                        (CheckBoxSpec
   122                           label: 'Directories in ContentsView (Right)'
   121                           label: 'Directories in ContentsView (Right)'
   123                           name: 'CheckBox4'
   122                           name: 'CheckBox4'
   124                           layout: (LayoutFrame 0 0.0 73 0 0 1.0 93 0)
   123                           layout: (LayoutFrame 0 0.0 82 0 0 1.0 102 0)
   125                           model: viewDirsInContentsBrowser
   124                           model: viewDirsInContentsBrowser
   126                           translateLabel: true
   125                           translateLabel: true
   127                         )
   126                         )
   128                        (CheckBoxSpec
   127                        (CheckBoxSpec
   129                           label: 'Toolbar'
   128                           label: 'Toolbar'
   130                           name: 'CheckBox11'
   129                           name: 'CheckBox11'
   131                           layout: (LayoutFrame 0 0.0 95 0 0 1.0 115 0)
   130                           layout: (LayoutFrame 0 0.0 107 0 0 1.0 127 0)
   132                           model: toolBarVisibleHolder
   131                           model: toolBarVisibleHolder
   133                           translateLabel: true
   132                           translateLabel: true
   134                         )
   133                         )
   135                        (CheckBoxSpec
   134                        (CheckBoxSpec
   136                           label: 'Path Entry && Filter'
   135                           label: 'Path Entry && Filter'
   137                           name: 'CheckBox12'
   136                           name: 'CheckBox12'
   138                           layout: (LayoutFrame 0 0.0 117 0 0 1.0 137 0)
   137                           layout: (LayoutFrame 0 0.0 132 0 0 1.0 152 0)
   139                           model: filenameEntryFieldVisibleHolder
   138                           model: filenameEntryFieldVisibleHolder
   140                           translateLabel: true
   139                           translateLabel: true
   141                         )
   140                         )
   142                        )
   141                        )
   143                      
   142                      
   144                     )
   143                     )
   145                     extent: (Point 469 168)
   144                     extent: (Point 432 184)
   146                   )
   145                   )
   147                  (FramedBoxSpec
   146                  (FramedBoxSpec
   148                     label: 'Sort'
   147                     label: 'Sort'
   149                     name: 'FramedBox2'
   148                     name: 'FramedBox2'
   150                     labelPosition: topLeft
   149                     labelPosition: topLeft
   160                           translateLabel: true
   159                           translateLabel: true
   161                         )
   160                         )
   162                        (CheckBoxSpec
   161                        (CheckBoxSpec
   163                           label: 'Directories before Files'
   162                           label: 'Directories before Files'
   164                           name: 'CheckBox7'
   163                           name: 'CheckBox7'
   165                           layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
   164                           layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
   166                           model: sortDirectoriesBeforeFiles
   165                           model: sortDirectoriesBeforeFiles
   167                           translateLabel: true
   166                           translateLabel: true
   168                         )
   167                         )
   169                        )
   168                        )
   170                      
   169                      
   171                     )
   170                     )
   172                     extent: (Point 469 78)
   171                     extent: (Point 432 81)
       
   172                   )
       
   173                  (FramedBoxSpec
       
   174                     label: 'Application Notebook'
       
   175                     name: 'FramedBox3'
       
   176                     labelPosition: topLeft
       
   177                     translateLabel: true
       
   178                     component: 
       
   179                    (SpecCollection
       
   180                       collection: (
       
   181                        (CheckBoxSpec
       
   182                           label: 'Text Editor for all Types'
       
   183                           name: 'CheckBox8'
       
   184                           layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)
       
   185                           model: openAlwaysInTextEditor
       
   186                           translateLabel: true
       
   187                         )
       
   188                        (CheckBoxSpec
       
   189                           label: 'Open Multiple Applications'
       
   190                           name: 'CheckBox9'
       
   191                           layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
       
   192                           model: openMultipleApplicationsForType
       
   193                           translateLabel: true
       
   194                         )
       
   195                        (CheckBoxSpec
       
   196                           label: 'Auto Open Directory Description (README)'
       
   197                           name: 'CheckBox10'
       
   198                           layout: (LayoutFrame 0 0.0 57 0 0 1.0 77 0)
       
   199                           model: viewDirectoryDescription
       
   200                           translateLabel: true
       
   201                         )
       
   202                        )
       
   203                      
       
   204                     )
       
   205                     extent: (Point 432 111)
   173                   )
   206                   )
   174                  (FramedBoxSpec
   207                  (FramedBoxSpec
   175                     label: 'Columns in Filelist'
   208                     label: 'Columns in Filelist'
   176                     name: 'FramedBox4'
   209                     name: 'FramedBox4'
   177                     labelPosition: topLeft
   210                     labelPosition: topLeft
   187                           translateLabel: true
   220                           translateLabel: true
   188                         )
   221                         )
   189                        (CheckBoxSpec
   222                        (CheckBoxSpec
   190                           label: 'Suffix'
   223                           label: 'Suffix'
   191                           name: 'CheckBox13'
   224                           name: 'CheckBox13'
   192                           layout: (LayoutFrame 20 0.0 29 0 170 0 49 0)
   225                           layout: (LayoutFrame 20 0.0 32 0 170 0 52 0)
   193                           enableChannel: viewDetails
   226                           enableChannel: viewDetails
   194                           model: viewType
   227                           model: viewType
   195                           translateLabel: true
   228                           translateLabel: true
   196                         )
   229                         )
   197                        (CheckBoxSpec
   230                        (CheckBoxSpec
   198                           label: 'Permissions'
   231                           label: 'Permissions'
   199                           name: 'CheckBox21'
   232                           name: 'CheckBox21'
   200                           layout: (LayoutFrame 170 0.0 29 0 -5 1 49 0)
   233                           layout: (LayoutFrame 170 0.0 32 0 -5 1 52 0)
   201                           enableChannel: viewDetails
   234                           enableChannel: viewDetails
   202                           model: viewPermissions
   235                           model: viewPermissions
   203                           translateLabel: true
   236                           translateLabel: true
   204                         )
   237                         )
   205                        (CheckBoxSpec
   238                        (CheckBoxSpec
   206                           label: 'Owner'
   239                           label: 'Owner'
   207                           name: 'CheckBox14'
   240                           name: 'CheckBox14'
   208                           layout: (LayoutFrame 20 0.0 51 0 170 0 71 0)
   241                           layout: (LayoutFrame 20 0.0 57 0 170 0 77 0)
   209                           enableChannel: viewDetails
   242                           enableChannel: viewDetails
   210                           model: viewOwner
   243                           model: viewOwner
   211                           translateLabel: true
   244                           translateLabel: true
   212                         )
   245                         )
   213                        (CheckBoxSpec
   246                        (CheckBoxSpec
   214                           label: 'Group'
   247                           label: 'Group'
   215                           name: 'CheckBox18'
   248                           name: 'CheckBox18'
   216                           layout: (LayoutFrame 170 0.0 51 0 -5 1 71 0)
   249                           layout: (LayoutFrame 170 0.0 57 0 -5 1 77 0)
   217                           enableChannel: viewDetails
   250                           enableChannel: viewDetails
   218                           model: viewGroup
   251                           model: viewGroup
   219                           translateLabel: true
   252                           translateLabel: true
   220                         )
   253                         )
   221                        (CheckBoxSpec
   254                        (CheckBoxSpec
   222                           label: 'Size'
   255                           label: 'Size'
   223                           name: 'CheckBox15'
   256                           name: 'CheckBox15'
   224                           layout: (LayoutFrame 20 0.0 73 0 170 0 93 0)
   257                           layout: (LayoutFrame 20 0.0 82 0 170 0 102 0)
   225                           enableChannel: viewDetails
   258                           enableChannel: viewDetails
   226                           model: viewSize
   259                           model: viewSize
   227                           translateLabel: true
   260                           translateLabel: true
   228                         )
   261                         )
   229                        (CheckBoxSpec
   262                        (CheckBoxSpec
   230                           label: 'Date && Time'
   263                           label: 'Date && Time'
   231                           name: 'CheckBox19'
   264                           name: 'CheckBox19'
   232                           layout: (LayoutFrame 170 0.0 73 0 -5 1 93 0)
   265                           layout: (LayoutFrame 170 0.0 82 0 -5 1 102 0)
   233                           enableChannel: viewDetails
   266                           enableChannel: viewDetails
   234                           model: viewTime
   267                           model: viewTime
   235                           translateLabel: true
   268                           translateLabel: true
   236                         )
   269                         )
   237                        (CheckBoxSpec
   270                        (CheckBoxSpec
   238                           label: 'Size (Byte)'
   271                           label: 'Size (Byte)'
   239                           name: 'CheckBox16'
   272                           name: 'CheckBox16'
   240                           layout: (LayoutFrame 20 0.0 95 0 170 0 115 0)
   273                           layout: (LayoutFrame 20 0.0 107 0 170 0 127 0)
   241                           enableChannel: viewDetails
   274                           enableChannel: viewDetails
   242                           model: viewSizeInBytes
   275                           model: viewSizeInBytes
   243                           translateLabel: true
   276                           translateLabel: true
   244                         )
   277                         )
   245                        (CheckBoxSpec
   278                        (CheckBoxSpec
   246                           label: 'Size (KByte)'
   279                           label: 'Size (KByte)'
   247                           name: 'CheckBox20'
   280                           name: 'CheckBox20'
   248                           layout: (LayoutFrame 170 0.0 95 0 -5 1 115 0)
   281                           layout: (LayoutFrame 170 0.0 107 0 -5 1 127 0)
   249                           enableChannel: viewDetails
   282                           enableChannel: viewDetails
   250                           model: viewSizeInKiloBytes
   283                           model: viewSizeInKiloBytes
   251                           translateLabel: true
   284                           translateLabel: true
   252                         )
   285                         )
   253                        (CheckBoxSpec
   286                        (CheckBoxSpec
   254                           label: 'File Info'
   287                           label: 'File Info'
   255                           name: 'CheckBox23'
   288                           name: 'CheckBox23'
   256                           layout: (LayoutFrame 20 0.0 117 0 170 0 137 0)
   289                           layout: (LayoutFrame 20 0.0 132 0 170 0 152 0)
   257                           enableChannel: viewDetails
   290                           enableChannel: viewDetails
   258                           model: viewDescription
   291                           model: viewDescription
   259                           translateLabel: true
   292                           translateLabel: true
   260                         )
   293                         )
   261                        (CheckBoxSpec
   294                        (CheckBoxSpec
   262                           label: 'Preview'
   295                           label: 'Preview'
   263                           name: 'CheckBox24'
   296                           name: 'CheckBox24'
   264                           layout: (LayoutFrame 170 0.0 117 0 -5 1 137 0)
   297                           layout: (LayoutFrame 170 0.0 132 0 -5 1 152 0)
   265                           enableChannel: viewDetails
   298                           enableChannel: viewDetails
   266                           model: viewPreview
   299                           model: viewPreview
   267                           translateLabel: true
   300                           translateLabel: true
   268                         )
   301                         )
   269                        )
   302                        )
   270                      
   303                      
   271                     )
   304                     )
   272                     extent: (Point 469 168)
   305                     extent: (Point 432 183)
   273                   )
       
   274                  (FramedBoxSpec
       
   275                     label: 'Application Notebook'
       
   276                     name: 'FramedBox3'
       
   277                     labelPosition: topLeft
       
   278                     translateLabel: true
       
   279                     component: 
       
   280                    (SpecCollection
       
   281                       collection: (
       
   282                        (CheckBoxSpec
       
   283                           label: 'Use the New CodeView (Affects all New Opened Tools)'
       
   284                           name: 'CheckBox8'
       
   285                           layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)
       
   286                           model: useCodeView2InTools
       
   287                           translateLabel: true
       
   288                         )
       
   289                        (CheckBoxSpec
       
   290                           label: 'Text Editor for all Types'
       
   291                           name: 'CheckBox25'
       
   292                           layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
       
   293                           model: openAlwaysInTextEditor
       
   294                           translateLabel: true
       
   295                         )
       
   296                        (CheckBoxSpec
       
   297                           label: 'Open Multiple Applications'
       
   298                           name: 'CheckBox9'
       
   299                           layout: (LayoutFrame 0 0.0 51 0 0 1.0 71 0)
       
   300                           model: openMultipleApplicationsForType
       
   301                           translateLabel: true
       
   302                         )
       
   303                        (CheckBoxSpec
       
   304                           label: 'Auto Open Directory Description (README)'
       
   305                           name: 'CheckBox10'
       
   306                           layout: (LayoutFrame 0 0.0 73 0 0 1.0 93 0)
       
   307                           model: viewDirectoryDescription
       
   308                           translateLabel: true
       
   309                         )
       
   310                        )
       
   311                      
       
   312                     )
       
   313                     extent: (Point 469 128)
       
   314                   )
   306                   )
   315                  )
   307                  )
   316                
   308                
   317               )
   309               )
   318             )
   310             )
   451         toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self
   443         toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self
   452     ].
   444     ].
   453     ^ toolBarVisibleHolder
   445     ^ toolBarVisibleHolder
   454 !
   446 !
   455 
   447 
   456 useCodeView2InTools
       
   457     useCodeView2InTools isNil ifTrue:[
       
   458         useCodeView2InTools := true asValue.
       
   459         useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
       
   460     ].
       
   461     ^ useCodeView2InTools
       
   462 
       
   463     "Created: / 06-10-2011 / 11:30:42 / cg"
       
   464 !
       
   465 
       
   466 viewDescription
   448 viewDescription
   467     viewDescription isNil ifTrue:[
   449     viewDescription isNil ifTrue:[
   468         viewDescription := false asValue.
   450         viewDescription := false asValue.
   469         viewDescription onChangeSend:#updateModifiedChannel to:self
   451         viewDescription onChangeSend:#updateModifiedChannel to:self
   470     ].
   452     ].
   579 
   561 
   580 hasUnsavedChanges
   562 hasUnsavedChanges
   581 
   563 
   582     |aspectList receiver|
   564     |aspectList receiver|
   583 
   565 
   584     receiver := (settingsDialog notNil 
   566     receiver := (settingsDialog notNil and:[settingsDialog isKindOf:AbstractFileBrowser]) ifTrue:[
   585                 and:[settingsDialog isKindOf:AbstractFileBrowser]) 
   567                 settingsDialog
   586                     ifTrue:[ settingsDialog ] 
   568             ] ifFalse:[
   587                     ifFalse:[ currentUserPrefs ].
   569                 currentUserPrefs
       
   570             ].
   588 
   571 
   589     aspectList := AbstractFileBrowser userPreferencesAspectList.
   572     aspectList := AbstractFileBrowser userPreferencesAspectList.
   590     aspectList keysDo:[:anAspect |
   573     aspectList keysDo:[:anAspect |
   591         (self perform:anAspect) value ~= (receiver perform:anAspect) value ifTrue:[ 
   574         (self perform:anAspect) value ~= (receiver perform:anAspect) value ifTrue:[ 
   592             ^ true
   575             ^ true
   593         ]
   576         ]
   594     ].
   577     ].
   595     ^ false
   578     ^ false
   596 
   579 
   597     "Modified: / 03-04-2007 / 08:45:27 / cg"
   580     "Modified: / 03-04-2007 / 08:45:27 / cg"
   598     "Modified (format): / 25-11-2011 / 15:24:25 / cg"
       
   599 ! !
   581 ! !
   600 
   582 
   601 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
   583 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
   602 
   584 
   603 version
   585 version
   604     ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.28 2011-11-25 14:25:40 cg Exp $'
   586     ^ '$Id: FileBrowserV2SettingsAppl.st 7810 2011-08-12 14:54:02Z vranyj1 $'
   605 !
   587 !
   606 
   588 
   607 version_CVS
   589 version_CVS
   608     ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.28 2011-11-25 14:25:40 cg Exp $'
   590     ^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.25 2011/03/24 14:34:11 stefan Exp §'
   609 ! !
   591 ! !