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