AbstractFileBrowser.st
author penk
Fri, 25 Oct 2002 14:03:21 +0200
changeset 4060 efb0431e606d
parent 4050 d63d33ad9c41
child 4071 f923c8257818
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
     1
"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin
penk
parents:
diff changeset
     2
321c1729db5b initial checkin
penk
parents:
diff changeset
     3
ApplicationModel subclass:#AbstractFileBrowser
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
     4
	instanceVariableNames:'aspects'
09ec3349210c instable state
penk
parents: 3964
diff changeset
     5
	classVariableNames:'DirectoryHistory DefaultCommandPerMIME SettingsAspects
09ec3349210c instable state
penk
parents: 3964
diff changeset
     6
		RuntimeAspects DirectoryBookmarks LastEnforcedNameSpace
09ec3349210c instable state
penk
parents: 3964
diff changeset
     7
		CommandHistory DefaultCommandPerSuffix CommandHistorySize
09ec3349210c instable state
penk
parents: 3964
diff changeset
     8
		LastFileDiffFile'
09ec3349210c instable state
penk
parents: 3964
diff changeset
     9
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    10
	category:'Interface-Tools-File'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    11
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    12
321c1729db5b initial checkin
penk
parents:
diff changeset
    13
AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
321c1729db5b initial checkin
penk
parents:
diff changeset
    14
321c1729db5b initial checkin
penk
parents:
diff changeset
    15
"
321c1729db5b initial checkin
penk
parents:
diff changeset
    16
 The following class instance variables are inherited by this class:
321c1729db5b initial checkin
penk
parents:
diff changeset
    17
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    18
	ApplicationModel - ClassResources
09ec3349210c instable state
penk
parents: 3964
diff changeset
    19
	Model - 
09ec3349210c instable state
penk
parents: 3964
diff changeset
    20
	Object - 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    21
"
321c1729db5b initial checkin
penk
parents:
diff changeset
    22
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    23
321c1729db5b initial checkin
penk
parents:
diff changeset
    24
Object subclass:#Clipboard
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    25
	instanceVariableNames:'method files'
09ec3349210c instable state
penk
parents: 3964
diff changeset
    26
	classVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    27
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    28
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    29
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    30
321c1729db5b initial checkin
penk
parents:
diff changeset
    31
Object subclass:#CodeExecutionLock
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    32
	instanceVariableNames:'locked'
09ec3349210c instable state
penk
parents: 3964
diff changeset
    33
	classVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    34
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    35
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    36
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    37
321c1729db5b initial checkin
penk
parents:
diff changeset
    38
OrderedCollection subclass:#DirectoryHistory
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
    39
	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    40
	classVariableNames:'HistorySize'
09ec3349210c instable state
penk
parents: 3964
diff changeset
    41
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    42
	privateIn:AbstractFileBrowser
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    43
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    44
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    45
Object subclass:#DirectoryHistoryItem
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    46
	instanceVariableNames:'path position'
09ec3349210c instable state
penk
parents: 3964
diff changeset
    47
	classVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    48
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    49
	privateIn:AbstractFileBrowser::DirectoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    50
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    51
321c1729db5b initial checkin
penk
parents:
diff changeset
    52
OrderedSet subclass:#FilenameHistory
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    53
	instanceVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    54
	classVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    55
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    56
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    57
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    58
321c1729db5b initial checkin
penk
parents:
diff changeset
    59
Object subclass:#SaveAspectItem
3967
09ec3349210c instable state
penk
parents: 3964
diff changeset
    60
	instanceVariableNames:'value isHolder'
09ec3349210c instable state
penk
parents: 3964
diff changeset
    61
	classVariableNames:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    62
	poolDictionaries:''
09ec3349210c instable state
penk
parents: 3964
diff changeset
    63
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    64
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    65
321c1729db5b initial checkin
penk
parents:
diff changeset
    66
321c1729db5b initial checkin
penk
parents:
diff changeset
    67
!AbstractFileBrowser class methodsFor:'classAccess'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    68
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    69
directoryHistoryClass
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    70
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    71
    ^ AbstractFileBrowser::DirectoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    72
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    73
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    74
filenameHistoryClass
321c1729db5b initial checkin
penk
parents:
diff changeset
    75
321c1729db5b initial checkin
penk
parents:
diff changeset
    76
    ^ FilenameHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
    77
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
    78
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    79
!AbstractFileBrowser class methodsFor:'classVarAccess'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    80
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    81
directoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    82
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    83
    DirectoryHistory isNil ifTrue:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    84
        DirectoryHistory := self directoryHistoryClass new.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
    85
"/        DirectoryHistory inspect.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    86
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    87
    ^ DirectoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    88
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    89
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    90
resetClassVars
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    91
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    92
    DirectoryHistory := nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    93
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    94
"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    95
    AbstractFileBrowser resetClassVars
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    96
"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    97
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    98
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    99
!AbstractFileBrowser class methodsFor:'defaults'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   100
321c1729db5b initial checkin
penk
parents:
diff changeset
   101
commandHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   102
321c1729db5b initial checkin
penk
parents:
diff changeset
   103
    CommandHistory isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   104
        CommandHistory := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   105
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   106
    ^ CommandHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   107
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   108
321c1729db5b initial checkin
penk
parents:
diff changeset
   109
commandHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
   110
321c1729db5b initial checkin
penk
parents:
diff changeset
   111
    CommandHistorySize isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   112
        CommandHistorySize := 50
321c1729db5b initial checkin
penk
parents:
diff changeset
   113
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   114
    ^ CommandHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
   115
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   116
321c1729db5b initial checkin
penk
parents:
diff changeset
   117
defaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   118
321c1729db5b initial checkin
penk
parents:
diff changeset
   119
    DefaultCommandPerMIME isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   120
        self initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   121
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   122
    ^ DefaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   123
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   124
321c1729db5b initial checkin
penk
parents:
diff changeset
   125
defaultFilterList
321c1729db5b initial checkin
penk
parents:
diff changeset
   126
321c1729db5b initial checkin
penk
parents:
diff changeset
   127
    DefaultFilters isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   128
        DefaultFilters := #(        '*'
321c1729db5b initial checkin
penk
parents:
diff changeset
   129
                                    '*.st' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   130
                                    '*.htm*' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   131
                                    '*.txt' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   132
                                    '*.gif' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   133
                                    '*.xpm' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   134
                                    '*.jpg' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   135
                                    '*.[h,c]*' 
321c1729db5b initial checkin
penk
parents:
diff changeset
   136
                                )
321c1729db5b initial checkin
penk
parents:
diff changeset
   137
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   138
    ^ DefaultFilters.
321c1729db5b initial checkin
penk
parents:
diff changeset
   139
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   140
321c1729db5b initial checkin
penk
parents:
diff changeset
   141
directoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   142
321c1729db5b initial checkin
penk
parents:
diff changeset
   143
    DirectoryBookmarks isNil ifTrue:[                     
321c1729db5b initial checkin
penk
parents:
diff changeset
   144
        DirectoryBookmarks := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   145
        DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
   146
        DirectoryBookmarks add:Filename tempDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
   147
        DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
   148
        Smalltalk systemPath do:[:path |
321c1729db5b initial checkin
penk
parents:
diff changeset
   149
            ((path ~= '.') and:[path asFilename exists]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   150
                DirectoryBookmarks add:path asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
   151
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
   152
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
   153
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   154
    ^ DirectoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   155
321c1729db5b initial checkin
penk
parents:
diff changeset
   156
"/    DirectoryBookmarks := nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   157
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   158
321c1729db5b initial checkin
penk
parents:
diff changeset
   159
initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   160
    DefaultCommandPerMIME := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   161
321c1729db5b initial checkin
penk
parents:
diff changeset
   162
    DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   163
    DefaultCommandPerMIME at:'application/pdf'              put:'acroread -display %2 %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   164
321c1729db5b initial checkin
penk
parents:
diff changeset
   165
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   166
     self initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   167
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   168
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   169
321c1729db5b initial checkin
penk
parents:
diff changeset
   170
listOfRuntimeValuesToRemark
321c1729db5b initial checkin
penk
parents:
diff changeset
   171
321c1729db5b initial checkin
penk
parents:
diff changeset
   172
    " list of all aspects that will be saved with save settings"
321c1729db5b initial checkin
penk
parents:
diff changeset
   173
321c1729db5b initial checkin
penk
parents:
diff changeset
   174
    ^ #(
321c1729db5b initial checkin
penk
parents:
diff changeset
   175
           #filterModel
321c1729db5b initial checkin
penk
parents:
diff changeset
   176
           #enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   177
           #fileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   178
           #currentFileNameHolder
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
   179
           #sortBlockProperty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   180
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   181
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   182
321c1729db5b initial checkin
penk
parents:
diff changeset
   183
listOfSavedSettingsAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   184
321c1729db5b initial checkin
penk
parents:
diff changeset
   185
    " list of all aspects that will be saved with save settings"
321c1729db5b initial checkin
penk
parents:
diff changeset
   186
321c1729db5b initial checkin
penk
parents:
diff changeset
   187
    ^ #(
321c1729db5b initial checkin
penk
parents:
diff changeset
   188
           #viewDirectoriesInDirectoryContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
   189
           #sortCaseless
321c1729db5b initial checkin
penk
parents:
diff changeset
   190
           #fileHistory             
321c1729db5b initial checkin
penk
parents:
diff changeset
   191
           #showDirectoryTreeHolder  
321c1729db5b initial checkin
penk
parents:
diff changeset
   192
           #showHiddenFiles          
321c1729db5b initial checkin
penk
parents:
diff changeset
   193
           #viewDescription        
321c1729db5b initial checkin
penk
parents:
diff changeset
   194
           #viewDetails              
321c1729db5b initial checkin
penk
parents:
diff changeset
   195
           #viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
   196
           #viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
   197
           #viewGroup                
321c1729db5b initial checkin
penk
parents:
diff changeset
   198
           #viewOwner                
321c1729db5b initial checkin
penk
parents:
diff changeset
   199
           #viewPermissions          
321c1729db5b initial checkin
penk
parents:
diff changeset
   200
           #viewPreview              
321c1729db5b initial checkin
penk
parents:
diff changeset
   201
           #viewSize                
321c1729db5b initial checkin
penk
parents:
diff changeset
   202
           #viewTime                 
321c1729db5b initial checkin
penk
parents:
diff changeset
   203
           #viewType  
321c1729db5b initial checkin
penk
parents:
diff changeset
   204
           #enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   205
           #openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
   206
           #filenameEntryFieldVisibleHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
   207
           #toolBarVisibleHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
   208
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   209
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   210
321c1729db5b initial checkin
penk
parents:
diff changeset
   211
resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   212
321c1729db5b initial checkin
penk
parents:
diff changeset
   213
    RuntimeAspects := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
   214
    SettingsAspects := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
   215
321c1729db5b initial checkin
penk
parents:
diff changeset
   216
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   217
    self resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   218
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   219
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   220
321c1729db5b initial checkin
penk
parents:
diff changeset
   221
runtimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   222
321c1729db5b initial checkin
penk
parents:
diff changeset
   223
    RuntimeAspects isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   224
        RuntimeAspects := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   225
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   226
    ^ RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   227
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   228
321c1729db5b initial checkin
penk
parents:
diff changeset
   229
settingsAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   230
321c1729db5b initial checkin
penk
parents:
diff changeset
   231
    SettingsAspects isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   232
        SettingsAspects := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   233
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   234
    ^ SettingsAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   235
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   236
321c1729db5b initial checkin
penk
parents:
diff changeset
   237
!AbstractFileBrowser class methodsFor:'image'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   238
321c1729db5b initial checkin
penk
parents:
diff changeset
   239
DisabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   240
321c1729db5b initial checkin
penk
parents:
diff changeset
   241
    DisabledCursorImage isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   242
        DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
321c1729db5b initial checkin
penk
parents:
diff changeset
   243
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   244
    ^ DisabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   245
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   246
321c1729db5b initial checkin
penk
parents:
diff changeset
   247
EnabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   248
321c1729db5b initial checkin
penk
parents:
diff changeset
   249
    EnabledCursorImage isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   250
        EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
321c1729db5b initial checkin
penk
parents:
diff changeset
   251
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   252
    ^ EnabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   253
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   254
321c1729db5b initial checkin
penk
parents:
diff changeset
   255
!AbstractFileBrowser class methodsFor:'image specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   256
321c1729db5b initial checkin
penk
parents:
diff changeset
   257
clearHistoryIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   258
    ^ Icon deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   259
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   260
321c1729db5b initial checkin
penk
parents:
diff changeset
   261
closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   262
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   263
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   264
321c1729db5b initial checkin
penk
parents:
diff changeset
   265
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   266
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   267
321c1729db5b initial checkin
penk
parents:
diff changeset
   268
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   269
     self closeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   270
     ImageEditor openOnClass:self andSelector:#closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   271
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   272
321c1729db5b initial checkin
penk
parents:
diff changeset
   273
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   274
321c1729db5b initial checkin
penk
parents:
diff changeset
   275
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   276
        constantNamed:#'AbstractFileBrowser class closeIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   277
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   278
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@HB@ @@@@@@@@@B@ H@@@@@@@@@@@@@@ HB@@@@@@@B@ H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   279
@@@@@@@B@ H@@@@B@ H@@@@@@@@@@@@@@@@@@@HB@ @B@ H@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   280
@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ H@@ HB@@@@@@@@@@@@@@@@@@@B@ H@@@@B@ H@@@@@@@@A@@@@@@@B@ H@@@@@@@HB@ @@@@@@@@@@@@@B
321c1729db5b initial checkin
penk
parents:
diff changeset
   281
@ H@@@@@@@@@@ HB@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@PD@@P@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   282
@@DA@@@@@PD@@@DA@@@@@P@@@@D@@@D@@@D@@P@@@@D@@@D@@@D@@@@A@@@A@@@A@@@A@@@A@PDA@@@A@@@@@P@@@P@@@P@@@@D@@P@@@@@@@@DA@@DA@@@A
321c1729db5b initial checkin
penk
parents:
diff changeset
   283
@P@@@PD@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A C@A0G@@8N@@\\@@N8@@G0@@C @@G0@@N8@@\\B@8N@A0G@A C@@@@@A@@@MFL0QIQHQII8QIE@M&X0@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   284
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   285
321c1729db5b initial checkin
penk
parents:
diff changeset
   286
copyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   287
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   288
321c1729db5b initial checkin
penk
parents:
diff changeset
   289
    ^ ToolbarIconLibrary copy20x20Icon "copy28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   290
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   291
321c1729db5b initial checkin
penk
parents:
diff changeset
   292
cutIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   293
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   294
321c1729db5b initial checkin
penk
parents:
diff changeset
   295
    ^ ToolbarIconLibrary cut20x20Icon2 "cut28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   296
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   297
321c1729db5b initial checkin
penk
parents:
diff changeset
   298
deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   299
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   300
321c1729db5b initial checkin
penk
parents:
diff changeset
   301
    ^ ToolbarIconLibrary erase20x20Icon "/ delete28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   302
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   303
321c1729db5b initial checkin
penk
parents:
diff changeset
   304
diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   305
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   306
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   307
321c1729db5b initial checkin
penk
parents:
diff changeset
   308
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   309
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   310
321c1729db5b initial checkin
penk
parents:
diff changeset
   311
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   312
     self diffIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   313
     ImageEditor openOnClass:self andSelector:#diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   314
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   315
321c1729db5b initial checkin
penk
parents:
diff changeset
   316
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   317
321c1729db5b initial checkin
penk
parents:
diff changeset
   318
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   319
        constantNamed:#'AbstractFileBrowser class diffIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   320
        ifAbsentPut:[(Depth8Image new) width: 26; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   321
@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@DA XFA XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@XFA @F
321c1729db5b initial checkin
penk
parents:
diff changeset
   322
A XD@@@@@@@@@@@@@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA @FA XFA@@@@@@@@@@@@@@@@@@@@@@@A@XF@@XFA XD@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   323
@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA X@A XFA@@@@@@@@@@@@@@@@@@@@@@@A@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA XF
321c1729db5b initial checkin
penk
parents:
diff changeset
   324
A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XFA XFA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   325
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   326
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   327
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 129 129 129 0 0 0 194 194 194 132 132 132 198 198 198 255 255 255]; mask:((Depth1Image new) width: 26; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@?8@@@O>@@@C? @@@?<@@@O> @@C?(@@@?:@@@O> @@C?8@@@??@@@O>8@@C?''@@@?80@@@@@@@@T[@@@DI@@@GSX@@BT$@@@%I@@@IRP@@A4$@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   328
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   329
321c1729db5b initial checkin
penk
parents:
diff changeset
   330
fileInIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   331
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   332
321c1729db5b initial checkin
penk
parents:
diff changeset
   333
    ^ ToolbarIconLibrary fileIn20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   334
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   335
321c1729db5b initial checkin
penk
parents:
diff changeset
   336
goHomeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   337
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   338
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   339
321c1729db5b initial checkin
penk
parents:
diff changeset
   340
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   341
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   342
321c1729db5b initial checkin
penk
parents:
diff changeset
   343
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   344
     self goHomeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   345
     ImageEditor openOnClass:self andSelector:#goHomeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   346
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   347
321c1729db5b initial checkin
penk
parents:
diff changeset
   348
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   349
321c1729db5b initial checkin
penk
parents:
diff changeset
   350
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   351
        constantNamed:#'AbstractFileBrowser class goHomeIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   352
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   353
@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@I4@@@@@@@@@@@@H"]@@@@@@@@@@@H''A7P@@@@@@@@@H''FA]D@@@@@@@@I7FC W]@@@@@@@I7FCL8DWP@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   354
@''FCL3NA]D@@@@H''FCL3L3 WQ@@@I7FCL3L3L8E7PDPQFCL1DQL3"@@DQADXL1DQDSNH@@P@@@ 1EUUQL8 @@@@@BCDUY&D3"@@@@@@HLQU&XSNH@@@@@@ 1
321c1729db5b initial checkin
penk
parents:
diff changeset
   355
EVY!!L8 @@@@@BCDUY&D3"@@@@@@HLQU&XSNH@@@@@@ 1EVY!!L8 @@@@@BCDUY&D3"@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 0 0 255 0 0 255 255 255 129 0 0 80 194 89 60 120 60 194 0 0 161 161 161]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@@@C @FG0@FO8@F_<@F?>@G??@G?? G??0O??8_??<???<???<G??0G??0G??0G??0G??0G??0G??0G??0G??0') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   356
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   357
321c1729db5b initial checkin
penk
parents:
diff changeset
   358
hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   359
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   360
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   361
321c1729db5b initial checkin
penk
parents:
diff changeset
   362
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   363
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   364
321c1729db5b initial checkin
penk
parents:
diff changeset
   365
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   366
     self hexToggle22x22Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   367
     ImageEditor openOnClass:self andSelector:#hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   368
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   369
321c1729db5b initial checkin
penk
parents:
diff changeset
   370
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   371
321c1729db5b initial checkin
penk
parents:
diff changeset
   372
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   373
        constantNamed:#'AbstractFileBrowser class hexToggle22x22Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   374
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   375
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   376
@@@@@@TEAP@E@@TEAPT@@@@@@@@@@@@@@@@EAP@@AP@@APTE@@@@@@@@@@@@@@@@APTE@@T@APTEAP@@@@@@@@@@@@@@@@T@@@@E@@TEAPT@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   377
@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@@@@@@@T@AP@E@@T@APT@@@@@@@@@@@@@@@@E@@@@AP@@@@TE@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   378
AP@E@@T@AP@EAP@@@@@@@@@@@@@@@@T@AP@E@@@@APT@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   379
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   380
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 105 133 190 129 129 129 194 194 194 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@@@@@B''Q@B$J@C&D@B$J@B''Q@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   381
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   382
321c1729db5b initial checkin
penk
parents:
diff changeset
   383
historyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   384
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   385
321c1729db5b initial checkin
penk
parents:
diff changeset
   386
    ^ ToolbarIconLibrary history20x20Icon "/ history28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   387
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   388
321c1729db5b initial checkin
penk
parents:
diff changeset
   389
homeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   390
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   391
321c1729db5b initial checkin
penk
parents:
diff changeset
   392
    ^ ToolbarIconLibrary home28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   393
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   394
321c1729db5b initial checkin
penk
parents:
diff changeset
   395
htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   396
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   397
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   398
321c1729db5b initial checkin
penk
parents:
diff changeset
   399
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   400
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   401
321c1729db5b initial checkin
penk
parents:
diff changeset
   402
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   403
     self htmlReloadIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   404
     ImageEditor openOnClass:self andSelector:#htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   405
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   406
321c1729db5b initial checkin
penk
parents:
diff changeset
   407
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   408
321c1729db5b initial checkin
penk
parents:
diff changeset
   409
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   410
        constantNamed:#'AbstractFileBrowser class htmlReloadIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   411
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   412
@@@@@@@@@@@UT@@@@@EU@D@@@@UT@@@H@AUP@@@@@EU@@@@@@EU@@@@E@EU@@@@@@EU@@@@@AUUT@@@@@UUP@@@@@EU@@@@@@AT@@@@@@@P@@@@H@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   413
@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@G@@@@@@@J@@@@@@@I@@@@@@@@') ; colorMapFromArray:#[0 0 0 0 129 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G<C@_?C@??#A?C3C>@;G<@KG<@CG<@C??$C_?NCO>_CG<?#C9?3A3?;@''??@@?#P@?C\A?COC>CG?<CC?8C@? C') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   414
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   415
321c1729db5b initial checkin
penk
parents:
diff changeset
   416
leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   417
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   418
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   419
321c1729db5b initial checkin
penk
parents:
diff changeset
   420
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   421
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   422
321c1729db5b initial checkin
penk
parents:
diff changeset
   423
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   424
     self leftArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   425
     ImageEditor openOnClass:self andSelector:#leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   426
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   427
321c1729db5b initial checkin
penk
parents:
diff changeset
   428
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   429
321c1729db5b initial checkin
penk
parents:
diff changeset
   430
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   431
        constantNamed:#'AbstractFileBrowser class leftArrow'
321c1729db5b initial checkin
penk
parents:
diff changeset
   432
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   433
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   434
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   435
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   436
GAPUEQT]GQ4]GP(R@@@@@@@@@@@@D (TG!!0TEA,_G1<[H@(R@@@@@@@@@@@@@AHJC!!< GQ4JB (JB"DK@@@@@@@@@@@@@@@RB 8^B DRD!!HRD!!HK@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   437
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   438
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   439
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B@@@F@@@N@@@^@@@>@@A??@C??@G??@O??@O??@G??@C??@A??@@>@@@^@@@N@@@F@@@B@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   440
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   441
321c1729db5b initial checkin
penk
parents:
diff changeset
   442
leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   443
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   444
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   445
321c1729db5b initial checkin
penk
parents:
diff changeset
   446
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   447
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   448
321c1729db5b initial checkin
penk
parents:
diff changeset
   449
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   450
     self leftArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   451
     ImageEditor openOnClass:self andSelector:#leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   452
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   453
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   454
321c1729db5b initial checkin
penk
parents:
diff changeset
   455
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   456
321c1729db5b initial checkin
penk
parents:
diff changeset
   457
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   458
        constantNamed:#'AbstractFileBrowser class leftArrow20x20Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   459
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   460
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@PPE
321c1729db5b initial checkin
penk
parents:
diff changeset
   461
@ @@@@@@@@@@@@@@@@@@@@DF@@\A@@@@@@@@@@@@@@@@@@@AB@@IB HK@0LA@PDK@@@@@@@@@P0@@@4NC1@@@@@Q@1H@@@@@@@DF@@@SEATNDADQE!!\GD @@
321c1729db5b initial checkin
penk
parents:
diff changeset
   462
@@@AAADQD1PUEQTNF@$SFP(R@@@@@@,JEA,\EATUEQ4]GQ4]B!!H@@@@@@AHJEA8\EAP[G1<_F2@JD @@@@@@@AHJC!!< GQ4JB (JB"DK@@@@@@@@@AHJC!!8J
321c1729db5b initial checkin
penk
parents:
diff changeset
   463
@QHRD!!HRD ,@@@@@@@@@@AHJGRHB@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@,A@ @@@@@@@@@@@@@@@@@@@@@@@@,A@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   464
@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B@@@F@@@N@@@^@@@>@@A??@C??@G??@O??@O??@G??@C??@A??@@>@@@^@@@N@@@F@@@B@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   465
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   466
321c1729db5b initial checkin
penk
parents:
diff changeset
   467
leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   468
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   469
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   470
321c1729db5b initial checkin
penk
parents:
diff changeset
   471
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   472
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   473
321c1729db5b initial checkin
penk
parents:
diff changeset
   474
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   475
     self leftArrow20x20PlusMenuIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   476
     ImageEditor openOnClass:self andSelector:#leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   477
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   478
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   479
321c1729db5b initial checkin
penk
parents:
diff changeset
   480
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   481
321c1729db5b initial checkin
penk
parents:
diff changeset
   482
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   483
        constantNamed:#'AbstractFileBrowser class leftArrow20x20PlusMenuIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   484
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   485
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@A@ @@@@@@@@@@@@@@@@@@@@@@@PLA@@@@@@@@@@@@@@@@@@@@@@DD
321c1729db5b initial checkin
penk
parents:
diff changeset
   486
APH@@@@@@@@@@@@@@@@@@@@AA @G@P@@@@@@@@@@@@@@@@@@@P @BP(BB0LC@PDAB0@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@AA @@D1PUC!!@QDQXWA1H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   487
@@@@@PPQDQLTEQTUC!! ID1$JD @@@@@KB!!P[GAPUEQT]GQ4]GP(R@@@@@@@RB!!P^GAPTF1<_G1, B!!H@@@@@@@@RB 8_HA4]B (JB (!!B0@@@@@@@@@RB 8^
321c1729db5b initial checkin
penk
parents:
diff changeset
   488
B DRD!!HRD!!HK@@@@@@@@@@@RB!!4"@ @@@@@@@@@@@@@@@@@@@@@RB"DA@@@@@@@@@@@KB0,KB0,K@@@K@PH@@@@@@@@@@@@KB0,KB0@@@@@K@P@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   489
@@@KB0,@@@@@@@@K@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A@@@C@@@G@@@O@@@_@@@?? A?? C?? G?? G?? C?? A?? @?? @_@@@O@@?''@@_C@@NA@@D@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   490
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   491
321c1729db5b initial checkin
penk
parents:
diff changeset
   492
leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   493
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   494
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   495
321c1729db5b initial checkin
penk
parents:
diff changeset
   496
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   497
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   498
321c1729db5b initial checkin
penk
parents:
diff changeset
   499
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   500
     self leftArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   501
     ImageEditor openOnClass:self andSelector:#leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   502
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   503
321c1729db5b initial checkin
penk
parents:
diff changeset
   504
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   505
321c1729db5b initial checkin
penk
parents:
diff changeset
   506
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   507
        constantNamed:#'AbstractFileBrowser class leftArrowPlusMenu'
321c1729db5b initial checkin
penk
parents:
diff changeset
   508
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   509
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   510
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   511
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   512
GAPUEQT]GQ4]GP(R@@@@@@@@@@@@D (TG!!0TEA,_G1<[H@(R@@@@@@@@@@@@@AHJC!!< GQ4JB (JB"DK@@@@@@@@@@@@@@@RB 8^B DRD!!HRD!!HK@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   513
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   514
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@KB0,KB0,K@@@@@@@@@@@@@@@@@@@@@@@@B0,KB0,@@@@@@@@@@@@@@@@@@@@@@@@@@@,KB0@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   515
@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B@@@F@@@N@@@^@@@>@@A??@C??@G??@O??@O??@G??@C??@A??@@>@@@^@@@N@@@F@@@BA?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   516
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   517
321c1729db5b initial checkin
penk
parents:
diff changeset
   518
leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   519
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   520
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   521
321c1729db5b initial checkin
penk
parents:
diff changeset
   522
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   523
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   524
321c1729db5b initial checkin
penk
parents:
diff changeset
   525
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   526
     self leftDownIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   527
     ImageEditor openOnClass:self andSelector:#leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   528
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   529
321c1729db5b initial checkin
penk
parents:
diff changeset
   530
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   531
321c1729db5b initial checkin
penk
parents:
diff changeset
   532
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   533
        constantNamed:#'AbstractFileBrowser class leftDownIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   534
        ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   535
UUUUUUUUUUUPAUUUUUUUP@UUUUUUUPB!!UUUUUU@B*AUUUUU@B*(UUUUUPB** UUUUPB***AUUUTB***(EUUUB****%UUUR*****UUUUU@*%UUUUUUPJ)UUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   536
UUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*$@@@@AUPJ*****)UTB******UU@******%UPJ*****)UTAUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   537
UUUU@@@@@@@AUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 40 40 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   538
@@@@@@@@@@@@ @@@@\@@@@O @@@G<@@@C? @@A?<@@@?? @@_?<@@G?? @@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C??? @???8@O?
321c1729db5b initial checkin
penk
parents:
diff changeset
   539
?>@C??? @???8@O??>@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   540
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   541
321c1729db5b initial checkin
penk
parents:
diff changeset
   542
leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   543
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   544
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   545
321c1729db5b initial checkin
penk
parents:
diff changeset
   546
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   547
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   548
321c1729db5b initial checkin
penk
parents:
diff changeset
   549
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   550
     self leftIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   551
     ImageEditor openOnClass:self andSelector:#leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   552
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   553
321c1729db5b initial checkin
penk
parents:
diff changeset
   554
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   555
321c1729db5b initial checkin
penk
parents:
diff changeset
   556
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   557
        constantNamed:#'AbstractFileBrowser class leftIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   558
        ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   559
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUPUUUUUUUUP%UUUUUUUP)UUUUUUUP*P@@@@@AP*$@@@@@@P*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   560
*P********$********)J********U********%V*%UUUUUUUZ)UUUUUUUP*UUUUUUUUV%UUUUUUUUYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   561
UUUUUUUUUUUUUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 40 40 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   562
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@F@@@@C @@@A8@@@@>@@@@_???0O???<G????C????0_???<C????@_???0C8@@@@^@@@@C @@@@X@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   563
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   564
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   565
321c1729db5b initial checkin
penk
parents:
diff changeset
   566
menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   567
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   568
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   569
321c1729db5b initial checkin
penk
parents:
diff changeset
   570
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   571
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   572
321c1729db5b initial checkin
penk
parents:
diff changeset
   573
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   574
     self menuHistoryList9x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   575
     ImageEditor openOnClass:self andSelector:#menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   576
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   577
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   578
321c1729db5b initial checkin
penk
parents:
diff changeset
   579
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   580
321c1729db5b initial checkin
penk
parents:
diff changeset
   581
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   582
        constantNamed:#'AbstractFileBrowser class menuHistoryList9x20Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   583
        ifAbsentPut:[(Depth1Image new) width: 9; height: 20; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A0@G@@\@A0@G@@\@A0@G@@\@A0@G@A?@C8@G@@H@G<@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0]; mask:((Depth1Image new) width: 9; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A0@G@@\@A0@G@@\@A0@G@@\@A0@G@A?@C8@G@@H@G<@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   584
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   585
321c1729db5b initial checkin
penk
parents:
diff changeset
   586
menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   587
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   588
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   589
321c1729db5b initial checkin
penk
parents:
diff changeset
   590
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   591
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   592
321c1729db5b initial checkin
penk
parents:
diff changeset
   593
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   594
     self menuHistoryListIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   595
     ImageEditor openOnClass:self andSelector:#menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   596
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   597
321c1729db5b initial checkin
penk
parents:
diff changeset
   598
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   599
321c1729db5b initial checkin
penk
parents:
diff changeset
   600
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   601
        constantNamed:#'AbstractFileBrowser class menuHistoryListIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   602
        ifAbsentPut:[(Depth1Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??S?<O?0??C?<O?0??/?=_?0??C?<O?0') ; colorMapFromArray:#[255 255 255 0 0 0]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O@@<@C0A?8C?@G8@O@@X@@@A?8@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   603
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   604
3923
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   605
newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   606
    "This resource specification was automatically generated
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   607
     by the ImageEditor of ST/X."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   608
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   609
    "Do not manually edit this!! If it is corrupted,
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   610
     the ImageEditor may not be able to read the specification."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   611
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   612
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   613
     self newDirectory20x20Icon inspect
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   614
     ImageEditor openOnClass:self andSelector:#newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   615
     Icon flushCachedIcons
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   616
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   617
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   618
    <resource: #image>
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   619
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   620
    ^Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   621
        constantNamed:#'AbstractFileBrowser class newDirectory20x20Icon'
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   622
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   623
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PDA@P@@@@@@@@@@@@@@@@@A@ HB@ HA@@@@@@@@@@@@@@@@@PHB@ HB@ HA
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   624
@@@@@@@@@@@@@@DA@PDA@PDA@P@@@@@@@@@@@@D@@PHB@ HB@ HB@ HB@@@@@ HB@P@A@ HB@ HB@ HB@ @B@@H@@ HA@@DB@ HB@ HB@ H@@ H@@ H@@ D@
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   625
@PHB@ HB@ HB@@HB@ @B@ H@@P@A@ HB@ HB@ HB@ HB@ HB@ HA@@DB@ HB@ HB@ HB@ HB@ HB@ D@@PHB@ HB@ HB@ HB@ HB@ HB@P@A@ HB@ HB@ HB
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   626
@ HB@ HB@ HA@@DB@ HB@ HB@ HB@ HB@ HB@ D@@PHB@ HB@ HB@ HB@ HB@ HB@P@A@ HB@ HB@ HB@ HB@ HB@ HA@@DA@PDA@PDA@PDA@PDA@PDA@PD@
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   627
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 0 0 0 0 0 255 255 0]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DQ@O:R@O9T@_<8@??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? @@@@@@@@') ; yourself); yourself]
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   628
!
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   629
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   630
pasteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   631
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   632
321c1729db5b initial checkin
penk
parents:
diff changeset
   633
    ^ ToolbarIconLibrary paste20x20Icon "/ paste28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   634
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   635
321c1729db5b initial checkin
penk
parents:
diff changeset
   636
rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   637
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   638
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   639
321c1729db5b initial checkin
penk
parents:
diff changeset
   640
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   641
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   642
321c1729db5b initial checkin
penk
parents:
diff changeset
   643
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   644
     self rightArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   645
     ImageEditor openOnClass:self andSelector:#rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   646
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   647
321c1729db5b initial checkin
penk
parents:
diff changeset
   648
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   649
321c1729db5b initial checkin
penk
parents:
diff changeset
   650
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   651
        constantNamed:#'AbstractFileBrowser class rightArrow'
321c1729db5b initial checkin
penk
parents:
diff changeset
   652
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   653
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   654
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   655
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   656
E1\WD!!\WD!!LYDQ(B@@@@@@@@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@@@@@@AA!!(ZF!!(ZE1H^FQDZ@ @@@@@@@@@@@@@A@ HB@ HB@1DYDQ(B@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   657
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   658
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   659
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@D@@@F@@@G@@@G @@G0@O?8@O?<@O?>@O??@O??@O?>@O?<@O?8@@G0@@G @@G@@@F@@@D@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   660
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   661
321c1729db5b initial checkin
penk
parents:
diff changeset
   662
rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   663
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   664
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   665
321c1729db5b initial checkin
penk
parents:
diff changeset
   666
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   667
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   668
321c1729db5b initial checkin
penk
parents:
diff changeset
   669
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   670
     self rightArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   671
     ImageEditor openOnClass:self andSelector:#rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   672
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   673
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   674
321c1729db5b initial checkin
penk
parents:
diff changeset
   675
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   676
321c1729db5b initial checkin
penk
parents:
diff changeset
   677
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   678
        constantNamed:#'AbstractFileBrowser class rightArrow20x20Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   679
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   680
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@A
321c1729db5b initial checkin
penk
parents:
diff changeset
   681
APXB@@@@@@@@@@@@@@@@@@@@@@LG@@PB@@@@@@@@@@@A@PDA@PDH@P\I@@XB@@@@@@@@@@DGB @@@@@JB00J@@PB@@@@@@@@CP(GC (KC1@QD!!LJ@@XB@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   682
@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@4JC1\WE1\RE1\RD1$QF H@@@@@@P(OF1L\F14^DQ8YDQ(B@@@@@@@AA!!(ZF!!(ZE1H^FQDZ@ @@@@@@@@DB@ HB@ HC
321c1729db5b initial checkin
penk
parents:
diff changeset
   683
DQ$QF H@@@@@@@@@@@@@@@@@@@DVDQ(B@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@AF H@@@@@@@@@@@@@@@@@@@@@@@LB@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   684
@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@D@@@F@@@G@@@G @@G0@O?8@O?<@O?>@O??@O??@O?>@O?<@O?8@@G0@@G @@G@@@F@@@D@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   685
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   686
321c1729db5b initial checkin
penk
parents:
diff changeset
   687
rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   688
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   689
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   690
321c1729db5b initial checkin
penk
parents:
diff changeset
   691
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   692
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   693
321c1729db5b initial checkin
penk
parents:
diff changeset
   694
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   695
     self rightArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   696
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   697
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   698
321c1729db5b initial checkin
penk
parents:
diff changeset
   699
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   700
321c1729db5b initial checkin
penk
parents:
diff changeset
   701
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   702
        constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu'
321c1729db5b initial checkin
penk
parents:
diff changeset
   703
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   704
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   705
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   706
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   707
E1\WD!!\WD!!LYDQ(B@@@@@@@@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@@@@@@AA!!(ZF!!(ZE1H^FQDZ@ @@@@@@@@@@@@@A@ HB@ HB@1DYDQ(B@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   708
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   709
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   710
@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@D@@@F@@@G@@@G @@G0@O?8@O?<@O?>@O??@O??@O?>@O?<@O?8@@G0@@G @@G@@@F@@@DA?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   711
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   712
321c1729db5b initial checkin
penk
parents:
diff changeset
   713
rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   714
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   715
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   716
321c1729db5b initial checkin
penk
parents:
diff changeset
   717
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   718
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   719
321c1729db5b initial checkin
penk
parents:
diff changeset
   720
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   721
     self rightArrowPlusMenu20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   722
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   723
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   724
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   725
321c1729db5b initial checkin
penk
parents:
diff changeset
   726
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   727
321c1729db5b initial checkin
penk
parents:
diff changeset
   728
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   729
        constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu20x20Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   730
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   731
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@@@@@@@@@@@@@@@@CA@H@@@@@@@@@@@@@@@@@@@@@@@DE
321c1729db5b initial checkin
penk
parents:
diff changeset
   732
A H@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@DA@PDA@P AA0$@A H@@@@@@@@@@P\J@@@@@@(KC@(@A@H@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   733
@@4@AQPUD1DVE1\RC@,@A@H@@@@@CP(OE1\WE1HWE1HSFQDZ@ @@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@DFF!!(ZF!!(WD!!8YDQ(B@@@@@@@@@PHB@ HB@ LQ
321c1729db5b initial checkin
penk
parents:
diff changeset
   734
FQDZ@ @@@@@@@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@CAA(B@@@@@@@@@@@@@@@@@@@@@@DZ@ @@@ HB@ HB@ @@@@@@@@@@@0H@@@@@@ HB@ H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   735
@@@@@@@@@@@A@@@@@@@@@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@H@@@L@@@N@@@O@@@O @_?0@_?8@_?<@_?>@_?>@_?<@_?8@_?0@@O @@O@@@N_0@LO @HG@@@B@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   736
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   737
321c1729db5b initial checkin
penk
parents:
diff changeset
   738
rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   739
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   740
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   741
321c1729db5b initial checkin
penk
parents:
diff changeset
   742
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   743
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   744
321c1729db5b initial checkin
penk
parents:
diff changeset
   745
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   746
     self rightIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   747
     ImageEditor openOnClass:self andSelector:#rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   748
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   749
321c1729db5b initial checkin
penk
parents:
diff changeset
   750
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   751
321c1729db5b initial checkin
penk
parents:
diff changeset
   752
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   753
        constantNamed:#'AbstractFileBrowser class rightIcon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   754
        ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   755
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTIUUUUUUUUB%UEUUUUUP*EP@@@@@@J)T@@@@@@B*%B*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   756
*P********(J********B********P********PEUUUUUV*QEUUUUUP*PUUUUUUTJQUUUUUUUBQUUUUUUUPQUUUUUUUPAUUUUUUUTUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   757
UUUUUUUUUUUUUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 50 50 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   758
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@8@@@@O@@@@C8A????@_???8G????A????0_???<G???>A????@@@@O @@@C0@@@@8@@@@L@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   759
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   760
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   761
321c1729db5b initial checkin
penk
parents:
diff changeset
   762
searchIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   763
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   764
321c1729db5b initial checkin
penk
parents:
diff changeset
   765
    ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   766
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   767
321c1729db5b initial checkin
penk
parents:
diff changeset
   768
shellIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   769
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   770
321c1729db5b initial checkin
penk
parents:
diff changeset
   771
    OperatingSystem isMSDOSlike ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   772
        ^ ToolbarIconLibrary dos20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   773
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   774
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   775
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   776
321c1729db5b initial checkin
penk
parents:
diff changeset
   777
upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   778
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   779
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   780
321c1729db5b initial checkin
penk
parents:
diff changeset
   781
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   782
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   783
321c1729db5b initial checkin
penk
parents:
diff changeset
   784
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   785
     self upArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   786
     ImageEditor openOnClass:self andSelector:#upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   787
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   788
321c1729db5b initial checkin
penk
parents:
diff changeset
   789
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   790
321c1729db5b initial checkin
penk
parents:
diff changeset
   791
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   792
        constantNamed:#'AbstractFileBrowser class upArrow'
321c1729db5b initial checkin
penk
parents:
diff changeset
   793
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   794
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   795
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   796
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   797
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   798
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   799
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   800
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   801
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   802
321c1729db5b initial checkin
penk
parents:
diff changeset
   803
upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   804
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   805
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   806
321c1729db5b initial checkin
penk
parents:
diff changeset
   807
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   808
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   809
321c1729db5b initial checkin
penk
parents:
diff changeset
   810
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   811
     self upArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   812
     ImageEditor openOnClass:self andSelector:#upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   813
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   814
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   815
321c1729db5b initial checkin
penk
parents:
diff changeset
   816
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   817
321c1729db5b initial checkin
penk
parents:
diff changeset
   818
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   819
        constantNamed:#'AbstractFileBrowser class upArrow20x20Icon'
321c1729db5b initial checkin
penk
parents:
diff changeset
   820
        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   821
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@PXG
321c1729db5b initial checkin
penk
parents:
diff changeset
   822
B@PE@@@@@@@@@@@@@@@@@@DI@@\JB@PE@@@@@@@@@@@@@@@AB0@@C@4NC0PE@@@@@@@@@@@@@PX@@@0HB@4PC0PE@@@@@@@@@@DCA1DRBALSBAPNEPPB@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   823
@@@AE!!\XA@<SD1LHEPPYF DB@@@@@Q0AG@D\GP<SD0(U@Q0AG@DB@@@@@@@@@@H^G <UG0PE@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@V@@\Q
321c1729db5b initial checkin
penk
parents:
diff changeset
   824
EQ<DAP@@@@@@@@@@@@@@@@D@HRHUB PE@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@AE!! YA@PZ@ @@@@@@@@@@@@@@@@HEAPTEAPHB@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   825
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   826
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   827
321c1729db5b initial checkin
penk
parents:
diff changeset
   828
upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   829
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   830
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   831
321c1729db5b initial checkin
penk
parents:
diff changeset
   832
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   833
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   834
321c1729db5b initial checkin
penk
parents:
diff changeset
   835
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   836
     self upArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   837
     ImageEditor openOnClass:self andSelector:#upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   838
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   839
321c1729db5b initial checkin
penk
parents:
diff changeset
   840
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   841
321c1729db5b initial checkin
penk
parents:
diff changeset
   842
    ^Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   843
        constantNamed:#'AbstractFileBrowser class upArrowPlusMenu'
321c1729db5b initial checkin
penk
parents:
diff changeset
   844
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin
penk
parents:
diff changeset
   845
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   846
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   847
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   848
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   849
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   850
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   851
@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@A?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   852
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   853
321c1729db5b initial checkin
penk
parents:
diff changeset
   854
vt100Terminal
321c1729db5b initial checkin
penk
parents:
diff changeset
   855
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   856
321c1729db5b initial checkin
penk
parents:
diff changeset
   857
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   858
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   859
321c1729db5b initial checkin
penk
parents:
diff changeset
   860
!AbstractFileBrowser class methodsFor:'menu specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   861
321c1729db5b initial checkin
penk
parents:
diff changeset
   862
baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   863
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   864
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   865
321c1729db5b initial checkin
penk
parents:
diff changeset
   866
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   867
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   868
321c1729db5b initial checkin
penk
parents:
diff changeset
   869
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   870
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   871
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser baseBookmarksMenuSpec)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   872
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   873
321c1729db5b initial checkin
penk
parents:
diff changeset
   874
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
   875
321c1729db5b initial checkin
penk
parents:
diff changeset
   876
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
   877
     #(#Menu
321c1729db5b initial checkin
penk
parents:
diff changeset
   878
        #(
321c1729db5b initial checkin
penk
parents:
diff changeset
   879
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   880
            #label: 'Add Bookmark'
321c1729db5b initial checkin
penk
parents:
diff changeset
   881
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   882
            #value: #addBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
   883
            #enabled: #currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
   884
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   885
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   886
            #label: 'Remove Bookmark'
321c1729db5b initial checkin
penk
parents:
diff changeset
   887
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   888
            #value: #removeBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
   889
            #enabled: #hasBookmarksToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
   890
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   891
         )
321c1729db5b initial checkin
penk
parents:
diff changeset
   892
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   893
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   894
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   895
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   896
321c1729db5b initial checkin
penk
parents:
diff changeset
   897
directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   898
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   899
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   900
321c1729db5b initial checkin
penk
parents:
diff changeset
   901
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   902
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   903
321c1729db5b initial checkin
penk
parents:
diff changeset
   904
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   905
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   906
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   907
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   908
321c1729db5b initial checkin
penk
parents:
diff changeset
   909
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
   910
321c1729db5b initial checkin
penk
parents:
diff changeset
   911
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
   912
     #(#Menu
321c1729db5b initial checkin
penk
parents:
diff changeset
   913
        #(
321c1729db5b initial checkin
penk
parents:
diff changeset
   914
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   915
            #label: 'Up'
321c1729db5b initial checkin
penk
parents:
diff changeset
   916
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   917
            #value: #doGoDirectoryUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   918
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   919
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   920
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
   921
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   922
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   923
            #label: 'Back'
321c1729db5b initial checkin
penk
parents:
diff changeset
   924
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   925
            #value: #doBack
321c1729db5b initial checkin
penk
parents:
diff changeset
   926
            #activeHelpKey: #directoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
   927
            #enabled: #enableBack
321c1729db5b initial checkin
penk
parents:
diff changeset
   928
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   929
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   930
            #label: 'Forward'
321c1729db5b initial checkin
penk
parents:
diff changeset
   931
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   932
            #value: #doForward
321c1729db5b initial checkin
penk
parents:
diff changeset
   933
            #activeHelpKey: #directoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
   934
            #enabled: #enableForward
321c1729db5b initial checkin
penk
parents:
diff changeset
   935
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   936
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   937
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
   938
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   939
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   940
            #label: 'Default'
321c1729db5b initial checkin
penk
parents:
diff changeset
   941
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   942
            #value: #doGotoDefaultDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
   943
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   944
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   945
            #label: 'Home'
321c1729db5b initial checkin
penk
parents:
diff changeset
   946
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   947
            #value: #doGotoHomeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
   948
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   949
         #(#MenuItem
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
   950
            #label: 'Visited Directories'
c04d4781a37e next stage
penk
parents: 3949
diff changeset
   951
            #translateLabel: true
c04d4781a37e next stage
penk
parents: 3949
diff changeset
   952
            #submenuChannel: #visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
   953
          )
c04d4781a37e next stage
penk
parents: 3949
diff changeset
   954
         #(#MenuItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   955
            #label: 'Bookmarks'
321c1729db5b initial checkin
penk
parents:
diff changeset
   956
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   957
            #submenuChannel: #bookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   958
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   959
         )
321c1729db5b initial checkin
penk
parents:
diff changeset
   960
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   961
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   962
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   963
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   964
321c1729db5b initial checkin
penk
parents:
diff changeset
   965
editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   966
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   967
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   968
321c1729db5b initial checkin
penk
parents:
diff changeset
   969
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   970
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   971
321c1729db5b initial checkin
penk
parents:
diff changeset
   972
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   973
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   974
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser editMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   975
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   976
321c1729db5b initial checkin
penk
parents:
diff changeset
   977
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
   978
321c1729db5b initial checkin
penk
parents:
diff changeset
   979
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
   980
     #(#Menu
321c1729db5b initial checkin
penk
parents:
diff changeset
   981
        #(
321c1729db5b initial checkin
penk
parents:
diff changeset
   982
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   983
            #label: 'Copy'
321c1729db5b initial checkin
penk
parents:
diff changeset
   984
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   985
            #value: #copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
   986
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
   987
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   988
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   989
            #label: 'Cut'
321c1729db5b initial checkin
penk
parents:
diff changeset
   990
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   991
            #value: #cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
   992
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
   993
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
   994
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
   995
            #label: 'Paste'
321c1729db5b initial checkin
penk
parents:
diff changeset
   996
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
   997
            #value: #pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
   998
            #enabled: #canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
   999
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1000
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1001
            #label: 'Delete'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1002
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1003
            #value: #deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  1004
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1005
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1006
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1007
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1008
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1009
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1010
            #label: 'Copy All Filenames'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1011
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1012
            #value: #copyFileList
321c1729db5b initial checkin
penk
parents:
diff changeset
  1013
            #enabled: #fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  1014
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1015
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1016
            #label: 'Copy Selected Filenames'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1017
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1018
            #value: #copySelectedFilenames
321c1729db5b initial checkin
penk
parents:
diff changeset
  1019
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1020
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1021
         )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1022
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1023
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1024
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1025
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1026
321c1729db5b initial checkin
penk
parents:
diff changeset
  1027
fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1028
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1029
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1030
321c1729db5b initial checkin
penk
parents:
diff changeset
  1031
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1032
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1033
321c1729db5b initial checkin
penk
parents:
diff changeset
  1034
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1035
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1036
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser fileMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1037
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1038
321c1729db5b initial checkin
penk
parents:
diff changeset
  1039
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1040
321c1729db5b initial checkin
penk
parents:
diff changeset
  1041
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1042
     #(#Menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1043
        #(
321c1729db5b initial checkin
penk
parents:
diff changeset
  1044
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1045
            #label: 'New'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1046
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1047
            #submenuChannel: #newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1048
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1049
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1050
            #label: 'Rename'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1051
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1052
            #value: #renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1053
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1054
            #shortcutKeyCharacter: #Replace
321c1729db5b initial checkin
penk
parents:
diff changeset
  1055
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1056
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1057
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1058
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1059
         #(#MenuItem
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  1060
            #label: 'Open in Text Editor'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1061
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1062
            #value: #doShowFileContents
321c1729db5b initial checkin
penk
parents:
diff changeset
  1063
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1064
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1065
            #label: 'Properties...'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1066
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1067
            #value: #doShowProperties
321c1729db5b initial checkin
penk
parents:
diff changeset
  1068
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1069
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1070
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1071
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1072
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1073
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1074
         #(#MenuItem
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  1075
            #label: 'File in'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1076
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1077
            #value: #fileFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  1078
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1079
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1080
         #(#MenuItem
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  1081
            #label: 'File in to Namespace...'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1082
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1083
            #value: #fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  1084
            #enabled: #hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1085
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1086
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1087
            #label: '-'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1088
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1089
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1090
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1091
            #label: 'Add to Java Class Path'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1092
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1093
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1094
            #enabled: #canAddToClassPath
321c1729db5b initial checkin
penk
parents:
diff changeset
  1095
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1096
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1097
            #label: 'Remove from Java Class Path'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1098
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1099
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1100
            #enabled: #canRemoveFromClassPath
321c1729db5b initial checkin
penk
parents:
diff changeset
  1101
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1102
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1103
            #label: 'Add to Java Source Path'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1104
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1105
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1106
            #enabled: #canAddToSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  1107
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1108
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1109
            #label: 'Remove from Java Source Path'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1110
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1111
            #isVisible: #javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  1112
            #enabled: #canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  1113
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1114
         )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1115
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1116
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1117
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1118
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1119
321c1729db5b initial checkin
penk
parents:
diff changeset
  1120
newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1121
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1122
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1123
321c1729db5b initial checkin
penk
parents:
diff changeset
  1124
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1125
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1126
321c1729db5b initial checkin
penk
parents:
diff changeset
  1127
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1128
     MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1129
     (Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser newMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1130
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1131
321c1729db5b initial checkin
penk
parents:
diff changeset
  1132
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1133
321c1729db5b initial checkin
penk
parents:
diff changeset
  1134
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1135
     #(#Menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1136
        #(
321c1729db5b initial checkin
penk
parents:
diff changeset
  1137
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1138
            #label: 'Directory...'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1139
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1140
            #value: #newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1141
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1142
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1143
            #label: 'File...'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1144
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1145
            #value: #newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  1146
          )                                     
321c1729db5b initial checkin
penk
parents:
diff changeset
  1147
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1148
            #label: 'Hard Link...'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1149
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1150
            #isVisible: #systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  1151
            #value: #newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  1152
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1153
         #(#MenuItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1154
            #label: 'Symbolic Link...'
321c1729db5b initial checkin
penk
parents:
diff changeset
  1155
            #translateLabel: true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1156
            #isVisible: #systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  1157
            #value: #newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  1158
          )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1159
         )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1160
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1161
        nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1162
      )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1163
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1164
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1165
sortMenu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1166
    "This resource specification was automatically generated
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1167
     by the MenuEditor of ST/X."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1168
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1169
    "Do not manually edit this!! If it is corrupted,
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1170
     the MenuEditor may not be able to read the specification."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1171
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1172
    "
3907
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1173
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#sortMenu
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1174
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser sortMenu)) startUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1175
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1176
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1177
    <resource: #menu>
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1178
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1179
    ^ 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1180
     #(#Menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1181
        #(
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1182
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1183
            #label: 'By Filename'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1184
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1185
            #hideMenuOnActivated: false
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1186
            #choice: #sortBlockProperty
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1187
            #choiceValue: #baseName
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1188
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1189
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1190
            #label: 'By Type'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1191
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1192
            #hideMenuOnActivated: false
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1193
            #choice: #sortBlockProperty
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1194
            #choiceValue: #suffix
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1195
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1196
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1197
            #label: 'By Permissions'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1198
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1199
            #hideMenuOnActivated: false
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1200
            #choice: #sortBlockProperty
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1201
            #choiceValue: #permissions
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1202
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1203
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1204
            #label: 'By Owner'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1205
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1206
            #hideMenuOnActivated: false
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1207
            #isVisible: #viewOwner
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1208
            #choice: #sortBlockProperty
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1209
            #choiceValue: #owner
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1210
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1211
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1212
            #label: 'By Group'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1213
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1214
            #hideMenuOnActivated: false
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1215
            #isVisible: #viewOwner
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1216
            #choice: #sortBlockProperty
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1217
            #choiceValue: #group
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1218
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1219
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1220
            #label: 'By Size'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1221
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1222
            #hideMenuOnActivated: false
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1223
            #choice: #sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1224
            #choiceValue: #fileSize
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1225
          )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1226
         #(#MenuItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1227
            #label: 'By Date && Time'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1228
            #translateLabel: true
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1229
            #hideMenuOnActivated: false
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  1230
            #choice: #sortBlockProperty
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1231
            #choiceValue: #modificationTime
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1232
          )
3907
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1233
         #(#MenuItem
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1234
            #label: '-'
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1235
          )
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1236
         #(#MenuItem
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1237
            #label: 'Ignore Case in Sort'
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1238
            #translateLabel: true
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1239
            #hideMenuOnActivated: false
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1240
            #indication: #sortCaseless
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1241
          )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1242
         )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1243
        nil
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1244
        nil
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1245
      )
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1246
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1247
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1248
viewDetailsMenuSpec
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1249
    "This resource specification was automatically generated
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1250
     by the MenuEditor of ST/X."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1251
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1252
    "Do not manually edit this!! If it is corrupted,
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1253
     the MenuEditor may not be able to read the specification."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1254
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1255
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1256
     MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1257
     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1258
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1259
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1260
    <resource: #menu>
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1261
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1262
    ^ 
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1263
     #(#Menu
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1264
        #(
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1265
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1266
            #label: 'Suffix'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1267
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1268
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1269
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1270
            #indication: #viewType
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1271
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1272
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1273
            #label: 'Permissions'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1274
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1275
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1276
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1277
            #indication: #viewPermissions
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1278
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1279
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1280
            #label: 'Owner'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1281
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1282
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1283
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1284
            #indication: #viewOwner
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1285
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1286
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1287
            #label: 'Group'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1288
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1289
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1290
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1291
            #indication: #viewGroup
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1292
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1293
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1294
            #label: 'Size'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1295
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1296
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1297
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1298
            #indication: #viewSize
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1299
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1300
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1301
            #label: 'Date && Time'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1302
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1303
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1304
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1305
            #indication: #viewTime
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1306
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1307
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1308
            #label: 'File Info'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1309
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1310
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1311
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1312
            #indication: #viewDescription
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1313
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1314
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1315
            #label: 'Preview'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1316
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1317
            #hideMenuOnActivated: false
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1318
            #enabled: #viewDetails
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1319
            #indication: #viewPreview
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1320
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1321
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1322
            #label: '-'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1323
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1324
         #(#MenuItem
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1325
            #label: 'Hidden Files'
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1326
            #translateLabel: true
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1327
            #indication: #showHiddenFiles
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1328
          )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1329
         )
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1330
        nil
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1331
        nil
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1332
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1333
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1334
321c1729db5b initial checkin
penk
parents:
diff changeset
  1335
!AbstractFileBrowser class methodsFor:'misc'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1336
321c1729db5b initial checkin
penk
parents:
diff changeset
  1337
newLock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1338
    ^ CodeExecutionLock new
321c1729db5b initial checkin
penk
parents:
diff changeset
  1339
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1340
321c1729db5b initial checkin
penk
parents:
diff changeset
  1341
!AbstractFileBrowser methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1342
321c1729db5b initial checkin
penk
parents:
diff changeset
  1343
askForCommandFor:fileName thenDo:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1344
    "setup and launch a querybox to ask for unix command.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1345
     Then evaluate aBlock passing the command-string as argument."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1346
321c1729db5b initial checkin
penk
parents:
diff changeset
  1347
    |box osName|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1348
321c1729db5b initial checkin
penk
parents:
diff changeset
  1349
    osName := OperatingSystem platformName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1350
321c1729db5b initial checkin
penk
parents:
diff changeset
  1351
    box := FilenameEnterBox 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1352
                title:(resources string:'Execute %1 command:' with:osName)
321c1729db5b initial checkin
penk
parents:
diff changeset
  1353
               okText:(resources string:'Execute')
321c1729db5b initial checkin
penk
parents:
diff changeset
  1354
               action:aBlock.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1355
321c1729db5b initial checkin
penk
parents:
diff changeset
  1356
    fileName notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1357
        self initialCommandFor:fileName into:box.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1358
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1359
    box directory:(self getDirWithoutFileName:fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1360
    box showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1361
    box destroy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1362
321c1729db5b initial checkin
penk
parents:
diff changeset
  1363
    "Modified: / 7.9.1995 / 10:31:54 / claus"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1364
    "Modified: / 16.9.1997 / 15:35:10 / stefan"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1365
    "Modified: / 14.8.1998 / 14:12:52 / cg"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1366
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1367
321c1729db5b initial checkin
penk
parents:
diff changeset
  1368
changeFileBrowserTitleTo:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  1369
321c1729db5b initial checkin
penk
parents:
diff changeset
  1370
    self application:#FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  1371
         do:#changeFileBrowserTitleTo:                            
321c1729db5b initial checkin
penk
parents:
diff changeset
  1372
         withArg:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  1373
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1374
321c1729db5b initial checkin
penk
parents:
diff changeset
  1375
copyFileList
321c1729db5b initial checkin
penk
parents:
diff changeset
  1376
321c1729db5b initial checkin
penk
parents:
diff changeset
  1377
    | fileList stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1378
    fileList := self application:#DirectoryContentsBrowser do:#descriptions.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1379
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1380
    fileList do:[: item |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1381
        stream nextPutAll:(item fileName asString).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1382
        stream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1383
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1384
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1385
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1386
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1387
321c1729db5b initial checkin
penk
parents:
diff changeset
  1388
copySelectedFilenames
321c1729db5b initial checkin
penk
parents:
diff changeset
  1389
321c1729db5b initial checkin
penk
parents:
diff changeset
  1390
    | fileList stream|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1391
    fileList := self application:#DirectoryContentsBrowser do:#selectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1392
    fileList isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1393
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1394
    fileList do:[: file |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1395
        stream nextPutAll:(file asString).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1396
        stream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1397
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1398
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1399
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1400
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1401
321c1729db5b initial checkin
penk
parents:
diff changeset
  1402
doAddTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  1403
321c1729db5b initial checkin
penk
parents:
diff changeset
  1404
    | item dir directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1405
321c1729db5b initial checkin
penk
parents:
diff changeset
  1406
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1407
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1408
    directories isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1409
        dir :=  Filename homeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1410
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1411
        dir :=  directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1412
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1413
    
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1414
    item := (DirectoryContentsBrowser itemClass fileName:dir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1415
    self fileApplicationDo:#openTerminalApplication: withArg:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1416
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1417
321c1729db5b initial checkin
penk
parents:
diff changeset
  1418
doExecuteCommand
321c1729db5b initial checkin
penk
parents:
diff changeset
  1419
321c1729db5b initial checkin
penk
parents:
diff changeset
  1420
    | action  fileName|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1421
    fileName := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1422
    action := [:command | 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1423
                self addToCommandHistory:command for:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1424
                self executeCommand:command.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1425
              ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1426
    self askForCommandFor:fileName thenDo:action
321c1729db5b initial checkin
penk
parents:
diff changeset
  1427
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1428
321c1729db5b initial checkin
penk
parents:
diff changeset
  1429
doGoDirectoryUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1430
    | upDir directories rootInTreeView|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1431
321c1729db5b initial checkin
penk
parents:
diff changeset
  1432
    self enableDirectoryUp value ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1433
    self currentFilesAreInSameDirectory ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1434
        directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1435
        upDir := directories first directory.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1436
    ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1437
        rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1438
        upDir := rootInTreeView value asFilename directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1439
    ].
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1440
    self currentFileNameHolder value:(OrderedCollection with:upDir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1441
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1442
321c1729db5b initial checkin
penk
parents:
diff changeset
  1443
doGotoDefaultDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1444
    self gotoFile:(Filename defaultDirectory).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1445
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1446
321c1729db5b initial checkin
penk
parents:
diff changeset
  1447
doGotoHomeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1448
321c1729db5b initial checkin
penk
parents:
diff changeset
  1449
    | home |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1450
321c1729db5b initial checkin
penk
parents:
diff changeset
  1451
    home := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1452
    self gotoFile:home.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1453
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1454
321c1729db5b initial checkin
penk
parents:
diff changeset
  1455
doOpenSearchFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  1456
321c1729db5b initial checkin
penk
parents:
diff changeset
  1457
    |item files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1458
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1459
    files := self currentFileNameHolder value.
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1460
    files notEmpty ifTrue:[
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1461
        item := DirectoryContentsBrowser itemClass fileName:(files first).
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1462
    ] ifFalse:[
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1463
        item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1464
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1465
    self openSearchFileOn:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1466
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1467
321c1729db5b initial checkin
penk
parents:
diff changeset
  1468
doShowFileContents
321c1729db5b initial checkin
penk
parents:
diff changeset
  1469
321c1729db5b initial checkin
penk
parents:
diff changeset
  1470
    ^ self application:#DirectoryContentsBrowser do:#doShowFileContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1471
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1472
321c1729db5b initial checkin
penk
parents:
diff changeset
  1473
doShowProperties
321c1729db5b initial checkin
penk
parents:
diff changeset
  1474
321c1729db5b initial checkin
penk
parents:
diff changeset
  1475
    "show long stat (file)-info"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1476
321c1729db5b initial checkin
penk
parents:
diff changeset
  1477
    self fileGetInfo:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1478
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1479
321c1729db5b initial checkin
penk
parents:
diff changeset
  1480
fileApplicationDo:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1481
321c1729db5b initial checkin
penk
parents:
diff changeset
  1482
    ^ self application:#FileApplicationNoteBook do:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1483
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1484
321c1729db5b initial checkin
penk
parents:
diff changeset
  1485
fileApplicationDo:selector withArg:arg
321c1729db5b initial checkin
penk
parents:
diff changeset
  1486
    ^ self application:#FileApplicationNoteBook do:selector withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1487
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1488
321c1729db5b initial checkin
penk
parents:
diff changeset
  1489
fileGetInfo:longInfo 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1490
    "get info on selected file - show it in a box"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1491
321c1729db5b initial checkin
penk
parents:
diff changeset
  1492
    |string box updater|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1493
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1494
    string := self getFileInfoStringForFirstSelectedFile:longInfo.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1495
    string notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1496
        box := InfoBox title:string.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1497
        updater := [
321c1729db5b initial checkin
penk
parents:
diff changeset
  1498
                    [true] whileTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1499
                        Delay waitForSeconds:2.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1500
                        string := self getFileInfoStringForFirstSelectedFile:longInfo.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1501
                        string isNil ifTrue:[ ^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1502
                        box title:string
321c1729db5b initial checkin
penk
parents:
diff changeset
  1503
                    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1504
                ] fork.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1505
        box showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1506
        updater terminate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1507
        box destroy
321c1729db5b initial checkin
penk
parents:
diff changeset
  1508
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1509
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1510
321c1729db5b initial checkin
penk
parents:
diff changeset
  1511
gotoFile:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  1512
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1513
    " select only if the file is not already in selection"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1514
    | currentSel |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1515
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1516
    currentSel := self currentFileNameHolder value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1517
    ((currentSel findFirst:[:aFile| aFile = aFilename]) == 0) ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1518
        self currentFileNameHolder value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1519
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1520
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1521
321c1729db5b initial checkin
penk
parents:
diff changeset
  1522
openApplByFileItem:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1523
321c1729db5b initial checkin
penk
parents:
diff changeset
  1524
    self fileApplicationDo:#openApplByFileItem: withArg:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1525
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1526
321c1729db5b initial checkin
penk
parents:
diff changeset
  1527
openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1528
321c1729db5b initial checkin
penk
parents:
diff changeset
  1529
    ^ self fileApplicationDo:#openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1530
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1531
321c1729db5b initial checkin
penk
parents:
diff changeset
  1532
openSearchFileOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1533
321c1729db5b initial checkin
penk
parents:
diff changeset
  1534
    ^ self fileApplicationDo:#openSearchFileOn: withArg:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1535
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1536
321c1729db5b initial checkin
penk
parents:
diff changeset
  1537
openTextEditorOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1538
321c1729db5b initial checkin
penk
parents:
diff changeset
  1539
    ^ self fileApplicationDo:#openTextEditorOn: withArg:aItem 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1540
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1541
321c1729db5b initial checkin
penk
parents:
diff changeset
  1542
updateAndSelect:aColOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  1543
321c1729db5b initial checkin
penk
parents:
diff changeset
  1544
    self application:#DirectoryContentsBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1545
    self application:#DirectoryTreeBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1546
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1547
    aColOfFiles notNil ifTrue:[ self currentFileNameHolder value:aColOfFiles ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1548
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1549
321c1729db5b initial checkin
penk
parents:
diff changeset
  1550
updateCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1551
321c1729db5b initial checkin
penk
parents:
diff changeset
  1552
    self updateAndSelect:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1553
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1554
321c1729db5b initial checkin
penk
parents:
diff changeset
  1555
!AbstractFileBrowser methodsFor:'actions bookmarks'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1556
321c1729db5b initial checkin
penk
parents:
diff changeset
  1557
addBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  1558
321c1729db5b initial checkin
penk
parents:
diff changeset
  1559
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1560
321c1729db5b initial checkin
penk
parents:
diff changeset
  1561
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1562
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1563
    self addBookmark:directories.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1564
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1565
321c1729db5b initial checkin
penk
parents:
diff changeset
  1566
addBookmark:aColOfDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  1567
    |idx bookmarks|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1568
321c1729db5b initial checkin
penk
parents:
diff changeset
  1569
    aColOfDirectories do:[ : path |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1570
        bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1571
        idx := bookmarks indexOf:path.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1572
        idx == 0 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1573
            bookmarks addLast:path.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1574
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1575
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1576
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1577
321c1729db5b initial checkin
penk
parents:
diff changeset
  1578
hasBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
  1579
    ^ self class directoryBookmarks size > 0
321c1729db5b initial checkin
penk
parents:
diff changeset
  1580
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1581
321c1729db5b initial checkin
penk
parents:
diff changeset
  1582
hasBookmarksToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  1583
321c1729db5b initial checkin
penk
parents:
diff changeset
  1584
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1585
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1586
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1587
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1588
    ^ (bookmarks size > 0 and:[directories notEmpty])
321c1729db5b initial checkin
penk
parents:
diff changeset
  1589
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1590
321c1729db5b initial checkin
penk
parents:
diff changeset
  1591
removeBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  1592
321c1729db5b initial checkin
penk
parents:
diff changeset
  1593
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1594
321c1729db5b initial checkin
penk
parents:
diff changeset
  1595
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1596
    bookmarks isNil ifTrue:[ ^ self].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1597
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1598
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1599
    directories do:[:dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1600
        bookmarks remove:dir ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1601
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1602
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1603
321c1729db5b initial checkin
penk
parents:
diff changeset
  1604
!AbstractFileBrowser methodsFor:'actions history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1605
321c1729db5b initial checkin
penk
parents:
diff changeset
  1606
addToCommandHistory:aCommandString for:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  1607
    |cmd suffix cmdHist|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1608
321c1729db5b initial checkin
penk
parents:
diff changeset
  1609
    cmdHist := self class commandHistory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1610
    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1611
        cmdHist notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1612
            cmdHist addFirst:aCommandString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1613
            cmdHist size > self class commandHistorySize ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1614
                cmdHist removeLast
321c1729db5b initial checkin
penk
parents:
diff changeset
  1615
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1616
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1617
        aFilename notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1618
            cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1619
            DefaultCommandPerSuffix isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1620
                DefaultCommandPerSuffix := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1621
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1622
            suffix := aFilename asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1623
            suffix notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1624
                DefaultCommandPerSuffix at:suffix put:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1625
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1626
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1627
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1628
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1629
321c1729db5b initial checkin
penk
parents:
diff changeset
  1630
doBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  1631
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1632
    | fileName|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1633
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1634
    fileName := self dirHistory goBack.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1635
    fileName notNil ifTrue:[
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  1636
        self gotoFile:(fileName asFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1637
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1638
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1639
321c1729db5b initial checkin
penk
parents:
diff changeset
  1640
doForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  1641
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1642
    | fileName|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1643
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  1644
    fileName := self dirHistory goForward.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1645
    fileName notNil ifTrue:[
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  1646
        self gotoFile:(fileName asFilename).
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1647
    ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1648
        self enableForward value:false.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1649
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  1650
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1651
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1652
321c1729db5b initial checkin
penk
parents:
diff changeset
  1653
!AbstractFileBrowser methodsFor:'applications'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1654
321c1729db5b initial checkin
penk
parents:
diff changeset
  1655
application:aApplication do:aMethod 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1656
321c1729db5b initial checkin
penk
parents:
diff changeset
  1657
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1658
321c1729db5b initial checkin
penk
parents:
diff changeset
  1659
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1660
    appl notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1661
        ^ appl perform:aMethod.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1662
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1663
    ^ nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1664
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1665
321c1729db5b initial checkin
penk
parents:
diff changeset
  1666
application:aApplication do:aMethod withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1667
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1668
321c1729db5b initial checkin
penk
parents:
diff changeset
  1669
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1670
    appl notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1671
        ^ appl perform:aMethod with:arg
321c1729db5b initial checkin
penk
parents:
diff changeset
  1672
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1673
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1674
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1675
321c1729db5b initial checkin
penk
parents:
diff changeset
  1676
application:aApplication do:aMethod withArg:arg1 withArg:arg2
321c1729db5b initial checkin
penk
parents:
diff changeset
  1677
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1678
321c1729db5b initial checkin
penk
parents:
diff changeset
  1679
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1680
    appl notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1681
        (arg1 notNil and:[arg2 notNil]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1682
            ^ appl perform:aMethod with:arg1 with:arg2
321c1729db5b initial checkin
penk
parents:
diff changeset
  1683
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1684
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1685
    ^ nil
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  1686
!
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  1687
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  1688
directoryContentsBrowser
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  1689
    ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1690
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1691
321c1729db5b initial checkin
penk
parents:
diff changeset
  1692
!AbstractFileBrowser methodsFor:'aspects'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1693
321c1729db5b initial checkin
penk
parents:
diff changeset
  1694
applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  1695
    "returns the list of registered applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  1696
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1697
    ^ aspects at:#applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  1698
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1699
321c1729db5b initial checkin
penk
parents:
diff changeset
  1700
backgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  1701
321c1729db5b initial checkin
penk
parents:
diff changeset
  1702
    ^ self aspectFor:#backgroundProcesses ifAbsent:[List new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1703
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1704
321c1729db5b initial checkin
penk
parents:
diff changeset
  1705
currentDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  1706
321c1729db5b initial checkin
penk
parents:
diff changeset
  1707
    " returns a Ordered Collection of all directories currently selected 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1708
      if only a file is selected currentDirectories holds the directory of the file
321c1729db5b initial checkin
penk
parents:
diff changeset
  1709
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1710
321c1729db5b initial checkin
penk
parents:
diff changeset
  1711
    ^ self aspectFor:#currentDirectories ifAbsent:[ (OrderedCollection new) asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1712
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1713
321c1729db5b initial checkin
penk
parents:
diff changeset
  1714
currentFileNameHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1715
321c1729db5b initial checkin
penk
parents:
diff changeset
  1716
    " returns a OrderedCollection of all files that are selected
321c1729db5b initial checkin
penk
parents:
diff changeset
  1717
      if no file but a directory is selected it contains the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1718
      in contrast to currentDirectories wich have only the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1719
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1720
321c1729db5b initial checkin
penk
parents:
diff changeset
  1721
    ^ self aspectFor:#currentFileNameHolder ifAbsent:[(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1722
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1723
321c1729db5b initial checkin
penk
parents:
diff changeset
  1724
enableDirectoryUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1725
321c1729db5b initial checkin
penk
parents:
diff changeset
  1726
    ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1727
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1728
321c1729db5b initial checkin
penk
parents:
diff changeset
  1729
enableHome
321c1729db5b initial checkin
penk
parents:
diff changeset
  1730
321c1729db5b initial checkin
penk
parents:
diff changeset
  1731
    ^ self aspectFor:#enableHome ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1732
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1733
321c1729db5b initial checkin
penk
parents:
diff changeset
  1734
enableViewNoteBookApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1735
321c1729db5b initial checkin
penk
parents:
diff changeset
  1736
    ^ self aspectFor:#enableViewNoteBookApplication ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1737
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1738
321c1729db5b initial checkin
penk
parents:
diff changeset
  1739
hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  1740
321c1729db5b initial checkin
penk
parents:
diff changeset
  1741
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1742
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1743
321c1729db5b initial checkin
penk
parents:
diff changeset
  1744
notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
  1745
321c1729db5b initial checkin
penk
parents:
diff changeset
  1746
    ^ self aspectFor:#notifyChannel ifAbsent:['' asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1747
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1748
321c1729db5b initial checkin
penk
parents:
diff changeset
  1749
!AbstractFileBrowser methodsFor:'aspects handling'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1750
321c1729db5b initial checkin
penk
parents:
diff changeset
  1751
aspectFor:something ifAbsent:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1752
    "returns the model for an aspect
321c1729db5b initial checkin
penk
parents:
diff changeset
  1753
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1754
    |holder saveAspectItem|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1755
321c1729db5b initial checkin
penk
parents:
diff changeset
  1756
    (holder := aspects at:something ifAbsent:nil) isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1757
        saveAspectItem := self settingsAspectValueFor:something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1758
        saveAspectItem isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1759
            saveAspectItem := self runtimeAspectValueFor:something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1760
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1761
        saveAspectItem notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1762
            saveAspectItem isHolder ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1763
                holder := ValueHolder with:saveAspectItem value 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1764
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1765
                holder := saveAspectItem value 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1766
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1767
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  1768
             holder := aBlock value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1769
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1770
        holder notNil ifTrue:[        
321c1729db5b initial checkin
penk
parents:
diff changeset
  1771
            aspects at:something put:holder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1772
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1773
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1774
    ^ holder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1775
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1776
321c1729db5b initial checkin
penk
parents:
diff changeset
  1777
aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  1778
    ^ aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  1779
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1780
321c1729db5b initial checkin
penk
parents:
diff changeset
  1781
runtimeAspectValueFor:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  1782
    "returns the default aspect item from the class variable RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  1783
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1784
    ^ self class runtimeAspects at:something ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1785
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1786
321c1729db5b initial checkin
penk
parents:
diff changeset
  1787
saveRuntimeAspectValues
321c1729db5b initial checkin
penk
parents:
diff changeset
  1788
    |savedAspects dictionary value isHolder aspect|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1789
321c1729db5b initial checkin
penk
parents:
diff changeset
  1790
    savedAspects := self class listOfRuntimeValuesToRemark.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1791
    dictionary := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1792
    savedAspects do:[ : aspectKey |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1793
        aspect := self perform:aspectKey.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1794
        isHolder := aspect isValueModel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1795
        isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1796
        dictionary at:aspectKey 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1797
                   put:(SaveAspectItem withValue:value isHolder:isHolder)
321c1729db5b initial checkin
penk
parents:
diff changeset
  1798
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1799
        
321c1729db5b initial checkin
penk
parents:
diff changeset
  1800
    RuntimeAspects := dictionary. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1801
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1802
321c1729db5b initial checkin
penk
parents:
diff changeset
  1803
saveSettingsAspectValues
321c1729db5b initial checkin
penk
parents:
diff changeset
  1804
    |savedAspects dictionary value isHolder aspect|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1805
321c1729db5b initial checkin
penk
parents:
diff changeset
  1806
    savedAspects := self class listOfSavedSettingsAspects.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1807
    dictionary := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1808
    savedAspects do:[ : aspectKey |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1809
        aspect := self perform:aspectKey.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1810
        isHolder := aspect isValueModel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1811
        isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1812
        dictionary at:aspectKey
321c1729db5b initial checkin
penk
parents:
diff changeset
  1813
                   put:(SaveAspectItem withValue:value isHolder:isHolder)
321c1729db5b initial checkin
penk
parents:
diff changeset
  1814
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1815
321c1729db5b initial checkin
penk
parents:
diff changeset
  1816
    SettingsAspects := dictionary. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1817
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1818
321c1729db5b initial checkin
penk
parents:
diff changeset
  1819
settingsAspectValueFor:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  1820
    "returns the default aspect from the class variable Aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  1821
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1822
    ^ self class settingsAspects at:something ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1823
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1824
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1825
!AbstractFileBrowser methodsFor:'aspects-filter'!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1826
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1827
filterBackgroundColor
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1828
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1829
    ^ self aspectFor:#filterBackgroundColor ifAbsent:[Color white asValue]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1830
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1831
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1832
filterBlockHolder
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1833
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1834
    ^ self aspectFor:#filterBlockHolder ifAbsent:[self getFilter asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1835
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1836
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1837
filterListModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1838
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1839
    ^ self aspectFor:#filterListModel ifAbsent:[self class defaultFilterList]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1840
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1841
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1842
filterModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1843
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1844
    ^ self aspectFor:#filterModel ifAbsent:[(self filterListModel at:1) asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1845
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1846
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1847
filterValueBox
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1848
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1849
    ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1850
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1851
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1852
getFilter
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1853
    | filter showHidden|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1854
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1855
    filter := self filterModel value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1856
    filter = '' ifTrue:[filter := '*'].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1857
    showHidden := self showHiddenFiles value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1858
    showHidden ifTrue:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1859
        ^ [: el | filter match:el].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1860
    ] ifFalse:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1861
        ^ [: el | ((el asString startsWith:'.') not) and:[filter match:el]].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1862
    ]
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1863
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1864
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1865
shownFiles
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1866
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1867
    ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1868
! !
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  1869
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1870
!AbstractFileBrowser methodsFor:'aspects-history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1871
321c1729db5b initial checkin
penk
parents:
diff changeset
  1872
dirHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1873
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  1874
    ^ self class directoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1875
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1876
321c1729db5b initial checkin
penk
parents:
diff changeset
  1877
enableBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  1878
321c1729db5b initial checkin
penk
parents:
diff changeset
  1879
    ^ self aspectFor:#enableBack ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1880
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1881
321c1729db5b initial checkin
penk
parents:
diff changeset
  1882
enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1883
321c1729db5b initial checkin
penk
parents:
diff changeset
  1884
    ^ self aspectFor:#enableFileHistory ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1885
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1886
321c1729db5b initial checkin
penk
parents:
diff changeset
  1887
enableForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  1888
321c1729db5b initial checkin
penk
parents:
diff changeset
  1889
    ^ self aspectFor:#enableForward ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1890
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1891
321c1729db5b initial checkin
penk
parents:
diff changeset
  1892
fileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1893
321c1729db5b initial checkin
penk
parents:
diff changeset
  1894
    ^ self aspectFor:#fileHistory ifAbsent:[FilenameHistory new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1895
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1896
321c1729db5b initial checkin
penk
parents:
diff changeset
  1897
!AbstractFileBrowser methodsFor:'aspects-visibility'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1898
321c1729db5b initial checkin
penk
parents:
diff changeset
  1899
filenameEntryFieldVisibleHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1900
321c1729db5b initial checkin
penk
parents:
diff changeset
  1901
    ^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1902
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1903
321c1729db5b initial checkin
penk
parents:
diff changeset
  1904
openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
  1905
321c1729db5b initial checkin
penk
parents:
diff changeset
  1906
    ^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1907
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1908
321c1729db5b initial checkin
penk
parents:
diff changeset
  1909
showDirectoryTreeHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1910
321c1729db5b initial checkin
penk
parents:
diff changeset
  1911
    | |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1912
321c1729db5b initial checkin
penk
parents:
diff changeset
  1913
    ^ self aspectFor:#showDirectoryTreeHolder ifAbsent:[ true asValue ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1914
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1915
321c1729db5b initial checkin
penk
parents:
diff changeset
  1916
showHiddenFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  1917
321c1729db5b initial checkin
penk
parents:
diff changeset
  1918
    ^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1919
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1920
321c1729db5b initial checkin
penk
parents:
diff changeset
  1921
toolBarVisibleHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1922
321c1729db5b initial checkin
penk
parents:
diff changeset
  1923
    ^ self aspectFor:#toolBarVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1924
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1925
321c1729db5b initial checkin
penk
parents:
diff changeset
  1926
viewDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  1927
321c1729db5b initial checkin
penk
parents:
diff changeset
  1928
    ^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1929
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1930
321c1729db5b initial checkin
penk
parents:
diff changeset
  1931
viewDetails
321c1729db5b initial checkin
penk
parents:
diff changeset
  1932
321c1729db5b initial checkin
penk
parents:
diff changeset
  1933
    ^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1934
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1935
321c1729db5b initial checkin
penk
parents:
diff changeset
  1936
viewDirectoriesInDirectoryContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  1937
321c1729db5b initial checkin
penk
parents:
diff changeset
  1938
    ^ self aspectFor:#viewDirectoriesInDirectoryContentsBrowser ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1939
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1940
321c1729db5b initial checkin
penk
parents:
diff changeset
  1941
viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  1942
321c1729db5b initial checkin
penk
parents:
diff changeset
  1943
    ^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1944
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1945
321c1729db5b initial checkin
penk
parents:
diff changeset
  1946
viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
  1947
321c1729db5b initial checkin
penk
parents:
diff changeset
  1948
    ^ self aspectFor:#viewFilesInDirectoryTree ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1949
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1950
321c1729db5b initial checkin
penk
parents:
diff changeset
  1951
viewGroup
321c1729db5b initial checkin
penk
parents:
diff changeset
  1952
321c1729db5b initial checkin
penk
parents:
diff changeset
  1953
    ^ self aspectFor:#viewGroup ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1954
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1955
321c1729db5b initial checkin
penk
parents:
diff changeset
  1956
viewNoteBookApplicationHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  1957
321c1729db5b initial checkin
penk
parents:
diff changeset
  1958
    ^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1959
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1960
321c1729db5b initial checkin
penk
parents:
diff changeset
  1961
viewOwner
321c1729db5b initial checkin
penk
parents:
diff changeset
  1962
321c1729db5b initial checkin
penk
parents:
diff changeset
  1963
    ^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1964
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1965
321c1729db5b initial checkin
penk
parents:
diff changeset
  1966
viewPermissions
321c1729db5b initial checkin
penk
parents:
diff changeset
  1967
321c1729db5b initial checkin
penk
parents:
diff changeset
  1968
    ^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1969
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1970
321c1729db5b initial checkin
penk
parents:
diff changeset
  1971
viewPreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  1972
321c1729db5b initial checkin
penk
parents:
diff changeset
  1973
    ^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1974
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1975
321c1729db5b initial checkin
penk
parents:
diff changeset
  1976
viewSize
321c1729db5b initial checkin
penk
parents:
diff changeset
  1977
321c1729db5b initial checkin
penk
parents:
diff changeset
  1978
    ^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1979
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1980
321c1729db5b initial checkin
penk
parents:
diff changeset
  1981
viewTime
321c1729db5b initial checkin
penk
parents:
diff changeset
  1982
321c1729db5b initial checkin
penk
parents:
diff changeset
  1983
    ^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1984
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1985
321c1729db5b initial checkin
penk
parents:
diff changeset
  1986
viewType
321c1729db5b initial checkin
penk
parents:
diff changeset
  1987
321c1729db5b initial checkin
penk
parents:
diff changeset
  1988
    ^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1989
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1990
321c1729db5b initial checkin
penk
parents:
diff changeset
  1991
!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1992
321c1729db5b initial checkin
penk
parents:
diff changeset
  1993
executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  1994
321c1729db5b initial checkin
penk
parents:
diff changeset
  1995
    self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1996
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1997
321c1729db5b initial checkin
penk
parents:
diff changeset
  1998
executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  1999
321c1729db5b initial checkin
penk
parents:
diff changeset
  2000
    | nameString executionBlock|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2001
321c1729db5b initial checkin
penk
parents:
diff changeset
  2002
    executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2003
    nameString := 'Command> ', cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2004
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2005
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2006
321c1729db5b initial checkin
penk
parents:
diff changeset
  2007
getExecutionBlockForCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2008
321c1729db5b initial checkin
penk
parents:
diff changeset
  2009
    ^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2010
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2011
321c1729db5b initial checkin
penk
parents:
diff changeset
  2012
getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2013
321c1729db5b initial checkin
penk
parents:
diff changeset
  2014
    | dir dirs|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2015
321c1729db5b initial checkin
penk
parents:
diff changeset
  2016
    dir := aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2017
    aDir isNil ifTrue:[
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2018
        dirs := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2019
        dirs size ~= 1 ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2020
        dir := dirs anElement.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2021
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2022
    ^ [:stream| stream notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2023
            OperatingSystem 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2024
                executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2025
                inputFrom:nil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2026
                outputTo:stream 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2027
                errorTo:stream 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2028
                inDirectory:dir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2029
                onError:[:status| false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2030
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2031
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2032
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2033
321c1729db5b initial checkin
penk
parents:
diff changeset
  2034
killAllRunningBackgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2035
321c1729db5b initial checkin
penk
parents:
diff changeset
  2036
    self backgroundProcesses do:[ : process |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2037
        self notifyChannel value:'kill ', process name.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2038
        process terminate.    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2039
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2040
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2041
321c1729db5b initial checkin
penk
parents:
diff changeset
  2042
makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2043
    | stream process appl nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2044
321c1729db5b initial checkin
penk
parents:
diff changeset
  2045
    appl := self openCommandResultApplication.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2046
    stream := appl resultStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2047
    nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2048
    appl changeTabTo:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2049
    process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2050
        self backgroundProcesses remove:process ifAbsent:[].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2051
        appl process value:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2052
    ]] newProcess.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2053
    process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2054
    process name:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2055
    self backgroundProcesses add:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2056
    appl process value:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2057
    process resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2058
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2059
321c1729db5b initial checkin
penk
parents:
diff changeset
  2060
!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2061
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2062
abstractCurrentFileNameHolderChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2063
    " do here all the things that have to be done for every part of the FileBrowserV2
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2064
      and the things that have to be done if it runs standalone "
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2065
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2066
    | newDirectories oldDirectories size rootInTreeView holder|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2067
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2068
    holder := self currentFileNameHolder value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2069
    self hasSelection value:(holder value notEmpty).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2070
    newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2071
    oldDirectories := self currentDirectories value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2072
    oldDirectories ~= newDirectories ifTrue:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2073
        self currentDirectories value:newDirectories.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2074
        size := newDirectories size.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2075
        rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2076
        rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2077
        self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]).
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2078
        newDirectories notEmpty ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2079
            newDirectories do:[: dir |
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2080
                self dirHistory addToHistory:(dir asString).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2081
            ].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2082
        ].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2083
        self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2084
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2085
    self enableForward value:self canForward.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2086
    self enableBack value:self canBack.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2087
    ^ self
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2088
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2089
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2090
filterModelChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2091
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2092
    self filterBlockHolder value:(self getFilter).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2093
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2094
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2095
update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2096
321c1729db5b initial checkin
penk
parents:
diff changeset
  2097
    " do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2098
      and the things that have to be done if it runs standalone "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2099
321c1729db5b initial checkin
penk
parents:
diff changeset
  2100
    changedObject == self currentFileNameHolder ifTrue:[
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2101
        self abstractCurrentFileNameHolderChanged.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2102
        ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  2103
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2104
    changedObject == self sortCaseless ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2105
        self sortFileListsBy:#baseName withReverse:false.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2106
        ^ self
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2107
    ].             
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2108
    changedObject == self sortBlockProperty ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2109
        self sortFileListsBy:(self sortBlockProperty value) withReverse:false.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2110
        ^ self.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2111
    ].             
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2112
    (changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2113
        self filterModelChanged.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2114
        ^ self
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2115
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2116
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2117
    super update:something with:aParameter from:changedObject
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2118
!
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2119
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2120
updateFilterBoxColor
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2121
    ^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2122
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2123
321c1729db5b initial checkin
penk
parents:
diff changeset
  2124
!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2125
321c1729db5b initial checkin
penk
parents:
diff changeset
  2126
canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
  2127
321c1729db5b initial checkin
penk
parents:
diff changeset
  2128
    ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2129
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2130
321c1729db5b initial checkin
penk
parents:
diff changeset
  2131
clipboard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2132
321c1729db5b initial checkin
penk
parents:
diff changeset
  2133
    ^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2134
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2135
321c1729db5b initial checkin
penk
parents:
diff changeset
  2136
copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2137
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2138
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2139
    self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2140
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2141
321c1729db5b initial checkin
penk
parents:
diff changeset
  2142
cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2143
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2144
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2145
    self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2146
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2147
321c1729db5b initial checkin
penk
parents:
diff changeset
  2148
emptyClipBoard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2149
321c1729db5b initial checkin
penk
parents:
diff changeset
  2150
    self clipboard files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2151
    self canPaste value:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2152
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2153
321c1729db5b initial checkin
penk
parents:
diff changeset
  2154
putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2155
321c1729db5b initial checkin
penk
parents:
diff changeset
  2156
    | stream clp|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2157
321c1729db5b initial checkin
penk
parents:
diff changeset
  2158
    colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2159
    clp := self clipboard.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2160
    clp files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2161
    clp method:aSymbol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2162
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2163
    stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2164
    stream nextPutAll:' <'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2165
    stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2166
    colOfFiles size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2167
        stream nextPutAll:' ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2168
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2169
    stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2170
321c1729db5b initial checkin
penk
parents:
diff changeset
  2171
    self notifyChannel value:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2172
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2173
    clp files:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2174
    self canPaste value:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2175
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2176
321c1729db5b initial checkin
penk
parents:
diff changeset
  2177
!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2178
321c1729db5b initial checkin
penk
parents:
diff changeset
  2179
canDropArchiv:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2180
321c1729db5b initial checkin
penk
parents:
diff changeset
  2181
    (filename isDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2182
    and:[filename isWritable and:[dropedObjects notEmpty]])  ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2183
        ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2184
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2185
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2186
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2187
321c1729db5b initial checkin
penk
parents:
diff changeset
  2188
canDropFiles:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2189
    | checkObject filenameDirString checkObjectString filenameDir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2190
321c1729db5b initial checkin
penk
parents:
diff changeset
  2191
    dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2192
    filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2193
    filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2194
    filenameDirString := filenameDir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2195
    dropedObjects do:[:aObject | 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2196
        checkObject := aObject theObject.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2197
        checkObjectString := checkObject asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2198
        checkObject isDirectory ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2199
            (self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2200
                " can not drop a directory in his parents "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2201
                ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2202
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2203
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2204
            (filenameDirString = checkObject directory asString 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2205
            or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2206
                " can not drop a file in same directory "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2207
                ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2208
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2209
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2210
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2211
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2212
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2213
321c1729db5b initial checkin
penk
parents:
diff changeset
  2214
doStartDrag:aDropSource in:aView
321c1729db5b initial checkin
penk
parents:
diff changeset
  2215
    "set the cursors before starting the drag & drop operation
321c1729db5b initial checkin
penk
parents:
diff changeset
  2216
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2217
    |hdl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2218
321c1729db5b initial checkin
penk
parents:
diff changeset
  2219
321c1729db5b initial checkin
penk
parents:
diff changeset
  2220
    hdl := DragAndDropManager new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2221
321c1729db5b initial checkin
penk
parents:
diff changeset
  2222
    hdl disabledCursor:self class DisabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2223
    hdl enabledCursor:self class EnabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2224
    hdl alienCursor:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2225
321c1729db5b initial checkin
penk
parents:
diff changeset
  2226
    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin
penk
parents:
diff changeset
  2227
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2228
321c1729db5b initial checkin
penk
parents:
diff changeset
  2229
!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2230
321c1729db5b initial checkin
penk
parents:
diff changeset
  2231
copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2232
    "copy to
321c1729db5b initial checkin
penk
parents:
diff changeset
  2233
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2234
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2235
321c1729db5b initial checkin
penk
parents:
diff changeset
  2236
    copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2237
    copy result ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2238
        self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2239
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2240
        self notifyChannel value:copy errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2241
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2242
    ^ copy result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2243
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2244
321c1729db5b initial checkin
penk
parents:
diff changeset
  2245
copyFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2246
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2247
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2248
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2249
321c1729db5b initial checkin
penk
parents:
diff changeset
  2250
    copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2251
    copy result ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2252
        self notifyChannel value:copy errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2253
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2254
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2255
    ^ copy colOfCopiedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2256
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2257
321c1729db5b initial checkin
penk
parents:
diff changeset
  2258
copyOrMoveDialog:aCol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2259
321c1729db5b initial checkin
penk
parents:
diff changeset
  2260
    | size stream dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2261
321c1729db5b initial checkin
penk
parents:
diff changeset
  2262
    size := aCol size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2263
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2264
    stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2265
    size == 1 ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2266
        stream nextPutAll:'s'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2267
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2268
    stream nextPutAll:': '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2269
    stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2270
    size == 1 ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2271
        stream nextPutAll:' ... '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2272
        stream nextPutAll:aCol last baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2273
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2274
321c1729db5b initial checkin
penk
parents:
diff changeset
  2275
    dialog := OptionBox 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2276
                  request:stream contents 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2277
                  label:'move or copy'
321c1729db5b initial checkin
penk
parents:
diff changeset
  2278
                  form:(WarningBox iconBitmap)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2279
                  buttonLabels:#('cancel' 'move' 'copy')
321c1729db5b initial checkin
penk
parents:
diff changeset
  2280
                  values:#(#cancel #move #copy)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2281
                  default:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2282
    dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2283
    ^ dialog.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2284
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2285
321c1729db5b initial checkin
penk
parents:
diff changeset
  2286
copyOrMoveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2287
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2288
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2289
    |dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2290
321c1729db5b initial checkin
penk
parents:
diff changeset
  2291
    dialog := self copyOrMoveDialog:aColOfSourceFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2292
    dialog == #copy ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2293
        self copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2294
        ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2295
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2296
    dialog == #move ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2297
        self moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2298
        ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2299
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2300
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2301
321c1729db5b initial checkin
penk
parents:
diff changeset
  2302
deleteFile:aFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2303
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2304
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2305
321c1729db5b initial checkin
penk
parents:
diff changeset
  2306
    ^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2307
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2308
321c1729db5b initial checkin
penk
parents:
diff changeset
  2309
deleteFiles:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2310
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2311
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2312
    |delete|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2313
321c1729db5b initial checkin
penk
parents:
diff changeset
  2314
    delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2315
    delete result ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2316
        self notifyChannel value:delete errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2317
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2318
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2319
    ^ delete result.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2320
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2321
321c1729db5b initial checkin
penk
parents:
diff changeset
  2322
moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2323
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2324
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2325
321c1729db5b initial checkin
penk
parents:
diff changeset
  2326
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2327
321c1729db5b initial checkin
penk
parents:
diff changeset
  2328
    move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2329
    move result ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2330
        self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2331
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2332
        self notifyChannel value:move errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2333
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2334
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2335
    ^ move result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2336
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2337
321c1729db5b initial checkin
penk
parents:
diff changeset
  2338
moveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2339
   "move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2340
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2341
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2342
321c1729db5b initial checkin
penk
parents:
diff changeset
  2343
    move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2344
    move result ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2345
        self notifyChannel value:move errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2346
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2347
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2348
    ^ move colOfMovedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2349
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2350
321c1729db5b initial checkin
penk
parents:
diff changeset
  2351
newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2352
    "ask for and create a new directory"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2353
321c1729db5b initial checkin
penk
parents:
diff changeset
  2354
    | directories directory create newFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2355
321c1729db5b initial checkin
penk
parents:
diff changeset
  2356
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2357
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2358
    directory := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2359
    create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2360
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2361
    newFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2362
    newFile notNil ifTrue:[
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2363
        self updateCurrentDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2364
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2365
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2366
321c1729db5b initial checkin
penk
parents:
diff changeset
  2367
newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2368
    "ask for and create a new file"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2369
321c1729db5b initial checkin
penk
parents:
diff changeset
  2370
    | curFile directories directory create file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2371
321c1729db5b initial checkin
penk
parents:
diff changeset
  2372
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2373
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2374
    directory := directories first.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2375
    curFile := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2376
    curFile notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2377
        file := curFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2378
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2379
        file := directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2380
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2381
    create := FileOperation create createFileIn:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2382
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2383
    self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2384
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2385
321c1729db5b initial checkin
penk
parents:
diff changeset
  2386
newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2387
    "ask for and create a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2388
321c1729db5b initial checkin
penk
parents:
diff changeset
  2389
    self newLink:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2390
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2391
321c1729db5b initial checkin
penk
parents:
diff changeset
  2392
newLink:symbolic
321c1729db5b initial checkin
penk
parents:
diff changeset
  2393
321c1729db5b initial checkin
penk
parents:
diff changeset
  2394
    "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2395
321c1729db5b initial checkin
penk
parents:
diff changeset
  2396
    | sel create createdFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2397
321c1729db5b initial checkin
penk
parents:
diff changeset
  2398
    sel := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2399
    (sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2400
    symbolic ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2401
        create := FileOperation create createSoftLinkIn:(sel first).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2402
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2403
        create := FileOperation create createHardLinkIn:(sel first).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2404
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2405
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2406
    createdFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2407
    createdFile notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2408
        self updateAndSelect:(OrderedCollection with:createdFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2409
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2410
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2411
321c1729db5b initial checkin
penk
parents:
diff changeset
  2412
newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2413
    "ask for and create a soft link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2414
321c1729db5b initial checkin
penk
parents:
diff changeset
  2415
    self newLink:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2416
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2417
321c1729db5b initial checkin
penk
parents:
diff changeset
  2418
pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2419
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2420
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2421
    | buffer destination files directories copiedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2422
321c1729db5b initial checkin
penk
parents:
diff changeset
  2423
    files := self clipboard files.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2424
    (files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2425
    buffer := self clipboard copy.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2426
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2427
    directories isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2428
        |box dirStringCol|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2429
        dirStringCol := directories collect:[:aDir| aDir asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2430
        box := ListSelectionBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2431
        box title:'In which directory you want to paste ?'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2432
        box list:dirStringCol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2433
        box okAction:[:sel | destination := sel asFilename].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2434
        box showAtPointer
321c1729db5b initial checkin
penk
parents:
diff changeset
  2435
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2436
        destination := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2437
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2438
    copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2439
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2440
    (self clipboard method == #cut) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2441
        self deleteFiles:copiedFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2442
    ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2443
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2444
321c1729db5b initial checkin
penk
parents:
diff changeset
  2445
renameFile:aFile 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2446
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2447
321c1729db5b initial checkin
penk
parents:
diff changeset
  2448
    ^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2449
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2450
321c1729db5b initial checkin
penk
parents:
diff changeset
  2451
renameFile:filename to:newFileString  update:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  2452
    "rename filename to newFileString"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2453
321c1729db5b initial checkin
penk
parents:
diff changeset
  2454
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2455
321c1729db5b initial checkin
penk
parents:
diff changeset
  2456
    rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2457
    rename result ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2458
        aBoolean ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2459
            self updateAndSelect:(rename renamedFiles).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2460
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2461
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2462
        self notifyChannel value:rename errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2463
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2464
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2465
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2466
321c1729db5b initial checkin
penk
parents:
diff changeset
  2467
renameFiles:aColOfFiles 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2468
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2469
321c1729db5b initial checkin
penk
parents:
diff changeset
  2470
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2471
321c1729db5b initial checkin
penk
parents:
diff changeset
  2472
    rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2473
    rename result ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2474
        self notifyChannel value:rename errorString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2475
    ] ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2476
        self updateAndSelect:(rename renamedFiles)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2477
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2478
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2479
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2480
321c1729db5b initial checkin
penk
parents:
diff changeset
  2481
renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2482
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2483
321c1729db5b initial checkin
penk
parents:
diff changeset
  2484
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2485
321c1729db5b initial checkin
penk
parents:
diff changeset
  2486
    rename := FileOperation rename renameFiles:self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2487
    rename result ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2488
        self notifyChannel value:rename errorString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2489
    ] ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2490
        self updateAndSelect:(rename renamedFiles)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2491
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2492
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2493
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2494
321c1729db5b initial checkin
penk
parents:
diff changeset
  2495
!AbstractFileBrowser methodsFor:'font encoding'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2496
321c1729db5b initial checkin
penk
parents:
diff changeset
  2497
fileEncoding
321c1729db5b initial checkin
penk
parents:
diff changeset
  2498
    "open a dialog to allow change of the files character encoding.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2499
     Files are converted to internal encoding when read, and converted back
321c1729db5b initial checkin
penk
parents:
diff changeset
  2500
     to this encoding when saved.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2501
     The default encoding is nil, which means that files are already in
321c1729db5b initial checkin
penk
parents:
diff changeset
  2502
     the internal encoding (which is iso8859).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2503
     Notice: currently, not too many encodings are supported by the system."
321c1729db5b initial checkin
penk
parents:
diff changeset
  2504
321c1729db5b initial checkin
penk
parents:
diff changeset
  2505
    |dialog list descr encodings encodingNames idx|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2506
321c1729db5b initial checkin
penk
parents:
diff changeset
  2507
    list := SelectionInList new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2508
321c1729db5b initial checkin
penk
parents:
diff changeset
  2509
    descr := CharacterArray supportedExternalEncodings.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2510
    encodings := descr at:2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2511
    encodingNames := descr at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2512
321c1729db5b initial checkin
penk
parents:
diff changeset
  2513
    list list:encodingNames.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2514
    list selectionIndex:(encodings indexOf:(self fileEncodingHolder value) ifAbsent:1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2515
    dialog := Dialog new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2516
321c1729db5b initial checkin
penk
parents:
diff changeset
  2517
    dialog addTextLabel:('Specify the files encoding.\\The default (a 1-to-1 encoding) works for 7bit ascii\and iso8859 (= ANSI) encoded text files.\') withCRs.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2518
    dialog addVerticalSpace.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2519
    dialog addListBoxOn:list withNumberOfLines:5.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2520
321c1729db5b initial checkin
penk
parents:
diff changeset
  2521
    dialog addAbortAndOkButtons.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2522
    dialog open.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2523
321c1729db5b initial checkin
penk
parents:
diff changeset
  2524
    dialog accepted ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2525
        idx := list selectionIndex.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2526
        self fileEncodingHolder value:(encodings at:idx).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2527
"/        subView externalEncoding:fileEncoding.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2528
321c1729db5b initial checkin
penk
parents:
diff changeset
  2529
        self validateFontEncodingFor:(encodings at:idx) ask:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2530
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2531
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2532
321c1729db5b initial checkin
penk
parents:
diff changeset
  2533
fileEncodingHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2534
    "return/create the 'fileEncodingModel' value holder (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2535
321c1729db5b initial checkin
penk
parents:
diff changeset
  2536
    ^ self aspectFor:#fileEncodingHolder ifAbsent:[ValueHolder new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2537
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2538
321c1729db5b initial checkin
penk
parents:
diff changeset
  2539
preferredFontEncodingFor:fileEncoding
321c1729db5b initial checkin
penk
parents:
diff changeset
  2540
    "given a file encoding, return corresponding preferred fontEncoding
321c1729db5b initial checkin
penk
parents:
diff changeset
  2541
     match pattern"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2542
321c1729db5b initial checkin
penk
parents:
diff changeset
  2543
    |fe|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2544
321c1729db5b initial checkin
penk
parents:
diff changeset
  2545
    fe := MIMETypes fontForCharset:fileEncoding.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2546
    fe notNil ifTrue:[^ fe].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2547
    ^ 'iso8859*'
321c1729db5b initial checkin
penk
parents:
diff changeset
  2548
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2549
321c1729db5b initial checkin
penk
parents:
diff changeset
  2550
validateFontEncodingFor:newEncoding ask:ask
321c1729db5b initial checkin
penk
parents:
diff changeset
  2551
    "if required, query user if he/she wants to change to another font,
321c1729db5b initial checkin
penk
parents:
diff changeset
  2552
     which is able to display text encoded as specified by newEncoding"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2553
321c1729db5b initial checkin
penk
parents:
diff changeset
  2554
    |fontsEncoding msg filter f defaultFont pref|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2555
321c1729db5b initial checkin
penk
parents:
diff changeset
  2556
"/ PENK    fontsEncoding := subView font encoding.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2557
321c1729db5b initial checkin
penk
parents:
diff changeset
  2558
    pref := self preferredFontEncodingFor:newEncoding.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2559
321c1729db5b initial checkin
penk
parents:
diff changeset
  2560
    (pref match:fontsEncoding) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2561
        ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  2562
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2563
    "/ stupid ...
321c1729db5b initial checkin
penk
parents:
diff changeset
  2564
    pref = 'ascii*' ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2565
        (fontsEncoding match:'iso8859*') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2566
            ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  2567
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2568
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2569
321c1729db5b initial checkin
penk
parents:
diff changeset
  2570
    filter := [:f | |coding|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2571
                    (coding := f encoding) notNil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2572
                    and:[pref match:coding]].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2573
321c1729db5b initial checkin
penk
parents:
diff changeset
  2574
    defaultFont := TextView defaultFont onDevice:device.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2575
    (pref match:(defaultFont encoding)) ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2576
        defaultFont := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2577
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2578
321c1729db5b initial checkin
penk
parents:
diff changeset
  2579
    defaultFont isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2580
        (pref = 'ascii*'
321c1729db5b initial checkin
penk
parents:
diff changeset
  2581
        or:[pref = 'iso8859*']) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2582
            defaultFont := FontDescription family:'courier' face:'medium' style:'roman' size:12
321c1729db5b initial checkin
penk
parents:
diff changeset
  2583
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2584
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2585
321c1729db5b initial checkin
penk
parents:
diff changeset
  2586
    defaultFont isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2587
        defaultFont := device 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2588
                            listOfAvailableFonts 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2589
                                detect:[:f | filter value:f]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2590
                                ifNone:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2591
        defaultFont isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2592
321c1729db5b initial checkin
penk
parents:
diff changeset
  2593
            "/ flush list, and refetch font list
321c1729db5b initial checkin
penk
parents:
diff changeset
  2594
            "/ (in case someone just changed the font path ...)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2595
321c1729db5b initial checkin
penk
parents:
diff changeset
  2596
            device flushListOfAvailableFonts.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2597
            defaultFont := device 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2598
                                listOfAvailableFonts 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2599
                                    detect:[:f | filter value:f]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2600
                                    ifNone:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2601
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2602
321c1729db5b initial checkin
penk
parents:
diff changeset
  2603
        defaultFont isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2604
            Dialog warn:'your display does not seem to provide any ' , newEncoding , '-encoded font.'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2605
            ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2606
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2607
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2608
321c1729db5b initial checkin
penk
parents:
diff changeset
  2609
    msg := 'switch to a %1 encoded font ?'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2610
    (ask not or:[self confirm:(resources string:msg with:pref) withCRs])
321c1729db5b initial checkin
penk
parents:
diff changeset
  2611
    ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2612
        self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2613
            f := FontPanel 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2614
                fontFromUserInitial:defaultFont
321c1729db5b initial checkin
penk
parents:
diff changeset
  2615
                              title:(resources string:'font selection')
321c1729db5b initial checkin
penk
parents:
diff changeset
  2616
                             filter:filter.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2617
            f notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2618
"/ PENK               subView font:f
321c1729db5b initial checkin
penk
parents:
diff changeset
  2619
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2620
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2621
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2622
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2623
321c1729db5b initial checkin
penk
parents:
diff changeset
  2624
!AbstractFileBrowser methodsFor:'menu'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2625
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2626
bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2627
    "This resource specification was automatically generated
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2628
     by the MenuEditor of ST/X."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2629
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2630
    "Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2631
     the MenuEditor may not be able to read the specification."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2632
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2633
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2634
     MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2635
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2636
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2637
    <resource: #programMenu>
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2638
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2639
    |menu bookmarks|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2640
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2641
    menu := self class baseBookmarksMenuSpec.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2642
    menu := menu decodeAsLiteralArray.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2643
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2644
    bookmarks := self class directoryBookmarks.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2645
    "/ add the history items ...
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2646
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2647
    bookmarks size > 0 ifTrue:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2648
        menu addItem:(MenuItem labeled:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2649
        bookmarks do:[:dirName |
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2650
            menu addItem:((MenuItem label:dirName asString value:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2651
                (self currentDirectories value includes:dirName) ifFalse:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2652
                    self currentFileNameHolder value:(OrderedCollection with:dirName).
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2653
                ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2654
            ])).
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2655
        ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2656
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2657
    ^ menu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2658
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2659
    "Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2660
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2661
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2662
canBack
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2663
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  2664
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  2665
    ^ self dirHistory canBack.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2666
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2667
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2668
canForward
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2669
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2670
"/    | currentSelection |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2671
"/
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2672
"/    currentSelection := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2673
"/    currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2674
    
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2675
    ^ self dirHistory canForward.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2676
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2677
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2678
menuDirHistory:backOrForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2679
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  2680
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2681
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  2682
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2683
    |menu pathList currentSel currentPath|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2684
321c1729db5b initial checkin
penk
parents:
diff changeset
  2685
    menu := Menu new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2686
    menu receiver:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2687
321c1729db5b initial checkin
penk
parents:
diff changeset
  2688
    self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2689
    backOrForward == #back ifTrue:[
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2690
        currentSel := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2691
        currentSel size == 1 ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2692
            currentPath := currentSel first asString.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2693
        ] ifFalse:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2694
            currentPath := nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2695
        ].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2696
        pathList := self dirHistory getBackCollectionFrom:currentPath.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2697
    ] ifFalse:[
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2698
        pathList := self dirHistory getForwardCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2699
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2700
    pathList isEmpty ifTrue:[ ^ nil].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2701
    pathList do:[:aPath| 
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2702
        | menuItem |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2703
        menuItem := MenuItem new.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2704
        menuItem label:aPath.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2705
        menuItem value:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2706
            self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2707
        ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2708
        menu addItem:menuItem.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2709
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2710
    ^ menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  2711
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2712
321c1729db5b initial checkin
penk
parents:
diff changeset
  2713
menuDirHistoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2714
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  2715
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2716
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  2717
321c1729db5b initial checkin
penk
parents:
diff changeset
  2718
    ^ self menuDirHistory:#back.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2719
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2720
321c1729db5b initial checkin
penk
parents:
diff changeset
  2721
menuDirHistoryForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2722
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  2723
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2724
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  2725
321c1729db5b initial checkin
penk
parents:
diff changeset
  2726
    ^ self menuDirHistory:#forward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2727
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2728
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2729
menuFileHistory
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2730
    "initialize the file history menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2731
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2732
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2733
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2734
    |menu hist text removeItem removeCol|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2735
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2736
    menu := Menu new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2737
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2738
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2739
    hist := self fileHistory.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2740
    hist isEmpty ifTrue:[^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2741
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:'Clear File History'.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2742
    removeCol := OrderedCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2743
    hist do:[:aFileItem|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2744
        aFileItem fileName exists ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2745
            menu addItem:(MenuItem label: aFileItem fileName asString value:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2746
                self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2747
                self openApplByFileItem:aFileItem
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2748
            ]).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2749
        ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2750
            removeCol add:aFileItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2751
        ]
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2752
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2753
    "/ remove all not existing history entries
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2754
    removeCol do:[ : el |
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2755
        hist remove:el.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2756
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2757
    removeItem := MenuItem label:text value:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2758
        self fileHistory removeAll.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2759
        self enableFileHistory value:false.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2760
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2761
    menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2762
    menu addItem:removeItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2763
    ^ menu
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2764
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2765
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2766
visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2767
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2768
    <resource: #programMenu >
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2769
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2770
    |menu histCopy text removeItem|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2771
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2772
    menu := Menu new.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2773
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2774
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2775
    self dirHistory isEmpty ifTrue:[^ nil].
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  2776
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2777
    removeItem := MenuItem new.
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  2778
    removeItem translateLabel:true.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2779
    removeItem label:text.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2780
    removeItem value:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2781
        self dirHistory removeAll.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2782
        self enableForward value:self canForward.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2783
        self enableBack value:self canBack.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2784
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2785
    histCopy := self dirHistory.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2786
    histCopy do:[:aFile| 
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2787
        menu addItem:(MenuItem label:aFile asString value:[
3958
39364b0202cf fileDialog multiple select changes
penk
parents: 3954
diff changeset
  2788
            self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2789
        ]).
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2790
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2791
    menu addItem:(MenuItem label:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2792
    menu addItem:removeItem.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2793
    ^ menu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2794
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2795
321c1729db5b initial checkin
penk
parents:
diff changeset
  2796
!AbstractFileBrowser methodsFor:'menu access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2797
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2798
viewInContentsBrowserMenu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2799
3961
cc887842b5ca next stage
penk
parents: 3958
diff changeset
  2800
    ^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2801
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2802
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2803
!AbstractFileBrowser methodsFor:'menu accessing'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2804
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2805
sortMenu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2806
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2807
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2808
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2809
    |menu|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2810
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2811
    menu :=  Menu new fromLiteralArrayEncoding:self class sortMenu.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2812
    menu ifNil:[ ^ nil ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2813
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2814
    ^ menu
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2815
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2816
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2817
viewDetailsMenuSpec
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2818
    ^self class viewDetailsMenuSpec
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2819
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  2820
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2821
!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2822
321c1729db5b initial checkin
penk
parents:
diff changeset
  2823
cvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  2824
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  2825
    |sel log cmd dir executionBlock nameString block|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2826
321c1729db5b initial checkin
penk
parents:
diff changeset
  2827
    log := Dialog
321c1729db5b initial checkin
penk
parents:
diff changeset
  2828
        requestText:(resources string:'enter initial log message')
321c1729db5b initial checkin
penk
parents:
diff changeset
  2829
        lines:10
321c1729db5b initial checkin
penk
parents:
diff changeset
  2830
        columns:70
321c1729db5b initial checkin
penk
parents:
diff changeset
  2831
        initialAnswer:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2832
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2833
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2834
    executionBlock := [ : stream |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2835
        log notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2836
            sel size > 0 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2837
                sel do:[:fn |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2838
                    dir := self getDirWithoutFileName:fn.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2839
                    cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2840
                    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2841
                    block value:stream.
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  2842
                    cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2843
                    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2844
                    block value:stream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2845
                ]
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  2846
            ] 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2847
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2848
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2849
    nameString := 'Command> add and commit'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2850
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2851
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2852
321c1729db5b initial checkin
penk
parents:
diff changeset
  2853
cvsCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  2854
321c1729db5b initial checkin
penk
parents:
diff changeset
  2855
    |nSel log msg cmd selectedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2856
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2857
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2858
    nSel := selectedFiles size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2859
321c1729db5b initial checkin
penk
parents:
diff changeset
  2860
    nSel == 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2861
        msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2862
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2863
        nSel > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2864
            msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2865
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2866
            msg := resources string:'enter log message for checkIn'
321c1729db5b initial checkin
penk
parents:
diff changeset
  2867
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2868
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2869
321c1729db5b initial checkin
penk
parents:
diff changeset
  2870
    log := Dialog
321c1729db5b initial checkin
penk
parents:
diff changeset
  2871
        requestText:msg
321c1729db5b initial checkin
penk
parents:
diff changeset
  2872
        lines:10
321c1729db5b initial checkin
penk
parents:
diff changeset
  2873
        columns:70
321c1729db5b initial checkin
penk
parents:
diff changeset
  2874
        initialAnswer:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2875
321c1729db5b initial checkin
penk
parents:
diff changeset
  2876
    log notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2877
        nSel > 0 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2878
            selectedFiles do:[:fn |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2879
                cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2880
                self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2881
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2882
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2883
            cmd := ('cvs commit -l -m ''' , log , '''').
321c1729db5b initial checkin
penk
parents:
diff changeset
  2884
            self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2885
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2886
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2887
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2888
321c1729db5b initial checkin
penk
parents:
diff changeset
  2889
cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  2890
    "remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2891
321c1729db5b initial checkin
penk
parents:
diff changeset
  2892
    |msg toRemove updateRunning cmd executionBlock nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2893
321c1729db5b initial checkin
penk
parents:
diff changeset
  2894
    updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2895
    self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2896
    toRemove := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2897
321c1729db5b initial checkin
penk
parents:
diff changeset
  2898
    executionBlock := [ : stream |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2899
        | block |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2900
        filesToRemove do:[:fileName |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2901
            OperatingSystem accessDeniedErrorSignal handle:[:ex|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2902
                "was not able to remove it"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2903
                | lastError |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2904
                lastError := OperatingSystem lastErrorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2905
                msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2906
                lastError isNil ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2907
                    msg := msg , '\\(' , lastError , ')'
321c1729db5b initial checkin
penk
parents:
diff changeset
  2908
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2909
                Dialog warn:msg withCRs
321c1729db5b initial checkin
penk
parents:
diff changeset
  2910
            ] do:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2911
                |answer contents|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2912
321c1729db5b initial checkin
penk
parents:
diff changeset
  2913
                (fileName isSymbolicLink not) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2914
                    fileName remove.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2915
                    cmd := ('cvs remove -f ' , fileName baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2916
                    block := self getExecutionBlockForCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2917
                    block value:stream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2918
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2919
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2920
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2921
321c1729db5b initial checkin
penk
parents:
diff changeset
  2922
        cmd := ('cvs commit -m ''removed via FileBrowser''').
321c1729db5b initial checkin
penk
parents:
diff changeset
  2923
        block := self getExecutionBlockForCommand:cmd. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2924
        block value:stream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2925
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2926
    nameString := 'Command> remove and commit ', filesToRemove first baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2927
    filesToRemove size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2928
        nameString := nameString, ' ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2929
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2930
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2931
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2932
321c1729db5b initial checkin
penk
parents:
diff changeset
  2933
cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  2934
321c1729db5b initial checkin
penk
parents:
diff changeset
  2935
    |sel question aswer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2936
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2937
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2938
321c1729db5b initial checkin
penk
parents:
diff changeset
  2939
    sel size > 0 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2940
        sel size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2941
            question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2942
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2943
            question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
321c1729db5b initial checkin
penk
parents:
diff changeset
  2944
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2945
321c1729db5b initial checkin
penk
parents:
diff changeset
  2946
        aswer := Dialog 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2947
                confirm:question withCRs
321c1729db5b initial checkin
penk
parents:
diff changeset
  2948
                yesLabel:(resources at:'Remove')
321c1729db5b initial checkin
penk
parents:
diff changeset
  2949
                noLabel:(resources at:'Cancel').
321c1729db5b initial checkin
penk
parents:
diff changeset
  2950
        aswer ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2951
            self withCursor:(Cursor wait) do:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  2952
                self cvsRemoveAndRemoveFromCVS:sel
321c1729db5b initial checkin
penk
parents:
diff changeset
  2953
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2954
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2955
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2956
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2957
321c1729db5b initial checkin
penk
parents:
diff changeset
  2958
cvsUpdateAll
321c1729db5b initial checkin
penk
parents:
diff changeset
  2959
321c1729db5b initial checkin
penk
parents:
diff changeset
  2960
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2961
321c1729db5b initial checkin
penk
parents:
diff changeset
  2962
    cmd := 'cvs upd -l'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2963
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2964
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2965
321c1729db5b initial checkin
penk
parents:
diff changeset
  2966
cvsUpdateAllRecursive
321c1729db5b initial checkin
penk
parents:
diff changeset
  2967
321c1729db5b initial checkin
penk
parents:
diff changeset
  2968
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2969
321c1729db5b initial checkin
penk
parents:
diff changeset
  2970
    cmd := 'cvs upd -d'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2971
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2972
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2973
321c1729db5b initial checkin
penk
parents:
diff changeset
  2974
cvsUpdateSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2975
321c1729db5b initial checkin
penk
parents:
diff changeset
  2976
    | selectedFiles stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2977
321c1729db5b initial checkin
penk
parents:
diff changeset
  2978
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2979
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2980
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2981
    stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2982
    selectedFiles do:[: file |
321c1729db5b initial checkin
penk
parents:
diff changeset
  2983
        stream nextPutAll:file baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2984
        stream space.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2985
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2986
    self executeCommand:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2987
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2988
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2989
321c1729db5b initial checkin
penk
parents:
diff changeset
  2990
!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2991
321c1729db5b initial checkin
penk
parents:
diff changeset
  2992
copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  2993
321c1729db5b initial checkin
penk
parents:
diff changeset
  2994
    ^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2995
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2996
321c1729db5b initial checkin
penk
parents:
diff changeset
  2997
cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  2998
321c1729db5b initial checkin
penk
parents:
diff changeset
  2999
    ^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3000
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3001
321c1729db5b initial checkin
penk
parents:
diff changeset
  3002
deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3003
321c1729db5b initial checkin
penk
parents:
diff changeset
  3004
    ^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3005
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3006
321c1729db5b initial checkin
penk
parents:
diff changeset
  3007
!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3008
321c1729db5b initial checkin
penk
parents:
diff changeset
  3009
createProjectAndOpenProjectBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3010
    |nm f s directory|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3011
321c1729db5b initial checkin
penk
parents:
diff changeset
  3012
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3013
    directory := self currentDirectories value first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3014
    nm := directory baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3015
    f := (directory  construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3016
    f exists ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3017
        Dialog warn:'A file named ' , f baseName , ' already exists.'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3018
        ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3019
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3020
    s := f writeStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3021
    s nextPutAll:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3022
name            ''' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3023
type            #classLibrary
321c1729db5b initial checkin
penk
parents:
diff changeset
  3024
package         #''private:' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3025
prerequisites   nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3026
321c1729db5b initial checkin
penk
parents:
diff changeset
  3027
classes      #( )
321c1729db5b initial checkin
penk
parents:
diff changeset
  3028
'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3029
    s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3030
    ProjectBrowser openOnFile:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3031
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3032
321c1729db5b initial checkin
penk
parents:
diff changeset
  3033
fileFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  3034
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3035
321c1729db5b initial checkin
penk
parents:
diff changeset
  3036
    self fileFileInLazy:false 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3037
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3038
321c1729db5b initial checkin
penk
parents:
diff changeset
  3039
fileFileInLazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3040
    "fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3041
321c1729db5b initial checkin
penk
parents:
diff changeset
  3042
    self fileFileInLazy:true 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3043
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3044
321c1729db5b initial checkin
penk
parents:
diff changeset
  3045
fileFileInLazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3046
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3047
321c1729db5b initial checkin
penk
parents:
diff changeset
  3048
    | selectedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3049
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3050
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3051
    selectedFiles do:[:fileName |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3052
        self singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3053
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3054
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3055
321c1729db5b initial checkin
penk
parents:
diff changeset
  3056
fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  3057
    "fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3058
321c1729db5b initial checkin
penk
parents:
diff changeset
  3059
    |ns listOfKnownNameSpaces|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3060
321c1729db5b initial checkin
penk
parents:
diff changeset
  3061
    listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3062
    NameSpace 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3063
        allNamespaces 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3064
            do:[:eachNameSpace | 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3065
                listOfKnownNameSpaces add:eachNameSpace name
321c1729db5b initial checkin
penk
parents:
diff changeset
  3066
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3067
    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3068
321c1729db5b initial checkin
penk
parents:
diff changeset
  3069
    ns := Dialog 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3070
                request:'During fileIn, new classes are created in nameSpace:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3071
                initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3072
                list:listOfKnownNameSpaces.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3073
    ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3074
321c1729db5b initial checkin
penk
parents:
diff changeset
  3075
    LastEnforcedNameSpace := ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3076
    ns := NameSpace name:ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3077
321c1729db5b initial checkin
penk
parents:
diff changeset
  3078
    Class nameSpaceQuerySignal 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3079
        answer:ns
321c1729db5b initial checkin
penk
parents:
diff changeset
  3080
        do:[ self fileFileInLazy:false ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3081
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3082
321c1729db5b initial checkin
penk
parents:
diff changeset
  3083
fileFindAllDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3084
    "scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3085
321c1729db5b initial checkin
penk
parents:
diff changeset
  3086
    |fileNames dir infoDir filesBySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  3087
     result info dirPrefix myName stream textBox maxLength directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3088
321c1729db5b initial checkin
penk
parents:
diff changeset
  3089
321c1729db5b initial checkin
penk
parents:
diff changeset
  3090
    self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3091
        result := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3092
        myName := self class name asString.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3093
        directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3094
        directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3095
        
321c1729db5b initial checkin
penk
parents:
diff changeset
  3096
        dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3097
"/        self label: myName, '- gathering file names ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3098
        fileNames := dir recursiveDirectoryContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3099
        fileNames := fileNames collect:[:fn | dir construct:fn].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3100
        fileNames := fileNames select:[:fn | fn isDirectory not].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3101
321c1729db5b initial checkin
penk
parents:
diff changeset
  3102
"/        self label:myName , '- gathering sizes ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3103
        infoDir := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3104
        fileNames do:[:fn |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3105
            infoDir at:fn put:(fn fileSize)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3106
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3107
321c1729db5b initial checkin
penk
parents:
diff changeset
  3108
        "/ for each, get the files size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3109
        "/ in a first pass, look for files of the same size and
321c1729db5b initial checkin
penk
parents:
diff changeset
  3110
        "/ compare them ...
321c1729db5b initial checkin
penk
parents:
diff changeset
  3111
321c1729db5b initial checkin
penk
parents:
diff changeset
  3112
"/        self label:myName , '- preselect possible duplicates ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3113
        filesBySize := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3114
        infoDir keysAndValuesDo:[:fn :sz |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3115
            |entry|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3116
321c1729db5b initial checkin
penk
parents:
diff changeset
  3117
            entry := filesBySize at:sz ifAbsentPut:[Set new].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3118
            entry add:fn.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3119
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3120
321c1729db5b initial checkin
penk
parents:
diff changeset
  3121
        "/ any of same size ?
321c1729db5b initial checkin
penk
parents:
diff changeset
  3122
321c1729db5b initial checkin
penk
parents:
diff changeset
  3123
"/        self label:myName , '- checking for duplicates ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3124
        filesBySize do:[:entry |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3125
            |files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3126
321c1729db5b initial checkin
penk
parents:
diff changeset
  3127
            entry size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3128
                files := entry asArray.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3129
                1 to:files size-1 do:[:idx1 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3130
                    idx1+1 to:files size do:[:idx2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3131
                        |fn1 fn2|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3132
321c1729db5b initial checkin
penk
parents:
diff changeset
  3133
                        fn1 := files at:idx1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3134
                        fn2 := files at:idx2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3135
321c1729db5b initial checkin
penk
parents:
diff changeset
  3136
"/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3137
                        (result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3138
                            "/ compare the files
321c1729db5b initial checkin
penk
parents:
diff changeset
  3139
                            (fn1 sameContentsAs:fn2) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3140
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3141
                                result at:fn1 put:fn2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3142
                            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3143
                        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3144
                    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3145
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3146
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3147
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3148
321c1729db5b initial checkin
penk
parents:
diff changeset
  3149
"/        self label:myName , '- sorting ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3150
        dirPrefix := dir pathName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3151
        result := result associations.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3152
        result := result collect:[:assoc |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3153
                                        |f1 f2|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3154
321c1729db5b initial checkin
penk
parents:
diff changeset
  3155
                                        f1 := assoc key name.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3156
                                        f2 := assoc value name.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3157
                                        (f1 startsWith:dirPrefix) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3158
                                            f1 := f1 copyFrom:dirPrefix size + 2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3159
                                        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3160
                                        (f2 startsWith:dirPrefix) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3161
                                            f2 := f2 copyFrom:dirPrefix size + 2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3162
                                        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3163
                                        f1 < f2 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3164
                                            f2 -> f1
321c1729db5b initial checkin
penk
parents:
diff changeset
  3165
                                        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3166
                                            f1 -> f2
321c1729db5b initial checkin
penk
parents:
diff changeset
  3167
                                        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3168
                                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3169
        result sort:[:f1 :f2 | f2 value < f1 value].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3170
321c1729db5b initial checkin
penk
parents:
diff changeset
  3171
        info := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3172
        result do:[:assoc |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3173
            info add:(assoc key , ' same as ' , assoc value)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3174
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3175
        info isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3176
            info := 'No duplicate files found.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3177
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3178
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3179
321c1729db5b initial checkin
penk
parents:
diff changeset
  3180
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3181
    info do:[:el|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3182
        stream nextPutAll:el.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3183
        stream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3184
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3185
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3186
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3187
    textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3188
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3189
    textBox noCancel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3190
    textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3191
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3192
    info do:[: el |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3193
        maxLength := maxLength max:(el size).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3194
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3195
    textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3196
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3197
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3198
"/    subView contents:info.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3199
"/    self label:myName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3200
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3201
321c1729db5b initial checkin
penk
parents:
diff changeset
  3202
fileFindDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3203
    "scan directory for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3204
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3205
    |fileNames infoDir filesBySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3206
     result info stream textBox maxLength directories allFiles titleStream size|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3207
321c1729db5b initial checkin
penk
parents:
diff changeset
  3208
"/    (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3209
"/              yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3210
321c1729db5b initial checkin
penk
parents:
diff changeset
  3211
    self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3212
        result := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3213
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3214
        directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3215
        directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3216
321c1729db5b initial checkin
penk
parents:
diff changeset
  3217
        allFiles := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3218
        directories do:[ : dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3219
            fileNames := dir directoryContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3220
            fileNames := fileNames collect:[:fn | dir construct:fn].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3221
            fileNames := fileNames select:[:fn | fn isDirectory not].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3222
            allFiles addAll:fileNames.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3223
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3224
321c1729db5b initial checkin
penk
parents:
diff changeset
  3225
        infoDir := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3226
        allFiles do:[:fn |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3227
            infoDir at:fn put:(fn info)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3228
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3229
321c1729db5b initial checkin
penk
parents:
diff changeset
  3230
        "/ for each, get the files size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3231
        "/ in a first pass, look for files of the same size and
321c1729db5b initial checkin
penk
parents:
diff changeset
  3232
        "/ compare them ...
321c1729db5b initial checkin
penk
parents:
diff changeset
  3233
321c1729db5b initial checkin
penk
parents:
diff changeset
  3234
        filesBySize := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3235
        infoDir keysAndValuesDo:[:fn :info |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3236
            |sz entry|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3237
321c1729db5b initial checkin
penk
parents:
diff changeset
  3238
            sz := info size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3239
            entry := filesBySize at:sz ifAbsentPut:[Set new].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3240
            entry add:fn.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3241
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3242
321c1729db5b initial checkin
penk
parents:
diff changeset
  3243
        "/ any of same size ?
321c1729db5b initial checkin
penk
parents:
diff changeset
  3244
321c1729db5b initial checkin
penk
parents:
diff changeset
  3245
        filesBySize do:[:entry |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3246
            |files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3247
321c1729db5b initial checkin
penk
parents:
diff changeset
  3248
            entry size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3249
                files := entry asArray.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3250
                1 to:files size-1 do:[:idx1 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3251
                    idx1+1 to:files size do:[:idx2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3252
                        |fn1 fn2|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3253
321c1729db5b initial checkin
penk
parents:
diff changeset
  3254
                        fn1 := files at:idx1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3255
                        fn2 := files at:idx2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3256
321c1729db5b initial checkin
penk
parents:
diff changeset
  3257
                        (result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3258
                            "/ compare the files
321c1729db5b initial checkin
penk
parents:
diff changeset
  3259
                            (fn1 sameContentsAs:fn2) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3260
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3261
                                result at:fn1 put:fn2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3262
                            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3263
                        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3264
                    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3265
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3266
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3267
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3268
321c1729db5b initial checkin
penk
parents:
diff changeset
  3269
        result := result associations.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3270
        result := result collect:[:assoc |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3271
                                        |f1 f2|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3272
321c1729db5b initial checkin
penk
parents:
diff changeset
  3273
                                        f1 := assoc key asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3274
                                        f2 := assoc value asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3275
                                        f1 < f2 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3276
                                            f2 -> f1
321c1729db5b initial checkin
penk
parents:
diff changeset
  3277
                                        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3278
                                            f1 -> f2
321c1729db5b initial checkin
penk
parents:
diff changeset
  3279
                                        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3280
                                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3281
        result sort:[:f1 :f2 | f2 value < f1 value].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3282
321c1729db5b initial checkin
penk
parents:
diff changeset
  3283
        info := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3284
        size := self getBestDirectory asString size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3285
        result do:[:assoc |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3286
            |fn1 fn2|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3287
321c1729db5b initial checkin
penk
parents:
diff changeset
  3288
            fn1 := assoc key.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3289
            fn2 := assoc value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3290
            size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3291
                fn1 := ('..', (fn1 copyFrom:(size + 1))).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3292
                fn2 := ('..', (fn2 copyFrom:(size + 1))).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3293
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3294
            (fn1 includes:Character space) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3295
                fn1 := '"' , fn1 , '"'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3296
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3297
            (fn2 includes:Character space) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3298
                fn2 := '"' , fn2 , '"'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3299
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3300
            info add:(fn1 , ' same as ' , fn2)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3301
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3302
        info isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3303
            info add:'No duplicate files found.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3304
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3305
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3306
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3307
    info do:[:el|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3308
        stream nextPutAll:el.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3309
        stream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3310
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3311
    titleStream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3312
    titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3313
    directories size == 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3314
        titleStream nextPutAll:'y: ', directories first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3315
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3316
        titleStream nextPutAll:'ies: '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3317
        titleStream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3318
        directories do:[:dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3319
            size > 1 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3320
                titleStream nextPutAll:'..'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3321
                titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3322
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3323
                titleStream nextPutAll:(dir asString).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3324
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3325
            titleStream cr.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3326
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3327
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3328
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3329
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3330
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3331
    textBox title:(titleStream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3332
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3333
    textBox noCancel.
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3334
    [
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3335
        | stream |
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3336
        stream := WriteStream on:'Dublicates in '.
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3337
        directories do:[ :aDirectory |
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3338
            stream nextPutAll:aDirectory baseName
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3339
            stream space
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3340
        ].
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3341
        textBox label:stream contents.
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3342
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3343
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3344
    info do:[: el |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3345
        maxLength := maxLength max:(el size).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3346
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3347
    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3348
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3349
    titleStream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3350
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3351
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3352
321c1729db5b initial checkin
penk
parents:
diff changeset
  3353
fileFindFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3354
    |filename files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3355
321c1729db5b initial checkin
penk
parents:
diff changeset
  3356
    files := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3357
    files notEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3358
        filename := files first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3359
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3360
        filename := (Filename homeDirectory).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3361
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3362
    FindFileApplication openOnFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3363
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3364
321c1729db5b initial checkin
penk
parents:
diff changeset
  3365
installAllAsAutoloaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3366
    "install all classes found here as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3367
321c1729db5b initial checkin
penk
parents:
diff changeset
  3368
    self allItemsOfCurrentDirectory do:[:fileItem |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3369
        (fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3370
            self installAsAutoloaded:(fileItem fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3371
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3372
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3373
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3374
321c1729db5b initial checkin
penk
parents:
diff changeset
  3375
installAsAutoloaded:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  3376
    "install aFilename as autoloaded class"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3377
321c1729db5b initial checkin
penk
parents:
diff changeset
  3378
    |chunks s|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3379
321c1729db5b initial checkin
penk
parents:
diff changeset
  3380
    chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3381
    chunks 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3382
        select:[:eachChunk | eachChunk isClassDefinitionChange]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3383
        thenDo:[:eachClassChunk | eachClassChunk installAsAutoloadedClassIfNotPrivate].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3384
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3385
321c1729db5b initial checkin
penk
parents:
diff changeset
  3386
loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3387
321c1729db5b initial checkin
penk
parents:
diff changeset
  3388
    |img path files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3389
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3390
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3391
    files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3392
    files do:[:fileName |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3393
        path := fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3394
        path isDirectory ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3395
            img := Image fromFile:(path pathName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3396
            img notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3397
                aSelectorOrBlock isSymbol ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3398
                    img perform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3399
                ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3400
                    aSelectorOrBlock value:img
321c1729db5b initial checkin
penk
parents:
diff changeset
  3401
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3402
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3403
                Dialog warn:'unknown format: ' , fileName asString
321c1729db5b initial checkin
penk
parents:
diff changeset
  3404
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3405
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3406
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3407
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3408
321c1729db5b initial checkin
penk
parents:
diff changeset
  3409
openASN1Browser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3410
321c1729db5b initial checkin
penk
parents:
diff changeset
  3411
    self openTool:OSI::ASN1Browser 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3412
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3413
321c1729db5b initial checkin
penk
parents:
diff changeset
  3414
openAppletViewer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3415
    |numItems files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3416
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3417
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3418
    (numItems := files size) > 2 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3419
        (self 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3420
            confirm:(resources string:'open for each of the %1 items ?' 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3421
                                 with:numItems)) ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3422
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3423
321c1729db5b initial checkin
penk
parents:
diff changeset
  3424
    Java startupJavaSystem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3425
"/    Java markAllClassesUninitialized.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3426
"/    Java initAllStaticFields.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3427
"/    Java initAllClasses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3428
321c1729db5b initial checkin
penk
parents:
diff changeset
  3429
    files do:[:fileName |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3430
        |p path|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3431
321c1729db5b initial checkin
penk
parents:
diff changeset
  3432
        path := fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3433
        path isDirectory ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3434
            p := Java 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3435
                    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
321c1729db5b initial checkin
penk
parents:
diff changeset
  3436
                    argumentString:path pathName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3437
            p resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3438
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3439
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3440
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3441
321c1729db5b initial checkin
penk
parents:
diff changeset
  3442
openCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3443
321c1729db5b initial checkin
penk
parents:
diff changeset
  3444
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3445
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3446
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3447
    directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3448
    self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3449
        CBrowser::Browser openIn:directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3450
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3451
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3452
321c1729db5b initial checkin
penk
parents:
diff changeset
  3453
openChangesBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3454
    "open a change browser on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3455
321c1729db5b initial checkin
penk
parents:
diff changeset
  3456
    self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3457
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3458
321c1729db5b initial checkin
penk
parents:
diff changeset
  3459
openDiffView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3460
    "open a diff-view"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3461
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3462
    | name1 name2 text1 text2 f d err nm l1 files title defaultName|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3463
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3464
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3465
    files isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3466
        Dialog warn:'you have to select a file first'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3467
        ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3468
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3469
    (files size == 2) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3470
        name1 := files last.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3471
        name2 := files first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3472
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3473
        LastFileDiffFile notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3474
"/            f := self currentDirectory value asFilename construct:(LastFileDiffFile baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3475
            (LastFileDiffFile exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  3476
            and:[LastFileDiffFile isReadable]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3477
                name1 := f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3478
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3479
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3480
        name2 := files first.
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3481
        title := 'show difference between ', name2 baseName, ' and:'.
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3482
        defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3483
        name1 := DialogBox 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3484
                    requestFileName:title 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3485
                    default:defaultName 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3486
                    ok:'OK' 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3487
                    abort:'Use File List' 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3488
                    pattern:'*' 
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3489
                    fromDirectory:(name2 asFilename directory).
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3490
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3491
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3492
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3493
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3494
321c1729db5b initial checkin
penk
parents:
diff changeset
  3495
    (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3496
        text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3497
        text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3498
        name1 := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3499
        l1 := 'browser contents'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3500
    ] ifFalse:[
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3501
        name1 := name1 asFilename.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3502
        LastFileDiffFile := name1.
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3503
        name1 asFilename isReadable ifFalse:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3504
            nm := name1.
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3505
            name1 asFilename exists ifFalse:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3506
                err := '%1 does not exist'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3507
            ] ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3508
                err := '%1 is not readable'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3509
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3510
        ].
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3511
        l1 := name1
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3512
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3513
321c1729db5b initial checkin
penk
parents:
diff changeset
  3514
    err isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3515
        name2 isReadable ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3516
            nm := name2.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3517
            name2 exists ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3518
                err := '%1 does not exist'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3519
            ] ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3520
                err := '%1 is not readable'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3521
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3522
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3523
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3524
    err notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3525
        Dialog warn:(resources string:err with:nm pathName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3526
        ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  3527
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3528
321c1729db5b initial checkin
penk
parents:
diff changeset
  3529
    self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3530
        name1 notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3531
            text1 := name1 contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3532
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3533
        text2 := name2 contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3534
        text1 = text2 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3535
            self information:'same contents'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3536
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3537
            d := DiffTextView 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3538
                    openOn:text1 label:l1
321c1729db5b initial checkin
penk
parents:
diff changeset
  3539
                    and:text2 label:name2 pathName.
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3540
            d topView label:'file differences'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3541
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3542
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3543
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3544
321c1729db5b initial checkin
penk
parents:
diff changeset
  3545
openEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3546
    self openTool:EditTextView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3547
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3548
321c1729db5b initial checkin
penk
parents:
diff changeset
  3549
openHTMLReader
321c1729db5b initial checkin
penk
parents:
diff changeset
  3550
321c1729db5b initial checkin
penk
parents:
diff changeset
  3551
    self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3552
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3553
321c1729db5b initial checkin
penk
parents:
diff changeset
  3554
openImageEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3555
321c1729db5b initial checkin
penk
parents:
diff changeset
  3556
    [self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3557
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3558
321c1729db5b initial checkin
penk
parents:
diff changeset
  3559
openImageInspector
321c1729db5b initial checkin
penk
parents:
diff changeset
  3560
    [self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3561
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3562
321c1729db5b initial checkin
penk
parents:
diff changeset
  3563
openImagePreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  3564
321c1729db5b initial checkin
penk
parents:
diff changeset
  3565
    [self loadImageAndPerform:[:img |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3566
                                |i top viewer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3567
321c1729db5b initial checkin
penk
parents:
diff changeset
  3568
                                top := StandardSystemView new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3569
321c1729db5b initial checkin
penk
parents:
diff changeset
  3570
                                viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3571
                                i := img.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3572
                                top extent:200@200.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3573
                                top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3574
                                top openAndWait.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3575
321c1729db5b initial checkin
penk
parents:
diff changeset
  3576
                                (i width > 200 or:[i height > 200]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3577
                                    i := i magnifiedPreservingRatioTo:200@200.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3578
                                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3579
                                viewer image:i.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3580
                              ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3581
    ] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3582
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3583
321c1729db5b initial checkin
penk
parents:
diff changeset
  3584
openMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  3585
    |file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3586
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3587
    file := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3588
    (file isEmpty) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3589
        ^ self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3590
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3591
    file := file first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3592
    (MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3593
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3594
321c1729db5b initial checkin
penk
parents:
diff changeset
  3595
openSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  3596
321c1729db5b initial checkin
penk
parents:
diff changeset
  3597
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3598
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3599
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3600
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3601
321c1729db5b initial checkin
penk
parents:
diff changeset
  3602
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3603
    CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3604
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3605
321c1729db5b initial checkin
penk
parents:
diff changeset
  3606
openSnapshotImageBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3607
    ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  3608
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3609
321c1729db5b initial checkin
penk
parents:
diff changeset
  3610
openTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  3611
321c1729db5b initial checkin
penk
parents:
diff changeset
  3612
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3613
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3614
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3615
    directories isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3616
        dir := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3617
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3618
        dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3619
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3620
321c1729db5b initial checkin
penk
parents:
diff changeset
  3621
    VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3622
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3623
321c1729db5b initial checkin
penk
parents:
diff changeset
  3624
openTool:aToolClass
321c1729db5b initial checkin
penk
parents:
diff changeset
  3625
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3626
321c1729db5b initial checkin
penk
parents:
diff changeset
  3627
    ^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  3628
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3629
321c1729db5b initial checkin
penk
parents:
diff changeset
  3630
openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  3631
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3632
321c1729db5b initial checkin
penk
parents:
diff changeset
  3633
    ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  3634
        openTool:aToolClass 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3635
        with:#openOn: 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3636
        ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  3637
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3638
321c1729db5b initial checkin
penk
parents:
diff changeset
  3639
openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  3640
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3641
321c1729db5b initial checkin
penk
parents:
diff changeset
  3642
    |numItems path tool files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3643
321c1729db5b initial checkin
penk
parents:
diff changeset
  3644
    aToolClass isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3645
        Dialog warn:'Sorry, that tool seems to be not available'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3646
        ^ nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3647
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3648
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3649
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3650
    (numItems := files size) > 2 ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3651
        (self 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3652
            confirm:(resources string:'open for each of the %1 items ?' 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3653
                                 with:numItems)) ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3654
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3655
321c1729db5b initial checkin
penk
parents:
diff changeset
  3656
    self withWaitCursorDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3657
        files do:[:fileName |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3658
            (ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3659
                fileName isAbsolute ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3660
                    path := fileName getName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3661
                ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3662
                    path := fileName pathName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3663
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3664
                tool := aToolClass perform:aSelector with:path.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3665
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3666
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3667
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3668
    ^ tool
321c1729db5b initial checkin
penk
parents:
diff changeset
  3669
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3670
321c1729db5b initial checkin
penk
parents:
diff changeset
  3671
openZipTool
321c1729db5b initial checkin
penk
parents:
diff changeset
  3672
    |zipTool directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3673
321c1729db5b initial checkin
penk
parents:
diff changeset
  3674
    (zipTool := self openTool:ZipTool) notNil ifTrue:[
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3675
        directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3676
        directories isEmpty ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3677
            dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3678
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3679
            dir := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3680
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3681
321c1729db5b initial checkin
penk
parents:
diff changeset
  3682
        zipTool initialExtractDirectory:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3683
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3684
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3685
321c1729db5b initial checkin
penk
parents:
diff changeset
  3686
readAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3687
    "read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3688
321c1729db5b initial checkin
penk
parents:
diff changeset
  3689
    | directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3690
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3691
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3692
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3693
321c1729db5b initial checkin
penk
parents:
diff changeset
  3694
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3695
    Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin
penk
parents:
diff changeset
  3696
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3697
321c1729db5b initial checkin
penk
parents:
diff changeset
  3698
singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3699
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3700
321c1729db5b initial checkin
penk
parents:
diff changeset
  3701
    |aStream wasLazy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3702
321c1729db5b initial checkin
penk
parents:
diff changeset
  3703
    fileName type == #regular ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3704
321c1729db5b initial checkin
penk
parents:
diff changeset
  3705
        (ObjectFileLoader notNil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3706
        and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3707
            AbortOperationRequest catch:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3708
                |p|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3709
321c1729db5b initial checkin
penk
parents:
diff changeset
  3710
                "/
321c1729db5b initial checkin
penk
parents:
diff changeset
  3711
                "/ look if already loaded ...  then unload first
321c1729db5b initial checkin
penk
parents:
diff changeset
  3712
                "/
321c1729db5b initial checkin
penk
parents:
diff changeset
  3713
                p := fileName pathName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3714
                (ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3715
                    (Dialog confirm:(resources 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3716
                                        string:'%1 is already loaded; load anyway ?'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3717
                                        with:p)) ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3718
                        ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  3719
                    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3720
                    Transcript showCR:'unloading old ' , p , ' ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3721
                    ObjectFileLoader unloadObjectFile:p. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3722
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3723
321c1729db5b initial checkin
penk
parents:
diff changeset
  3724
                Transcript showCR:'loading ' , p , ' ...'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3725
                ObjectFileLoader loadObjectFile:p.
3949
f892b8d31fcd fileIn bug fixed
Claus Gittinger <cg@exept.de>
parents: 3941
diff changeset
  3726
                Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3727
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3728
        ] ifFalse:[ ((fileName hasSuffix:'cls') 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3729
                     and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3730
            "/ loading a binary class file
321c1729db5b initial checkin
penk
parents:
diff changeset
  3731
            aStream := fileName readStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3732
            aStream notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3733
                aStream fileInBinary.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3734
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3735
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3736
            ((fileName hasSuffix:'class')
321c1729db5b initial checkin
penk
parents:
diff changeset
  3737
            or:[(fileName hasSuffix:'cla')]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3738
                "/ loading a java class file
321c1729db5b initial checkin
penk
parents:
diff changeset
  3739
                JavaClassReader notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3740
                    JavaClassReader loadFile:(fileName pathName)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3741
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3742
            ] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3743
                "/ loading a sif (smalltalk interchange format) file
321c1729db5b initial checkin
penk
parents:
diff changeset
  3744
                SmalltalkInterchangeSTXFileInManager autoload.    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3745
                SmalltalkInterchangeFileManager newForFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  3746
                    fileName: fileName pathName;
321c1729db5b initial checkin
penk
parents:
diff changeset
  3747
                    fileIn.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3748
            ] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3749
                Parcel isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3750
                    Dialog warn:'Parcel support not loaded.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3751
                ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3752
                    Parcel loadParcelFrom: fileName pathName
321c1729db5b initial checkin
penk
parents:
diff changeset
  3753
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3754
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3755
                "/ loading a regular (chunk) or xml source file
321c1729db5b initial checkin
penk
parents:
diff changeset
  3756
                aStream := fileName readStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3757
                aStream notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3758
                    Error handle:[ : ex |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3759
                        Dialog warn:'Error on file in: ', ex errorString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3760
                    ] do:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3761
                        [
321c1729db5b initial checkin
penk
parents:
diff changeset
  3762
                            Class withoutUpdatingChangesDo:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3763
                                wasLazy := Compiler compileLazy:lazy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3764
                                aStream fileIn.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3765
                            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3766
                            Class addInfoRecord:('fileIn ' , fileName asString) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3767
                        ] ensure:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3768
                            Compiler compileLazy:wasLazy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3769
                            aStream close
321c1729db5b initial checkin
penk
parents:
diff changeset
  3770
                        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3771
                    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3772
                ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3773
            ]]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3774
        ]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3775
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3776
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3777
321c1729db5b initial checkin
penk
parents:
diff changeset
  3778
!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3779
321c1729db5b initial checkin
penk
parents:
diff changeset
  3780
canCvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3781
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3782
    |selectedFiles|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3783
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3784
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3785
    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3786
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3787
321c1729db5b initial checkin
penk
parents:
diff changeset
  3788
canRemoveCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3789
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3790
    |selectedFiles dirOfFile cvsDir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3791
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3792
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3793
    selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3794
    ^ ((selectedFiles detect:[:fileName|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3795
        dirOfFile := self getDirWithoutFileName:fileName.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3796
        cvsDir := dirOfFile construct:'CVS'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3797
        (cvsDir isDirectory and:[cvsDir exists])
321c1729db5b initial checkin
penk
parents:
diff changeset
  3798
    ] ifNone:[nil]) notNil).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3799
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3800
321c1729db5b initial checkin
penk
parents:
diff changeset
  3801
!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3802
321c1729db5b initial checkin
penk
parents:
diff changeset
  3803
anySTFilesPresent
321c1729db5b initial checkin
penk
parents:
diff changeset
  3804
321c1729db5b initial checkin
penk
parents:
diff changeset
  3805
    ^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3806
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3807
321c1729db5b initial checkin
penk
parents:
diff changeset
  3808
canCreateNewProject
321c1729db5b initial checkin
penk
parents:
diff changeset
  3809
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3810
    | selectedFiles |
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3811
321c1729db5b initial checkin
penk
parents:
diff changeset
  3812
    self currentFilesAreInSameDirectory ifFalse:[^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3813
    selectedFiles := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3814
    ^ [ 
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3815
        ((selectedFiles detect:[:fileName| | suffix|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3816
            suffix := fileName suffix asLowercase.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3817
            (suffix = 'prj' or:[suffix = 'st'])
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3818
        ] ifNone:[nil]) notNil)
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3819
      ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3820
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3821
321c1729db5b initial checkin
penk
parents:
diff changeset
  3822
canDoTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  3823
321c1729db5b initial checkin
penk
parents:
diff changeset
  3824
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  3825
      or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3826
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3827
321c1729db5b initial checkin
penk
parents:
diff changeset
  3828
canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  3829
321c1729db5b initial checkin
penk
parents:
diff changeset
  3830
    ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3831
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3832
321c1729db5b initial checkin
penk
parents:
diff changeset
  3833
canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  3834
321c1729db5b initial checkin
penk
parents:
diff changeset
  3835
    ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3836
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3837
321c1729db5b initial checkin
penk
parents:
diff changeset
  3838
canReadAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3839
321c1729db5b initial checkin
penk
parents:
diff changeset
  3840
321c1729db5b initial checkin
penk
parents:
diff changeset
  3841
    self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3842
    ^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  3843
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3844
321c1729db5b initial checkin
penk
parents:
diff changeset
  3845
canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  3846
321c1729db5b initial checkin
penk
parents:
diff changeset
  3847
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3848
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3849
321c1729db5b initial checkin
penk
parents:
diff changeset
  3850
hasASN1
321c1729db5b initial checkin
penk
parents:
diff changeset
  3851
    ^ [ OSI::ASN1Parser notNil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3852
        and:[OSI::ASN1Parser isLoaded]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3853
321c1729db5b initial checkin
penk
parents:
diff changeset
  3854
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3855
321c1729db5b initial checkin
penk
parents:
diff changeset
  3856
hasASN1AndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3857
    ^ [ self hasSelection value 
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3858
        and:[self currentSelectedFiles size > 0
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3859
        and:[OSI::ASN1Parser notNil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3860
        and:[OSI::ASN1Parser isLoaded]]]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3861
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3862
321c1729db5b initial checkin
penk
parents:
diff changeset
  3863
hasCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3864
    ^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3865
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3866
321c1729db5b initial checkin
penk
parents:
diff changeset
  3867
hasJava
321c1729db5b initial checkin
penk
parents:
diff changeset
  3868
321c1729db5b initial checkin
penk
parents:
diff changeset
  3869
    ^ [ JavaClassReader notNil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3870
        and:[JavaClassReader isLoaded]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3871
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3872
321c1729db5b initial checkin
penk
parents:
diff changeset
  3873
hasJavaAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3874
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3875
    ^ [ self currentSelectedFiles size > 0
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3876
        and:[JavaClassReader notNil 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3877
        and:[JavaClassReader isLoaded]]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3878
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3879
321c1729db5b initial checkin
penk
parents:
diff changeset
  3880
hasMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  3881
321c1729db5b initial checkin
penk
parents:
diff changeset
  3882
    ^ [ MP3PlayerApplication notNil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3883
        or:[SaugFix::MP3PlayerApplication notNil ]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3884
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3885
321c1729db5b initial checkin
penk
parents:
diff changeset
  3886
hasMP3PlayerAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3887
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3888
    ^ [ self currentSelectedFiles size > 0
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3889
        and:[ self hasMP3Player value]]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3890
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3891
321c1729db5b initial checkin
penk
parents:
diff changeset
  3892
hasSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  3893
321c1729db5b initial checkin
penk
parents:
diff changeset
  3894
    ^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3895
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3896
321c1729db5b initial checkin
penk
parents:
diff changeset
  3897
hasSnapshotSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3898
321c1729db5b initial checkin
penk
parents:
diff changeset
  3899
    ^ [ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3900
        | files |
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3901
        files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3902
        ((files size == 1)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3903
        and:[ files first hasSuffix:'img' ])
321c1729db5b initial checkin
penk
parents:
diff changeset
  3904
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3905
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3906
321c1729db5b initial checkin
penk
parents:
diff changeset
  3907
hasZipFileSelected
321c1729db5b initial checkin
penk
parents:
diff changeset
  3908
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3909
    ^ [|sel fileName fn suff|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3910
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3911
        sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3912
        sel size == 1 ifTrue:[
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3913
            fileName := sel first.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3914
            fileName notNil ifTrue:[
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3915
                suff := fileName suffix asLowercase.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3916
                suff = 'zip' or:[suff = 'jar']
321c1729db5b initial checkin
penk
parents:
diff changeset
  3917
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3918
                false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3919
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3920
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  3921
            false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3922
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3923
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3924
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3925
321c1729db5b initial checkin
penk
parents:
diff changeset
  3926
javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3927
321c1729db5b initial checkin
penk
parents:
diff changeset
  3928
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3929
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3930
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3931
!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3932
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3933
getModeString:modeBits
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3934
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3935
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3936
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3937
    ^ self getModeString:modeBits 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3938
                    with:#( 'owner:' $r $w $x 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3939
                            ' group:' $r $w $x 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3940
                            ' others:' $r $w $x )
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3941
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3942
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3943
getModeString:modeBits with:texts
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3944
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3945
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3946
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3947
    |bits modeString|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3948
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3949
    bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3950
    modeString := ''.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3951
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3952
    #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 ) 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3953
    with: texts do:[:bitMask :access |
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3954
        |ch|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3955
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3956
        bitMask isNil ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3957
            modeString := modeString , access
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3958
        ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3959
            (bits bitAnd:bitMask) == 0 ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3960
                ch := $-
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3961
            ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3962
                ch := access
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3963
            ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3964
            modeString := modeString copyWith:ch 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3965
        ]
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3966
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3967
    ^ modeString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3968
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3969
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3970
!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3971
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3972
getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3973
    "get stat info on selected file - return a string which can be
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3974
     shown in a box"
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3975
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3976
    | selFiles filename text fileOutput type modeBits modeString s ts isLink info|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3977
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3978
    selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3979
    ((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3980
    filename := selFiles first.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3981
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3982
    text := StringCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3983
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3984
    text add:('filename: ', filename asString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3985
    isLink := filename isSymbolicLink.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3986
    isLink ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3987
        text add:('symbolic link to: ', (filename linkInfo path))
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3988
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3989
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3990
    info := filename info.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3991
    type := info type.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3992
    (longInfo and:[type == #regular]) ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3993
        fileOutput := filename fileType.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3994
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3995
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3996
    s := ('type:   ').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3997
    fileOutput isNil ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3998
        s := s ,  type asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3999
    ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4000
        s := s , 'regular (' , fileOutput , ')'
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4001
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4002
    text add:s.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4003
    isLink = true ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4004
        info := filename linkInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4005
    ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4006
        info := filename info
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4007
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4008
    
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4009
    text add:('size:   ', (info fileSize) printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4010
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4011
    modeBits := info mode.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4012
    modeString := self getModeString:modeBits.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4013
    longInfo ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4014
        text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4015
    ] ifFalse:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4016
        text add:('access: ', modeString)
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4017
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4018
    text add:('owner:  ',
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4019
               (OperatingSystem getUserNameFromID:(info uid))).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4020
    longInfo ifTrue:[
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4021
        text add:('group:  ',
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4022
                   (OperatingSystem getGroupNameFromID:(info gid))).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4023
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4024
        ts := info accessTime.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4025
        text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4026
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4027
        ts := info modificationTime.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4028
        text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4029
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4030
    ^ text asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4031
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4032
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4033
initialCommandFor:fileName into:aBox
321c1729db5b initial checkin
penk
parents:
diff changeset
  4034
    "set a useful initial command for execute box."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4035
321c1729db5b initial checkin
penk
parents:
diff changeset
  4036
    |mime cmd select path suffix|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4037
321c1729db5b initial checkin
penk
parents:
diff changeset
  4038
    path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4039
    suffix := fileName asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4040
    DefaultCommandPerSuffix notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4041
        cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4042
        cmd notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4043
            aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4044
            ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  4045
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4046
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4047
    mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4048
"/    mime notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4049
"/        cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin
penk
parents:
diff changeset
  4050
"/    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4051
321c1729db5b initial checkin
penk
parents:
diff changeset
  4052
    "/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin
penk
parents:
diff changeset
  4053
    "/ XXX or from resources.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4054
321c1729db5b initial checkin
penk
parents:
diff changeset
  4055
    (path type == #regular) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4056
        path isExecutableProgram ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4057
            aBox initialText:(fileName , ' <arguments>').
321c1729db5b initial checkin
penk
parents:
diff changeset
  4058
            ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  4059
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4060
321c1729db5b initial checkin
penk
parents:
diff changeset
  4061
        select := true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4062
321c1729db5b initial checkin
penk
parents:
diff changeset
  4063
        "some heuristics - my personal preferences ...
321c1729db5b initial checkin
penk
parents:
diff changeset
  4064
         (actually this should come from a configfile)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4065
321c1729db5b initial checkin
penk
parents:
diff changeset
  4066
        (fileName endsWith:'akefile') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4067
            aBox initialText:'make target' selectFrom:6 to:11.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4068
            ^ self
321c1729db5b initial checkin
penk
parents:
diff changeset
  4069
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4070
321c1729db5b initial checkin
penk
parents:
diff changeset
  4071
        cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4072
        cmd notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4073
            select := false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4074
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4075
321c1729db5b initial checkin
penk
parents:
diff changeset
  4076
        cmd isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4077
321c1729db5b initial checkin
penk
parents:
diff changeset
  4078
            suffix := path suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4079
            (suffix = 'C') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4080
                cmd := 'g++ -c %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4081
                select := 6.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4082
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4083
                suffix := suffix asLowercase.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4084
321c1729db5b initial checkin
penk
parents:
diff changeset
  4085
                (suffix = 'taz') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4086
                    aBox initialText:'zcat %1 | tar tvf -'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4087
                    select := false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4088
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4089
                (suffix = 'tar') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4090
                    cmd := 'tar tvf %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4091
                    select := 7.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4092
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4093
                (suffix = 'zoo') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4094
                    cmd := 'zoo -list %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4095
                    select := 9.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4096
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4097
                (suffix = 'zip') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4098
                    cmd := 'unzip -l %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4099
                    select := 8.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4100
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4101
                (suffix = 'jar') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4102
                    cmd := 'unzip -l %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4103
                    select := 8.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4104
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4105
                (suffix = 'z') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4106
                    (fileName asLowercase endsWith:'tar.z') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4107
                        cmd := 'zcat %1 | tar tvf -'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4108
                        select := false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4109
                    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4110
                        cmd := 'uncompress %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4111
                    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4112
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4113
                (suffix = 'gz') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4114
                    (fileName asLowercase endsWith:'tar.gz') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4115
                        cmd := ('gunzip < %1 | tar tvf -' ).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4116
                        select := false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4117
                    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4118
                        cmd := 'gunzip %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4119
                    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4120
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4121
                (suffix = 'html') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4122
                    cmd := 'netscape %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4123
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4124
                (suffix = 'htm') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4125
                    cmd := 'netscape %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4126
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4127
                (suffix = 'uue') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4128
                    cmd := 'uudecode %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4129
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4130
                (suffix = 'c') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4131
                    cmd := 'cc -c %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4132
                    select := 5.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4133
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4134
                (suffix = 'cc') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4135
                    cmd := 'g++ -c %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4136
                    select := 6.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4137
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4138
                (suffix = 'xbm') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4139
                    cmd := 'bitmap %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4140
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4141
                (suffix = 'ps') ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4142
                    cmd := 'ghostview %1'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4143
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4144
                ((suffix = '1') or:[suffix = 'man']) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4145
                    cmd := 'nroff -man %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4146
                    select := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4147
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4148
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4149
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4150
321c1729db5b initial checkin
penk
parents:
diff changeset
  4151
        cmd isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4152
            DefaultCommandPerSuffix isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4153
                cmd := '<cmd>'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4154
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4155
                cmd := DefaultCommandPerSuffix 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4156
                        at:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4157
                        ifAbsent:'<cmd>'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4158
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4159
            cmd := cmd , ' %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4160
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4161
321c1729db5b initial checkin
penk
parents:
diff changeset
  4162
        cmd := cmd bindWith:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4163
        select == false ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4164
            aBox initialText:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  4165
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4166
            select class == Interval ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4167
                aBox initialText:cmd selectFrom:select start to:select stop
321c1729db5b initial checkin
penk
parents:
diff changeset
  4168
            ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4169
                select isInteger ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4170
                    select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4171
                ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4172
                aBox initialText:cmd selectFrom:1 to:select
321c1729db5b initial checkin
penk
parents:
diff changeset
  4173
            ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4174
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4175
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4176
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4177
321c1729db5b initial checkin
penk
parents:
diff changeset
  4178
isAbstractFileBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4179
321c1729db5b initial checkin
penk
parents:
diff changeset
  4180
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4181
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4182
321c1729db5b initial checkin
penk
parents:
diff changeset
  4183
systemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4184
321c1729db5b initial checkin
penk
parents:
diff changeset
  4185
    ^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4186
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4187
321c1729db5b initial checkin
penk
parents:
diff changeset
  4188
systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4189
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4190
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4191
321c1729db5b initial checkin
penk
parents:
diff changeset
  4192
!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4193
321c1729db5b initial checkin
penk
parents:
diff changeset
  4194
allItemsOfCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4195
321c1729db5b initial checkin
penk
parents:
diff changeset
  4196
    ^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4197
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4198
321c1729db5b initial checkin
penk
parents:
diff changeset
  4199
anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4200
321c1729db5b initial checkin
penk
parents:
diff changeset
  4201
    | directories |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4202
321c1729db5b initial checkin
penk
parents:
diff changeset
  4203
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4204
    directories do:[ : dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4205
        (dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
321c1729db5b initial checkin
penk
parents:
diff changeset
  4206
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4207
    ^ false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4208
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4209
321c1729db5b initial checkin
penk
parents:
diff changeset
  4210
currentFilesAreInSameDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4211
321c1729db5b initial checkin
penk
parents:
diff changeset
  4212
    ^ (self currentDirectories value size == 1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4213
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4214
321c1729db5b initial checkin
penk
parents:
diff changeset
  4215
currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  4216
321c1729db5b initial checkin
penk
parents:
diff changeset
  4217
    ^ self currentDirectories value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4218
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4219
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4220
directoriesForFiles:aFileCol
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4221
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4222
    ^ ((aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4223
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4224
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4225
fileListIsEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4226
321c1729db5b initial checkin
penk
parents:
diff changeset
  4227
    ^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4228
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4229
321c1729db5b initial checkin
penk
parents:
diff changeset
  4230
fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4231
321c1729db5b initial checkin
penk
parents:
diff changeset
  4232
    ^ self fileListIsEmpty not.   
321c1729db5b initial checkin
penk
parents:
diff changeset
  4233
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4234
321c1729db5b initial checkin
penk
parents:
diff changeset
  4235
fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin
penk
parents:
diff changeset
  4236
321c1729db5b initial checkin
penk
parents:
diff changeset
  4237
" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin
penk
parents:
diff changeset
  4238
321c1729db5b initial checkin
penk
parents:
diff changeset
  4239
    | file1 file2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4240
321c1729db5b initial checkin
penk
parents:
diff changeset
  4241
    aFilename2 isNil ifTrue:[ ^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4242
    aFilename1 isNil ifTrue:[ ^ false].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4243
    file1 := aFilename1 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4244
    file2 := aFilename2 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4245
    file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4246
    ((file1 isDirectory) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4247
    and:[(file2 isDirectory)
321c1729db5b initial checkin
penk
parents:
diff changeset
  4248
    and:[file1 directory = file2 directory]]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4249
        ^ file1 baseName = file2 baseName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4250
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4251
    ^ (file1 pathName) startsWith:(file2 pathName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4252
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4253
321c1729db5b initial checkin
penk
parents:
diff changeset
  4254
getAllFilesAsStringCollection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4255
321c1729db5b initial checkin
penk
parents:
diff changeset
  4256
    ^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4257
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4258
321c1729db5b initial checkin
penk
parents:
diff changeset
  4259
getBestDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4260
321c1729db5b initial checkin
penk
parents:
diff changeset
  4261
    |selFiles stringCol firstPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4262
321c1729db5b initial checkin
penk
parents:
diff changeset
  4263
    selFiles := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4264
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4265
    selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4266
    stringCol := (selFiles collect:[: file| file asString]) asOrderedCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4267
    firstPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4268
    stringCol from:2 do:[:el|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4269
         firstPre :=  firstPre commonPrefixWith:el.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4270
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4271
    (firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4272
        firstPre removeLast.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4273
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4274
    ^ firstPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4275
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4276
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4277
getCommonForCurrentFiles
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4278
321c1729db5b initial checkin
penk
parents:
diff changeset
  4279
    |selFiles stringCol firtsPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4280
321c1729db5b initial checkin
penk
parents:
diff changeset
  4281
    selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4282
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4283
    stringCol := selFiles collect:[: file| file asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4284
    firtsPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4285
    stringCol from:2 do:[:el|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4286
         firtsPre :=  firtsPre commonPrefixWith:el.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4287
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4288
    ^ firtsPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4289
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4290
321c1729db5b initial checkin
penk
parents:
diff changeset
  4291
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4292
321c1729db5b initial checkin
penk
parents:
diff changeset
  4293
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4294
    aFileName isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4295
        ^ aFileName.    
321c1729db5b initial checkin
penk
parents:
diff changeset
  4296
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4297
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4298
    dir isDirectory ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4299
        dir := dir directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4300
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4301
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4302
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4303
321c1729db5b initial checkin
penk
parents:
diff changeset
  4304
getInfoItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4305
    "get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin
penk
parents:
diff changeset
  4306
     This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4307
     You can add more names below if you like."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4308
321c1729db5b initial checkin
penk
parents:
diff changeset
  4309
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4310
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4311
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4312
    (directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4313
321c1729db5b initial checkin
penk
parents:
diff changeset
  4314
    #( 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4315
       '.dir.info'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4316
       'README'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4317
       'ReadMe'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4318
       'Readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4319
       'readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4320
       'read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4321
       'Read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4322
       'READ.ME'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4323
       'README.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4324
       'readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4325
       'Readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4326
       'Info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4327
       'info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4328
       'INFO.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4329
    ) do:[:f | 
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4330
        |n dir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4331
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4332
        n := (directories first) construct:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4333
        (n isReadable and:[n isDirectory not]) ifTrue:[
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4334
            ^ DirectoryContentsBrowser itemClass fileName:n
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4335
        ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4336
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4337
    ^ nil
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4338
! !
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4339
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4340
!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4341
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4342
currentSelectedDirectories
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4343
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4344
    ^ self currentDirectories value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4345
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4346
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4347
currentSelectedFiles
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4348
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4349
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4350
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4351
    ^ (files select:[: file | file isDirectory not]).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4352
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4353
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4354
firstSelectedFile
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4355
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4356
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4357
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4358
    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4359
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4360
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4361
!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4362
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4363
currentSortOrder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4364
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4365
    " returns a Ordered Collection of all directories currently selected 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4366
      if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4367
    "
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4368
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4369
    ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4370
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4371
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4372
makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4373
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4374
    ^ [:a :b|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4375
        |aIsDir bIsDir res|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4376
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4377
        aIsDir := a isDirectory.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4378
        bIsDir := b isDirectory.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4379
        (aIsDir ~~ bIsDir) ifTrue:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4380
            res := aIsDir 
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4381
        ] ifFalse:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4382
            res := aSortBlock value:a value:b.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4383
        ].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4384
        res
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4385
      ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4386
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4387
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4388
sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4389
    |nameSortBlock|
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4390
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4391
    ^ self aspectFor:#sortBlockHolder ifAbsent:[
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4392
        self sortCaseless value ifTrue:[
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4393
            nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4394
        ] ifFalse:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4395
            nameSortBlock := [ :a :b | a asString < b asString.].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4396
        ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4397
        (self makeDirectorySortBlockFor:nameSortBlock) asValue.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4398
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4399
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4400
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4401
sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4402
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4403
    
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4404
    ^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4405
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4406
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4407
sortCaseless
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4408
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4409
    ^ self aspectFor:#sortCaseless ifAbsent:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4410
        | holder |
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4411
        holder := (Filename isCaseSensitive not) asValue.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4412
        holder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4413
    ]
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4414
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4415
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4416
sortFileListsBy:instanceName 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4417
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4418
    self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4419
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4420
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4421
sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4422
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4423
    | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse|
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4424
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4425
    aSymbol := instanceName asSymbol.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4426
    self sortBlockProperty setValue:instanceName asSymbol.
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4427
    currentSortOrder := self currentSortOrder value.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4428
    currentSortOrder isEmpty ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4429
        currentSortOrder at:#column put:aSymbol.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4430
        currentSortOrder at:#reverse put:false.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4431
        currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4432
    ] ifFalse:[
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4433
        (currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4434
            "/ sort caseless changed
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4435
            currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4436
        ] ifFalse:[
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4437
            (currentSortOrder at:#column) = aSymbol ifTrue:[
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4438
                "/ same column like before - change sort order ifReverse is true
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4439
                aBoolean ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4440
                    | isReverse |
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4441
                    isReverse := currentSortOrder at:#reverse.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4442
                    currentSortOrder at:#reverse put:(isReverse not).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4443
                ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4444
            ] ifFalse:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4445
                "/ another column - remark column
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4446
                currentSortOrder at:#column put:aSymbol.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4447
            ]
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4448
        ]
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4449
    ].
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4450
    self currentSortOrder changed.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4451
    sortCaselessLocal := self sortCaseless value.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4452
    (currentSortOrder at:#reverse) ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4453
        cmpOp := #'>'
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4454
    ] ifFalse:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4455
        cmpOp := #'<'
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4456
    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4457
    sortReverse := currentSortOrder at:#reverse.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4458
    instanceSortBlock := [:a :b | 
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4459
        |entry1 entry2|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4460
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4461
        ((a respondsTo:aSymbol) not) ifTrue:[
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4462
            true
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4463
        ] ifFalse:[
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4464
            entry1 := (a perform:aSymbol).
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4465
            entry2 := (b perform:aSymbol).
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4466
            ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4467
                ((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4468
                    ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4469
                       sortReverse
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4470
                    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4471
                    sortReverse not
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4472
                ]
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4473
            ] ifFalse:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4474
                (aSymbol = #baseName) ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4475
                    sortCaselessLocal ifTrue:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4476
                        entry1 := entry1 asString asLowercase.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4477
                        entry2 := entry2 asString asLowercase.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4478
                    ] ifFalse:[
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4479
                        entry1 := entry1 asString.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4480
                        entry2 := entry2 asString.
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4481
                    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4482
                ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4483
                entry1 perform:cmpOp with:entry2
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4484
            ]
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4485
        ]
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4486
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4487
    self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4488
! !
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4489
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4490
!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4491
321c1729db5b initial checkin
penk
parents:
diff changeset
  4492
makeDependent
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4493
    self filterModel addDependent:self.
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4494
    self currentFileNameHolder addDependent:self.
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4495
    self sortBlockProperty addDependent:self.
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4496
    self sortCaseless addDependent:self.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4497
    self showHiddenFiles addDependent:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4498
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4499
321c1729db5b initial checkin
penk
parents:
diff changeset
  4500
masterApplication:anApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  4501
321c1729db5b initial checkin
penk
parents:
diff changeset
  4502
    masterApplication isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4503
        (anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4504
            aspects := anApplication aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  4505
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4506
            aspects isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4507
                aspects := IdentityDictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4508
                aspects at:#applications put:(IdentityDictionary new).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4509
            ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4510
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4511
        self applications at:(self className) put:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4512
        self makeDependent.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4513
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4514
    ^ super masterApplication:anApplication.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4515
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4516
321c1729db5b initial checkin
penk
parents:
diff changeset
  4517
postOpenWith:aBuilder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4518
321c1729db5b initial checkin
penk
parents:
diff changeset
  4519
    super postOpenWith:aBuilder.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4520
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4521
321c1729db5b initial checkin
penk
parents:
diff changeset
  4522
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4523
321c1729db5b initial checkin
penk
parents:
diff changeset
  4524
files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4525
    "return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4526
321c1729db5b initial checkin
penk
parents:
diff changeset
  4527
    ^ files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4528
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4529
321c1729db5b initial checkin
penk
parents:
diff changeset
  4530
files:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4531
    "set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4532
321c1729db5b initial checkin
penk
parents:
diff changeset
  4533
    files := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4534
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4535
321c1729db5b initial checkin
penk
parents:
diff changeset
  4536
method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4537
    "return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4538
321c1729db5b initial checkin
penk
parents:
diff changeset
  4539
    ^ method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4540
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4541
321c1729db5b initial checkin
penk
parents:
diff changeset
  4542
method:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4543
    "set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4544
321c1729db5b initial checkin
penk
parents:
diff changeset
  4545
    method := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4546
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4547
321c1729db5b initial checkin
penk
parents:
diff changeset
  4548
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4549
321c1729db5b initial checkin
penk
parents:
diff changeset
  4550
locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  4551
    "return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4552
321c1729db5b initial checkin
penk
parents:
diff changeset
  4553
    locked isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4554
        locked := false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4555
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4556
    ^ locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  4557
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4558
321c1729db5b initial checkin
penk
parents:
diff changeset
  4559
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4560
321c1729db5b initial checkin
penk
parents:
diff changeset
  4561
doIfUnLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  4562
321c1729db5b initial checkin
penk
parents:
diff changeset
  4563
    self locked ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4564
        aBlock value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4565
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4566
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4567
321c1729db5b initial checkin
penk
parents:
diff changeset
  4568
doLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  4569
321c1729db5b initial checkin
penk
parents:
diff changeset
  4570
    locked  := true.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4571
    aBlock ensure:[
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4572
        locked := false.
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4573
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4574
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4575
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4576
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4577
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4578
historySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4579
321c1729db5b initial checkin
penk
parents:
diff changeset
  4580
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  4581
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4582
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4583
!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4584
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4585
new
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4586
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4587
    ^ super new initialize.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4588
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4589
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4590
!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4591
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4592
forwardList
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4593
    "return the value of the instance variable 'forwardList' (automatically generated)"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4594
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4595
    forwardList isNil ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4596
        forwardList := OrderedCollection new.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4597
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4598
    ^ forwardList
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4599
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4600
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4601
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4602
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4603
addToHistory:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4604
    | item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4605
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4606
    item := self getItemFor:aPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4607
    (lastBackPath notNil and:[lastAddPath notNil and:[lastBackPath = aPath]]) ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4608
        lastAddPath := nil.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4609
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4610
    lastAddPath notNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4611
        self backListAdd:lastAddPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4612
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4613
    lastAddPath := aPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4614
    item isNil ifTrue:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4615
        " not already in history"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4616
        self size >= self class historySize ifTrue:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4617
            self removeLast.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4618
        ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4619
        item := DirectoryHistoryItem path:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4620
        self addFirst:item
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4621
    ] ifFalse:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4622
        "already been there before; move the entry to
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4623
         the beginning, so it will fall out later."
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4624
        self remove:item.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4625
        self addFirst:item
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4626
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4627
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4628
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4629
backListAdd:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4630
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4631
    backList size >= self class historySize ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4632
        backList removeLast.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4633
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4634
    backList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4635
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4636
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4637
forwardListAdd:aPath
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4638
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4639
    forwardList size >= self class historySize ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4640
        forwardList removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4641
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4642
    forwardList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4643
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4644
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4645
goBack
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4646
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4647
" search the item in the list and give back the next in the list"
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4648
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4649
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4650
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4651
    backList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4652
    retPath := backList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4653
    self forwardListAdd:(self first path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4654
    lastBackPath := retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4655
    backList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4656
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4657
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4658
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4659
goForward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4660
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4661
" return first path of forward list"
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4662
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4663
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4664
    self forwardList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4665
    retPath := self forwardList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4666
    self forwardList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4667
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4668
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4669
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4670
resetForwardBackward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4671
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4672
    backList := self collect:[:item| item path].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4673
    forwardList := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4674
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4675
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4676
setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4677
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4678
    self do:[:item| 
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4679
        item path = aPath ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4680
            item position:aPosition.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4681
        ]
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4682
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4683
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4684
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4685
xxgoBackFrom:aPath
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4686
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4687
" search the item in the list and give back the next in the list"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4688
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4689
    | index retVal|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4690
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4691
    self isEmpty ifTrue:[ ^ nil].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4692
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4693
    aPath isNil ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4694
        retVal := self first path
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4695
    ] ifFalse:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4696
        index := self findFirst:[:item| item path = aPath].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4697
        index == 0 ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4698
            retVal := self first path
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4699
        ] ifFalse:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4700
            index < self size ifTrue:[
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4701
                retVal := ((self at:index + 1) path).
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4702
            ]
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4703
        ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4704
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4705
    retVal := retVal ? self first path.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4706
    self forwardListAdd:aPath.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4707
    ^ retVal.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4708
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4709
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4710
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4711
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4712
initialize
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4713
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4714
    backList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4715
    forwardList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4716
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4717
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4718
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4719
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  4720
canBack
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4721
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4722
    ^ backList notEmpty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4723
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4724
321c1729db5b initial checkin
penk
parents:
diff changeset
  4725
canForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  4726
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4727
    ^ self forwardList notEmpty.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4728
!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4729
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4730
getBackCollectionFrom:aPath
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4731
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4732
"/    | backCol index |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4733
"/    
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4734
"/    backCol := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4735
"/    aPath isNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4736
"/        index := 0.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4737
"/    ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4738
"/        index := self findFirst:[:item| item path = aPath].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4739
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4740
"/    "/ if aPath is not in collection starts from 1 with collect af path
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4741
"/    index < self size ifTrue:[ 
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4742
"/        self from:(index + 1) to:(self size) do:[:item |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4743
"/            backCol add:(item path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4744
"/        ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4745
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  4746
    ^ backList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4747
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4748
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4749
getForwardCollection
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4750
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4751
    ^ self forwardList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4752
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4753
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4754
getItemFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4755
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4756
    self do:[:item| item path = aPath ifTrue:[^ item]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4757
    ^ nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4758
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4759
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4760
getPositionFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4761
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4762
    |item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4763
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4764
    item := self getItemFor:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4765
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4766
    item notNil ifTrue:[
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4767
        ^ item position.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4768
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4769
    ^ nil
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4770
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4771
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4772
includesPath:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4773
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4774
    self do:[:item| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4775
    ^ false.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4776
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4777
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4778
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4779
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4780
path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4781
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4782
    ^ self new path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4783
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4784
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4785
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4786
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4787
path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4788
    "return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4789
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4790
    ^ path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4791
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4792
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4793
path:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4794
    "set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4795
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4796
    path := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4797
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4798
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4799
position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4800
    "return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4801
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4802
    ^ position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4803
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4804
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4805
position:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4806
    "set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4807
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4808
    position := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4809
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4810
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4811
printString
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4812
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4813
    ^ self path asString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4814
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4815
321c1729db5b initial checkin
penk
parents:
diff changeset
  4816
!AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4817
321c1729db5b initial checkin
penk
parents:
diff changeset
  4818
FilenameHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  4819
321c1729db5b initial checkin
penk
parents:
diff changeset
  4820
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  4821
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4822
321c1729db5b initial checkin
penk
parents:
diff changeset
  4823
HistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  4824
321c1729db5b initial checkin
penk
parents:
diff changeset
  4825
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  4826
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4827
321c1729db5b initial checkin
penk
parents:
diff changeset
  4828
!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4829
321c1729db5b initial checkin
penk
parents:
diff changeset
  4830
add:aApplItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4831
321c1729db5b initial checkin
penk
parents:
diff changeset
  4832
    super add:aApplItem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4833
    (self size > self class FilenameHistorySize) ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4834
        self removeLast.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4835
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4836
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4837
321c1729db5b initial checkin
penk
parents:
diff changeset
  4838
!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4839
321c1729db5b initial checkin
penk
parents:
diff changeset
  4840
withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  4841
321c1729db5b initial checkin
penk
parents:
diff changeset
  4842
    | instance |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4843
321c1729db5b initial checkin
penk
parents:
diff changeset
  4844
    instance := self basicNew.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4845
    instance value:aValue.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4846
    instance isHolder:aBoolean.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4847
    ^ instance
321c1729db5b initial checkin
penk
parents:
diff changeset
  4848
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4849
321c1729db5b initial checkin
penk
parents:
diff changeset
  4850
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4851
321c1729db5b initial checkin
penk
parents:
diff changeset
  4852
isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4853
    "return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4854
321c1729db5b initial checkin
penk
parents:
diff changeset
  4855
    ^ isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4856
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4857
321c1729db5b initial checkin
penk
parents:
diff changeset
  4858
isHolder:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4859
    "set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4860
321c1729db5b initial checkin
penk
parents:
diff changeset
  4861
    isHolder := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4862
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4863
321c1729db5b initial checkin
penk
parents:
diff changeset
  4864
value
321c1729db5b initial checkin
penk
parents:
diff changeset
  4865
    "return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4866
321c1729db5b initial checkin
penk
parents:
diff changeset
  4867
    ^ value
321c1729db5b initial checkin
penk
parents:
diff changeset
  4868
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4869
321c1729db5b initial checkin
penk
parents:
diff changeset
  4870
value:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4871
    "set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4872
321c1729db5b initial checkin
penk
parents:
diff changeset
  4873
    value := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4874
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4875
321c1729db5b initial checkin
penk
parents:
diff changeset
  4876
!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4877
321c1729db5b initial checkin
penk
parents:
diff changeset
  4878
version
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  4879
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.32 2002-10-25 12:02:22 penk Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4880
! !