AbstractFileBrowser.st
author Claus Gittinger <cg@exept.de>
Fri, 15 Nov 2002 12:23:56 +0100
changeset 4250 5637f9e6c683
parent 4230 805e8d4b4ec7
child 4288 1433441aca41
permissions -rw-r--r--
moved some aspects down to concrete class
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'
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
     5
	classVariableNames:'DirectoryHistory DefaultCommandPerMIME RuntimeAspects
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
     6
		DirectoryBookmarks LastEnforcedNameSpace CommandHistory
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
     7
		DefaultCommandPerSuffix CommandHistorySize LastFileDiffFile
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
     8
		DefaultFilters'
4101
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:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
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:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   104
	CommandHistory := OrderedCollection new.
3892
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
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   111
    "max no of entries in the HistoryList "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   112
    CommandHistorySize isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   113
	CommandHistorySize := 50
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   114
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   115
    ^ CommandHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
   116
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   117
321c1729db5b initial checkin
penk
parents:
diff changeset
   118
defaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   119
321c1729db5b initial checkin
penk
parents:
diff changeset
   120
    DefaultCommandPerMIME isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   121
	self initializeDefaultCommands
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   122
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   123
    ^ DefaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   124
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   125
321c1729db5b initial checkin
penk
parents:
diff changeset
   126
defaultFilterList
321c1729db5b initial checkin
penk
parents:
diff changeset
   127
321c1729db5b initial checkin
penk
parents:
diff changeset
   128
    DefaultFilters isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   129
	DefaultFilters := #(        '*'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   130
				    '*.st' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   131
				    '*.htm*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   132
				    '*.txt' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   133
				    '*.gif' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   134
				    '*.xpm' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   135
				    '*.jpg' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   136
				    '*.[h,c]*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   137
				)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   138
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   139
    ^ DefaultFilters.
321c1729db5b initial checkin
penk
parents:
diff changeset
   140
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   141
321c1729db5b initial checkin
penk
parents:
diff changeset
   142
directoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   143
321c1729db5b initial checkin
penk
parents:
diff changeset
   144
    DirectoryBookmarks isNil ifTrue:[                     
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   145
	DirectoryBookmarks := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   146
	DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   147
	DirectoryBookmarks add:Filename tempDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   148
	DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   149
	Smalltalk systemPath do:[:path |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   150
	    ((path ~= '.') and:[path asFilename exists]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   151
		DirectoryBookmarks add:path asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   152
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   153
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   154
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   155
    ^ DirectoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   156
321c1729db5b initial checkin
penk
parents:
diff changeset
   157
"/    DirectoryBookmarks := nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   158
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   159
321c1729db5b initial checkin
penk
parents:
diff changeset
   160
initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   161
    DefaultCommandPerMIME := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   162
321c1729db5b initial checkin
penk
parents:
diff changeset
   163
    DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   164
    DefaultCommandPerMIME at:'application/pdf'              put:'acroread -display %2 %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   165
321c1729db5b initial checkin
penk
parents:
diff changeset
   166
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   167
     self initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   168
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   169
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   170
321c1729db5b initial checkin
penk
parents:
diff changeset
   171
listOfRuntimeValuesToRemark
321c1729db5b initial checkin
penk
parents:
diff changeset
   172
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   173
    " list of all aspects that will be saved after close of FileBrowserV2"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   174
321c1729db5b initial checkin
penk
parents:
diff changeset
   175
    ^ #(
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   176
           #rootHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   177
           #filterModel
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   178
           #enableFileHistory
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   179
           #fileHistory
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   180
           #currentFileNameHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   181
           #currentSortOrder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   182
           #sortBlockProperty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   183
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   184
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   185
321c1729db5b initial checkin
penk
parents:
diff changeset
   186
resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   187
321c1729db5b initial checkin
penk
parents:
diff changeset
   188
    RuntimeAspects := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
   189
321c1729db5b initial checkin
penk
parents:
diff changeset
   190
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   191
    self resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   192
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   193
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   194
321c1729db5b initial checkin
penk
parents:
diff changeset
   195
runtimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   196
321c1729db5b initial checkin
penk
parents:
diff changeset
   197
    RuntimeAspects isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   198
	RuntimeAspects := Dictionary new.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   199
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   200
    ^ RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   201
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   202
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   203
userPreferencesAspectList
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   204
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   205
    " list of all aspects that will be saved with save settings
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   206
      that aspects will be image consistent if the settings are saved in Launcher
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   207
      dont forget to add a access methos in Userpreferences if you add a aspect here
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   208
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   209
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   210
    ^ #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   211
           #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   212
           #showDirectoryTree  
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   213
           #showHiddenFiles          
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   214
           #viewDescription        
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   215
           #viewDetails              
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   216
           #viewDirectoryDescription
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   217
           #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   218
           #viewGroup                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   219
           #viewOwner                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   220
           #viewPermissions          
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   221
           #viewPreview              
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   222
           #viewSize                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   223
           #viewTime                 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   224
           #viewType  
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   225
           #openMultipleApplicationsForType
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   226
           #filenameEntryFieldVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   227
           #toolBarVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   228
           #sortDirectoriesBeforeFiles
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   229
           #openAlwaysInTextEditor
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   230
           #sortCaseless
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   231
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   232
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   233
321c1729db5b initial checkin
penk
parents:
diff changeset
   234
!AbstractFileBrowser class methodsFor:'image'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   235
321c1729db5b initial checkin
penk
parents:
diff changeset
   236
DisabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   237
321c1729db5b initial checkin
penk
parents:
diff changeset
   238
    DisabledCursorImage isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   239
	DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   240
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   241
    ^ DisabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   242
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   243
321c1729db5b initial checkin
penk
parents:
diff changeset
   244
EnabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   245
321c1729db5b initial checkin
penk
parents:
diff changeset
   246
    EnabledCursorImage isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   247
	EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   248
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   249
    ^ EnabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   250
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   251
321c1729db5b initial checkin
penk
parents:
diff changeset
   252
!AbstractFileBrowser class methodsFor:'image specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   253
321c1729db5b initial checkin
penk
parents:
diff changeset
   254
clearHistoryIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   255
    ^ Icon deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   256
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   257
321c1729db5b initial checkin
penk
parents:
diff changeset
   258
closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   259
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   260
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   261
321c1729db5b initial checkin
penk
parents:
diff changeset
   262
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   263
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   264
321c1729db5b initial checkin
penk
parents:
diff changeset
   265
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   266
     self closeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   267
     ImageEditor openOnClass:self andSelector:#closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   268
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   269
321c1729db5b initial checkin
penk
parents:
diff changeset
   270
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   271
321c1729db5b initial checkin
penk
parents:
diff changeset
   272
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   273
	constantNamed:#'AbstractFileBrowser class closeIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   274
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   275
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@HB@ @@@@@@@@@B@ H@@@@@@@@@@@@@@ HB@@@@@@@B@ H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   276
@@@@@@@B@ H@@@@B@ H@@@@@@@@@@@@@@@@@@@HB@ @B@ H@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   277
@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ H@@ HB@@@@@@@@@@@@@@@@@@@B@ H@@@@B@ H@@@@@@@@A@@@@@@@B@ H@@@@@@@HB@ @@@@@@@@@@@@@B
321c1729db5b initial checkin
penk
parents:
diff changeset
   278
@ H@@@@@@@@@@ HB@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@PD@@P@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   279
@@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
   280
@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
   281
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   282
321c1729db5b initial checkin
penk
parents:
diff changeset
   283
copyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   284
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   285
321c1729db5b initial checkin
penk
parents:
diff changeset
   286
    ^ ToolbarIconLibrary copy20x20Icon "copy28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   287
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   288
321c1729db5b initial checkin
penk
parents:
diff changeset
   289
cutIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   290
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   291
321c1729db5b initial checkin
penk
parents:
diff changeset
   292
    ^ ToolbarIconLibrary cut20x20Icon2 "cut28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   293
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   294
321c1729db5b initial checkin
penk
parents:
diff changeset
   295
deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   296
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   297
321c1729db5b initial checkin
penk
parents:
diff changeset
   298
    ^ ToolbarIconLibrary erase20x20Icon "/ delete28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   299
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   300
321c1729db5b initial checkin
penk
parents:
diff changeset
   301
diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   302
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   303
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   304
321c1729db5b initial checkin
penk
parents:
diff changeset
   305
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   306
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   307
321c1729db5b initial checkin
penk
parents:
diff changeset
   308
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   309
     self diffIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   310
     ImageEditor openOnClass:self andSelector:#diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   311
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   312
321c1729db5b initial checkin
penk
parents:
diff changeset
   313
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   314
321c1729db5b initial checkin
penk
parents:
diff changeset
   315
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   316
	constantNamed:#'AbstractFileBrowser class diffIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   317
	ifAbsentPut:[(Depth8Image new) width: 26; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   318
@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@DA XFA XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@XFA @F
321c1729db5b initial checkin
penk
parents:
diff changeset
   319
A XD@@@@@@@@@@@@@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA @FA XFA@@@@@@@@@@@@@@@@@@@@@@@A@XF@@XFA XD@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   320
@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA X@A XFA@@@@@@@@@@@@@@@@@@@@@@@A@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA XF
321c1729db5b initial checkin
penk
parents:
diff changeset
   321
A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XFA XFA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   322
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   323
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   324
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   325
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   326
321c1729db5b initial checkin
penk
parents:
diff changeset
   327
fileInIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   328
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   329
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   330
    ^ ToolbarIconLibrary fileIn20x20Icon3
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   331
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   332
321c1729db5b initial checkin
penk
parents:
diff changeset
   333
goHomeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   334
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   335
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   336
321c1729db5b initial checkin
penk
parents:
diff changeset
   337
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   338
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   339
321c1729db5b initial checkin
penk
parents:
diff changeset
   340
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   341
     self goHomeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   342
     ImageEditor openOnClass:self andSelector:#goHomeIcon
4084
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   343
     Icon flushCachedIcons
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   344
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   345
321c1729db5b initial checkin
penk
parents:
diff changeset
   346
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   347
321c1729db5b initial checkin
penk
parents:
diff changeset
   348
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   349
	constantNamed:#'AbstractFileBrowser class goHomeIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   350
	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
   351
@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@DQ@@@@@@@@@@@@DQDP@@@@@@@@@@DQ@QD@@@@@@@@@DQH2DQ@@@@@@@@DQH4L!!DP@@@@@@DQH4QCHQD@@@@@
ada0669d06bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4089
diff changeset
   352
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
   353
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
   354
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   355
321c1729db5b initial checkin
penk
parents:
diff changeset
   356
hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   357
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   358
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   359
321c1729db5b initial checkin
penk
parents:
diff changeset
   360
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   361
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   362
321c1729db5b initial checkin
penk
parents:
diff changeset
   363
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   364
     self hexToggle22x22Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   365
     ImageEditor openOnClass:self andSelector:#hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   366
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   367
321c1729db5b initial checkin
penk
parents:
diff changeset
   368
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   369
321c1729db5b initial checkin
penk
parents:
diff changeset
   370
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   371
	constantNamed:#'AbstractFileBrowser class hexToggle22x22Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   372
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   373
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   374
@@@@@@TEAP@E@@TEAPT@@@@@@@@@@@@@@@@EAP@@AP@@APTE@@@@@@@@@@@@@@@@APTE@@T@APTEAP@@@@@@@@@@@@@@@@T@@@@E@@TEAPT@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   375
@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@@@@@@@T@AP@E@@T@APT@@@@@@@@@@@@@@@@E@@@@AP@@@@TE@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   376
AP@E@@T@AP@EAP@@@@@@@@@@@@@@@@T@AP@E@@@@APT@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   377
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   378
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   379
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   380
321c1729db5b initial checkin
penk
parents:
diff changeset
   381
historyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   382
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   383
321c1729db5b initial checkin
penk
parents:
diff changeset
   384
    ^ ToolbarIconLibrary history20x20Icon "/ history28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   385
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   386
321c1729db5b initial checkin
penk
parents:
diff changeset
   387
homeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   388
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   389
321c1729db5b initial checkin
penk
parents:
diff changeset
   390
    ^ ToolbarIconLibrary home28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   391
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   392
321c1729db5b initial checkin
penk
parents:
diff changeset
   393
htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   394
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   395
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   396
321c1729db5b initial checkin
penk
parents:
diff changeset
   397
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   398
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   399
321c1729db5b initial checkin
penk
parents:
diff changeset
   400
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   401
     self htmlReloadIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   402
     ImageEditor openOnClass:self andSelector:#htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   403
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   404
321c1729db5b initial checkin
penk
parents:
diff changeset
   405
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   406
321c1729db5b initial checkin
penk
parents:
diff changeset
   407
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   408
	constantNamed:#'AbstractFileBrowser class htmlReloadIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   409
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   410
@@@@@@@@@@@UT@@@@@EU@D@@@@UT@@@H@AUP@@@@@EU@@@@@@EU@@@@E@EU@@@@@@EU@@@@@AUUT@@@@@UUP@@@@@EU@@@@@@AT@@@@@@@P@@@@H@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   411
@@@@@@@@@@@@@@@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
   412
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   413
321c1729db5b initial checkin
penk
parents:
diff changeset
   414
leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   415
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   416
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   417
321c1729db5b initial checkin
penk
parents:
diff changeset
   418
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   419
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   420
321c1729db5b initial checkin
penk
parents:
diff changeset
   421
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   422
     self leftArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   423
     ImageEditor openOnClass:self andSelector:#leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   424
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   425
321c1729db5b initial checkin
penk
parents:
diff changeset
   426
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   427
321c1729db5b initial checkin
penk
parents:
diff changeset
   428
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   429
	constantNamed:#'AbstractFileBrowser class leftArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   430
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   431
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   432
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   433
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   434
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
   435
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   436
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   437
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   438
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   439
321c1729db5b initial checkin
penk
parents:
diff changeset
   440
leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   441
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   442
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   443
321c1729db5b initial checkin
penk
parents:
diff changeset
   444
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   445
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   446
321c1729db5b initial checkin
penk
parents:
diff changeset
   447
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   448
     self leftArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   449
     ImageEditor openOnClass:self andSelector:#leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   450
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   451
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   452
321c1729db5b initial checkin
penk
parents:
diff changeset
   453
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   454
321c1729db5b initial checkin
penk
parents:
diff changeset
   455
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   456
	constantNamed:#'AbstractFileBrowser class leftArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   457
	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
   458
@ 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
   459
@@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
   460
@ 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
   461
@@@@@@@@@@@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
   462
@ 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
   463
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   464
321c1729db5b initial checkin
penk
parents:
diff changeset
   465
leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   466
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   467
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   468
321c1729db5b initial checkin
penk
parents:
diff changeset
   469
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   470
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   471
321c1729db5b initial checkin
penk
parents:
diff changeset
   472
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   473
     self leftArrow20x20PlusMenuIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   474
     ImageEditor openOnClass:self andSelector:#leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   475
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   476
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   477
321c1729db5b initial checkin
penk
parents:
diff changeset
   478
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   479
321c1729db5b initial checkin
penk
parents:
diff changeset
   480
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   481
	constantNamed:#'AbstractFileBrowser class leftArrow20x20PlusMenuIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   482
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   483
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@A@ @@@@@@@@@@@@@@@@@@@@@@@PLA@@@@@@@@@@@@@@@@@@@@@@DD
321c1729db5b initial checkin
penk
parents:
diff changeset
   484
APH@@@@@@@@@@@@@@@@@@@@AA @G@P@@@@@@@@@@@@@@@@@@@P @BP(BB0LC@PDAB0@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@AA @@D1PUC!!@QDQXWA1H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   485
@@@@@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
   486
B DRD!!HRD!!HK@@@@@@@@@@@RB!!4"@ @@@@@@@@@@@@@@@@@@@@@RB"DA@@@@@@@@@@@KB0,KB0,K@@@K@PH@@@@@@@@@@@@KB0,KB0@@@@@K@P@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   487
@@@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
   488
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   489
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   490
leftArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   491
    ^ self leftArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   492
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   493
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   494
leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   495
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   496
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   497
321c1729db5b initial checkin
penk
parents:
diff changeset
   498
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   499
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   500
321c1729db5b initial checkin
penk
parents:
diff changeset
   501
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   502
     self leftArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   503
     ImageEditor openOnClass:self andSelector:#leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   504
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   505
321c1729db5b initial checkin
penk
parents:
diff changeset
   506
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   507
321c1729db5b initial checkin
penk
parents:
diff changeset
   508
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   509
	constantNamed:#'AbstractFileBrowser class leftArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   510
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   511
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   512
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   513
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   514
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
   515
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   516
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@KB0,KB0,K@@@@@@@@@@@@@@@@@@@@@@@@B0,KB0,@@@@@@@@@@@@@@@@@@@@@@@@@@@,KB0@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   517
@@@@@@@@@@@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
   518
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   519
321c1729db5b initial checkin
penk
parents:
diff changeset
   520
leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   521
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   522
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   523
321c1729db5b initial checkin
penk
parents:
diff changeset
   524
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   525
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   526
321c1729db5b initial checkin
penk
parents:
diff changeset
   527
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   528
     self leftDownIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   529
     ImageEditor openOnClass:self andSelector:#leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   530
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   531
321c1729db5b initial checkin
penk
parents:
diff changeset
   532
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   533
321c1729db5b initial checkin
penk
parents:
diff changeset
   534
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   535
	constantNamed:#'AbstractFileBrowser class leftDownIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   536
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   537
UUUUUUUUUUUPAUUUUUUUP@UUUUUUUPB!!UUUUUU@B*AUUUUU@B*(UUUUUPB** UUUUPB***AUUUTB***(EUUUB****%UUUR*****UUUUU@*%UUUUUUPJ)UUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   538
UUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*$@@@@AUPJ*****)UTB******UU@******%UPJ*****)UTAUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   539
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
   540
@@@@@@@@@@@@ @@@@\@@@@O @@@G<@@@C? @@A?<@@@?? @@_?<@@G?? @@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C??? @???8@O?
321c1729db5b initial checkin
penk
parents:
diff changeset
   541
?>@C??? @???8@O??>@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   542
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   543
321c1729db5b initial checkin
penk
parents:
diff changeset
   544
leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   545
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   546
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   547
321c1729db5b initial checkin
penk
parents:
diff changeset
   548
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   549
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   550
321c1729db5b initial checkin
penk
parents:
diff changeset
   551
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   552
     self leftIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   553
     ImageEditor openOnClass:self andSelector:#leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   554
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   555
321c1729db5b initial checkin
penk
parents:
diff changeset
   556
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   557
321c1729db5b initial checkin
penk
parents:
diff changeset
   558
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   559
	constantNamed:#'AbstractFileBrowser class leftIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   560
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   561
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUPUUUUUUUUP%UUUUUUUP)UUUUUUUP*P@@@@@AP*$@@@@@@P*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   562
*P********$********)J********U********%V*%UUUUUUUZ)UUUUUUUP*UUUUUUUUV%UUUUUUUUYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   563
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
   564
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@F@@@@C @@@A8@@@@>@@@@_???0O???<G????C????0_???<C????@_???0C8@@@@^@@@@C @@@@X@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   565
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   566
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   567
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   568
makeIcon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   569
    "This resource specification was automatically generated
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   570
     by the ImageEditor of ST/X."
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   571
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   572
    "Do not manually edit this!! If it is corrupted,
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   573
     the ImageEditor may not be able to read the specification."
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   574
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   575
    "
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   576
     self makeIcon inspect
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   577
     ImageEditor openOnClass:self andSelector:#makeIcon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   578
     Icon flushCachedIcons
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   579
    "
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   580
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   581
    <resource: #image>
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   582
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   583
    ^Icon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   584
        constantNamed:#'AbstractFileBrowser class makeIcon'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   585
        ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   586
@@@@@@@@@@@@@@XF@@@@@@@@@@@@@@@@@@@FA X@@@XJB X@@@@FA @@@@@@@@@FB (JA XJB (JA XEB \F@@@@@@@@A (JB (JB (JB (JB (GA @@@@@@
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   587
@@DAB (JB (JB (JB (GAPT@@@@@A XFA XJB (GAPDAB (JAPTFA X@A \JB (JB (GAPD@@@DJB (JB (JA XJB (JB (JA0DEA0DAB (JB (JB TAA XF
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   588
B (JB (EAPTEA0(JB TEAPTA@PDA@PXJB (JB (JB (JB TE@PDA@PDA@PXJB (JB (JB (JB (JA0TA@PD@@PXJB (JB (JB (JB (JB (JA D@@@HDB (J
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   589
@ HJB (JB PDA@(JB X@@@@@@P\G@PDAA (JB XA@PDFA XA@@@@@@DA@PDA@PXJB (F@PDA@PDA@P@@@@@A@PDA@PDFA0(GA D@@PDA@PD@@@@@@@DA@P@@
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   590
@PXFA D@@@@A@PD@@@@@@@@@@@@@@@DA@PDA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@DA@P@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 48 48 48 56 59 56 64 68 64 88 92 88 128 128 128 160 160 160 192 192 192 216 219 216 239 244 239 248 252 248]; mask:((Depth1Image new) width: 22; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@C''#@G?? G?? G?? _??8???<???<???<???<???<_??8_??0O??0O??0O?70GO# @O @@O @@G@@') ; yourself); yourself]
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   591
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   592
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   593
menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   594
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   595
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   596
321c1729db5b initial checkin
penk
parents:
diff changeset
   597
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   598
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   599
321c1729db5b initial checkin
penk
parents:
diff changeset
   600
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   601
     self menuHistoryList9x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   602
     ImageEditor openOnClass:self andSelector:#menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   603
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   604
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   605
321c1729db5b initial checkin
penk
parents:
diff changeset
   606
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   607
321c1729db5b initial checkin
penk
parents:
diff changeset
   608
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   609
	constantNamed:#'AbstractFileBrowser class menuHistoryList9x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   610
	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]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   611
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   612
321c1729db5b initial checkin
penk
parents:
diff changeset
   613
menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   614
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   615
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   616
321c1729db5b initial checkin
penk
parents:
diff changeset
   617
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   618
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   619
321c1729db5b initial checkin
penk
parents:
diff changeset
   620
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   621
     self menuHistoryListIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   622
     ImageEditor openOnClass:self andSelector:#menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   623
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   624
321c1729db5b initial checkin
penk
parents:
diff changeset
   625
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   626
321c1729db5b initial checkin
penk
parents:
diff changeset
   627
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   628
	constantNamed:#'AbstractFileBrowser class menuHistoryListIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   629
	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]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   630
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   631
3923
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   632
newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   633
    "This resource specification was automatically generated
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   634
     by the ImageEditor of ST/X."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   635
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   636
    "Do not manually edit this!! If it is corrupted,
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   637
     the ImageEditor may not be able to read the specification."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   638
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   639
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   640
     self newDirectory20x20Icon inspect
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   641
     ImageEditor openOnClass:self andSelector:#newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   642
     Icon flushCachedIcons
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   643
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   644
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   645
    <resource: #image>
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   646
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   647
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   648
	constantNamed:#'AbstractFileBrowser class newDirectory20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   649
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3923
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   650
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PDA@P@@@@@@@@@@@@@@@@@A@ HB@ HA@@@@@@@@@@@@@@@@@PHB@ HB@ HA
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   651
@@@@@@@@@@@@@@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
   652
@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
   653
@ 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
   654
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   655
!
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   656
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   657
pasteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   658
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   659
321c1729db5b initial checkin
penk
parents:
diff changeset
   660
    ^ ToolbarIconLibrary paste20x20Icon "/ paste28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   661
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   662
321c1729db5b initial checkin
penk
parents:
diff changeset
   663
rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   664
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   665
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   666
321c1729db5b initial checkin
penk
parents:
diff changeset
   667
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   668
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   669
321c1729db5b initial checkin
penk
parents:
diff changeset
   670
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   671
     self rightArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   672
     ImageEditor openOnClass:self andSelector:#rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   673
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   674
321c1729db5b initial checkin
penk
parents:
diff changeset
   675
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   676
321c1729db5b initial checkin
penk
parents:
diff changeset
   677
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   678
	constantNamed:#'AbstractFileBrowser class rightArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   679
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   680
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   681
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   682
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   683
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
   684
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   685
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   686
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   687
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   688
321c1729db5b initial checkin
penk
parents:
diff changeset
   689
rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   690
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   691
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   692
321c1729db5b initial checkin
penk
parents:
diff changeset
   693
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   694
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   695
321c1729db5b initial checkin
penk
parents:
diff changeset
   696
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   697
     self rightArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   698
     ImageEditor openOnClass:self andSelector:#rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   699
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   700
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   701
321c1729db5b initial checkin
penk
parents:
diff changeset
   702
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   703
321c1729db5b initial checkin
penk
parents:
diff changeset
   704
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   705
	constantNamed:#'AbstractFileBrowser class rightArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   706
	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
   707
@ 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
   708
@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
   709
@ 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
   710
@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
   711
@ 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
   712
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   713
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   714
rightArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   715
    ^ self rightArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   716
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   717
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   718
rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   719
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   720
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   721
321c1729db5b initial checkin
penk
parents:
diff changeset
   722
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   723
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   724
321c1729db5b initial checkin
penk
parents:
diff changeset
   725
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   726
     self rightArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   727
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   728
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   729
321c1729db5b initial checkin
penk
parents:
diff changeset
   730
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   731
321c1729db5b initial checkin
penk
parents:
diff changeset
   732
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   733
	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   734
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   735
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   736
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   737
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   738
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
   739
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   740
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   741
@@@@@@@@@@@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
   742
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   743
321c1729db5b initial checkin
penk
parents:
diff changeset
   744
rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   745
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   746
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   747
321c1729db5b initial checkin
penk
parents:
diff changeset
   748
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   749
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   750
321c1729db5b initial checkin
penk
parents:
diff changeset
   751
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   752
     self rightArrowPlusMenu20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   753
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   754
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   755
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   756
321c1729db5b initial checkin
penk
parents:
diff changeset
   757
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   758
321c1729db5b initial checkin
penk
parents:
diff changeset
   759
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   760
	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   761
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   762
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@@@@@@@@@@@@@@@@CA@H@@@@@@@@@@@@@@@@@@@@@@@DE
321c1729db5b initial checkin
penk
parents:
diff changeset
   763
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
   764
@@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
   765
FQDZ@ @@@@@@@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@CAA(B@@@@@@@@@@@@@@@@@@@@@@DZ@ @@@ HB@ HB@ @@@@@@@@@@@0H@@@@@@ HB@ H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   766
@@@@@@@@@@@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
   767
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   768
321c1729db5b initial checkin
penk
parents:
diff changeset
   769
rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   770
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   771
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   772
321c1729db5b initial checkin
penk
parents:
diff changeset
   773
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   774
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   775
321c1729db5b initial checkin
penk
parents:
diff changeset
   776
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   777
     self rightIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   778
     ImageEditor openOnClass:self andSelector:#rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   779
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   780
321c1729db5b initial checkin
penk
parents:
diff changeset
   781
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   782
321c1729db5b initial checkin
penk
parents:
diff changeset
   783
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   784
	constantNamed:#'AbstractFileBrowser class rightIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   785
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   786
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTIUUUUUUUUB%UEUUUUUP*EP@@@@@@J)T@@@@@@B*%B*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   787
*P********(J********B********P********PEUUUUUV*QEUUUUUP*PUUUUUUTJQUUUUUUUBQUUUUUUUPQUUUUUUUPAUUUUUUUTUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   788
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
   789
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@8@@@@O@@@@C8A????@_???8G????A????0_???<G???>A????@@@@O @@@C0@@@@8@@@@L@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   790
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   791
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   792
321c1729db5b initial checkin
penk
parents:
diff changeset
   793
searchIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   794
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   795
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   796
    ^ ToolbarIconLibrary search20x20Icon "/ search28x28Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   797
    "/ ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   798
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   799
321c1729db5b initial checkin
penk
parents:
diff changeset
   800
shellIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   801
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   802
321c1729db5b initial checkin
penk
parents:
diff changeset
   803
    OperatingSystem isMSDOSlike ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   804
	^ ToolbarIconLibrary dos20x20Icon
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   805
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   806
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   807
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   808
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   809
shellWithoutTextIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   810
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   811
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   812
    OperatingSystem isMSDOSlike ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   813
	^ ToolbarIconLibrary dosWithoutText20x20Icon
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   814
    ].
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   815
    ^ ToolbarIconLibrary shellWithoutText20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   816
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   817
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   818
upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   819
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   820
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   821
321c1729db5b initial checkin
penk
parents:
diff changeset
   822
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   823
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   824
321c1729db5b initial checkin
penk
parents:
diff changeset
   825
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   826
     self upArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   827
     ImageEditor openOnClass:self andSelector:#upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   828
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   829
321c1729db5b initial checkin
penk
parents:
diff changeset
   830
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   831
321c1729db5b initial checkin
penk
parents:
diff changeset
   832
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   833
	constantNamed:#'AbstractFileBrowser class upArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   834
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   835
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   836
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   837
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   838
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   839
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   840
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   841
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   842
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   843
321c1729db5b initial checkin
penk
parents:
diff changeset
   844
upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   845
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   846
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   847
321c1729db5b initial checkin
penk
parents:
diff changeset
   848
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   849
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   850
321c1729db5b initial checkin
penk
parents:
diff changeset
   851
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   852
     self upArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   853
     ImageEditor openOnClass:self andSelector:#upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   854
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   855
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   856
321c1729db5b initial checkin
penk
parents:
diff changeset
   857
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   858
321c1729db5b initial checkin
penk
parents:
diff changeset
   859
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   860
	constantNamed:#'AbstractFileBrowser class upArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   861
	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
   862
@ 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
   863
@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
   864
@ 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
   865
@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
   866
@ 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
   867
!
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   868
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   869
upArrow20x20IconOld
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   870
    "This resource specification was automatically generated
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   871
     by the ImageEditor of ST/X."
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   872
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   873
    "Do not manually edit this!! If it is corrupted,
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   874
     the ImageEditor may not be able to read the specification."
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   875
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   876
    "
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   877
     self upArrow20x20IconOld inspect
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   878
     ImageEditor openOnClass:self andSelector:#upArrow20x20IconOld
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   879
     Icon flushCachedIcons
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   880
    "
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   881
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   882
    <resource: #image>
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   883
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   884
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   885
	constantNamed:#'AbstractFileBrowser class upArrow20x20IconOld'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   886
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   887
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@PXG
321c1729db5b initial checkin
penk
parents:
diff changeset
   888
B@PE@@@@@@@@@@@@@@@@@@DI@@\JB@PE@@@@@@@@@@@@@@@AB0@@C@4NC0PE@@@@@@@@@@@@@PX@@@0HB@4PC0PE@@@@@@@@@@DCA1DRBALSBAPNEPPB@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   889
@@@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
   890
EQ<DAP@@@@@@@@@@@@@@@@D@HRHUB PE@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@AE!! YA@PZ@ @@@@@@@@@@@@@@@@HEAPTEAPHB@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   891
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   892
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   893
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   894
upArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   895
    ^ self upArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   896
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   897
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   898
upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   899
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   900
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   901
321c1729db5b initial checkin
penk
parents:
diff changeset
   902
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   903
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   904
321c1729db5b initial checkin
penk
parents:
diff changeset
   905
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   906
     self upArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   907
     ImageEditor openOnClass:self andSelector:#upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   908
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   909
321c1729db5b initial checkin
penk
parents:
diff changeset
   910
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   911
321c1729db5b initial checkin
penk
parents:
diff changeset
   912
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   913
	constantNamed:#'AbstractFileBrowser class upArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   914
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   915
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   916
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   917
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   918
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   919
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   920
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   921
@@@@@@@@@@@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
   922
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   923
321c1729db5b initial checkin
penk
parents:
diff changeset
   924
vt100Terminal
321c1729db5b initial checkin
penk
parents:
diff changeset
   925
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   926
321c1729db5b initial checkin
penk
parents:
diff changeset
   927
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   928
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   929
321c1729db5b initial checkin
penk
parents:
diff changeset
   930
!AbstractFileBrowser class methodsFor:'menu specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   931
321c1729db5b initial checkin
penk
parents:
diff changeset
   932
baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   933
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   934
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   935
321c1729db5b initial checkin
penk
parents:
diff changeset
   936
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   937
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   938
321c1729db5b initial checkin
penk
parents:
diff changeset
   939
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   940
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   941
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser baseBookmarksMenuSpec)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   942
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   943
321c1729db5b initial checkin
penk
parents:
diff changeset
   944
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
   945
321c1729db5b initial checkin
penk
parents:
diff changeset
   946
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
   947
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   948
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   949
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   950
	    #label: 'Add Bookmark'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   951
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   952
	    #value: #addBookmark
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   953
	    #enabled: #currentFilesHasDirectories
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   954
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   955
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   956
	    #label: 'Remove Bookmark'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   957
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   958
	    #value: #removeBookmark
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   959
	    #enabled: #hasBookmarksToRemove
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   960
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   961
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   962
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   963
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   964
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   965
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   966
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   967
browserMenu
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   968
    "This resource specification was automatically generated
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   969
     by the MenuEditor of ST/X."
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   970
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   971
    "Do not manually edit this!! If it is corrupted,
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   972
     the MenuEditor may not be able to read the specification."
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   973
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   974
    "
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   975
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#browserMenu
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   976
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser browserMenu)) startUp
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   977
    "
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   978
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   979
    <resource: #menu>
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   980
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   981
    ^ 
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   982
     #(#Menu
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   983
        #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   984
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   985
            #label: 'Spawn'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   986
            #itemValue: #doSpawn
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   987
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   988
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   989
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   990
            #label: 'Settings'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   991
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   992
            #submenu: 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   993
           #(#Menu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   994
              #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   995
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   996
                  #label: 'Show'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   997
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   998
                  #submenuChannel: #showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   999
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1000
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1001
                  #label: 'Sort'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1002
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1003
                  #submenuChannel: #sortMenu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1004
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1005
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1006
                  #label: 'Details'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1007
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1008
                  #submenuChannel: #viewInContentsBrowserMenu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1009
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1010
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1011
                  #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1012
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1013
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1014
                  #label: 'Toolbar'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1015
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1016
                  #hideMenuOnActivated: false
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1017
                  #indication: #toolBarVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1018
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1019
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1020
                  #label: 'Path Entry && Filter'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1021
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1022
                  #hideMenuOnActivated: false
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1023
                  #indication: #filenameEntryFieldVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1024
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1025
               #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1026
                  #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1027
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1028
               #(#MenuItem
4203
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1029
                  #label: 'Open Multiple Applications'
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1030
                  #translateLabel: true
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1031
                  #hideMenuOnActivated: false
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1032
                  #indication: #openMultipleApplicationsForType
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1033
                )
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1034
               #(#MenuItem
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1035
                  #label: 'Open Always in Text Editor'
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1036
                  #translateLabel: true
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1037
                  #hideMenuOnActivated: false
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1038
                  #indication: #openAlwaysInTextEditor
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1039
                )
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1040
               #(#MenuItem
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1041
                  #label: 'Auto Open Directory Description'
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1042
                  #translateLabel: true
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1043
                  #hideMenuOnActivated: false
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1044
                  #indication: #viewDirectoryDescription
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1045
                )
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1046
               #(#MenuItem
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1047
                  #label: '-'
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1048
                )
09b6fcb69d8f *** empty log message ***
penk
parents: 4201
diff changeset
  1049
               #(#MenuItem
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1050
                  #label: 'Save Settings'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1051
                  #itemValue: #saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1052
                  #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1053
                )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1054
               )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1055
              nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1056
              nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1057
            )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1058
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1059
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1060
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1061
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1062
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1063
            #label: 'Search Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1064
            #itemValue: #doOpenSearchFile
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1065
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1066
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1067
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1068
            #label: 'Shell Terminal'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1069
            #itemValue: #doAddTerminal
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1070
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1071
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1072
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1073
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1074
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1075
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1076
            #label: 'Exit'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1077
            #itemValue: #closeRequest
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1078
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1079
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1080
         )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1081
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1082
        nil
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1083
      )
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1084
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1085
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1086
cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1087
    "This resource specification was automatically generated
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1088
     by the MenuEditor of ST/X."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1089
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1090
    "Do not manually edit this!! If it is corrupted,
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1091
     the MenuEditor may not be able to read the specification."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1092
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1093
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1094
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1095
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser cvsMenu)) startUp
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1096
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1097
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1098
    <resource: #menu>
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1099
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1100
    ^ 
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1101
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1102
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1103
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1104
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1105
	    #label: 'Update selected Files/Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1106
	    #itemValue: #cvsUpdateSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1107
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1108
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1109
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1110
	    #label: 'Update Directory Local'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1111
	    #itemValue: #cvsUpdateAll
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1112
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1113
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1114
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1115
	    #label: 'Update Directory Recursive'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1116
	    #itemValue: #cvsUpdateAllRecursive
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1117
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1118
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1119
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1120
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1121
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1122
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1123
	    #label: 'Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1124
	    #itemValue: #cvsCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1125
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1126
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1127
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1128
	    #enabled: #canCvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1129
	    #label: 'Add && Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1130
	    #itemValue: #cvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1131
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1132
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1133
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1134
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1135
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1136
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1137
	    #enabled: #canRemoveCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1138
	    #label: 'Remove File && CVS Container...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1139
	    #itemValue: #cvsRemoveFileAndCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1140
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1141
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1142
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1143
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1144
	nil
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1145
      )
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1146
!
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1147
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1148
directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1149
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1150
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1151
321c1729db5b initial checkin
penk
parents:
diff changeset
  1152
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1153
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1154
321c1729db5b initial checkin
penk
parents:
diff changeset
  1155
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1156
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1157
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1158
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1159
321c1729db5b initial checkin
penk
parents:
diff changeset
  1160
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1161
321c1729db5b initial checkin
penk
parents:
diff changeset
  1162
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1163
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1164
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1165
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1166
	    #label: 'Up'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1167
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1168
	    #value: #doGoDirectoryUp
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1169
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1170
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1171
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1172
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1173
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1174
	    #label: 'Back'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1175
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1176
	    #value: #doBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1177
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1178
	    #enabled: #enableBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1179
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1180
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1181
	    #label: 'Forward'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1182
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1183
	    #value: #doForward
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1184
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1185
	    #enabled: #enableForward
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1186
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1187
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1188
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1189
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1190
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1191
	    #label: 'Default'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1192
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1193
	    #value: #doGotoDefaultDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1194
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1195
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1196
	    #label: 'Home'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1197
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1198
	    #value: #doGotoHomeDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1199
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1200
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1201
	    #label: 'Visited Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1202
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1203
	    #submenuChannel: #visitedDirectoriesMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1204
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1205
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1206
	    #label: 'Bookmarks'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1207
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1208
	    #submenuChannel: #bookmarksMenuSpec
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1209
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1210
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1211
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1212
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1213
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1214
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1215
321c1729db5b initial checkin
penk
parents:
diff changeset
  1216
editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1217
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1218
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1219
321c1729db5b initial checkin
penk
parents:
diff changeset
  1220
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1221
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1222
321c1729db5b initial checkin
penk
parents:
diff changeset
  1223
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1224
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1225
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser editMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1226
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1227
321c1729db5b initial checkin
penk
parents:
diff changeset
  1228
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1229
321c1729db5b initial checkin
penk
parents:
diff changeset
  1230
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1231
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1232
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1233
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1234
	    #label: 'Copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1235
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1236
	    #value: #copyInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1237
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1238
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1239
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1240
	    #label: 'Cut'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1241
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1242
	    #value: #cutInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1243
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1244
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1245
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1246
	    #label: 'Paste'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1247
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1248
	    #value: #pasteFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1249
	    #enabled: #canPaste
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1250
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1251
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1252
	    #label: 'Delete'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1253
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1254
	    #value: #deleteInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1255
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1256
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1257
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1258
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1259
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1260
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1261
	    #label: 'Copy All Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1262
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1263
	    #value: #copyFileList
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1264
	    #enabled: #fileListIsNotEmpty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1265
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1266
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1267
	    #label: 'Copy Selected Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1268
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1269
	    #value: #copySelectedFilenames
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1270
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1271
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1272
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1273
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1274
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1275
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1276
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1277
321c1729db5b initial checkin
penk
parents:
diff changeset
  1278
fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1279
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1280
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1281
321c1729db5b initial checkin
penk
parents:
diff changeset
  1282
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1283
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1284
321c1729db5b initial checkin
penk
parents:
diff changeset
  1285
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1286
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1287
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser fileMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1288
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1289
321c1729db5b initial checkin
penk
parents:
diff changeset
  1290
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1291
321c1729db5b initial checkin
penk
parents:
diff changeset
  1292
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1293
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1294
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1295
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1296
	    #label: 'New'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1297
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1298
	    #submenuChannel: #newMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1299
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1300
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1301
	    #label: 'Rename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1302
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1303
	    #value: #renameSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1304
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1305
	    #shortcutKeyCharacter: #Replace
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1306
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1307
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1308
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1309
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1310
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1311
	    #label: 'Open in Text Editor'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1312
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1313
	    #value: #doShowFileContents
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1314
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1315
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1316
	    #label: 'Properties...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1317
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1318
	    #value: #doShowProperties
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1319
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1320
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1321
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1322
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1323
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1324
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1325
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1326
	    #label: 'File in'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1327
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1328
	    #value: #fileFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1329
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1330
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1331
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1332
	    #label: 'File in to Namespace...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1333
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1334
	    #value: #fileFileInToNameSpace
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1335
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1336
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1337
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1338
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1339
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1340
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1341
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1342
	    #label: 'Add to Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1343
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1344
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1345
	    #enabled: #canAddToClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1346
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1347
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1348
	    #label: 'Remove from Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1349
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1350
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1351
	    #enabled: #canRemoveFromClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1352
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1353
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1354
	    #label: 'Add to Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1355
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1356
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1357
	    #enabled: #canAddToSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1358
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1359
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1360
	    #label: 'Remove from Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1361
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1362
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1363
	    #enabled: #canRemoveFromSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1364
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1365
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1366
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1367
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1368
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1369
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1370
321c1729db5b initial checkin
penk
parents:
diff changeset
  1371
newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1372
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1373
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1374
321c1729db5b initial checkin
penk
parents:
diff changeset
  1375
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1376
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1377
321c1729db5b initial checkin
penk
parents:
diff changeset
  1378
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1379
     MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1380
     (Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser newMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1381
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1382
321c1729db5b initial checkin
penk
parents:
diff changeset
  1383
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1384
321c1729db5b initial checkin
penk
parents:
diff changeset
  1385
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1386
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1387
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1388
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1389
	    #label: 'Directory...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1390
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1391
	    #value: #newDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1392
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1393
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1394
	    #label: 'File...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1395
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1396
	    #value: #newFile
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1397
	  )                                     
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1398
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1399
	    #label: 'Hard Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1400
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1401
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1402
	    #value: #newHardLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1403
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1404
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1405
	    #label: 'Symbolic Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1406
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1407
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1408
	    #value: #newSoftLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1409
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1410
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1411
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1412
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1413
      )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1414
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1415
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1416
showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1417
    "This resource specification was automatically generated
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1418
     by the MenuEditor of ST/X."
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1419
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1420
    "Do not manually edit this!! If it is corrupted,
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1421
     the MenuEditor may not be able to read the specification."
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1422
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1423
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1424
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1425
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser showMenuSpec)) startUp
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1426
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1427
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1428
    <resource: #menu>
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1429
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1430
    ^ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1431
     #(#Menu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1432
        #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1433
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1434
            #label: 'Hidden Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1435
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1436
            #indication: #showHiddenFiles
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1437
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1438
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1439
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1440
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1441
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1442
            #label: 'Directory Tree'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1443
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1444
            #indication: #showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1445
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1446
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1447
            #label: 'Regular Files in TreeView (Left)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1448
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1449
            #indication: #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1450
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1451
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1452
            #label: 'Directories in ContentsView (Right)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1453
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1454
            #indication: #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1455
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1456
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1457
            #enabled: #enableViewNoteBookApplication
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1458
            #label: 'File Applications'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1459
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1460
            #indication: #viewNoteBookApplicationHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1461
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1462
         )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1463
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1464
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1465
      )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1466
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1467
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1468
sortMenu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1469
    "This resource specification was automatically generated
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1470
     by the MenuEditor of ST/X."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1471
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1472
    "Do not manually edit this!! If it is corrupted,
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1473
     the MenuEditor may not be able to read the specification."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1474
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1475
    "
3907
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1476
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#sortMenu
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1477
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser sortMenu)) startUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1478
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1479
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1480
    <resource: #menu>
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1481
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1482
    ^ 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1483
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1484
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1485
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1486
	    #label: 'By Filename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1487
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1488
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1489
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1490
	    #choiceValue: #baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1491
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1492
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1493
	    #label: 'By Type'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1494
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1495
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1496
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1497
	    #choiceValue: #suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1498
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1499
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1500
	    #label: 'By Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1501
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1502
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1503
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1504
	    #choiceValue: #permissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1505
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1506
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1507
	    #label: 'By Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1508
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1509
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1510
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1511
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1512
	    #choiceValue: #owner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1513
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1514
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1515
	    #label: 'By Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1516
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1517
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1518
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1519
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1520
	    #choiceValue: #group
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1521
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1522
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1523
	    #label: 'By Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1524
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1525
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1526
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1527
	    #choiceValue: #fileSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1528
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1529
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1530
	    #label: 'By Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1531
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1532
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1533
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1534
	    #choiceValue: #modificationTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1535
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1536
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1537
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1538
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1539
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1540
	    #label: 'Ignore Case in Sort'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1541
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1542
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1543
	    #indication: #sortCaseless
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1544
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1545
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1546
	    #label: 'Directories before Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1547
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1548
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1549
	    #indication: #sortDirectoriesBeforeFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1550
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1551
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1552
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1553
	nil
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1554
      )
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1555
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1556
4164
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1557
toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1558
    "This resource specification was automatically generated
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1559
     by the MenuEditor of ST/X."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1560
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1561
    "Do not manually edit this!! If it is corrupted,
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1562
     the MenuEditor may not be able to read the specification."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1563
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1564
    "
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1565
     MenuEditor new openOnClass:FileBrowserV2 andSelector:#toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1566
     (Menu new fromLiteralArrayEncoding:(FileBrowserV2 toolsMenuSpec)) startUp
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1567
    "
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1568
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1569
    <resource: #menu>
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1570
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1571
    ^ 
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1572
     #(#Menu
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1573
        #(
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1574
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1575
            #label: 'Execute Command...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1576
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1577
            #value: #doExecuteCommand
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1578
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1579
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1580
            #label: 'Shell Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1581
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1582
            #isVisible: #canDoTerminalAndSystemIsUnix
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1583
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1584
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1585
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1586
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1587
            #label: 'DOS Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1588
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1589
            #isVisible: #canDoTerminalAndSystemIsDOS
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1590
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1591
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1592
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1593
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1594
            #label: '-'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1595
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1596
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1597
            #label: 'Changes Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1598
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1599
            #value: #openChangesBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1600
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1601
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1602
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1603
            #label: 'ChangeSet Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1604
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1605
            #value: #openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1606
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1607
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1608
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1609
            #label: 'Snapshot Image Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1610
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1611
            #value: #openSnapshotImageBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1612
            #enabled: #hasSnapshotSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1613
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1614
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1615
            #label: 'Create Smalltalk Project'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1616
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1617
            #value: #createProjectAndOpenProjectBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1618
            #enabled: #canCreateNewProject
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1619
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1620
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1621
            #label: 'Install Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1622
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1623
            #value: #readAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1624
            #enabled: #canReadAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1625
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1626
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1627
            #label: 'Install all as Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1628
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1629
            #value: #installAllAsAutoloaded
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1630
            #enabled: #anySTFilesPresent
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1631
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1632
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1633
            #label: 'Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1634
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1635
            #value: #openEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1636
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1637
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1638
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1639
            #label: 'HTML Reader'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1640
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1641
            #value: #openHTMLReader
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1642
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1643
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1644
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1645
            #label: 'ASN1 Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1646
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1647
            #isVisible: #hasASN1
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1648
            #value: #openASN1Browser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1649
            #enabled: #hasASN1AndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1650
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1651
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1652
            #label: 'C Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1653
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1654
            #isVisible: #hasCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1655
            #value: #openCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1656
            #enabled: #hasCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1657
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1658
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1659
            #label: 'Applet Viewer'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1660
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1661
            #isVisible: #hasJava
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1662
            #value: #openAppletViewer
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1663
            #enabled: #hasJavaAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1664
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1665
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1666
            #label: 'Image Inspector'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1667
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1668
            #value: #openImageInspector
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1669
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1670
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1671
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1672
            #label: 'Image Preview'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1673
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1674
            #value: #openImagePreview
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1675
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1676
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1677
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1678
            #label: 'Image Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1679
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1680
            #value: #openImageEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1681
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1682
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1683
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1684
            #label: 'MP3 Player'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1685
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1686
            #isVisible: #hasMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1687
            #value: #openMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1688
            #enabled: #hasMP3PlayerAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1689
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1690
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1691
            #label: 'ZipFile Tool'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1692
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1693
            #value: #openZipTool
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1694
            #enabled: #hasZipFileSelected
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1695
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1696
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1697
            #label: 'Slide Show'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1698
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1699
            #isVisible: #hasSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1700
            #value: #openSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1701
            #enabled: #currentFilesAreInSameDirectory
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1702
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1703
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1704
            #label: 'File Differences...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1705
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1706
            #value: #openDiffView
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1707
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1708
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1709
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1710
            #label: 'Find Duplicate Files'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1711
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1712
            #value: #fileFindDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1713
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1714
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1715
            #label: 'Find All Duplicate Files (Recursive)'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1716
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1717
            #value: #fileFindAllDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1718
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1719
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1720
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1721
            #label: 'Find a File...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1722
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1723
            #value: #fileFindFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1724
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1725
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1726
            #label: 'Hex Dump'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1727
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1728
            #value: #fileHexDump
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1729
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1730
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1731
         )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1732
        nil
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1733
        nil
4164
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1734
      )
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1735
!
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1736
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1737
viewDetailsMenuSpec
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1738
    "This resource specification was automatically generated
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1739
     by the MenuEditor of ST/X."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1740
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1741
    "Do not manually edit this!! If it is corrupted,
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1742
     the MenuEditor may not be able to read the specification."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1743
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1744
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1745
     MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1746
     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1747
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1748
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1749
    <resource: #menu>
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1750
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1751
    ^ 
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1752
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1753
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1754
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1755
	    #label: 'Suffix'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1756
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1757
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1758
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1759
	    #indication: #viewType
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1760
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1761
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1762
	    #label: 'Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1763
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1764
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1765
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1766
	    #indication: #viewPermissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1767
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1768
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1769
	    #label: 'Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1770
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1771
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1772
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1773
	    #indication: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1774
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1775
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1776
	    #label: 'Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1777
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1778
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1779
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1780
	    #indication: #viewGroup
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1781
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1782
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1783
	    #label: 'Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1784
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1785
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1786
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1787
	    #indication: #viewSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1788
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1789
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1790
	    #label: 'Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1791
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1792
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1793
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1794
	    #indication: #viewTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1795
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1796
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1797
	    #label: 'File Info'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1798
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1799
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1800
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1801
	    #indication: #viewDescription
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1802
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1803
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1804
	    #label: 'Preview'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1805
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1806
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1807
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1808
	    #indication: #viewPreview
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1809
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1810
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1811
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1812
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1813
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1814
	    #label: 'Hidden Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1815
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1816
	    #indication: #showHiddenFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1817
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1818
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1819
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1820
	nil
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1821
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1822
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1823
321c1729db5b initial checkin
penk
parents:
diff changeset
  1824
!AbstractFileBrowser class methodsFor:'misc'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1825
321c1729db5b initial checkin
penk
parents:
diff changeset
  1826
newLock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1827
    ^ CodeExecutionLock new
321c1729db5b initial checkin
penk
parents:
diff changeset
  1828
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1829
321c1729db5b initial checkin
penk
parents:
diff changeset
  1830
!AbstractFileBrowser methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1831
321c1729db5b initial checkin
penk
parents:
diff changeset
  1832
askForCommandFor:fileName thenDo:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1833
    "setup and launch a querybox to ask for unix command.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1834
     Then evaluate aBlock passing the command-string as argument."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1835
321c1729db5b initial checkin
penk
parents:
diff changeset
  1836
    |box osName|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1837
321c1729db5b initial checkin
penk
parents:
diff changeset
  1838
    osName := OperatingSystem platformName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1839
321c1729db5b initial checkin
penk
parents:
diff changeset
  1840
    box := FilenameEnterBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1841
		title:(resources string:'Execute %1 command:' with:osName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1842
	       okText:(resources string:'Execute')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1843
	       action:aBlock.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1844
321c1729db5b initial checkin
penk
parents:
diff changeset
  1845
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1846
	self initialCommandFor:fileName into:box.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1847
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1848
    box directory:(self getDirWithoutFileName:fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1849
    box showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1850
    box destroy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1851
321c1729db5b initial checkin
penk
parents:
diff changeset
  1852
    "Modified: / 7.9.1995 / 10:31:54 / claus"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1853
    "Modified: / 16.9.1997 / 15:35:10 / stefan"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1854
    "Modified: / 14.8.1998 / 14:12:52 / cg"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1855
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1856
321c1729db5b initial checkin
penk
parents:
diff changeset
  1857
changeFileBrowserTitleTo:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  1858
321c1729db5b initial checkin
penk
parents:
diff changeset
  1859
    self application:#FileBrowserV2
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1860
	 do:#changeFileBrowserTitleTo:                            
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1861
	 withArg:aString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1862
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1863
321c1729db5b initial checkin
penk
parents:
diff changeset
  1864
copyFileList
321c1729db5b initial checkin
penk
parents:
diff changeset
  1865
321c1729db5b initial checkin
penk
parents:
diff changeset
  1866
    | fileList stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1867
    fileList := self application:#DirectoryContentsBrowser do:#descriptions.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1868
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1869
    fileList do:[: item |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1870
	stream nextPutAll:(item fileName asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1871
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1872
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1873
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1874
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1875
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1876
321c1729db5b initial checkin
penk
parents:
diff changeset
  1877
copySelectedFilenames
321c1729db5b initial checkin
penk
parents:
diff changeset
  1878
321c1729db5b initial checkin
penk
parents:
diff changeset
  1879
    | fileList stream|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1880
    fileList := self application:#DirectoryContentsBrowser do:#selectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1881
    fileList isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1882
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1883
    fileList do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1884
	stream nextPutAll:(file asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1885
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1886
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1887
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1888
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1889
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1890
321c1729db5b initial checkin
penk
parents:
diff changeset
  1891
doAddTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  1892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1893
    | item dir directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1894
321c1729db5b initial checkin
penk
parents:
diff changeset
  1895
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1896
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1897
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1898
	dir :=  Filename homeDirectory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1899
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1900
	dir :=  directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1901
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1902
    
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1903
    item := (DirectoryContentsBrowser itemClass fileName:dir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1904
    self fileApplicationDo:#openTerminalApplication: withArg:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1905
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1906
321c1729db5b initial checkin
penk
parents:
diff changeset
  1907
doExecuteCommand
321c1729db5b initial checkin
penk
parents:
diff changeset
  1908
321c1729db5b initial checkin
penk
parents:
diff changeset
  1909
    | action  fileName|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1910
    fileName := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1911
    action := [:command | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1912
		self addToCommandHistory:command for:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1913
		self executeCommand:command.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1914
	      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1915
    self askForCommandFor:fileName thenDo:action
321c1729db5b initial checkin
penk
parents:
diff changeset
  1916
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1917
321c1729db5b initial checkin
penk
parents:
diff changeset
  1918
doGoDirectoryUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1919
    | upDir directories rootInTreeView|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1920
321c1729db5b initial checkin
penk
parents:
diff changeset
  1921
    self enableDirectoryUp value ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1922
    self currentFilesAreInSameDirectory ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1923
	directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1924
	upDir := directories first directory.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1925
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1926
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1927
	upDir := rootInTreeView value asFilename directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1928
    ].
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1929
    self currentFileNameHolder value:(OrderedCollection with:upDir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1930
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1931
321c1729db5b initial checkin
penk
parents:
diff changeset
  1932
doGotoDefaultDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1933
    self gotoFile:(Filename defaultDirectory).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1934
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1935
321c1729db5b initial checkin
penk
parents:
diff changeset
  1936
doGotoHomeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1937
321c1729db5b initial checkin
penk
parents:
diff changeset
  1938
    | home |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1939
321c1729db5b initial checkin
penk
parents:
diff changeset
  1940
    home := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1941
    self gotoFile:home.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1942
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1943
321c1729db5b initial checkin
penk
parents:
diff changeset
  1944
doOpenSearchFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  1945
321c1729db5b initial checkin
penk
parents:
diff changeset
  1946
    |item files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1947
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1948
    files := self currentFileNameHolder value.
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1949
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1950
	item := DirectoryContentsBrowser itemClass fileName:(files first).
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1951
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1952
	item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1953
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1954
    self openSearchFileOn:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1955
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1956
321c1729db5b initial checkin
penk
parents:
diff changeset
  1957
doShowFileContents
321c1729db5b initial checkin
penk
parents:
diff changeset
  1958
321c1729db5b initial checkin
penk
parents:
diff changeset
  1959
    ^ self application:#DirectoryContentsBrowser do:#doShowFileContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1960
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1961
321c1729db5b initial checkin
penk
parents:
diff changeset
  1962
doShowProperties
321c1729db5b initial checkin
penk
parents:
diff changeset
  1963
321c1729db5b initial checkin
penk
parents:
diff changeset
  1964
    "show long stat (file)-info"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1965
321c1729db5b initial checkin
penk
parents:
diff changeset
  1966
    self fileGetInfo:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1967
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1968
321c1729db5b initial checkin
penk
parents:
diff changeset
  1969
fileApplicationDo:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1970
321c1729db5b initial checkin
penk
parents:
diff changeset
  1971
    ^ self application:#FileApplicationNoteBook do:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1972
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1973
321c1729db5b initial checkin
penk
parents:
diff changeset
  1974
fileApplicationDo:selector withArg:arg
321c1729db5b initial checkin
penk
parents:
diff changeset
  1975
    ^ self application:#FileApplicationNoteBook do:selector withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1976
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1977
321c1729db5b initial checkin
penk
parents:
diff changeset
  1978
fileGetInfo:longInfo 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1979
    "get info on selected file - show it in a box"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1980
321c1729db5b initial checkin
penk
parents:
diff changeset
  1981
    |string box updater|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1982
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1983
    string := self getFileInfoStringForFirstSelectedFile:longInfo.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1984
    string notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1985
	box := InfoBox title:string.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1986
	updater := [
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1987
		    [true] whileTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1988
			Delay waitForSeconds:2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1989
			string := self getFileInfoStringForFirstSelectedFile:longInfo.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1990
			string isNil ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1991
			box title:string
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1992
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1993
		] fork.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1994
	box showAtPointer.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1995
	updater terminate.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1996
	box destroy
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1997
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1998
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1999
321c1729db5b initial checkin
penk
parents:
diff changeset
  2000
gotoFile:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  2001
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2002
    " select only if the file is not already in selection"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2003
    | currentSel |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2004
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2005
    currentSel := self currentFileNameHolder value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2006
    ((currentSel findFirst:[:aFile| aFile = aFilename]) == 0) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2007
	self currentFileNameHolder value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2008
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2009
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2010
321c1729db5b initial checkin
penk
parents:
diff changeset
  2011
openApplByFileItem:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  2012
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  2013
    ^ self fileApplicationDo:#openApplByFileItem: withArg:aItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2014
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2015
321c1729db5b initial checkin
penk
parents:
diff changeset
  2016
openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  2017
321c1729db5b initial checkin
penk
parents:
diff changeset
  2018
    ^ self fileApplicationDo:#openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  2019
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2020
321c1729db5b initial checkin
penk
parents:
diff changeset
  2021
openSearchFileOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  2022
321c1729db5b initial checkin
penk
parents:
diff changeset
  2023
    ^ self fileApplicationDo:#openSearchFileOn: withArg:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  2024
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2025
321c1729db5b initial checkin
penk
parents:
diff changeset
  2026
openTextEditorOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  2027
321c1729db5b initial checkin
penk
parents:
diff changeset
  2028
    ^ self fileApplicationDo:#openTextEditorOn: withArg:aItem 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2029
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2030
321c1729db5b initial checkin
penk
parents:
diff changeset
  2031
updateAndSelect:aColOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2032
321c1729db5b initial checkin
penk
parents:
diff changeset
  2033
    self application:#DirectoryContentsBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2034
    self application:#DirectoryTreeBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2035
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2036
    aColOfFiles notNil ifTrue:[ self currentFileNameHolder value:aColOfFiles ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2037
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2038
321c1729db5b initial checkin
penk
parents:
diff changeset
  2039
updateCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2040
321c1729db5b initial checkin
penk
parents:
diff changeset
  2041
    self updateAndSelect:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2042
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2043
321c1729db5b initial checkin
penk
parents:
diff changeset
  2044
!AbstractFileBrowser methodsFor:'actions bookmarks'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2045
321c1729db5b initial checkin
penk
parents:
diff changeset
  2046
addBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  2047
321c1729db5b initial checkin
penk
parents:
diff changeset
  2048
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2049
321c1729db5b initial checkin
penk
parents:
diff changeset
  2050
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2051
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2052
    self addBookmark:directories.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2053
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2054
321c1729db5b initial checkin
penk
parents:
diff changeset
  2055
addBookmark:aColOfDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2056
    |idx bookmarks|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2057
321c1729db5b initial checkin
penk
parents:
diff changeset
  2058
    aColOfDirectories do:[ : path |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2059
	bookmarks := self class directoryBookmarks.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2060
	idx := bookmarks indexOf:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2061
	idx == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2062
	    bookmarks addLast:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2063
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2064
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2065
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2066
321c1729db5b initial checkin
penk
parents:
diff changeset
  2067
hasBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
  2068
    ^ self class directoryBookmarks size > 0
321c1729db5b initial checkin
penk
parents:
diff changeset
  2069
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2070
321c1729db5b initial checkin
penk
parents:
diff changeset
  2071
hasBookmarksToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  2072
321c1729db5b initial checkin
penk
parents:
diff changeset
  2073
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2074
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2075
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2076
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2077
    ^ (bookmarks size > 0 and:[directories notEmpty])
321c1729db5b initial checkin
penk
parents:
diff changeset
  2078
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2079
321c1729db5b initial checkin
penk
parents:
diff changeset
  2080
removeBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  2081
321c1729db5b initial checkin
penk
parents:
diff changeset
  2082
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2083
321c1729db5b initial checkin
penk
parents:
diff changeset
  2084
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2085
    bookmarks isNil ifTrue:[ ^ self].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2086
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2087
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2088
    directories do:[:dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2089
	bookmarks remove:dir ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2090
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2091
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2092
321c1729db5b initial checkin
penk
parents:
diff changeset
  2093
!AbstractFileBrowser methodsFor:'actions history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2094
321c1729db5b initial checkin
penk
parents:
diff changeset
  2095
addToCommandHistory:aCommandString for:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  2096
    |cmd suffix cmdHist|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2097
321c1729db5b initial checkin
penk
parents:
diff changeset
  2098
    cmdHist := self class commandHistory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2099
    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2100
	cmdHist notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2101
	    cmdHist addFirst:aCommandString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2102
	    cmdHist size > self class commandHistorySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2103
		cmdHist removeLast
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2104
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2105
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2106
	aFilename notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2107
	    cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2108
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2109
		DefaultCommandPerSuffix := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2110
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2111
	    suffix := aFilename asFilename suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2112
	    suffix notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2113
		DefaultCommandPerSuffix at:suffix put:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2114
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2115
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2116
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2117
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2118
321c1729db5b initial checkin
penk
parents:
diff changeset
  2119
doBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2120
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2121
    | fileName|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2122
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2123
    fileName := self dirHistory goBack.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2124
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2125
	self gotoFile:(fileName asFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2126
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2127
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2128
321c1729db5b initial checkin
penk
parents:
diff changeset
  2129
doForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2130
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2131
    | fileName|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2132
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2133
    fileName := self dirHistory goForward.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2134
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2135
	self gotoFile:(fileName asFilename).
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2136
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2137
	self enableForward value:false.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2138
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2139
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2140
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2141
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2142
!AbstractFileBrowser methodsFor:'actions-app-common'!
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2143
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2144
openApplForFile:aFilename
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  2145
    ^ self openApplByFileItem:(DirectoryContentsBrowser itemClass fileName:aFilename).
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2146
! !
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2147
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2148
!AbstractFileBrowser methodsFor:'applications'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2149
321c1729db5b initial checkin
penk
parents:
diff changeset
  2150
application:aApplication do:aMethod 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2151
4191
441ab27e2c7e *** empty log message ***
penk
parents: 4190
diff changeset
  2152
    " perform a Method for a application "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2153
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2154
321c1729db5b initial checkin
penk
parents:
diff changeset
  2155
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2156
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2157
	^ appl perform:aMethod.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2158
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2159
    ^ nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2160
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2161
321c1729db5b initial checkin
penk
parents:
diff changeset
  2162
application:aApplication do:aMethod withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2163
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2164
321c1729db5b initial checkin
penk
parents:
diff changeset
  2165
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2166
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2167
	^ appl perform:aMethod with:arg
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2168
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2169
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2170
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2171
321c1729db5b initial checkin
penk
parents:
diff changeset
  2172
application:aApplication do:aMethod withArg:arg1 withArg:arg2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2173
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2174
321c1729db5b initial checkin
penk
parents:
diff changeset
  2175
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2176
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2177
	(arg1 notNil and:[arg2 notNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2178
	    ^ appl perform:aMethod with:arg1 with:arg2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2179
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2180
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2181
    ^ nil
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2182
!
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2183
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2184
directoryContentsBrowser
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2185
    ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2186
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2187
321c1729db5b initial checkin
penk
parents:
diff changeset
  2188
!AbstractFileBrowser methodsFor:'aspects'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2189
321c1729db5b initial checkin
penk
parents:
diff changeset
  2190
applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2191
    "returns the list of registered applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2192
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2193
    ^ aspects at:#applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2194
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2195
321c1729db5b initial checkin
penk
parents:
diff changeset
  2196
backgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2197
321c1729db5b initial checkin
penk
parents:
diff changeset
  2198
    ^ self aspectFor:#backgroundProcesses ifAbsent:[List new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2199
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2200
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2201
canMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2202
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2203
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2204
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2205
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2206
currentDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2207
321c1729db5b initial checkin
penk
parents:
diff changeset
  2208
    " returns a Ordered Collection of all directories currently selected 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2209
      if only a file is selected currentDirectories holds the directory of the file
321c1729db5b initial checkin
penk
parents:
diff changeset
  2210
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2211
321c1729db5b initial checkin
penk
parents:
diff changeset
  2212
    ^ self aspectFor:#currentDirectories ifAbsent:[ (OrderedCollection new) asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2213
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2214
321c1729db5b initial checkin
penk
parents:
diff changeset
  2215
currentFileNameHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2216
321c1729db5b initial checkin
penk
parents:
diff changeset
  2217
    " returns a OrderedCollection of all files that are selected
321c1729db5b initial checkin
penk
parents:
diff changeset
  2218
      if no file but a directory is selected it contains the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2219
      in contrast to currentDirectories wich have only the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2220
    "
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2221
    ^ self aspectFor:#currentFileNameHolder ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2222
        (OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) asValue
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2223
        ] notPresentDo:[:holder|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2224
            | filenames newFilenames|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2225
            filenames := holder value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2226
            newFilenames := Set new.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2227
            filenames do:[ : filename |  | fn |
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2228
                fn := filename.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2229
                [fn exists not] whileTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2230
                    fn := fn directory.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2231
                ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2232
                newFilenames add:fn.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2233
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2234
            newFilenames asOrderedCollection.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2235
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2236
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2237
321c1729db5b initial checkin
penk
parents:
diff changeset
  2238
enableDirectoryUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  2239
321c1729db5b initial checkin
penk
parents:
diff changeset
  2240
    ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2241
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2242
321c1729db5b initial checkin
penk
parents:
diff changeset
  2243
enableHome
321c1729db5b initial checkin
penk
parents:
diff changeset
  2244
321c1729db5b initial checkin
penk
parents:
diff changeset
  2245
    ^ self aspectFor:#enableHome ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2246
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2247
321c1729db5b initial checkin
penk
parents:
diff changeset
  2248
enableViewNoteBookApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  2249
321c1729db5b initial checkin
penk
parents:
diff changeset
  2250
    ^ self aspectFor:#enableViewNoteBookApplication ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2251
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2252
321c1729db5b initial checkin
penk
parents:
diff changeset
  2253
hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2254
321c1729db5b initial checkin
penk
parents:
diff changeset
  2255
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2256
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2257
321c1729db5b initial checkin
penk
parents:
diff changeset
  2258
notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
  2259
321c1729db5b initial checkin
penk
parents:
diff changeset
  2260
    ^ self aspectFor:#notifyChannel ifAbsent:['' asValue]
4071
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2261
!
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2262
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2263
rootHolder
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2264
    "holder, which keeps the rootHolder of the treeView
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2265
    "
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2266
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2267
    ^ self aspectFor:#rootHolder ifAbsent:[ValueHolder new].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2268
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2269
321c1729db5b initial checkin
penk
parents:
diff changeset
  2270
!AbstractFileBrowser methodsFor:'aspects handling'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2271
321c1729db5b initial checkin
penk
parents:
diff changeset
  2272
aspectFor:something ifAbsent:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  2273
    "returns the model for an aspect
321c1729db5b initial checkin
penk
parents:
diff changeset
  2274
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2275
    |holder saveAspectItem aspect|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2276
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2277
    holder := aspects at:something ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2278
        saveAspectItem := self runtimeAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2279
        saveAspectItem notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2280
            saveAspectItem isHolder ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2281
                holder := ValueHolder with:saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2282
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2283
                holder := saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2284
            ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2285
        ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2286
            aspect := self userPreferencesAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2287
            aspect notNil ifTrue:[ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2288
                holder := aspect asValue
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2289
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2290
                holder := aBlock value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2291
            ]
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2292
        ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2293
        holder notNil ifTrue:[        
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2294
            aspects at:something put:holder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2295
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2296
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2297
    ^ holder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2298
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2299
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2300
aspectFor:something ifAbsent:aBlock notPresentDo:notPresentBlock
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2301
    "returns the model for an aspect
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2302
    "
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2303
    |holder saveAspectItem aspect|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2304
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2305
    holder := aspects at:something ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2306
        saveAspectItem := self runtimeAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2307
        saveAspectItem notNil ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2308
            saveAspectItem isHolder ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2309
                holder := ValueHolder with:saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2310
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2311
                holder := saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2312
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2313
        ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2314
            aspect := self userPreferencesAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2315
            aspect notNil ifTrue:[ 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2316
                holder := aspect asValue
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2317
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2318
                holder := aBlock value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2319
            ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2320
        ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2321
        holder notNil ifTrue:[  
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2322
            holder value:(notPresentBlock value:holder).
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2323
            aspects at:something put:holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2324
        ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2325
    ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2326
    ^ holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2327
!
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2328
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2329
aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2330
    ^ aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2331
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2332
321c1729db5b initial checkin
penk
parents:
diff changeset
  2333
runtimeAspectValueFor:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  2334
    "returns the default aspect item from the class variable RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2335
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2336
    ^ self class runtimeAspects at:something ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2337
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2338
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2339
saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2340
    |saveAspects aspectValue|
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2341
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2342
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2343
    saveAspects := self class userPreferencesAspectList.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2344
    saveAspects do:[ : aspectKey |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2345
        aspectValue := (self perform:aspectKey) value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2346
        UserPreferences current perform:((aspectKey asString, ':') asSymbol) with:aspectValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2347
    ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2348
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2349
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2350
saveRuntimeAspectValues
321c1729db5b initial checkin
penk
parents:
diff changeset
  2351
    |savedAspects dictionary value isHolder aspect|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2352
321c1729db5b initial checkin
penk
parents:
diff changeset
  2353
    savedAspects := self class listOfRuntimeValuesToRemark.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2354
    dictionary := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2355
    savedAspects do:[ : aspectKey |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2356
	aspect := self perform:aspectKey.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2357
	isHolder := aspect isValueModel.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2358
	isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2359
	dictionary at:aspectKey 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2360
		   put:(SaveAspectItem withValue:value isHolder:isHolder)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2361
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2362
        
321c1729db5b initial checkin
penk
parents:
diff changeset
  2363
    RuntimeAspects := dictionary. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2364
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2365
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2366
userPreferencesAspectValueFor:something
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2367
    "returns the default aspect from the Userpreferences
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2368
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2369
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2370
    (self class userPreferencesAspectList includes:something) not ifTrue:[ ^ nil].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2371
    ^ UserPreferences current perform:something.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2372
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2373
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2374
!AbstractFileBrowser methodsFor:'aspects-filter'!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2375
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2376
filterBackgroundColor
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2377
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2378
    ^ self aspectFor:#filterBackgroundColor ifAbsent:[Color white asValue]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2379
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2380
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2381
filterBlockHolder
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2382
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2383
    ^ self aspectFor:#filterBlockHolder ifAbsent:[self getFilter asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2384
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2385
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2386
filterListModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2387
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2388
    ^ self aspectFor:#filterListModel ifAbsent:[self class defaultFilterList]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2389
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2390
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2391
filterModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2392
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2393
    ^ self aspectFor:#filterModel ifAbsent:[(self filterListModel at:1) asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2394
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2395
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2396
filterValueBox
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2397
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2398
    ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2399
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2400
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2401
getFilter
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2402
    | filter showHidden|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2403
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2404
    filter := self filterModel value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2405
    filter = '' ifTrue:[filter := '*'].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2406
    showHidden := self showHiddenFiles value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2407
    showHidden ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2408
	^ [: el | filter match:el].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2409
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2410
	^ [: el | ((el asString startsWith:'.') not) and:[filter match:el]].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2411
    ]
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2412
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2413
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2414
shownFiles
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2415
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2416
    ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2417
! !
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2418
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2419
!AbstractFileBrowser methodsFor:'aspects-history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2420
321c1729db5b initial checkin
penk
parents:
diff changeset
  2421
dirHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2422
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2423
    ^ self class directoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2424
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2425
321c1729db5b initial checkin
penk
parents:
diff changeset
  2426
enableBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2427
321c1729db5b initial checkin
penk
parents:
diff changeset
  2428
    ^ self aspectFor:#enableBack ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2429
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2430
321c1729db5b initial checkin
penk
parents:
diff changeset
  2431
enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2432
321c1729db5b initial checkin
penk
parents:
diff changeset
  2433
    ^ self aspectFor:#enableFileHistory ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2434
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2435
321c1729db5b initial checkin
penk
parents:
diff changeset
  2436
enableForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2437
321c1729db5b initial checkin
penk
parents:
diff changeset
  2438
    ^ self aspectFor:#enableForward ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2439
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2440
321c1729db5b initial checkin
penk
parents:
diff changeset
  2441
fileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2442
321c1729db5b initial checkin
penk
parents:
diff changeset
  2443
    ^ self aspectFor:#fileHistory ifAbsent:[FilenameHistory new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2444
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2445
321c1729db5b initial checkin
penk
parents:
diff changeset
  2446
!AbstractFileBrowser methodsFor:'aspects-visibility'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2447
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2448
openAlwaysInTextEditor
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2449
    " aspect for open every file in TextEditor dont use e.g. HtmlEditor for *.html'"
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2450
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2451
    ^ self aspectFor:#openAlwaysInTextEditor ifAbsent:[ false asValue ].
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2452
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2453
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2454
openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
  2455
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2456
    " aspect for open more applications for e.g. TextEditor and not change the contents of already 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2457
      open TextEditor "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2458
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2459
    ^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2460
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2461
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2462
showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2463
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2464
    ^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2465
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2466
321c1729db5b initial checkin
penk
parents:
diff changeset
  2467
showHiddenFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2468
321c1729db5b initial checkin
penk
parents:
diff changeset
  2469
    ^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2470
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2471
321c1729db5b initial checkin
penk
parents:
diff changeset
  2472
viewDescription
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2473
    "get the user preferences for show file description row in DirectoryContentsBrowser"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2474
321c1729db5b initial checkin
penk
parents:
diff changeset
  2475
    ^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2476
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2477
321c1729db5b initial checkin
penk
parents:
diff changeset
  2478
viewDetails
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2479
    "get the user preferences for view more file properties in rows in DirectoryContentsBrowser 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2480
    "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2481
321c1729db5b initial checkin
penk
parents:
diff changeset
  2482
    ^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2483
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2484
321c1729db5b initial checkin
penk
parents:
diff changeset
  2485
viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  2486
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2487
    " aspect for auto open a TextView for Readme and other see getInfoItem Method files 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2488
      on change directory "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2489
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2490
    ^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2491
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2492
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2493
viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2494
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2495
    ^ self aspectFor:#viewDirsInContentsBrowser ifAbsent:[ false asValue ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2496
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2497
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2498
viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
  2499
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2500
    " aspect for view files in tree view (not only directories) "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2501
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2502
    ^ self aspectFor:#viewFilesInDirectoryTree ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2503
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2504
321c1729db5b initial checkin
penk
parents:
diff changeset
  2505
viewGroup
321c1729db5b initial checkin
penk
parents:
diff changeset
  2506
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2507
    " aspect for show group information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2508
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2509
    ^ self aspectFor:#viewGroup ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2510
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2511
321c1729db5b initial checkin
penk
parents:
diff changeset
  2512
viewNoteBookApplicationHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2513
321c1729db5b initial checkin
penk
parents:
diff changeset
  2514
    ^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2515
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2516
321c1729db5b initial checkin
penk
parents:
diff changeset
  2517
viewOwner
321c1729db5b initial checkin
penk
parents:
diff changeset
  2518
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2519
    " aspect for show owner information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2520
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2521
    ^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2522
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2523
321c1729db5b initial checkin
penk
parents:
diff changeset
  2524
viewPermissions
321c1729db5b initial checkin
penk
parents:
diff changeset
  2525
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2526
    " aspect for show permission information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2527
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2528
    ^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2529
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2530
321c1729db5b initial checkin
penk
parents:
diff changeset
  2531
viewPreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  2532
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2533
    " aspect for show image previev row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2534
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2535
    ^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2536
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2537
321c1729db5b initial checkin
penk
parents:
diff changeset
  2538
viewSize
321c1729db5b initial checkin
penk
parents:
diff changeset
  2539
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2540
    " aspect for show size information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2541
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2542
    ^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2543
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2544
321c1729db5b initial checkin
penk
parents:
diff changeset
  2545
viewTime
321c1729db5b initial checkin
penk
parents:
diff changeset
  2546
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2547
    " aspect for show time information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2548
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2549
    ^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2550
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2551
321c1729db5b initial checkin
penk
parents:
diff changeset
  2552
viewType
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2553
    " aspect for show suffix (type) information row in DirectoryContentsBrowser "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2554
321c1729db5b initial checkin
penk
parents:
diff changeset
  2555
    ^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2556
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2557
321c1729db5b initial checkin
penk
parents:
diff changeset
  2558
!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2559
321c1729db5b initial checkin
penk
parents:
diff changeset
  2560
executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2561
321c1729db5b initial checkin
penk
parents:
diff changeset
  2562
    self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2563
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2564
321c1729db5b initial checkin
penk
parents:
diff changeset
  2565
executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2566
321c1729db5b initial checkin
penk
parents:
diff changeset
  2567
    | nameString executionBlock|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2568
321c1729db5b initial checkin
penk
parents:
diff changeset
  2569
    executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2570
    nameString := 'Command> ', cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2571
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2572
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2573
321c1729db5b initial checkin
penk
parents:
diff changeset
  2574
getExecutionBlockForCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2575
321c1729db5b initial checkin
penk
parents:
diff changeset
  2576
    ^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2577
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2578
321c1729db5b initial checkin
penk
parents:
diff changeset
  2579
getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2580
321c1729db5b initial checkin
penk
parents:
diff changeset
  2581
    | dir dirs|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2582
321c1729db5b initial checkin
penk
parents:
diff changeset
  2583
    dir := aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2584
    aDir isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2585
	dirs := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2586
	dirs size ~= 1 ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2587
	dir := dirs anElement.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2588
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2589
    ^ [:stream| stream notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2590
	    OperatingSystem 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2591
		executeCommand:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2592
		inputFrom:nil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2593
		outputTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2594
		errorTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2595
		inDirectory:dir
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2596
		onError:[:status| false].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2597
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2598
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2599
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2600
321c1729db5b initial checkin
penk
parents:
diff changeset
  2601
killAllRunningBackgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2602
321c1729db5b initial checkin
penk
parents:
diff changeset
  2603
    self backgroundProcesses do:[ : process |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2604
	self notifyChannel value:'kill ', process name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2605
	process terminate.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2606
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2607
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2608
321c1729db5b initial checkin
penk
parents:
diff changeset
  2609
makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2610
    | stream process appl nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2611
321c1729db5b initial checkin
penk
parents:
diff changeset
  2612
    appl := self openCommandResultApplication.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2613
    stream := appl resultStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2614
    nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2615
    appl changeTabTo:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2616
    process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2617
	self backgroundProcesses remove:process ifAbsent:[].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2618
	appl process value:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2619
    ]] newProcess.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2620
    process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2621
    process name:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2622
    self backgroundProcesses add:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2623
    appl process value:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2624
    process resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2625
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2626
321c1729db5b initial checkin
penk
parents:
diff changeset
  2627
!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2628
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2629
abstractCurrentFileNameHolderChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2630
    " 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
  2631
      and the things that have to be done if it runs standalone "
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2632
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2633
    | newDirectories oldDirectories size rootInTreeView holder|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2634
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2635
    holder := self currentFileNameHolder value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2636
    self hasSelection value:(holder value notEmpty).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2637
    newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2638
    oldDirectories := self currentDirectories value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2639
    oldDirectories ~= newDirectories ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2640
	self currentDirectories value:newDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2641
	size := newDirectories size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2642
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2643
	rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2644
	self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2645
	newDirectories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2646
	    newDirectories do:[: dir |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2647
		self dirHistory addToHistory:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2648
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2649
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2650
	self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2651
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2652
    self enableForward value:self canForward.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2653
    self enableBack value:self canBack.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2654
    ^ self
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2655
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2656
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2657
filterModelChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2658
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2659
    self filterBlockHolder value:(self getFilter).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2660
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2661
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2662
update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2663
321c1729db5b initial checkin
penk
parents:
diff changeset
  2664
    " do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2665
      and the things that have to be done if it runs standalone "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2666
321c1729db5b initial checkin
penk
parents:
diff changeset
  2667
    changedObject == self currentFileNameHolder ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2668
	self abstractCurrentFileNameHolderChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2669
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2670
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2671
    changedObject == self sortCaseless ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2672
	self sortFileListsBy:#baseName withReverse:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2673
	^ self
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2674
    ].             
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2675
    (changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2676
	self filterModelChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2677
	^ self
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2678
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2679
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2680
    super update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2681
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2682
321c1729db5b initial checkin
penk
parents:
diff changeset
  2683
!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2684
321c1729db5b initial checkin
penk
parents:
diff changeset
  2685
canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
  2686
321c1729db5b initial checkin
penk
parents:
diff changeset
  2687
    ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2688
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2689
321c1729db5b initial checkin
penk
parents:
diff changeset
  2690
clipboard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2691
321c1729db5b initial checkin
penk
parents:
diff changeset
  2692
    ^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2693
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2694
321c1729db5b initial checkin
penk
parents:
diff changeset
  2695
copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2696
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2697
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2698
    self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2699
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2700
321c1729db5b initial checkin
penk
parents:
diff changeset
  2701
cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2702
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2703
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2704
    self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2705
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2706
321c1729db5b initial checkin
penk
parents:
diff changeset
  2707
emptyClipBoard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2708
321c1729db5b initial checkin
penk
parents:
diff changeset
  2709
    self clipboard files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2710
    self canPaste value:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2711
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2712
321c1729db5b initial checkin
penk
parents:
diff changeset
  2713
putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2714
321c1729db5b initial checkin
penk
parents:
diff changeset
  2715
    | stream clp|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2716
321c1729db5b initial checkin
penk
parents:
diff changeset
  2717
    colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2718
    clp := self clipboard.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2719
    clp files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2720
    clp method:aSymbol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2721
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2722
    stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2723
    stream nextPutAll:' <'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2724
    stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2725
    colOfFiles size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2726
	stream nextPutAll:' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2727
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2728
    stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2729
321c1729db5b initial checkin
penk
parents:
diff changeset
  2730
    self notifyChannel value:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2731
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2732
    clp files:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2733
    self canPaste value:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2734
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2735
321c1729db5b initial checkin
penk
parents:
diff changeset
  2736
!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2737
321c1729db5b initial checkin
penk
parents:
diff changeset
  2738
canDropArchiv:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2739
321c1729db5b initial checkin
penk
parents:
diff changeset
  2740
    (filename isDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2741
    and:[filename isWritable and:[dropedObjects notEmpty]])  ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2742
	^ true
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2743
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2744
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2745
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2746
321c1729db5b initial checkin
penk
parents:
diff changeset
  2747
canDropFiles:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2748
    | checkObject filenameDirString checkObjectString filenameDir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2749
321c1729db5b initial checkin
penk
parents:
diff changeset
  2750
    dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2751
    filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2752
    filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2753
    filenameDirString := filenameDir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2754
    dropedObjects do:[:aObject | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2755
	checkObject := aObject theObject.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2756
	checkObjectString := checkObject asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2757
	checkObject isDirectory ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2758
	    (self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2759
		" can not drop a directory in his parents "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2760
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2761
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2762
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2763
	    (filenameDirString = checkObject directory asString 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2764
	    or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2765
		" can not drop a file in same directory "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2766
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2767
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2768
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2769
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2770
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2771
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2772
321c1729db5b initial checkin
penk
parents:
diff changeset
  2773
doStartDrag:aDropSource in:aView
321c1729db5b initial checkin
penk
parents:
diff changeset
  2774
    "set the cursors before starting the drag & drop operation
321c1729db5b initial checkin
penk
parents:
diff changeset
  2775
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2776
    |hdl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2777
321c1729db5b initial checkin
penk
parents:
diff changeset
  2778
321c1729db5b initial checkin
penk
parents:
diff changeset
  2779
    hdl := DragAndDropManager new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2780
321c1729db5b initial checkin
penk
parents:
diff changeset
  2781
    hdl disabledCursor:self class DisabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2782
    hdl enabledCursor:self class EnabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2783
    hdl alienCursor:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2784
321c1729db5b initial checkin
penk
parents:
diff changeset
  2785
    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin
penk
parents:
diff changeset
  2786
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2787
321c1729db5b initial checkin
penk
parents:
diff changeset
  2788
!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2789
321c1729db5b initial checkin
penk
parents:
diff changeset
  2790
copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2791
    "copy to
321c1729db5b initial checkin
penk
parents:
diff changeset
  2792
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2793
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2794
321c1729db5b initial checkin
penk
parents:
diff changeset
  2795
    copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2796
    copy result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2797
	self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2798
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2799
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2800
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2801
    ^ copy result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2802
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2803
321c1729db5b initial checkin
penk
parents:
diff changeset
  2804
copyFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2805
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2806
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2807
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2808
321c1729db5b initial checkin
penk
parents:
diff changeset
  2809
    copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2810
    copy result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2811
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2812
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2813
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2814
    ^ copy colOfCopiedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2815
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2816
321c1729db5b initial checkin
penk
parents:
diff changeset
  2817
copyOrMoveDialog:aCol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2818
321c1729db5b initial checkin
penk
parents:
diff changeset
  2819
    | size stream dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2820
321c1729db5b initial checkin
penk
parents:
diff changeset
  2821
    size := aCol size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2822
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2823
    stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2824
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2825
	stream nextPutAll:'s'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2826
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2827
    stream nextPutAll:': '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2828
    stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2829
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2830
	stream nextPutAll:' ... '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2831
	stream nextPutAll:aCol last baseName asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2832
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2833
321c1729db5b initial checkin
penk
parents:
diff changeset
  2834
    dialog := OptionBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2835
		  request:stream contents 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2836
		  label:'move or copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2837
		  form:(WarningBox iconBitmap)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2838
		  buttonLabels:#('cancel' 'move' 'copy')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2839
		  values:#(#cancel #move #copy)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2840
		  default:#copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2841
    dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2842
    ^ dialog.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2843
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2844
321c1729db5b initial checkin
penk
parents:
diff changeset
  2845
copyOrMoveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2846
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2847
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2848
    |dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2849
321c1729db5b initial checkin
penk
parents:
diff changeset
  2850
    dialog := self copyOrMoveDialog:aColOfSourceFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2851
    dialog == #copy ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2852
	self copyFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2853
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2854
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2855
    dialog == #move ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2856
	self moveFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2857
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2858
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2859
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2860
321c1729db5b initial checkin
penk
parents:
diff changeset
  2861
deleteFile:aFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2862
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2863
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2864
321c1729db5b initial checkin
penk
parents:
diff changeset
  2865
    ^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2866
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2867
321c1729db5b initial checkin
penk
parents:
diff changeset
  2868
deleteFiles:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2869
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2870
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2871
    |delete|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2872
321c1729db5b initial checkin
penk
parents:
diff changeset
  2873
    delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2874
    delete result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2875
	self notifyChannel value:delete errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2876
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2877
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2878
    ^ delete result.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2879
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2880
321c1729db5b initial checkin
penk
parents:
diff changeset
  2881
moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2882
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2883
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2884
321c1729db5b initial checkin
penk
parents:
diff changeset
  2885
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2886
321c1729db5b initial checkin
penk
parents:
diff changeset
  2887
    move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2888
    move result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2889
	self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2890
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2891
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2892
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2893
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2894
    ^ move result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2895
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2896
321c1729db5b initial checkin
penk
parents:
diff changeset
  2897
moveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2898
   "move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2899
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2900
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2901
321c1729db5b initial checkin
penk
parents:
diff changeset
  2902
    move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2903
    move result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2904
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2905
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2906
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2907
    ^ move colOfMovedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2908
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2909
321c1729db5b initial checkin
penk
parents:
diff changeset
  2910
newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2911
    "ask for and create a new directory"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2912
321c1729db5b initial checkin
penk
parents:
diff changeset
  2913
    | directories directory create newFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2914
321c1729db5b initial checkin
penk
parents:
diff changeset
  2915
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2916
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2917
    directory := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2918
    create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2919
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2920
    newFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2921
    newFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2922
	self updateCurrentDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2923
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2924
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2925
321c1729db5b initial checkin
penk
parents:
diff changeset
  2926
newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2927
    "ask for and create a new file"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2928
321c1729db5b initial checkin
penk
parents:
diff changeset
  2929
    | curFile directories directory create file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2930
321c1729db5b initial checkin
penk
parents:
diff changeset
  2931
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2932
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2933
    directory := directories first.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2934
    curFile := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2935
    curFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2936
	file := curFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2937
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2938
	file := directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2939
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2940
    create := FileOperation create createFileIn:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2941
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2942
    self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2943
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2944
321c1729db5b initial checkin
penk
parents:
diff changeset
  2945
newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2946
    "ask for and create a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2947
321c1729db5b initial checkin
penk
parents:
diff changeset
  2948
    self newLink:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2949
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2950
321c1729db5b initial checkin
penk
parents:
diff changeset
  2951
newLink:symbolic
321c1729db5b initial checkin
penk
parents:
diff changeset
  2952
321c1729db5b initial checkin
penk
parents:
diff changeset
  2953
    "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2954
321c1729db5b initial checkin
penk
parents:
diff changeset
  2955
    | sel create createdFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2956
321c1729db5b initial checkin
penk
parents:
diff changeset
  2957
    sel := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2958
    (sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2959
    symbolic ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2960
	create := FileOperation create createSoftLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2961
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2962
	create := FileOperation create createHardLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2963
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2964
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2965
    createdFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2966
    createdFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2967
	self updateAndSelect:(OrderedCollection with:createdFile).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2968
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2969
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2970
321c1729db5b initial checkin
penk
parents:
diff changeset
  2971
newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2972
    "ask for and create a soft link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2973
321c1729db5b initial checkin
penk
parents:
diff changeset
  2974
    self newLink:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2975
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2976
321c1729db5b initial checkin
penk
parents:
diff changeset
  2977
pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2978
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2979
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2980
    | buffer destination files directories copiedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2981
321c1729db5b initial checkin
penk
parents:
diff changeset
  2982
    files := self clipboard files.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2983
    (files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2984
    buffer := self clipboard copy.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2985
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2986
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2987
	|box dirStringCol|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2988
	dirStringCol := directories collect:[:aDir| aDir asString].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2989
	box := ListSelectionBox new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2990
	box title:'In which directory you want to paste ?'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2991
	box list:dirStringCol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2992
	box okAction:[:sel | destination := sel asFilename].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2993
	box showAtPointer
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2994
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2995
	destination := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2996
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2997
    copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2998
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2999
    (self clipboard method == #cut) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3000
	self deleteFiles:copiedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3001
    ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3002
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3003
321c1729db5b initial checkin
penk
parents:
diff changeset
  3004
renameFile:aFile 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3005
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3006
321c1729db5b initial checkin
penk
parents:
diff changeset
  3007
    ^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3008
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3009
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3010
renameFile:filename to:newFileString update:aBoolean
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3011
    "rename filename to newFileString"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3012
321c1729db5b initial checkin
penk
parents:
diff changeset
  3013
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3014
321c1729db5b initial checkin
penk
parents:
diff changeset
  3015
    rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3016
    rename result ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3017
        aBoolean ifTrue:[
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3018
            self updateAndSelect:(rename renamedFiles).
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3019
        ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3020
    ] ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3021
        self notifyChannel value:rename errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3022
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3023
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  3024
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3025
321c1729db5b initial checkin
penk
parents:
diff changeset
  3026
renameFiles:aColOfFiles 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3027
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3028
321c1729db5b initial checkin
penk
parents:
diff changeset
  3029
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3030
321c1729db5b initial checkin
penk
parents:
diff changeset
  3031
    rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3032
    rename result ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3033
        self notifyChannel value:rename errorString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3034
    ] ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3035
        "/ self updateAndSelect:(rename renamedFiles)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3036
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3037
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  3038
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3039
321c1729db5b initial checkin
penk
parents:
diff changeset
  3040
renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3041
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3042
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3043
    self renameFiles:self currentFileNameHolder value
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3044
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3045
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3046
!AbstractFileBrowser methodsFor:'menu accessing'!
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3047
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3048
bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3049
    "This resource specification was automatically generated
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3050
     by the MenuEditor of ST/X."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3051
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3052
    "Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3053
     the MenuEditor may not be able to read the specification."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3054
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3055
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3056
     MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3057
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3058
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3059
    <resource: #programMenu>
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3060
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3061
    |menuSpec menu bookmarks|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3062
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3063
    menuSpec := self class baseBookmarksMenuSpec.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3064
    menu := menuSpec decodeAsLiteralArray.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3065
    menu findGuiResourcesIn:self.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3066
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3067
    bookmarks := self class directoryBookmarks.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3068
    "/ add the history items ...
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3069
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3070
    bookmarks size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3071
	menu addItem:(MenuItem labeled:'-').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3072
	bookmarks do:[:dirName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3073
	    menu addItem:((MenuItem label:dirName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3074
		(self currentDirectories value includes:dirName) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3075
		    self currentFileNameHolder value:(OrderedCollection with:dirName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3076
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3077
	    ])).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3078
	].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3079
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3080
    ^ menu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3081
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3082
    "Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3083
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3084
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3085
canBack
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3086
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3087
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3088
    ^ self dirHistory canBack.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3089
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3090
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3091
canForward
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3092
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3093
"/    | currentSelection |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3094
"/
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3095
"/    currentSelection := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3096
"/    currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3097
    
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3098
    ^ self dirHistory canForward.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3099
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3100
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3101
menuDirHistory:backOrForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3102
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3103
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3104
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3105
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3106
    |menu pathList currentSel currentPath|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3107
321c1729db5b initial checkin
penk
parents:
diff changeset
  3108
    menu := Menu new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3109
    menu receiver:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3110
321c1729db5b initial checkin
penk
parents:
diff changeset
  3111
    self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3112
    backOrForward == #back ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3113
	currentSel := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3114
	currentSel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3115
	    currentPath := currentSel first asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3116
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3117
	    currentPath := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3118
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3119
	pathList := self dirHistory getBackCollectionFrom:currentPath.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3120
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3121
	pathList := self dirHistory getForwardCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3122
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  3123
    pathList isEmpty ifTrue:[ ^ nil].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3124
    pathList do:[:aPath| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3125
	| menuItem |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3126
	menuItem := MenuItem new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3127
	menuItem label:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3128
	menuItem value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3129
	    self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3130
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3131
	menu addItem:menuItem.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3132
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3133
    ^ menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3134
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3135
321c1729db5b initial checkin
penk
parents:
diff changeset
  3136
menuDirHistoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  3137
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3138
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3139
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3140
321c1729db5b initial checkin
penk
parents:
diff changeset
  3141
    ^ self menuDirHistory:#back.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3142
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3143
321c1729db5b initial checkin
penk
parents:
diff changeset
  3144
menuDirHistoryForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3145
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3146
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3147
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3148
321c1729db5b initial checkin
penk
parents:
diff changeset
  3149
    ^ self menuDirHistory:#forward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3150
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3151
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3152
menuFileHistory
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3153
    "initialize the file history menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3154
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3155
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3156
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3157
    |menu hist text removeItem removeCol|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3158
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3159
    menu := Menu new.
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3160
    menu findGuiResourcesIn:self.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3161
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3162
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3163
    hist := self fileHistory.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3164
    hist isEmpty ifTrue:[^ nil].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3165
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3166
    removeCol := OrderedCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3167
    hist do:[:aFileItem|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3168
	aFileItem fileName exists ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3169
	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3170
		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3171
		self openApplByFileItem:aFileItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3172
	    ]).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3173
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3174
	    removeCol add:aFileItem.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3175
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3176
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3177
    "/ remove all not existing history entries
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3178
    removeCol do:[ : el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3179
	hist remove:el.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3180
    ].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3181
    removeItem := MenuItem new.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3182
    removeItem translateLabel:true.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3183
    removeItem label:text.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3184
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3185
	self fileHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3186
	self enableFileHistory value:false.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3187
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3188
    menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3189
    menu addItem:removeItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3190
    ^ menu
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3191
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3192
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3193
sortMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3194
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3195
    <resource: #programMenu >
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3196
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3197
    |menu|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3198
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3199
    menu :=  Menu new fromLiteralArrayEncoding:self class sortMenu.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3200
    menu ifNil:[ ^ nil ].
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3201
    menu findGuiResourcesIn:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3202
    menu receiver:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3203
    ^ menu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3204
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3205
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3206
viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3207
    ^self class viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3208
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3209
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3210
viewInContentsBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3211
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3212
    ^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3213
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3214
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3215
visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3216
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3217
    <resource: #programMenu >
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3218
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3219
    |menu histCopy text removeItem|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3220
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3221
    menu := Menu new.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3222
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3223
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3224
    self dirHistory isEmpty ifTrue:[^ nil].
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3225
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3226
    removeItem := MenuItem new.
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3227
    removeItem translateLabel:true.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3228
    removeItem label:text.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3229
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3230
	self dirHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3231
	self enableForward value:self canForward.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3232
	self enableBack value:self canBack.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3233
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3234
    histCopy := self dirHistory.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3235
    histCopy do:[:aFile| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3236
	menu addItem:(MenuItem label:aFile asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3237
	    self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3238
	]).
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3239
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3240
    menu addItem:(MenuItem label:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3241
    menu addItem:removeItem.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3242
    ^ menu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3243
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3244
321c1729db5b initial checkin
penk
parents:
diff changeset
  3245
!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3246
321c1729db5b initial checkin
penk
parents:
diff changeset
  3247
cvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3248
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  3249
    |sel log cmd dir executionBlock nameString block|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3250
321c1729db5b initial checkin
penk
parents:
diff changeset
  3251
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3252
	requestText:(resources string:'enter initial log message')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3253
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3254
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3255
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3256
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3257
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3258
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3259
	log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3260
	    sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3261
		sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3262
		    dir := self getDirWithoutFileName:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3263
		    cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3264
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3265
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3266
		    cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3267
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3268
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3269
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3270
	    ] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3271
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3272
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3273
    nameString := 'Command> cvs add and commit'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3274
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3275
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3276
321c1729db5b initial checkin
penk
parents:
diff changeset
  3277
cvsCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3278
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3279
    |nSel log msg cmd selectedFiles sel executionBlock nameString|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3280
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3281
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3282
    nSel := selectedFiles size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3283
321c1729db5b initial checkin
penk
parents:
diff changeset
  3284
    nSel == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3285
	msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3286
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3287
	nSel > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3288
	    msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3289
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3290
	    msg := resources string:'enter log message for checkIn'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3291
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3292
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3293
321c1729db5b initial checkin
penk
parents:
diff changeset
  3294
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3295
	requestText:msg
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3296
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3297
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3298
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3299
321c1729db5b initial checkin
penk
parents:
diff changeset
  3300
    log notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3301
	sel := self currentFileNameHolder value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3302
	sel isEmpty ifTrue:[ ^ self ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3303
	executionBlock := [ : stream |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3304
	    log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3305
		sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3306
		    sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3307
			| dir block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3308
			dir := fn directory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3309
			cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3310
			block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3311
			block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3312
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3313
		] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3314
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3315
	].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3316
    ].
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3317
    nameString := 'Command> cvs commit'.
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3318
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3319
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3320
321c1729db5b initial checkin
penk
parents:
diff changeset
  3321
cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  3322
    "remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3323
321c1729db5b initial checkin
penk
parents:
diff changeset
  3324
    |msg toRemove updateRunning cmd executionBlock nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3325
321c1729db5b initial checkin
penk
parents:
diff changeset
  3326
    updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3327
    self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3328
    toRemove := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3329
321c1729db5b initial checkin
penk
parents:
diff changeset
  3330
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3331
	| block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3332
	filesToRemove do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3333
	    OperatingSystem accessDeniedErrorSignal handle:[:ex|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3334
		"was not able to remove it"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3335
		| lastError |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3336
		lastError := OperatingSystem lastErrorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3337
		msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3338
		lastError isNil ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3339
		    msg := msg , '\\(' , lastError , ')'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3340
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3341
		Dialog warn:msg withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3342
	    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3343
		|answer contents|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3344
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3345
		(fileName isSymbolicLink not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3346
		    fileName remove.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3347
		    cmd := ('cvs remove -f ' , fileName baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3348
		    block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3349
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3350
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3351
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3352
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3353
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3354
	cmd := ('cvs commit -m ''removed via FileBrowser''').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3355
	block := self getExecutionBlockForCommand:cmd. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3356
	block value:stream.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3357
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3358
    nameString := 'Command> cvs remove and commit ', filesToRemove first baseName.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3359
    filesToRemove size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3360
	nameString := nameString, ' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3361
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3362
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3363
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3364
321c1729db5b initial checkin
penk
parents:
diff changeset
  3365
cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3366
321c1729db5b initial checkin
penk
parents:
diff changeset
  3367
    |sel question aswer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3368
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3369
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3370
321c1729db5b initial checkin
penk
parents:
diff changeset
  3371
    sel size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3372
	sel size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3373
	    question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3374
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3375
	    question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3376
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3377
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3378
	aswer := Dialog 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3379
		confirm:question withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3380
		yesLabel:(resources at:'Remove')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3381
		noLabel:(resources at:'Cancel').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3382
	aswer ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3383
	    self withCursor:(Cursor wait) do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3384
		self cvsRemoveAndRemoveFromCVS:sel
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3385
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3386
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3387
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3388
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3389
321c1729db5b initial checkin
penk
parents:
diff changeset
  3390
cvsUpdateAll
321c1729db5b initial checkin
penk
parents:
diff changeset
  3391
321c1729db5b initial checkin
penk
parents:
diff changeset
  3392
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3393
321c1729db5b initial checkin
penk
parents:
diff changeset
  3394
    cmd := 'cvs upd -l'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3395
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3396
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3397
321c1729db5b initial checkin
penk
parents:
diff changeset
  3398
cvsUpdateAllRecursive
321c1729db5b initial checkin
penk
parents:
diff changeset
  3399
321c1729db5b initial checkin
penk
parents:
diff changeset
  3400
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3401
321c1729db5b initial checkin
penk
parents:
diff changeset
  3402
    cmd := 'cvs upd -d'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3403
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3404
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3405
321c1729db5b initial checkin
penk
parents:
diff changeset
  3406
cvsUpdateSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3407
321c1729db5b initial checkin
penk
parents:
diff changeset
  3408
    | selectedFiles stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3409
321c1729db5b initial checkin
penk
parents:
diff changeset
  3410
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3411
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3412
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3413
    stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3414
    selectedFiles do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3415
	stream nextPutAll:file baseName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3416
	stream space.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3417
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3418
    self executeCommand:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3419
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3420
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3421
321c1729db5b initial checkin
penk
parents:
diff changeset
  3422
!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3423
321c1729db5b initial checkin
penk
parents:
diff changeset
  3424
copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3425
321c1729db5b initial checkin
penk
parents:
diff changeset
  3426
    ^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3427
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3428
321c1729db5b initial checkin
penk
parents:
diff changeset
  3429
cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3430
321c1729db5b initial checkin
penk
parents:
diff changeset
  3431
    ^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3432
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3433
321c1729db5b initial checkin
penk
parents:
diff changeset
  3434
deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3435
321c1729db5b initial checkin
penk
parents:
diff changeset
  3436
    ^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3437
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3438
321c1729db5b initial checkin
penk
parents:
diff changeset
  3439
!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3440
321c1729db5b initial checkin
penk
parents:
diff changeset
  3441
createProjectAndOpenProjectBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3442
    |nm f s directory|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3443
321c1729db5b initial checkin
penk
parents:
diff changeset
  3444
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3445
    directory := self currentDirectories value first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3446
    nm := directory baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3447
    f := (directory  construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3448
    f exists ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3449
	Dialog warn:'A file named ' , f baseName , ' already exists.'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3450
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3451
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3452
    s := f writeStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3453
    s nextPutAll:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3454
name            ''' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3455
type            #classLibrary
321c1729db5b initial checkin
penk
parents:
diff changeset
  3456
package         #''private:' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3457
prerequisites   nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3458
321c1729db5b initial checkin
penk
parents:
diff changeset
  3459
classes      #( )
321c1729db5b initial checkin
penk
parents:
diff changeset
  3460
'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3461
    s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3462
    ProjectBrowser openOnFile:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3463
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3464
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3465
doMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3466
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3467
    | cmd |
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3468
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3469
    cmd := 'make'.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3470
    self executeCommand:cmd.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3471
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3472
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3473
fileFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  3474
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3475
321c1729db5b initial checkin
penk
parents:
diff changeset
  3476
    self fileFileInLazy:false 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3477
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3478
321c1729db5b initial checkin
penk
parents:
diff changeset
  3479
fileFileInLazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3480
    "fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3481
321c1729db5b initial checkin
penk
parents:
diff changeset
  3482
    self fileFileInLazy:true 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3483
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3484
321c1729db5b initial checkin
penk
parents:
diff changeset
  3485
fileFileInLazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3486
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3487
321c1729db5b initial checkin
penk
parents:
diff changeset
  3488
    | selectedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3489
4156
28bd97c1bf64 show a busy cursor, while filing in
Claus Gittinger <cg@exept.de>
parents: 4151
diff changeset
  3490
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3491
	selectedFiles:= self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3492
	selectedFiles do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3493
	    self singleFileFileIn:fileName lazy:lazy
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3494
	].
3892
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
fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  3499
    "fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3500
321c1729db5b initial checkin
penk
parents:
diff changeset
  3501
    |ns listOfKnownNameSpaces|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3502
321c1729db5b initial checkin
penk
parents:
diff changeset
  3503
    listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3504
    NameSpace 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3505
	allNamespaces 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3506
	    do:[:eachNameSpace | 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3507
		listOfKnownNameSpaces add:eachNameSpace name
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3508
	    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3509
    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3510
321c1729db5b initial checkin
penk
parents:
diff changeset
  3511
    ns := Dialog 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3512
		request:'During fileIn, new classes are created in nameSpace:'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3513
		initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3514
		list:listOfKnownNameSpaces.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3515
    ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3516
321c1729db5b initial checkin
penk
parents:
diff changeset
  3517
    LastEnforcedNameSpace := ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3518
    ns := NameSpace name:ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3519
321c1729db5b initial checkin
penk
parents:
diff changeset
  3520
    Class nameSpaceQuerySignal 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3521
	answer:ns
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3522
	do:[ 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3523
	    self fileFileInLazy:false 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3524
	] 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3525
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3526
321c1729db5b initial checkin
penk
parents:
diff changeset
  3527
fileFindAllDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3528
    "scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3529
321c1729db5b initial checkin
penk
parents:
diff changeset
  3530
    |fileNames dir infoDir filesBySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  3531
     result info dirPrefix myName stream textBox maxLength directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3532
321c1729db5b initial checkin
penk
parents:
diff changeset
  3533
321c1729db5b initial checkin
penk
parents:
diff changeset
  3534
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3535
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3536
	myName := self class name asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3537
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3538
	directories isEmpty ifTrue:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3539
        
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3540
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3541
"/        self label: myName, '- gathering file names ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3542
	fileNames := dir recursiveDirectoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3543
	fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3544
	fileNames := fileNames select:[:fn | fn isDirectory not].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3545
321c1729db5b initial checkin
penk
parents:
diff changeset
  3546
"/        self label:myName , '- gathering sizes ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3547
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3548
	fileNames do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3549
	    infoDir at:fn put:(fn fileSize)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3550
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3551
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3552
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3553
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3554
	"/ compare them ...
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3555
321c1729db5b initial checkin
penk
parents:
diff changeset
  3556
"/        self label:myName , '- preselect possible duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3557
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3558
	infoDir keysAndValuesDo:[:fn :sz |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3559
	    |entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3560
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3561
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3562
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3563
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3564
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3565
	"/ any of same size ?
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3566
321c1729db5b initial checkin
penk
parents:
diff changeset
  3567
"/        self label:myName , '- checking for duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3568
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3569
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3570
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3571
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3572
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3573
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3574
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3575
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3576
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3577
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3578
			fn2 := files at:idx2.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3579
321c1729db5b initial checkin
penk
parents:
diff changeset
  3580
"/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3581
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3582
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3583
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3584
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3585
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3586
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3587
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3588
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3589
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3590
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3591
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3592
321c1729db5b initial checkin
penk
parents:
diff changeset
  3593
"/        self label:myName , '- sorting ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3594
	dirPrefix := dir pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3595
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3596
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3597
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3598
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3599
					f1 := assoc key name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3600
					f2 := assoc value name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3601
					(f1 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3602
					    f1 := f1 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3603
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3604
					(f2 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3605
					    f2 := f2 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3606
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3607
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3608
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3609
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3610
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3611
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3612
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3613
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3614
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3615
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3616
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3617
	    info add:(assoc key , ' same as ' , assoc value)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3618
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3619
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3620
	    info := 'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3621
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3622
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3623
321c1729db5b initial checkin
penk
parents:
diff changeset
  3624
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3625
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3626
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3627
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3628
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3629
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3630
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3631
    textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3632
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3633
    textBox noCancel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3634
    textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3635
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3636
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3637
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3638
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3639
    textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3640
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3641
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3642
"/    subView contents:info.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3643
"/    self label:myName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3644
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3645
321c1729db5b initial checkin
penk
parents:
diff changeset
  3646
fileFindDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3647
    "scan directory for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3648
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3649
    |fileNames infoDir filesBySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3650
     result info stream textBox maxLength directories allFiles titleStream size|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3651
321c1729db5b initial checkin
penk
parents:
diff changeset
  3652
"/    (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3653
"/              yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3654
321c1729db5b initial checkin
penk
parents:
diff changeset
  3655
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3656
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3657
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3658
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3659
	directories isEmpty ifTrue:[^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3660
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3661
	allFiles := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3662
	directories do:[ : dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3663
	    fileNames := dir directoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3664
	    fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3665
	    fileNames := fileNames select:[:fn | fn isDirectory not].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3666
	    allFiles addAll:fileNames.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3667
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3668
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3669
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3670
	allFiles do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3671
	    infoDir at:fn put:(fn info)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3672
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3673
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3674
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3675
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3676
	"/ compare them ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3677
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3678
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3679
	infoDir keysAndValuesDo:[:fn :info |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3680
	    |sz entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3681
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3682
	    sz := info size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3683
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3684
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3685
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3686
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3687
	"/ any of same size ?
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3688
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3689
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3690
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3691
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3692
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3693
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3694
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3695
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3696
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3697
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3698
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3699
			fn2 := files at:idx2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3700
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3701
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3702
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3703
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3704
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3705
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3706
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3707
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3708
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3709
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3710
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3711
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3712
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3713
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3714
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3715
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3716
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3717
					f1 := assoc key asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3718
					f2 := assoc value asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3719
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3720
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3721
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3722
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3723
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3724
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3725
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3726
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3727
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3728
	size := self getBestDirectory asString size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3729
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3730
	    |fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3731
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3732
	    fn1 := assoc key.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3733
	    fn2 := assoc value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3734
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3735
		fn1 := ('..', (fn1 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3736
		fn2 := ('..', (fn2 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3737
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3738
	    (fn1 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3739
		fn1 := '"' , fn1 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3740
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3741
	    (fn2 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3742
		fn2 := '"' , fn2 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3743
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3744
	    info add:(fn1 , ' same as ' , fn2)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3745
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3746
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3747
	    info add:'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3748
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3749
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3750
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3751
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3752
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3753
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3754
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3755
    titleStream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3756
    titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3757
    directories size == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3758
	titleStream nextPutAll:'y: ', directories first asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3759
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3760
	titleStream nextPutAll:'ies: '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3761
	titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3762
	directories do:[:dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3763
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3764
		titleStream nextPutAll:'..'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3765
		titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3766
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3767
		titleStream nextPutAll:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3768
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3769
	    titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3770
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3771
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3772
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3773
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3774
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3775
    textBox title:(titleStream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3776
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3777
    textBox noCancel.
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3778
    stream := WriteStream on:'Dublicates in '.
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3779
    directories do:[ :aDirectory |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3780
	stream nextPutAll:aDirectory baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3781
	stream space
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3782
    ].
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3783
    textBox label:stream contents.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3784
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3785
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3786
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3787
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3788
    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3789
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3790
    titleStream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3791
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3792
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3793
321c1729db5b initial checkin
penk
parents:
diff changeset
  3794
fileFindFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3795
    |filename files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3796
321c1729db5b initial checkin
penk
parents:
diff changeset
  3797
    files := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3798
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3799
	filename := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3800
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3801
	filename := (Filename homeDirectory).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3802
    ].
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  3803
    FindFileApplication openOnFileName:filename for:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3804
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3805
321c1729db5b initial checkin
penk
parents:
diff changeset
  3806
installAllAsAutoloaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3807
    "install all classes found here as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3808
321c1729db5b initial checkin
penk
parents:
diff changeset
  3809
    self allItemsOfCurrentDirectory do:[:fileItem |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3810
	(fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3811
	    self installAsAutoloaded:(fileItem fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3812
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3813
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3814
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3815
321c1729db5b initial checkin
penk
parents:
diff changeset
  3816
installAsAutoloaded:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  3817
    "install aFilename as autoloaded class"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3818
321c1729db5b initial checkin
penk
parents:
diff changeset
  3819
    |chunks s|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3820
321c1729db5b initial checkin
penk
parents:
diff changeset
  3821
    chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3822
    chunks 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3823
	select:[:eachChunk | eachChunk isClassDefinitionChange]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3824
	thenDo:[:eachClassChunk | eachClassChunk installAsAutoloadedClassIfNotPrivate].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3825
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3826
321c1729db5b initial checkin
penk
parents:
diff changeset
  3827
loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3828
321c1729db5b initial checkin
penk
parents:
diff changeset
  3829
    |img path files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3830
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3831
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3832
    files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3833
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3834
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3835
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3836
	    img := Image fromFile:(path pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3837
	    img notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3838
		aSelectorOrBlock isSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3839
		    img perform:aSelectorOrBlock
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3840
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3841
		    aSelectorOrBlock value:img
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3842
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3843
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3844
		Dialog warn:'unknown format: ' , fileName asString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3845
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3846
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3847
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3848
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3849
321c1729db5b initial checkin
penk
parents:
diff changeset
  3850
openASN1Browser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3851
321c1729db5b initial checkin
penk
parents:
diff changeset
  3852
    self openTool:OSI::ASN1Browser 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3853
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3854
321c1729db5b initial checkin
penk
parents:
diff changeset
  3855
openAppletViewer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3856
    |numItems files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3857
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3858
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3859
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3860
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3861
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3862
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3863
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3864
321c1729db5b initial checkin
penk
parents:
diff changeset
  3865
    Java startupJavaSystem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3866
"/    Java markAllClassesUninitialized.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3867
"/    Java initAllStaticFields.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3868
"/    Java initAllClasses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3869
321c1729db5b initial checkin
penk
parents:
diff changeset
  3870
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3871
	|p path|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3872
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3873
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3874
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3875
	    p := Java 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3876
		    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3877
		    argumentString:path pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3878
	    p resume.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3879
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3880
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3881
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3882
321c1729db5b initial checkin
penk
parents:
diff changeset
  3883
openCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3884
321c1729db5b initial checkin
penk
parents:
diff changeset
  3885
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3886
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3887
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3888
    directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3889
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3890
	CBrowser::Browser openIn:directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3891
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3892
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3893
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3894
openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3895
    self
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3896
        openTool:ChangeSetBrowser 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3897
        with:#openOnFile: 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3898
        ignoreDirectories:true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3899
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3900
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3901
openChangesBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3902
    "open a change browser on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3903
321c1729db5b initial checkin
penk
parents:
diff changeset
  3904
    self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3905
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3906
321c1729db5b initial checkin
penk
parents:
diff changeset
  3907
openDiffView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3908
    "open a diff-view"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3909
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3910
    | name1 name2 text1 text2 d err nm l1 files title defaultName lastFile|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3911
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3912
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3913
    files isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3914
	Dialog warn:'you have to select a file first'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3915
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3916
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3917
    (files size == 2) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3918
	name1 := files last.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3919
	name2 := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3920
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3921
	LastFileDiffFile notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3922
	    | directories |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3923
	    directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3924
	    directories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3925
		lastFile := directories first asFilename construct:(LastFileDiffFile baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3926
		(lastFile exists and:[lastFile isReadable]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3927
		    name1 := lastFile.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3928
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3929
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3930
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3931
	name2 := files first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3932
	title := 'show difference between ', name2 baseName, ' and:'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3933
	defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3934
	name1 := DialogBox 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3935
		    requestFileName:title 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3936
		    default:defaultName 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3937
		    ok:'OK' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3938
		    abort:'Use File List' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3939
		    pattern:'*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3940
		    fromDirectory:(name2 asFilename directory).
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3941
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3942
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3943
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3944
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3945
321c1729db5b initial checkin
penk
parents:
diff changeset
  3946
    (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3947
	text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3948
	text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3949
	name1 := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3950
	l1 := 'browser contents'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3951
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3952
	name1 := name1 asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3953
	LastFileDiffFile := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3954
	name1 asFilename isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3955
	    nm := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3956
	    name1 asFilename exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3957
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3958
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3959
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3960
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3961
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3962
	l1 := name1
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3963
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3964
321c1729db5b initial checkin
penk
parents:
diff changeset
  3965
    err isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3966
	name2 isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3967
	    nm := name2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3968
	    name2 exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3969
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3970
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3971
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3972
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3973
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3974
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3975
    err notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3976
	Dialog warn:(resources string:err with:nm pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3977
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3978
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3979
321c1729db5b initial checkin
penk
parents:
diff changeset
  3980
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3981
	name1 notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3982
	    text1 := name1 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3983
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3984
	text2 := name2 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3985
	text1 = text2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3986
	    self information:'same contents'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3987
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3988
	    d := DiffTextView 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3989
		    openOn:text1 label:l1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3990
		    and:text2 label:name2 pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3991
	    d topView label:'file differences'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3992
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3993
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3994
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3995
321c1729db5b initial checkin
penk
parents:
diff changeset
  3996
openEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3997
    self openTool:EditTextView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3998
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3999
321c1729db5b initial checkin
penk
parents:
diff changeset
  4000
openHTMLReader
321c1729db5b initial checkin
penk
parents:
diff changeset
  4001
321c1729db5b initial checkin
penk
parents:
diff changeset
  4002
    self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4003
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4004
321c1729db5b initial checkin
penk
parents:
diff changeset
  4005
openImageEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  4006
321c1729db5b initial checkin
penk
parents:
diff changeset
  4007
    [self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4008
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4009
321c1729db5b initial checkin
penk
parents:
diff changeset
  4010
openImageInspector
321c1729db5b initial checkin
penk
parents:
diff changeset
  4011
    [self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4012
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4013
321c1729db5b initial checkin
penk
parents:
diff changeset
  4014
openImagePreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  4015
321c1729db5b initial checkin
penk
parents:
diff changeset
  4016
    [self loadImageAndPerform:[:img |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4017
				|i top viewer|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4018
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4019
				top := StandardSystemView new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4020
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4021
				viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4022
				i := img.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4023
				top extent:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4024
				top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4025
				top openAndWait.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4026
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4027
				(i width > 200 or:[i height > 200]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4028
				    i := i magnifiedPreservingRatioTo:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4029
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4030
				viewer image:i.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4031
			      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4032
    ] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4033
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4034
321c1729db5b initial checkin
penk
parents:
diff changeset
  4035
openMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4036
    |file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4037
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4038
    file := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4039
    (file isEmpty) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4040
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4041
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4042
    file := file first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4043
    (MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4044
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4045
321c1729db5b initial checkin
penk
parents:
diff changeset
  4046
openSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4047
321c1729db5b initial checkin
penk
parents:
diff changeset
  4048
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4049
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4050
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4051
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4052
321c1729db5b initial checkin
penk
parents:
diff changeset
  4053
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4054
    CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4055
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4056
321c1729db5b initial checkin
penk
parents:
diff changeset
  4057
openSnapshotImageBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4058
    ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4059
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4060
321c1729db5b initial checkin
penk
parents:
diff changeset
  4061
openTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4062
321c1729db5b initial checkin
penk
parents:
diff changeset
  4063
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4064
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4065
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4066
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4067
	dir := Filename homeDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4068
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4069
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4070
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4071
321c1729db5b initial checkin
penk
parents:
diff changeset
  4072
    VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4073
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4074
321c1729db5b initial checkin
penk
parents:
diff changeset
  4075
openTool:aToolClass
321c1729db5b initial checkin
penk
parents:
diff changeset
  4076
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4077
321c1729db5b initial checkin
penk
parents:
diff changeset
  4078
    ^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4079
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4080
321c1729db5b initial checkin
penk
parents:
diff changeset
  4081
openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4082
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4083
321c1729db5b initial checkin
penk
parents:
diff changeset
  4084
    ^ self
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4085
	openTool:aToolClass 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4086
	with:#openOn: 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4087
	ignoreDirectories:ignoreDirs
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4088
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4089
321c1729db5b initial checkin
penk
parents:
diff changeset
  4090
openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4091
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4092
321c1729db5b initial checkin
penk
parents:
diff changeset
  4093
    |numItems path tool files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4094
321c1729db5b initial checkin
penk
parents:
diff changeset
  4095
    aToolClass isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4096
	Dialog warn:'Sorry, that tool seems to be not available'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4097
	^ nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4098
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4099
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4100
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  4101
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4102
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4103
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4104
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4105
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4106
321c1729db5b initial checkin
penk
parents:
diff changeset
  4107
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4108
	files do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4109
	    (ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4110
		fileName isAbsolute ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4111
		    path := fileName getName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4112
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4113
		    path := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4114
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4115
		tool := aToolClass perform:aSelector with:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4116
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4117
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4118
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4119
    ^ tool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4120
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4121
321c1729db5b initial checkin
penk
parents:
diff changeset
  4122
openZipTool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4123
    |zipTool directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4124
321c1729db5b initial checkin
penk
parents:
diff changeset
  4125
    (zipTool := self openTool:ZipTool) notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4126
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4127
	directories isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4128
	    dir := directories first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4129
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4130
	    dir := Filename homeDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4131
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4132
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4133
	zipTool initialExtractDirectory:dir.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4134
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4135
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4136
321c1729db5b initial checkin
penk
parents:
diff changeset
  4137
readAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4138
    "read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4139
321c1729db5b initial checkin
penk
parents:
diff changeset
  4140
    | directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4141
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4142
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4143
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4144
321c1729db5b initial checkin
penk
parents:
diff changeset
  4145
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4146
    Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin
penk
parents:
diff changeset
  4147
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4148
321c1729db5b initial checkin
penk
parents:
diff changeset
  4149
singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  4150
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4151
321c1729db5b initial checkin
penk
parents:
diff changeset
  4152
    |aStream wasLazy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4153
321c1729db5b initial checkin
penk
parents:
diff changeset
  4154
    fileName type == #regular ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4155
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4156
	(ObjectFileLoader notNil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4157
	and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4158
	    AbortOperationRequest catch:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4159
		|p|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4160
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4161
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4162
		"/ look if already loaded ...  then unload first
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4163
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4164
		p := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4165
		(ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4166
		    (Dialog confirm:(resources 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4167
					string:'%1 is already loaded; load anyway ?'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4168
					with:p)) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4169
			^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4170
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4171
		    Transcript showCR:'unloading old ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4172
		    ObjectFileLoader unloadObjectFile:p. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4173
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4174
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4175
		Transcript showCR:'loading ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4176
		ObjectFileLoader loadObjectFile:p.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4177
		Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4178
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4179
	] ifFalse:[ ((fileName hasSuffix:'cls') 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4180
		     and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4181
	    "/ loading a binary class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4182
	    aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4183
	    aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4184
		aStream fileInBinary.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4185
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4186
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4187
	    ((fileName hasSuffix:'class')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4188
	    or:[(fileName hasSuffix:'cla')]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4189
		"/ loading a java class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4190
		JavaClassReader notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4191
		    JavaClassReader loadFile:(fileName pathName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4192
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4193
	    ] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4194
		"/ loading a sif (smalltalk interchange format) file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4195
		SmalltalkInterchangeSTXFileInManager autoload.    
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4196
		SmalltalkInterchangeFileManager newForFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4197
		    fileName: fileName pathName;
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4198
		    fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4199
	    ] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4200
		Parcel isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4201
		    Dialog warn:'Parcel support not loaded.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4202
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4203
		    Parcel loadParcelFrom: fileName pathName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4204
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4205
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4206
		"/ loading a regular (chunk) or xml source file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4207
		aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4208
		aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4209
		    Error handle:[ : ex |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4210
			Dialog warn:'Error on file in: ', ex errorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4211
		    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4212
			[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4213
			    Class withoutUpdatingChangesDo:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4214
				wasLazy := Compiler compileLazy:lazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4215
				aStream fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4216
			    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4217
			    Class addInfoRecord:('fileIn ' , fileName asString) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4218
			] ensure:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4219
			    Compiler compileLazy:wasLazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4220
			    aStream close
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4221
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4222
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4223
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4224
	    ]]]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4225
	]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4226
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4227
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4228
321c1729db5b initial checkin
penk
parents:
diff changeset
  4229
!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4230
321c1729db5b initial checkin
penk
parents:
diff changeset
  4231
canCvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  4232
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4233
    |selectedFiles|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4234
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4235
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4236
    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4237
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4238
321c1729db5b initial checkin
penk
parents:
diff changeset
  4239
canRemoveCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  4240
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4241
    |selectedFiles dirOfFile cvsDir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4242
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4243
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4244
    selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4245
    ^ ((selectedFiles detect:[:fileName|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4246
	dirOfFile := self getDirWithoutFileName:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4247
	cvsDir := dirOfFile construct:'CVS'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4248
	(cvsDir isDirectory and:[cvsDir exists])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4249
    ] ifNone:[nil]) notNil).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4250
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4251
321c1729db5b initial checkin
penk
parents:
diff changeset
  4252
!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4253
321c1729db5b initial checkin
penk
parents:
diff changeset
  4254
anySTFilesPresent
321c1729db5b initial checkin
penk
parents:
diff changeset
  4255
321c1729db5b initial checkin
penk
parents:
diff changeset
  4256
    ^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4257
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4258
321c1729db5b initial checkin
penk
parents:
diff changeset
  4259
canCreateNewProject
321c1729db5b initial checkin
penk
parents:
diff changeset
  4260
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4261
    | selectedFiles |
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4262
321c1729db5b initial checkin
penk
parents:
diff changeset
  4263
    self currentFilesAreInSameDirectory ifFalse:[^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4264
    selectedFiles := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4265
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4266
	((selectedFiles detect:[:fileName| | suffix|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4267
	    suffix := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4268
	    (suffix = 'prj' or:[suffix = 'st'])
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4269
	] ifNone:[nil]) notNil)
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4270
      ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4271
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4272
321c1729db5b initial checkin
penk
parents:
diff changeset
  4273
canDoTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4274
321c1729db5b initial checkin
penk
parents:
diff changeset
  4275
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4276
      or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4277
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4278
321c1729db5b initial checkin
penk
parents:
diff changeset
  4279
canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4280
321c1729db5b initial checkin
penk
parents:
diff changeset
  4281
    ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4282
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4283
321c1729db5b initial checkin
penk
parents:
diff changeset
  4284
canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4285
321c1729db5b initial checkin
penk
parents:
diff changeset
  4286
    ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4287
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4288
321c1729db5b initial checkin
penk
parents:
diff changeset
  4289
canReadAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4290
321c1729db5b initial checkin
penk
parents:
diff changeset
  4291
321c1729db5b initial checkin
penk
parents:
diff changeset
  4292
    self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4293
    ^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  4294
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4295
321c1729db5b initial checkin
penk
parents:
diff changeset
  4296
canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  4297
321c1729db5b initial checkin
penk
parents:
diff changeset
  4298
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4299
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4300
321c1729db5b initial checkin
penk
parents:
diff changeset
  4301
hasASN1
321c1729db5b initial checkin
penk
parents:
diff changeset
  4302
    ^ [ OSI::ASN1Parser notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4303
	and:[OSI::ASN1Parser isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4304
321c1729db5b initial checkin
penk
parents:
diff changeset
  4305
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4306
321c1729db5b initial checkin
penk
parents:
diff changeset
  4307
hasASN1AndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4308
    ^ [ self hasSelection value 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4309
	and:[self currentSelectedFiles size > 0
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4310
	and:[OSI::ASN1Parser notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4311
	and:[OSI::ASN1Parser isLoaded]]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4312
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4313
321c1729db5b initial checkin
penk
parents:
diff changeset
  4314
hasCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4315
    ^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4316
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4317
321c1729db5b initial checkin
penk
parents:
diff changeset
  4318
hasJava
321c1729db5b initial checkin
penk
parents:
diff changeset
  4319
321c1729db5b initial checkin
penk
parents:
diff changeset
  4320
    ^ [ JavaClassReader notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4321
	and:[JavaClassReader isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4322
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4323
321c1729db5b initial checkin
penk
parents:
diff changeset
  4324
hasJavaAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4325
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4326
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4327
	and:[JavaClassReader notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4328
	and:[JavaClassReader isLoaded]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4329
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4330
321c1729db5b initial checkin
penk
parents:
diff changeset
  4331
hasMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4332
321c1729db5b initial checkin
penk
parents:
diff changeset
  4333
    ^ [ MP3PlayerApplication notNil
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4334
	or:[SaugFix::MP3PlayerApplication notNil ]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4335
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4336
321c1729db5b initial checkin
penk
parents:
diff changeset
  4337
hasMP3PlayerAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4338
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4339
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4340
	and:[ self hasMP3Player value]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4341
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4342
321c1729db5b initial checkin
penk
parents:
diff changeset
  4343
hasSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4344
321c1729db5b initial checkin
penk
parents:
diff changeset
  4345
    ^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4346
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4347
321c1729db5b initial checkin
penk
parents:
diff changeset
  4348
hasSnapshotSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4349
321c1729db5b initial checkin
penk
parents:
diff changeset
  4350
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4351
	| files |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4352
	files := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4353
	((files size == 1)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4354
	and:[ files first hasSuffix:'img' ])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4355
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4356
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4357
321c1729db5b initial checkin
penk
parents:
diff changeset
  4358
hasZipFileSelected
321c1729db5b initial checkin
penk
parents:
diff changeset
  4359
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4360
    ^ [|sel fileName fn suff|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4361
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4362
	sel := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4363
	sel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4364
	    fileName := sel first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4365
	    fileName notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4366
		suff := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4367
		suff = 'zip' or:[suff = 'jar']
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4368
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4369
		false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4370
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4371
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4372
	    false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4373
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4374
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4375
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4376
321c1729db5b initial checkin
penk
parents:
diff changeset
  4377
javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  4378
321c1729db5b initial checkin
penk
parents:
diff changeset
  4379
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4380
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4381
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4382
!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4383
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4384
getModeString:modeBits
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4385
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4386
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4387
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4388
    ^ self getModeString:modeBits 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4389
		    with:#( 'owner:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4390
			    ' group:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4391
			    ' others:' $r $w $x )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4392
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4393
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4394
getModeString:modeBits with:texts
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4395
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4396
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4397
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4398
    |bits modeString|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4399
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4400
    bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4401
    modeString := ''.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4402
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4403
    #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 ) 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4404
    with: texts do:[:bitMask :access |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4405
	|ch|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4406
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4407
	bitMask isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4408
	    modeString := modeString , access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4409
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4410
	    (bits bitAnd:bitMask) == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4411
		ch := $-
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4412
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4413
		ch := access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4414
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4415
	    modeString := modeString copyWith:ch 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4416
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4417
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4418
    ^ modeString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4419
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4420
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4421
!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4422
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4423
getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4424
    "get stat info on selected file - return a string which can be
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4425
     shown in a box"
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4426
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4427
    | selFiles filename text fileOutput type modeBits modeString s ts isLink info|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4428
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4429
    selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4430
    ((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4431
    filename := selFiles first.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4432
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4433
    text := StringCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4434
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4435
    text add:('filename: ', filename asString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4436
    isLink := filename isSymbolicLink.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4437
    isLink ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4438
	text add:('symbolic link to: ', (filename linkInfo path))
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4439
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4440
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4441
    info := filename info.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4442
    type := info type.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4443
    (longInfo and:[type == #regular]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4444
	fileOutput := filename fileType.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4445
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4446
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4447
    s := ('type:   ').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4448
    fileOutput isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4449
	s := s ,  type asString
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4450
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4451
	s := s , 'regular (' , fileOutput , ')'
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4452
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4453
    text add:s.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4454
    isLink = true ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4455
	info := filename linkInfo
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4456
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4457
	info := filename info
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4458
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4459
    
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4460
    text add:('size:   ', (info fileSize) printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4461
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4462
    modeBits := info mode.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4463
    modeString := self getModeString:modeBits.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4464
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4465
	text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4466
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4467
	text add:('access: ', modeString)
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4468
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4469
    text add:('owner:  ',
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4470
	       (OperatingSystem getUserNameFromID:(info uid))).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4471
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4472
	text add:('group:  ',
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4473
		   (OperatingSystem getGroupNameFromID:(info gid))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4474
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4475
	ts := info accessTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4476
	text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4477
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4478
	ts := info modificationTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4479
	text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4480
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4481
    ^ text asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4482
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4483
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4484
initialCommandFor:fileName into:aBox
321c1729db5b initial checkin
penk
parents:
diff changeset
  4485
    "set a useful initial command for execute box."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4486
321c1729db5b initial checkin
penk
parents:
diff changeset
  4487
    |mime cmd select path suffix|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4488
321c1729db5b initial checkin
penk
parents:
diff changeset
  4489
    path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4490
    suffix := fileName asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4491
    DefaultCommandPerSuffix notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4492
	cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4493
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4494
	    aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4495
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4496
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4497
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4498
    mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4499
"/    mime notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4500
"/        cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin
penk
parents:
diff changeset
  4501
"/    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4502
321c1729db5b initial checkin
penk
parents:
diff changeset
  4503
    "/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin
penk
parents:
diff changeset
  4504
    "/ XXX or from resources.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4505
321c1729db5b initial checkin
penk
parents:
diff changeset
  4506
    (path type == #regular) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4507
	path isExecutableProgram ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4508
	    aBox initialText:(fileName , ' <arguments>').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4509
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4510
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4511
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4512
	select := true.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4513
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4514
	"some heuristics - my personal preferences ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4515
	 (actually this should come from a configfile)"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4516
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4517
	(fileName endsWith:'akefile') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4518
	    aBox initialText:'make target' selectFrom:6 to:11.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4519
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4520
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4521
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4522
	cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4523
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4524
	    select := false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4525
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4526
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4527
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4528
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4529
	    suffix := path suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4530
	    (suffix = 'C') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4531
		cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4532
		select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4533
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4534
		suffix := suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4535
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4536
		(suffix = 'taz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4537
		    aBox initialText:'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4538
		    select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4539
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4540
		(suffix = 'tar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4541
		    cmd := 'tar tvf %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4542
		    select := 7.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4543
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4544
		(suffix = 'zoo') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4545
		    cmd := 'zoo -list %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4546
		    select := 9.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4547
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4548
		(suffix = 'zip') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4549
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4550
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4551
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4552
		(suffix = 'jar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4553
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4554
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4555
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4556
		(suffix = 'z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4557
		    (fileName asLowercase endsWith:'tar.z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4558
			cmd := 'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4559
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4560
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4561
			cmd := 'uncompress %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4562
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4563
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4564
		(suffix = 'gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4565
		    (fileName asLowercase endsWith:'tar.gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4566
			cmd := ('gunzip < %1 | tar tvf -' ).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4567
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4568
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4569
			cmd := 'gunzip %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4570
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4571
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4572
		(suffix = 'html') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4573
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4574
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4575
		(suffix = 'htm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4576
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4577
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4578
		(suffix = 'uue') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4579
		    cmd := 'uudecode %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4580
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4581
		(suffix = 'c') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4582
		    cmd := 'cc -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4583
		    select := 5.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4584
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4585
		(suffix = 'cc') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4586
		    cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4587
		    select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4588
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4589
		(suffix = 'xbm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4590
		    cmd := 'bitmap %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4591
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4592
		(suffix = 'ps') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4593
		    cmd := 'ghostview %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4594
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4595
		((suffix = '1') or:[suffix = 'man']) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4596
		    cmd := 'nroff -man %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4597
		    select := 10.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4598
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4599
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4600
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4601
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4602
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4603
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4604
		cmd := '<cmd>'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4605
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4606
		cmd := DefaultCommandPerSuffix 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4607
			at:suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4608
			ifAbsent:'<cmd>'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4609
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4610
	    cmd := cmd , ' %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4611
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4612
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4613
	cmd := cmd bindWith:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4614
	select == false ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4615
	    aBox initialText:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4616
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4617
	    select class == Interval ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4618
		aBox initialText:cmd selectFrom:select start to:select stop
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4619
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4620
		select isInteger ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4621
		    select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4622
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4623
		aBox initialText:cmd selectFrom:1 to:select
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4624
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4625
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4626
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4627
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4628
321c1729db5b initial checkin
penk
parents:
diff changeset
  4629
isAbstractFileBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4630
321c1729db5b initial checkin
penk
parents:
diff changeset
  4631
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4632
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4633
321c1729db5b initial checkin
penk
parents:
diff changeset
  4634
systemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4635
321c1729db5b initial checkin
penk
parents:
diff changeset
  4636
    ^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4637
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4638
321c1729db5b initial checkin
penk
parents:
diff changeset
  4639
systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4640
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4641
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4642
321c1729db5b initial checkin
penk
parents:
diff changeset
  4643
!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4644
321c1729db5b initial checkin
penk
parents:
diff changeset
  4645
allItemsOfCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4646
321c1729db5b initial checkin
penk
parents:
diff changeset
  4647
    ^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4648
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4649
321c1729db5b initial checkin
penk
parents:
diff changeset
  4650
anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4651
321c1729db5b initial checkin
penk
parents:
diff changeset
  4652
    | directories |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4653
321c1729db5b initial checkin
penk
parents:
diff changeset
  4654
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4655
    directories do:[ : dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4656
	(dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4657
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4658
    ^ false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4659
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4660
321c1729db5b initial checkin
penk
parents:
diff changeset
  4661
currentFilesAreInSameDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4662
321c1729db5b initial checkin
penk
parents:
diff changeset
  4663
    ^ (self currentDirectories value size == 1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4664
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4665
321c1729db5b initial checkin
penk
parents:
diff changeset
  4666
currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  4667
321c1729db5b initial checkin
penk
parents:
diff changeset
  4668
    ^ self currentDirectories value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4669
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4670
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4671
directoriesForFiles:aFileCol
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4672
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4673
    ^ ((aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4674
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4675
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4676
fileListIsEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4677
321c1729db5b initial checkin
penk
parents:
diff changeset
  4678
    ^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4679
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4680
321c1729db5b initial checkin
penk
parents:
diff changeset
  4681
fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4682
321c1729db5b initial checkin
penk
parents:
diff changeset
  4683
    ^ self fileListIsEmpty not.   
321c1729db5b initial checkin
penk
parents:
diff changeset
  4684
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4685
321c1729db5b initial checkin
penk
parents:
diff changeset
  4686
fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin
penk
parents:
diff changeset
  4687
321c1729db5b initial checkin
penk
parents:
diff changeset
  4688
" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin
penk
parents:
diff changeset
  4689
321c1729db5b initial checkin
penk
parents:
diff changeset
  4690
    | file1 file2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4691
321c1729db5b initial checkin
penk
parents:
diff changeset
  4692
    aFilename2 isNil ifTrue:[ ^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4693
    aFilename1 isNil ifTrue:[ ^ false].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4694
    file1 := aFilename1 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4695
    file2 := aFilename2 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4696
    file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4697
    ((file1 isDirectory) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4698
    and:[(file2 isDirectory)
321c1729db5b initial checkin
penk
parents:
diff changeset
  4699
    and:[file1 directory = file2 directory]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4700
	^ file1 baseName = file2 baseName
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4701
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4702
    ^ (file1 pathName) startsWith:(file2 pathName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4703
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4704
321c1729db5b initial checkin
penk
parents:
diff changeset
  4705
getAllFilesAsStringCollection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4706
321c1729db5b initial checkin
penk
parents:
diff changeset
  4707
    ^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4708
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4709
321c1729db5b initial checkin
penk
parents:
diff changeset
  4710
getBestDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4711
321c1729db5b initial checkin
penk
parents:
diff changeset
  4712
    |selFiles stringCol firstPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4713
321c1729db5b initial checkin
penk
parents:
diff changeset
  4714
    selFiles := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4715
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4716
    selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4717
    stringCol := (selFiles collect:[: file| file asString]) asOrderedCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4718
    firstPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4719
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4720
	 firstPre :=  firstPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4721
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4722
    (firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4723
	firstPre removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4724
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4725
    ^ firstPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4726
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4727
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4728
getCommonForCurrentFiles
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4729
321c1729db5b initial checkin
penk
parents:
diff changeset
  4730
    |selFiles stringCol firtsPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4731
321c1729db5b initial checkin
penk
parents:
diff changeset
  4732
    selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4733
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4734
    stringCol := selFiles collect:[: file| file asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4735
    firtsPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4736
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4737
	 firtsPre :=  firtsPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4738
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4739
    ^ firtsPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4740
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4741
321c1729db5b initial checkin
penk
parents:
diff changeset
  4742
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4743
321c1729db5b initial checkin
penk
parents:
diff changeset
  4744
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4745
    aFileName isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4746
	^ aFileName.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4747
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4748
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4749
    dir isDirectory ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4750
	dir := dir directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4751
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4752
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4753
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4754
321c1729db5b initial checkin
penk
parents:
diff changeset
  4755
getInfoItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4756
    "get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin
penk
parents:
diff changeset
  4757
     This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4758
     You can add more names below if you like."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4759
321c1729db5b initial checkin
penk
parents:
diff changeset
  4760
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4761
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4762
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4763
    (directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4764
321c1729db5b initial checkin
penk
parents:
diff changeset
  4765
    #( 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4766
       '.dir.info'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4767
       'README'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4768
       'ReadMe'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4769
       'Readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4770
       'readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4771
       'read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4772
       'Read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4773
       'READ.ME'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4774
       'README.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4775
       'readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4776
       'Readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4777
       'Info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4778
       'info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4779
       'INFO.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4780
    ) do:[:f | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4781
	|n dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4782
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4783
	n := (directories first) construct:f.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4784
	(n isReadable and:[n isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4785
	    ^ DirectoryContentsBrowser itemClass fileName:n
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4786
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4787
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4788
    ^ nil
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4789
! !
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4790
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4791
!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4792
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4793
currentSelectedDirectories
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4794
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4795
    ^ self currentDirectories value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4796
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4797
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4798
currentSelectedFiles
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4799
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4800
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4801
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4802
    ^ (files select:[: file | file isDirectory not]).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4803
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4804
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4805
firstSelectedFile
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4806
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4807
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4808
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4809
    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4810
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4811
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4812
!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4813
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4814
currentSortOrder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4815
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4816
    " returns a Ordered Collection of all directories currently selected 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4817
      if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4818
    "
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4819
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4820
    ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4821
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4822
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4823
makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4824
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4825
    self sortDirectoriesBeforeFiles value ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4826
	^ [:a :b|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4827
	    |aIsDir bIsDir res|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4828
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4829
	    aIsDir := a isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4830
	    bIsDir := b isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4831
	    (aIsDir ~~ bIsDir) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4832
		res := aIsDir 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4833
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4834
		res := aSortBlock value:a value:b.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4835
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4836
	    res
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4837
	  ].
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4838
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4839
	^ aSortBlock
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4840
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4841
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4842
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4843
sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4844
    |nameSortBlock|
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4845
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4846
    ^ self aspectFor:#sortBlockHolder ifAbsent:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4847
	self sortCaseless value ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4848
	    nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4849
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4850
	    nameSortBlock := [ :a :b | a asString < b asString.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4851
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4852
	(self makeDirectorySortBlockFor:nameSortBlock) asValue.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4853
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4854
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4855
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4856
sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4857
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4858
    
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4859
    ^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4860
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4861
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4862
sortCaseless
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4863
    " aspect for sort caseless "
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4864
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4865
    ^ self aspectFor:#sortCaseless ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4866
        | holder |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4867
        holder := (Filename isCaseSensitive not) asValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4868
        holder
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4869
    ]
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4870
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4871
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4872
sortDirectoriesBeforeFiles
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4873
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4874
    " aspect for sort directories always before files"
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4875
    ^ self aspectFor:#sortDirectoriesBeforeFiles ifAbsent:[ true asValue ].
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4876
!
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4877
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4878
sortFileListsBy:instanceName 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4879
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4880
    self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4881
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4882
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4883
sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4884
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4885
    | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse|
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4886
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4887
    aSymbol := instanceName asSymbol.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4888
    self sortBlockProperty setValue:instanceName asSymbol.
4151
950e04fef4ba treeBrowser has his own sort now
penk
parents: 4148
diff changeset
  4889
    sortCaselessLocal := self sortCaseless value.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4890
    currentSortOrder := self currentSortOrder value.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4891
    currentSortOrder isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4892
	currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4893
	currentSortOrder at:#reverse put:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4894
	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4895
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4896
	(currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4897
	    "/ sort caseless changed
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4898
	    currentSortOrder at:#sortCaseless put:sortCaselessLocal.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4899
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4900
	    (currentSortOrder at:#column) = aSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4901
		"/ same column like before - change sort order ifReverse is true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4902
		aBoolean ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4903
		    | isReverse |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4904
		    isReverse := currentSortOrder at:#reverse.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4905
		    currentSortOrder at:#reverse put:(isReverse not).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4906
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4907
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4908
		"/ another column - remark column
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4909
		currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4910
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4911
	]
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4912
    ].
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4913
    self currentSortOrder changed.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4914
    (currentSortOrder at:#reverse) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4915
	cmpOp := #'>'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4916
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4917
	cmpOp := #'<'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4918
    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4919
    sortReverse := currentSortOrder at:#reverse.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4920
    instanceSortBlock := [:a :b | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4921
	|entry1 entry2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4922
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4923
	((a respondsTo:aSymbol) not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4924
	    true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4925
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4926
	    entry1 := (a perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4927
	    entry2 := (b perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4928
	    ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4929
		((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4930
		    ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4931
		       sortReverse
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4932
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4933
			sortReverse not
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4934
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4935
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4936
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4937
		(aSymbol = #baseName) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4938
		    sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4939
			entry1 := entry1 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4940
			entry2 := entry2 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4941
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4942
			entry1 := entry1 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4943
			entry2 := entry2 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4944
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4945
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4946
		entry1 perform:cmpOp with:entry2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4947
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4948
	]
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4949
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4950
    self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4951
! !
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4952
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4953
!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4954
321c1729db5b initial checkin
penk
parents:
diff changeset
  4955
makeDependent
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4956
    self filterModel addDependent:self.            
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4957
    self currentFileNameHolder addDependent:self.
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4958
    self sortDirectoriesBeforeFiles addDependent:self.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4959
    self sortCaseless addDependent:self.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4960
    self showHiddenFiles addDependent:self.
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
masterApplication:anApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  4964
321c1729db5b initial checkin
penk
parents:
diff changeset
  4965
    masterApplication isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4966
	(anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4967
	    aspects := anApplication aspects
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4968
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4969
	    aspects isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4970
		aspects := IdentityDictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4971
		aspects at:#applications put:(IdentityDictionary new).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4972
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4973
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4974
	self applications at:(self className) put:self.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4975
	self makeDependent.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4976
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4977
    ^ super masterApplication:anApplication.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4978
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4979
321c1729db5b initial checkin
penk
parents:
diff changeset
  4980
postOpenWith:aBuilder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4981
321c1729db5b initial checkin
penk
parents:
diff changeset
  4982
    super postOpenWith:aBuilder.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4983
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4984
321c1729db5b initial checkin
penk
parents:
diff changeset
  4985
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4986
321c1729db5b initial checkin
penk
parents:
diff changeset
  4987
files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4988
    "return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4989
321c1729db5b initial checkin
penk
parents:
diff changeset
  4990
    ^ files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4991
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4992
321c1729db5b initial checkin
penk
parents:
diff changeset
  4993
files:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4994
    "set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4995
321c1729db5b initial checkin
penk
parents:
diff changeset
  4996
    files := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4997
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4998
321c1729db5b initial checkin
penk
parents:
diff changeset
  4999
method
321c1729db5b initial checkin
penk
parents:
diff changeset
  5000
    "return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5001
321c1729db5b initial checkin
penk
parents:
diff changeset
  5002
    ^ method
321c1729db5b initial checkin
penk
parents:
diff changeset
  5003
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5004
321c1729db5b initial checkin
penk
parents:
diff changeset
  5005
method:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5006
    "set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5007
321c1729db5b initial checkin
penk
parents:
diff changeset
  5008
    method := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5009
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5010
321c1729db5b initial checkin
penk
parents:
diff changeset
  5011
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5012
321c1729db5b initial checkin
penk
parents:
diff changeset
  5013
locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  5014
    "return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5015
321c1729db5b initial checkin
penk
parents:
diff changeset
  5016
    locked isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5017
	locked := false.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5018
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5019
    ^ locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  5020
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5021
321c1729db5b initial checkin
penk
parents:
diff changeset
  5022
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5023
321c1729db5b initial checkin
penk
parents:
diff changeset
  5024
doIfUnLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5025
321c1729db5b initial checkin
penk
parents:
diff changeset
  5026
    self locked ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5027
	aBlock value.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5028
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5029
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5030
321c1729db5b initial checkin
penk
parents:
diff changeset
  5031
doLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5032
321c1729db5b initial checkin
penk
parents:
diff changeset
  5033
    locked  := true.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5034
    aBlock ensure:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5035
	locked := false.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5036
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5037
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5038
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5039
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5040
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5041
historySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5042
321c1729db5b initial checkin
penk
parents:
diff changeset
  5043
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5044
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5045
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5046
!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5047
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5048
new
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5049
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5050
    ^ super new initialize.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5051
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5052
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5053
!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5054
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5055
forwardList
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5056
    "return the value of the instance variable 'forwardList' (automatically generated)"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5057
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5058
    forwardList isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5059
	forwardList := OrderedCollection new.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5060
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5061
    ^ forwardList
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5062
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5063
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5064
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5065
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5066
addToHistory:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5067
    | item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5068
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5069
    item := self getItemFor:aPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5070
    (lastBackPath notNil and:[lastAddPath notNil and:[lastBackPath = aPath]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5071
	lastAddPath := nil.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5072
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5073
    lastAddPath notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5074
	self backListAdd:lastAddPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5075
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5076
    lastAddPath := aPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5077
    item isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5078
	" not already in history"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5079
	self size >= self class historySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5080
	    self removeLast.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5081
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5082
	item := DirectoryHistoryItem path:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5083
	self addFirst:item
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5084
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5085
	"already been there before; move the entry to
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5086
	 the beginning, so it will fall out later."
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5087
	self remove:item.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5088
	self addFirst:item
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5089
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5090
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5091
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5092
backListAdd:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5093
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5094
    backList size >= self class historySize ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5095
	backList removeLast.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5096
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5097
    backList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5098
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5099
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5100
forwardListAdd:aPath
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5101
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5102
    forwardList size >= self class historySize ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5103
	forwardList removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5104
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5105
    forwardList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5106
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5107
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5108
goBack
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5109
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5110
" 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
  5111
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5112
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5113
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5114
    backList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5115
    retPath := backList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5116
    self forwardListAdd:(self first path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5117
    lastBackPath := retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5118
    backList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5119
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5120
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5121
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5122
goForward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5123
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5124
" return first path of forward list"
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5125
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5126
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5127
    self forwardList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5128
    retPath := self forwardList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5129
    self forwardList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5130
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5131
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5132
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5133
resetForwardBackward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5134
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5135
    backList := self collect:[:item| item path].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5136
    forwardList := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5137
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5138
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5139
setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5140
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5141
    self do:[:item| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5142
	item path = aPath ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5143
	    item position:aPosition.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5144
	]
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5145
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5146
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5147
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5148
xxgoBackFrom:aPath
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5149
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5150
" search the item in the list and give back the next in the list"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5151
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5152
    | index retVal|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5153
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5154
    self isEmpty ifTrue:[ ^ nil].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5155
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5156
    aPath isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5157
	retVal := self first path
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5158
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5159
	index := self findFirst:[:item| item path = aPath].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5160
	index == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5161
	    retVal := self first path
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5162
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5163
	    index < self size ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5164
		retVal := ((self at:index + 1) path).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5165
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5166
	].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5167
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5168
    retVal := retVal ? self first path.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5169
    self forwardListAdd:aPath.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5170
    ^ retVal.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5171
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5172
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5173
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5174
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5175
initialize
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5176
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5177
    backList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5178
    forwardList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5179
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5180
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5181
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5182
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  5183
canBack
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5184
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5185
    ^ backList notEmpty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5186
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5187
321c1729db5b initial checkin
penk
parents:
diff changeset
  5188
canForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  5189
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5190
    ^ self forwardList notEmpty.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5191
!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5192
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5193
getBackCollectionFrom:aPath
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5194
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5195
"/    | backCol index |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5196
"/    
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5197
"/    backCol := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5198
"/    aPath isNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5199
"/        index := 0.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5200
"/    ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5201
"/        index := self findFirst:[:item| item path = aPath].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5202
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5203
"/    "/ 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
  5204
"/    index < self size ifTrue:[ 
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5205
"/        self from:(index + 1) to:(self size) do:[:item |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5206
"/            backCol add:(item path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5207
"/        ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5208
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5209
    ^ backList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5210
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5211
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5212
getForwardCollection
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5213
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5214
    ^ self forwardList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5215
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5216
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5217
getItemFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5218
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5219
    self do:[:item| item path = aPath ifTrue:[^ item]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5220
    ^ nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5221
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5222
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5223
getPositionFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5224
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5225
    |item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5226
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5227
    item := self getItemFor:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5228
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5229
    item notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5230
	^ item position.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5231
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5232
    ^ nil
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5233
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5234
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5235
includesPath:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5236
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5237
    self do:[:item| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5238
    ^ false.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5239
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5240
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5241
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5242
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5243
path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5244
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5245
    ^ self new path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5246
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5247
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5248
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5249
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5250
path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5251
    "return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5252
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5253
    ^ path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5254
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5255
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5256
path:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5257
    "set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5258
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5259
    path := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5260
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5261
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5262
position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5263
    "return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5264
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5265
    ^ position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5266
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5267
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5268
position:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5269
    "set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5270
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5271
    position := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5272
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5273
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5274
printString
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5275
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5276
    ^ self path asString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5277
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5278
321c1729db5b initial checkin
penk
parents:
diff changeset
  5279
!AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5280
321c1729db5b initial checkin
penk
parents:
diff changeset
  5281
FilenameHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  5282
321c1729db5b initial checkin
penk
parents:
diff changeset
  5283
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5284
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5285
321c1729db5b initial checkin
penk
parents:
diff changeset
  5286
HistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  5287
321c1729db5b initial checkin
penk
parents:
diff changeset
  5288
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5289
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5290
321c1729db5b initial checkin
penk
parents:
diff changeset
  5291
!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5292
321c1729db5b initial checkin
penk
parents:
diff changeset
  5293
add:aApplItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  5294
321c1729db5b initial checkin
penk
parents:
diff changeset
  5295
    super add:aApplItem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5296
    (self size > self class FilenameHistorySize) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5297
	self removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5298
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  5299
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5300
321c1729db5b initial checkin
penk
parents:
diff changeset
  5301
!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5302
321c1729db5b initial checkin
penk
parents:
diff changeset
  5303
withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  5304
321c1729db5b initial checkin
penk
parents:
diff changeset
  5305
    | instance |
321c1729db5b initial checkin
penk
parents:
diff changeset
  5306
321c1729db5b initial checkin
penk
parents:
diff changeset
  5307
    instance := self basicNew.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5308
    instance value:aValue.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5309
    instance isHolder:aBoolean.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5310
    ^ instance
321c1729db5b initial checkin
penk
parents:
diff changeset
  5311
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5312
321c1729db5b initial checkin
penk
parents:
diff changeset
  5313
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5314
321c1729db5b initial checkin
penk
parents:
diff changeset
  5315
isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5316
    "return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5317
321c1729db5b initial checkin
penk
parents:
diff changeset
  5318
    ^ isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5319
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5320
321c1729db5b initial checkin
penk
parents:
diff changeset
  5321
isHolder:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5322
    "set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5323
321c1729db5b initial checkin
penk
parents:
diff changeset
  5324
    isHolder := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5325
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5326
321c1729db5b initial checkin
penk
parents:
diff changeset
  5327
value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5328
    "return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5329
321c1729db5b initial checkin
penk
parents:
diff changeset
  5330
    ^ value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5331
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5332
321c1729db5b initial checkin
penk
parents:
diff changeset
  5333
value:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5334
    "set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5335
321c1729db5b initial checkin
penk
parents:
diff changeset
  5336
    value := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5337
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5338
321c1729db5b initial checkin
penk
parents:
diff changeset
  5339
!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5340
321c1729db5b initial checkin
penk
parents:
diff changeset
  5341
version
4250
5637f9e6c683 moved some aspects down to concrete class
Claus Gittinger <cg@exept.de>
parents: 4230
diff changeset
  5342
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.59 2002-11-15 11:23:56 cg Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5343
! !