AbstractFileBrowser.st
author Claus Gittinger <cg@exept.de>
Mon, 11 Nov 2002 10:37:33 +0100
changeset 4230 805e8d4b4ec7
parent 4213 b8e7d4276a33
child 4250 5637f9e6c683
permissions -rw-r--r--
added make.
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
321c1729db5b initial checkin
penk
parents:
diff changeset
  2448
filenameEntryFieldVisibleHolder
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2449
    " aspect for show FileEntryField "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2450
321c1729db5b initial checkin
penk
parents:
diff changeset
  2451
    ^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2452
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2453
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2454
openAlwaysInTextEditor
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2455
    " aspect for open every file in TextEditor dont use e.g. HtmlEditor for *.html'"
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2456
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2457
    ^ self aspectFor:#openAlwaysInTextEditor ifAbsent:[ false asValue ].
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2458
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2459
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2460
openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
  2461
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2462
    " 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
  2463
      open TextEditor "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2464
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2465
    ^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2466
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2467
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2468
showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2469
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2470
    ^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2471
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2472
321c1729db5b initial checkin
penk
parents:
diff changeset
  2473
showHiddenFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2474
321c1729db5b initial checkin
penk
parents:
diff changeset
  2475
    ^ self aspectFor:#showHiddenFiles ifAbsent:[ true 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
toolBarVisibleHolder
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2479
    " aspect for show toolbar in FileBrowserV2"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2480
321c1729db5b initial checkin
penk
parents:
diff changeset
  2481
    ^ self aspectFor:#toolBarVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2482
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2483
321c1729db5b initial checkin
penk
parents:
diff changeset
  2484
viewDescription
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2485
    "get the user preferences for show file description row in DirectoryContentsBrowser"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2486
321c1729db5b initial checkin
penk
parents:
diff changeset
  2487
    ^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2488
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2489
321c1729db5b initial checkin
penk
parents:
diff changeset
  2490
viewDetails
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2491
    "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
  2492
    "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2493
321c1729db5b initial checkin
penk
parents:
diff changeset
  2494
    ^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2495
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2496
321c1729db5b initial checkin
penk
parents:
diff changeset
  2497
viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  2498
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2499
    " 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
  2500
      on change directory "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2501
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2502
    ^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2503
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2504
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2505
viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2506
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2507
    ^ self aspectFor:#viewDirsInContentsBrowser ifAbsent:[ false asValue ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2508
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2509
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2510
viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
  2511
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2512
    " aspect for view files in tree view (not only directories) "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2513
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2514
    ^ self aspectFor:#viewFilesInDirectoryTree 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
viewGroup
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 group 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:#viewGroup 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
viewNoteBookApplicationHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2525
321c1729db5b initial checkin
penk
parents:
diff changeset
  2526
    ^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2527
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2528
321c1729db5b initial checkin
penk
parents:
diff changeset
  2529
viewOwner
321c1729db5b initial checkin
penk
parents:
diff changeset
  2530
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2531
    " aspect for show owner information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2532
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2533
    ^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2534
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2535
321c1729db5b initial checkin
penk
parents:
diff changeset
  2536
viewPermissions
321c1729db5b initial checkin
penk
parents:
diff changeset
  2537
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2538
    " aspect for show permission information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2539
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2540
    ^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2541
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2542
321c1729db5b initial checkin
penk
parents:
diff changeset
  2543
viewPreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  2544
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2545
    " aspect for show image previev row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2546
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2547
    ^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2548
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2549
321c1729db5b initial checkin
penk
parents:
diff changeset
  2550
viewSize
321c1729db5b initial checkin
penk
parents:
diff changeset
  2551
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2552
    " aspect for show size information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2553
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2554
    ^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2555
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2556
321c1729db5b initial checkin
penk
parents:
diff changeset
  2557
viewTime
321c1729db5b initial checkin
penk
parents:
diff changeset
  2558
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2559
    " aspect for show time information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2560
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2561
    ^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2562
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2563
321c1729db5b initial checkin
penk
parents:
diff changeset
  2564
viewType
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2565
    " aspect for show suffix (type) information row in DirectoryContentsBrowser "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2566
321c1729db5b initial checkin
penk
parents:
diff changeset
  2567
    ^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2568
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2569
321c1729db5b initial checkin
penk
parents:
diff changeset
  2570
!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2571
321c1729db5b initial checkin
penk
parents:
diff changeset
  2572
executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2573
321c1729db5b initial checkin
penk
parents:
diff changeset
  2574
    self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2575
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2576
321c1729db5b initial checkin
penk
parents:
diff changeset
  2577
executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2578
321c1729db5b initial checkin
penk
parents:
diff changeset
  2579
    | nameString executionBlock|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2580
321c1729db5b initial checkin
penk
parents:
diff changeset
  2581
    executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2582
    nameString := 'Command> ', cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2583
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2584
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2585
321c1729db5b initial checkin
penk
parents:
diff changeset
  2586
getExecutionBlockForCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2587
321c1729db5b initial checkin
penk
parents:
diff changeset
  2588
    ^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2589
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2590
321c1729db5b initial checkin
penk
parents:
diff changeset
  2591
getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2592
321c1729db5b initial checkin
penk
parents:
diff changeset
  2593
    | dir dirs|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2594
321c1729db5b initial checkin
penk
parents:
diff changeset
  2595
    dir := aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2596
    aDir isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2597
	dirs := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2598
	dirs size ~= 1 ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2599
	dir := dirs anElement.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2600
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2601
    ^ [:stream| stream notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2602
	    OperatingSystem 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2603
		executeCommand:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2604
		inputFrom:nil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2605
		outputTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2606
		errorTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2607
		inDirectory:dir
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2608
		onError:[:status| false].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2609
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2610
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2611
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2612
321c1729db5b initial checkin
penk
parents:
diff changeset
  2613
killAllRunningBackgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2614
321c1729db5b initial checkin
penk
parents:
diff changeset
  2615
    self backgroundProcesses do:[ : process |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2616
	self notifyChannel value:'kill ', process name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2617
	process terminate.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2618
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2619
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2620
321c1729db5b initial checkin
penk
parents:
diff changeset
  2621
makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2622
    | stream process appl nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2623
321c1729db5b initial checkin
penk
parents:
diff changeset
  2624
    appl := self openCommandResultApplication.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2625
    stream := appl resultStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2626
    nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2627
    appl changeTabTo:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2628
    process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2629
	self backgroundProcesses remove:process ifAbsent:[].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2630
	appl process value:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2631
    ]] newProcess.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2632
    process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2633
    process name:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2634
    self backgroundProcesses add:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2635
    appl process value:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2636
    process resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2637
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2638
321c1729db5b initial checkin
penk
parents:
diff changeset
  2639
!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2640
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2641
abstractCurrentFileNameHolderChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2642
    " 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
  2643
      and the things that have to be done if it runs standalone "
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2644
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2645
    | newDirectories oldDirectories size rootInTreeView holder|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2646
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2647
    holder := self currentFileNameHolder value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2648
    self hasSelection value:(holder value notEmpty).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2649
    newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2650
    oldDirectories := self currentDirectories value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2651
    oldDirectories ~= newDirectories ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2652
	self currentDirectories value:newDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2653
	size := newDirectories size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2654
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2655
	rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2656
	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
  2657
	newDirectories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2658
	    newDirectories do:[: dir |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2659
		self dirHistory addToHistory:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2660
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2661
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2662
	self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2663
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2664
    self enableForward value:self canForward.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2665
    self enableBack value:self canBack.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2666
    ^ self
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2667
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2668
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2669
filterModelChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2670
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2671
    self filterBlockHolder value:(self getFilter).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2672
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2673
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2674
update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2675
321c1729db5b initial checkin
penk
parents:
diff changeset
  2676
    " do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2677
      and the things that have to be done if it runs standalone "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2678
321c1729db5b initial checkin
penk
parents:
diff changeset
  2679
    changedObject == self currentFileNameHolder ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2680
	self abstractCurrentFileNameHolderChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2681
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2682
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2683
    changedObject == self sortCaseless ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2684
	self sortFileListsBy:#baseName withReverse:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2685
	^ self
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2686
    ].             
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2687
    (changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2688
	self filterModelChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2689
	^ self
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2690
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2691
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2692
    super update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2693
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2694
321c1729db5b initial checkin
penk
parents:
diff changeset
  2695
!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2696
321c1729db5b initial checkin
penk
parents:
diff changeset
  2697
canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
  2698
321c1729db5b initial checkin
penk
parents:
diff changeset
  2699
    ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2700
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2701
321c1729db5b initial checkin
penk
parents:
diff changeset
  2702
clipboard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2703
321c1729db5b initial checkin
penk
parents:
diff changeset
  2704
    ^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2705
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2706
321c1729db5b initial checkin
penk
parents:
diff changeset
  2707
copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2708
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2709
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2710
    self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2711
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2712
321c1729db5b initial checkin
penk
parents:
diff changeset
  2713
cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2714
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2715
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2716
    self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2717
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2718
321c1729db5b initial checkin
penk
parents:
diff changeset
  2719
emptyClipBoard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2720
321c1729db5b initial checkin
penk
parents:
diff changeset
  2721
    self clipboard files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2722
    self canPaste value:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2723
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2724
321c1729db5b initial checkin
penk
parents:
diff changeset
  2725
putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2726
321c1729db5b initial checkin
penk
parents:
diff changeset
  2727
    | stream clp|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2728
321c1729db5b initial checkin
penk
parents:
diff changeset
  2729
    colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2730
    clp := self clipboard.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2731
    clp files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2732
    clp method:aSymbol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2733
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2734
    stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2735
    stream nextPutAll:' <'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2736
    stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2737
    colOfFiles size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2738
	stream nextPutAll:' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2739
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2740
    stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2741
321c1729db5b initial checkin
penk
parents:
diff changeset
  2742
    self notifyChannel value:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2743
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2744
    clp files:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2745
    self canPaste value:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2746
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2747
321c1729db5b initial checkin
penk
parents:
diff changeset
  2748
!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2749
321c1729db5b initial checkin
penk
parents:
diff changeset
  2750
canDropArchiv:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2751
321c1729db5b initial checkin
penk
parents:
diff changeset
  2752
    (filename isDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2753
    and:[filename isWritable and:[dropedObjects notEmpty]])  ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2754
	^ true
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2755
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2756
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2757
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2758
321c1729db5b initial checkin
penk
parents:
diff changeset
  2759
canDropFiles:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2760
    | checkObject filenameDirString checkObjectString filenameDir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2761
321c1729db5b initial checkin
penk
parents:
diff changeset
  2762
    dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2763
    filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2764
    filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2765
    filenameDirString := filenameDir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2766
    dropedObjects do:[:aObject | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2767
	checkObject := aObject theObject.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2768
	checkObjectString := checkObject asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2769
	checkObject isDirectory ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2770
	    (self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2771
		" can not drop a directory in his parents "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2772
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2773
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2774
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2775
	    (filenameDirString = checkObject directory asString 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2776
	    or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2777
		" can not drop a file in same directory "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2778
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2779
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2780
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2781
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2782
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2783
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2784
321c1729db5b initial checkin
penk
parents:
diff changeset
  2785
doStartDrag:aDropSource in:aView
321c1729db5b initial checkin
penk
parents:
diff changeset
  2786
    "set the cursors before starting the drag & drop operation
321c1729db5b initial checkin
penk
parents:
diff changeset
  2787
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2788
    |hdl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2789
321c1729db5b initial checkin
penk
parents:
diff changeset
  2790
321c1729db5b initial checkin
penk
parents:
diff changeset
  2791
    hdl := DragAndDropManager new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2792
321c1729db5b initial checkin
penk
parents:
diff changeset
  2793
    hdl disabledCursor:self class DisabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2794
    hdl enabledCursor:self class EnabledCursorImage.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2795
    hdl alienCursor:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2796
321c1729db5b initial checkin
penk
parents:
diff changeset
  2797
    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin
penk
parents:
diff changeset
  2798
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2799
321c1729db5b initial checkin
penk
parents:
diff changeset
  2800
!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2801
321c1729db5b initial checkin
penk
parents:
diff changeset
  2802
copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2803
    "copy to
321c1729db5b initial checkin
penk
parents:
diff changeset
  2804
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2805
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2806
321c1729db5b initial checkin
penk
parents:
diff changeset
  2807
    copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2808
    copy result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2809
	self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2810
    ] 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
    ^ copy result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2814
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2815
321c1729db5b initial checkin
penk
parents:
diff changeset
  2816
copyFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2817
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2818
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2819
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2820
321c1729db5b initial checkin
penk
parents:
diff changeset
  2821
    copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2822
    copy result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2823
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2824
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2825
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2826
    ^ copy colOfCopiedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2827
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2828
321c1729db5b initial checkin
penk
parents:
diff changeset
  2829
copyOrMoveDialog:aCol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2830
321c1729db5b initial checkin
penk
parents:
diff changeset
  2831
    | size stream dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2832
321c1729db5b initial checkin
penk
parents:
diff changeset
  2833
    size := aCol size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2834
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2835
    stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2836
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2837
	stream nextPutAll:'s'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2838
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2839
    stream nextPutAll:': '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2840
    stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2841
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2842
	stream nextPutAll:' ... '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2843
	stream nextPutAll:aCol last baseName asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2844
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2845
321c1729db5b initial checkin
penk
parents:
diff changeset
  2846
    dialog := OptionBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2847
		  request:stream contents 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2848
		  label:'move or copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2849
		  form:(WarningBox iconBitmap)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2850
		  buttonLabels:#('cancel' 'move' 'copy')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2851
		  values:#(#cancel #move #copy)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2852
		  default:#copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2853
    dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2854
    ^ dialog.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2855
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2856
321c1729db5b initial checkin
penk
parents:
diff changeset
  2857
copyOrMoveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2858
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2859
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2860
    |dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2861
321c1729db5b initial checkin
penk
parents:
diff changeset
  2862
    dialog := self copyOrMoveDialog:aColOfSourceFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2863
    dialog == #copy ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2864
	self copyFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2865
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2866
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2867
    dialog == #move ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2868
	self moveFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2869
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2870
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2871
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2872
321c1729db5b initial checkin
penk
parents:
diff changeset
  2873
deleteFile:aFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2874
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2875
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2876
321c1729db5b initial checkin
penk
parents:
diff changeset
  2877
    ^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2878
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2879
321c1729db5b initial checkin
penk
parents:
diff changeset
  2880
deleteFiles:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2881
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2882
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2883
    |delete|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2884
321c1729db5b initial checkin
penk
parents:
diff changeset
  2885
    delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2886
    delete result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2887
	self notifyChannel value:delete errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2888
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2889
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2890
    ^ delete result.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2891
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2893
moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2894
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2895
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2896
321c1729db5b initial checkin
penk
parents:
diff changeset
  2897
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2898
321c1729db5b initial checkin
penk
parents:
diff changeset
  2899
    move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2900
    move result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2901
	self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2902
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2903
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2904
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2905
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2906
    ^ move result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2907
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2908
321c1729db5b initial checkin
penk
parents:
diff changeset
  2909
moveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2910
   "move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2911
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2912
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2913
321c1729db5b initial checkin
penk
parents:
diff changeset
  2914
    move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2915
    move result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2916
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2917
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2918
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2919
    ^ move colOfMovedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2920
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2921
321c1729db5b initial checkin
penk
parents:
diff changeset
  2922
newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2923
    "ask for and create a new directory"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2924
321c1729db5b initial checkin
penk
parents:
diff changeset
  2925
    | directories directory create newFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2926
321c1729db5b initial checkin
penk
parents:
diff changeset
  2927
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2928
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2929
    directory := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2930
    create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2931
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2932
    newFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2933
    newFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2934
	self updateCurrentDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2935
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2936
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2937
321c1729db5b initial checkin
penk
parents:
diff changeset
  2938
newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2939
    "ask for and create a new file"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2940
321c1729db5b initial checkin
penk
parents:
diff changeset
  2941
    | curFile directories directory create file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2942
321c1729db5b initial checkin
penk
parents:
diff changeset
  2943
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2944
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2945
    directory := directories first.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2946
    curFile := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2947
    curFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2948
	file := curFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2949
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2950
	file := directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2951
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2952
    create := FileOperation create createFileIn:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2953
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2954
    self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2955
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2956
321c1729db5b initial checkin
penk
parents:
diff changeset
  2957
newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2958
    "ask for and create a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2959
321c1729db5b initial checkin
penk
parents:
diff changeset
  2960
    self newLink:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2961
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2962
321c1729db5b initial checkin
penk
parents:
diff changeset
  2963
newLink:symbolic
321c1729db5b initial checkin
penk
parents:
diff changeset
  2964
321c1729db5b initial checkin
penk
parents:
diff changeset
  2965
    "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2966
321c1729db5b initial checkin
penk
parents:
diff changeset
  2967
    | sel create createdFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2968
321c1729db5b initial checkin
penk
parents:
diff changeset
  2969
    sel := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2970
    (sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2971
    symbolic ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2972
	create := FileOperation create createSoftLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2973
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2974
	create := FileOperation create createHardLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2975
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2976
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2977
    createdFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2978
    createdFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2979
	self updateAndSelect:(OrderedCollection with:createdFile).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2980
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2981
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2982
321c1729db5b initial checkin
penk
parents:
diff changeset
  2983
newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2984
    "ask for and create a soft link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2985
321c1729db5b initial checkin
penk
parents:
diff changeset
  2986
    self newLink:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2987
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2988
321c1729db5b initial checkin
penk
parents:
diff changeset
  2989
pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2990
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2991
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2992
    | buffer destination files directories copiedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2993
321c1729db5b initial checkin
penk
parents:
diff changeset
  2994
    files := self clipboard files.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2995
    (files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2996
    buffer := self clipboard copy.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2997
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2998
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2999
	|box dirStringCol|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3000
	dirStringCol := directories collect:[:aDir| aDir asString].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3001
	box := ListSelectionBox new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3002
	box title:'In which directory you want to paste ?'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3003
	box list:dirStringCol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3004
	box okAction:[:sel | destination := sel asFilename].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3005
	box showAtPointer
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3006
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3007
	destination := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3008
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3009
    copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3010
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3011
    (self clipboard method == #cut) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3012
	self deleteFiles:copiedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3013
    ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3014
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3015
321c1729db5b initial checkin
penk
parents:
diff changeset
  3016
renameFile:aFile 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3017
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3018
321c1729db5b initial checkin
penk
parents:
diff changeset
  3019
    ^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3020
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3021
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3022
renameFile:filename to:newFileString update:aBoolean
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3023
    "rename filename to newFileString"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3024
321c1729db5b initial checkin
penk
parents:
diff changeset
  3025
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3026
321c1729db5b initial checkin
penk
parents:
diff changeset
  3027
    rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3028
    rename result ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3029
        aBoolean ifTrue:[
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3030
            self updateAndSelect:(rename renamedFiles).
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3031
        ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3032
    ] 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
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3035
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  3036
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3037
321c1729db5b initial checkin
penk
parents:
diff changeset
  3038
renameFiles:aColOfFiles 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3039
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3040
321c1729db5b initial checkin
penk
parents:
diff changeset
  3041
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3042
321c1729db5b initial checkin
penk
parents:
diff changeset
  3043
    rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3044
    rename result ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3045
        self notifyChannel value:rename errorString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3046
    ] ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3047
        "/ self updateAndSelect:(rename renamedFiles)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3048
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3049
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  3050
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3051
321c1729db5b initial checkin
penk
parents:
diff changeset
  3052
renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3053
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3054
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3055
    self renameFiles:self currentFileNameHolder value
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3056
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3057
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3058
!AbstractFileBrowser methodsFor:'menu accessing'!
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3059
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3060
bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3061
    "This resource specification was automatically generated
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3062
     by the MenuEditor of ST/X."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3063
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3064
    "Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3065
     the MenuEditor may not be able to read the specification."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3066
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3067
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3068
     MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3069
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3070
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3071
    <resource: #programMenu>
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3072
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3073
    |menuSpec menu bookmarks|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3074
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3075
    menuSpec := self class baseBookmarksMenuSpec.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3076
    menu := menuSpec decodeAsLiteralArray.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3077
    menu findGuiResourcesIn:self.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3078
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3079
    bookmarks := self class directoryBookmarks.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3080
    "/ add the history items ...
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3081
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3082
    bookmarks size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3083
	menu addItem:(MenuItem labeled:'-').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3084
	bookmarks do:[:dirName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3085
	    menu addItem:((MenuItem label:dirName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3086
		(self currentDirectories value includes:dirName) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3087
		    self currentFileNameHolder value:(OrderedCollection with:dirName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3088
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3089
	    ])).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3090
	].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3091
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3092
    ^ menu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3093
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3094
    "Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3095
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3096
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3097
canBack
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3098
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3099
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3100
    ^ self dirHistory canBack.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3101
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3102
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3103
canForward
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3104
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3105
"/    | currentSelection |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3106
"/
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3107
"/    currentSelection := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3108
"/    currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3109
    
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3110
    ^ self dirHistory canForward.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3111
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3112
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3113
menuDirHistory:backOrForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3114
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3115
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3116
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3117
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3118
    |menu pathList currentSel currentPath|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3119
321c1729db5b initial checkin
penk
parents:
diff changeset
  3120
    menu := Menu new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3121
    menu receiver:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3122
321c1729db5b initial checkin
penk
parents:
diff changeset
  3123
    self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3124
    backOrForward == #back ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3125
	currentSel := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3126
	currentSel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3127
	    currentPath := currentSel first asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3128
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3129
	    currentPath := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3130
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3131
	pathList := self dirHistory getBackCollectionFrom:currentPath.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3132
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3133
	pathList := self dirHistory getForwardCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3134
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  3135
    pathList isEmpty ifTrue:[ ^ nil].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3136
    pathList do:[:aPath| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3137
	| menuItem |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3138
	menuItem := MenuItem new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3139
	menuItem label:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3140
	menuItem value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3141
	    self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3142
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3143
	menu addItem:menuItem.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3144
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3145
    ^ menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3146
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3147
321c1729db5b initial checkin
penk
parents:
diff changeset
  3148
menuDirHistoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  3149
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3150
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3151
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3152
321c1729db5b initial checkin
penk
parents:
diff changeset
  3153
    ^ self menuDirHistory:#back.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3154
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3155
321c1729db5b initial checkin
penk
parents:
diff changeset
  3156
menuDirHistoryForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3157
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3158
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3159
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3160
321c1729db5b initial checkin
penk
parents:
diff changeset
  3161
    ^ self menuDirHistory:#forward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3162
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3163
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3164
menuFileHistory
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3165
    "initialize the file history menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3166
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3167
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3168
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3169
    |menu hist text removeItem removeCol|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3170
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3171
    menu := Menu new.
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3172
    menu findGuiResourcesIn:self.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3173
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3174
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3175
    hist := self fileHistory.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3176
    hist isEmpty ifTrue:[^ nil].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3177
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3178
    removeCol := OrderedCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3179
    hist do:[:aFileItem|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3180
	aFileItem fileName exists ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3181
	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3182
		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3183
		self openApplByFileItem:aFileItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3184
	    ]).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3185
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3186
	    removeCol add:aFileItem.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3187
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3188
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3189
    "/ remove all not existing history entries
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3190
    removeCol do:[ : el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3191
	hist remove:el.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3192
    ].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3193
    removeItem := MenuItem new.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3194
    removeItem translateLabel:true.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3195
    removeItem label:text.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3196
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3197
	self fileHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3198
	self enableFileHistory value:false.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3199
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3200
    menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3201
    menu addItem:removeItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3202
    ^ menu
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3203
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3204
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3205
sortMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3206
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3207
    <resource: #programMenu >
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3208
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3209
    |menu|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3210
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3211
    menu :=  Menu new fromLiteralArrayEncoding:self class sortMenu.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3212
    menu ifNil:[ ^ nil ].
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3213
    menu findGuiResourcesIn:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3214
    menu receiver:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3215
    ^ menu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3216
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3217
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3218
viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3219
    ^self class viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3220
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3221
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3222
viewInContentsBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3223
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3224
    ^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3225
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3226
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3227
visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3228
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3229
    <resource: #programMenu >
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3230
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3231
    |menu histCopy text removeItem|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3232
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3233
    menu := Menu new.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3234
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3235
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3236
    self dirHistory isEmpty ifTrue:[^ nil].
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3237
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3238
    removeItem := MenuItem new.
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3239
    removeItem translateLabel:true.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3240
    removeItem label:text.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3241
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3242
	self dirHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3243
	self enableForward value:self canForward.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3244
	self enableBack value:self canBack.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3245
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3246
    histCopy := self dirHistory.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3247
    histCopy do:[:aFile| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3248
	menu addItem:(MenuItem label:aFile asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3249
	    self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3250
	]).
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3251
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3252
    menu addItem:(MenuItem label:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3253
    menu addItem:removeItem.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3254
    ^ menu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3255
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3256
321c1729db5b initial checkin
penk
parents:
diff changeset
  3257
!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3258
321c1729db5b initial checkin
penk
parents:
diff changeset
  3259
cvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3260
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  3261
    |sel log cmd dir executionBlock nameString block|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3262
321c1729db5b initial checkin
penk
parents:
diff changeset
  3263
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3264
	requestText:(resources string:'enter initial log message')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3265
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3266
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3267
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3268
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3269
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3270
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3271
	log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3272
	    sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3273
		sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3274
		    dir := self getDirWithoutFileName:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3275
		    cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3276
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3277
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3278
		    cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3279
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3280
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3281
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3282
	    ] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3283
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3284
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3285
    nameString := 'Command> cvs add and commit'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3286
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3287
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3288
321c1729db5b initial checkin
penk
parents:
diff changeset
  3289
cvsCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3290
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3291
    |nSel log msg cmd selectedFiles sel executionBlock nameString|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3292
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3293
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3294
    nSel := selectedFiles size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3295
321c1729db5b initial checkin
penk
parents:
diff changeset
  3296
    nSel == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3297
	msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3298
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3299
	nSel > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3300
	    msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3301
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3302
	    msg := resources string:'enter log message for checkIn'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3303
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3304
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3305
321c1729db5b initial checkin
penk
parents:
diff changeset
  3306
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3307
	requestText:msg
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3308
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3309
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3310
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3311
321c1729db5b initial checkin
penk
parents:
diff changeset
  3312
    log notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3313
	sel := self currentFileNameHolder value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3314
	sel isEmpty ifTrue:[ ^ self ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3315
	executionBlock := [ : stream |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3316
	    log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3317
		sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3318
		    sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3319
			| dir block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3320
			dir := fn directory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3321
			cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3322
			block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3323
			block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3324
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3325
		] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3326
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3327
	].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3328
    ].
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3329
    nameString := 'Command> cvs commit'.
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3330
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3331
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3332
321c1729db5b initial checkin
penk
parents:
diff changeset
  3333
cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  3334
    "remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3335
321c1729db5b initial checkin
penk
parents:
diff changeset
  3336
    |msg toRemove updateRunning cmd executionBlock nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3337
321c1729db5b initial checkin
penk
parents:
diff changeset
  3338
    updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3339
    self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3340
    toRemove := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3341
321c1729db5b initial checkin
penk
parents:
diff changeset
  3342
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3343
	| block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3344
	filesToRemove do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3345
	    OperatingSystem accessDeniedErrorSignal handle:[:ex|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3346
		"was not able to remove it"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3347
		| lastError |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3348
		lastError := OperatingSystem lastErrorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3349
		msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3350
		lastError isNil ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3351
		    msg := msg , '\\(' , lastError , ')'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3352
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3353
		Dialog warn:msg withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3354
	    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3355
		|answer contents|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3356
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3357
		(fileName isSymbolicLink not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3358
		    fileName remove.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3359
		    cmd := ('cvs remove -f ' , fileName baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3360
		    block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3361
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3362
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3363
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3364
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3365
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3366
	cmd := ('cvs commit -m ''removed via FileBrowser''').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3367
	block := self getExecutionBlockForCommand:cmd. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3368
	block value:stream.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3369
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3370
    nameString := 'Command> cvs remove and commit ', filesToRemove first baseName.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3371
    filesToRemove size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3372
	nameString := nameString, ' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3373
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3374
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3375
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3376
321c1729db5b initial checkin
penk
parents:
diff changeset
  3377
cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3378
321c1729db5b initial checkin
penk
parents:
diff changeset
  3379
    |sel question aswer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3380
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3381
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3382
321c1729db5b initial checkin
penk
parents:
diff changeset
  3383
    sel size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3384
	sel size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3385
	    question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3386
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3387
	    question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3388
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3389
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3390
	aswer := Dialog 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3391
		confirm:question withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3392
		yesLabel:(resources at:'Remove')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3393
		noLabel:(resources at:'Cancel').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3394
	aswer ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3395
	    self withCursor:(Cursor wait) do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3396
		self cvsRemoveAndRemoveFromCVS:sel
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3397
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3398
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3399
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3400
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3401
321c1729db5b initial checkin
penk
parents:
diff changeset
  3402
cvsUpdateAll
321c1729db5b initial checkin
penk
parents:
diff changeset
  3403
321c1729db5b initial checkin
penk
parents:
diff changeset
  3404
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3405
321c1729db5b initial checkin
penk
parents:
diff changeset
  3406
    cmd := 'cvs upd -l'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3407
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3408
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3409
321c1729db5b initial checkin
penk
parents:
diff changeset
  3410
cvsUpdateAllRecursive
321c1729db5b initial checkin
penk
parents:
diff changeset
  3411
321c1729db5b initial checkin
penk
parents:
diff changeset
  3412
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3413
321c1729db5b initial checkin
penk
parents:
diff changeset
  3414
    cmd := 'cvs upd -d'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3415
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3416
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3417
321c1729db5b initial checkin
penk
parents:
diff changeset
  3418
cvsUpdateSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3419
321c1729db5b initial checkin
penk
parents:
diff changeset
  3420
    | selectedFiles stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3421
321c1729db5b initial checkin
penk
parents:
diff changeset
  3422
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3423
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3424
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3425
    stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3426
    selectedFiles do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3427
	stream nextPutAll:file baseName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3428
	stream space.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3429
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3430
    self executeCommand:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3431
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3432
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3433
321c1729db5b initial checkin
penk
parents:
diff changeset
  3434
!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3435
321c1729db5b initial checkin
penk
parents:
diff changeset
  3436
copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3437
321c1729db5b initial checkin
penk
parents:
diff changeset
  3438
    ^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3439
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3440
321c1729db5b initial checkin
penk
parents:
diff changeset
  3441
cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3442
321c1729db5b initial checkin
penk
parents:
diff changeset
  3443
    ^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3444
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3445
321c1729db5b initial checkin
penk
parents:
diff changeset
  3446
deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3447
321c1729db5b initial checkin
penk
parents:
diff changeset
  3448
    ^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3449
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3450
321c1729db5b initial checkin
penk
parents:
diff changeset
  3451
!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3452
321c1729db5b initial checkin
penk
parents:
diff changeset
  3453
createProjectAndOpenProjectBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3454
    |nm f s directory|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3455
321c1729db5b initial checkin
penk
parents:
diff changeset
  3456
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3457
    directory := self currentDirectories value first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3458
    nm := directory baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3459
    f := (directory  construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3460
    f exists ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3461
	Dialog warn:'A file named ' , f baseName , ' already exists.'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3462
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3463
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3464
    s := f writeStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3465
    s nextPutAll:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3466
name            ''' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3467
type            #classLibrary
321c1729db5b initial checkin
penk
parents:
diff changeset
  3468
package         #''private:' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3469
prerequisites   nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3470
321c1729db5b initial checkin
penk
parents:
diff changeset
  3471
classes      #( )
321c1729db5b initial checkin
penk
parents:
diff changeset
  3472
'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3473
    s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3474
    ProjectBrowser openOnFile:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3475
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3476
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3477
doMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3478
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3479
    | cmd |
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3480
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3481
    cmd := 'make'.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3482
    self executeCommand:cmd.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3483
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3484
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3485
fileFileIn
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
    self fileFileInLazy:false 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3489
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3490
321c1729db5b initial checkin
penk
parents:
diff changeset
  3491
fileFileInLazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3492
    "fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3493
321c1729db5b initial checkin
penk
parents:
diff changeset
  3494
    self fileFileInLazy:true 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3495
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3496
321c1729db5b initial checkin
penk
parents:
diff changeset
  3497
fileFileInLazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3498
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3499
321c1729db5b initial checkin
penk
parents:
diff changeset
  3500
    | selectedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3501
4156
28bd97c1bf64 show a busy cursor, while filing in
Claus Gittinger <cg@exept.de>
parents: 4151
diff changeset
  3502
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3503
	selectedFiles:= self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3504
	selectedFiles do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3505
	    self singleFileFileIn:fileName lazy:lazy
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3506
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3507
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3508
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3509
321c1729db5b initial checkin
penk
parents:
diff changeset
  3510
fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  3511
    "fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3512
321c1729db5b initial checkin
penk
parents:
diff changeset
  3513
    |ns listOfKnownNameSpaces|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3514
321c1729db5b initial checkin
penk
parents:
diff changeset
  3515
    listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3516
    NameSpace 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3517
	allNamespaces 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3518
	    do:[:eachNameSpace | 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3519
		listOfKnownNameSpaces add:eachNameSpace name
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3520
	    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3521
    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3522
321c1729db5b initial checkin
penk
parents:
diff changeset
  3523
    ns := Dialog 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3524
		request:'During fileIn, new classes are created in nameSpace:'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3525
		initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3526
		list:listOfKnownNameSpaces.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3527
    ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3528
321c1729db5b initial checkin
penk
parents:
diff changeset
  3529
    LastEnforcedNameSpace := ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3530
    ns := NameSpace name:ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3531
321c1729db5b initial checkin
penk
parents:
diff changeset
  3532
    Class nameSpaceQuerySignal 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3533
	answer:ns
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3534
	do:[ 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3535
	    self fileFileInLazy:false 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3536
	] 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3537
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3538
321c1729db5b initial checkin
penk
parents:
diff changeset
  3539
fileFindAllDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3540
    "scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3541
321c1729db5b initial checkin
penk
parents:
diff changeset
  3542
    |fileNames dir infoDir filesBySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  3543
     result info dirPrefix myName stream textBox maxLength directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3544
321c1729db5b initial checkin
penk
parents:
diff changeset
  3545
321c1729db5b initial checkin
penk
parents:
diff changeset
  3546
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3547
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3548
	myName := self class name asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3549
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3550
	directories isEmpty ifTrue:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3551
        
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3552
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3553
"/        self label: myName, '- gathering file names ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3554
	fileNames := dir recursiveDirectoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3555
	fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3556
	fileNames := fileNames select:[:fn | fn isDirectory not].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3557
321c1729db5b initial checkin
penk
parents:
diff changeset
  3558
"/        self label:myName , '- gathering sizes ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3559
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3560
	fileNames do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3561
	    infoDir at:fn put:(fn fileSize)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3562
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3563
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3564
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3565
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3566
	"/ compare them ...
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3567
321c1729db5b initial checkin
penk
parents:
diff changeset
  3568
"/        self label:myName , '- preselect possible duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3569
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3570
	infoDir keysAndValuesDo:[:fn :sz |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3571
	    |entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3572
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3573
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3574
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3575
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3576
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3577
	"/ any of same size ?
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3578
321c1729db5b initial checkin
penk
parents:
diff changeset
  3579
"/        self label:myName , '- checking for duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3580
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3581
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3582
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3583
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3584
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3585
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3586
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3587
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3588
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3589
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3590
			fn2 := files at:idx2.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3591
321c1729db5b initial checkin
penk
parents:
diff changeset
  3592
"/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3593
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3594
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3595
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3596
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3597
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3598
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3599
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3600
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3601
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3602
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3603
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3604
321c1729db5b initial checkin
penk
parents:
diff changeset
  3605
"/        self label:myName , '- sorting ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3606
	dirPrefix := dir pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3607
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3608
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3609
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3610
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3611
					f1 := assoc key name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3612
					f2 := assoc value name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3613
					(f1 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3614
					    f1 := f1 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3615
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3616
					(f2 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3617
					    f2 := f2 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3618
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3619
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3620
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3621
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3622
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3623
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3624
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3625
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3626
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3627
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3628
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3629
	    info add:(assoc key , ' same as ' , assoc value)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3630
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3631
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3632
	    info := 'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3633
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3634
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3635
321c1729db5b initial checkin
penk
parents:
diff changeset
  3636
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3637
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3638
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3639
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3640
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3641
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3642
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3643
    textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3644
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3645
    textBox noCancel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3646
    textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3647
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3648
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3649
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3650
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3651
    textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3652
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3653
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3654
"/    subView contents:info.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3655
"/    self label:myName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3656
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3657
321c1729db5b initial checkin
penk
parents:
diff changeset
  3658
fileFindDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3659
    "scan directory for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3660
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3661
    |fileNames infoDir filesBySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3662
     result info stream textBox maxLength directories allFiles titleStream size|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3663
321c1729db5b initial checkin
penk
parents:
diff changeset
  3664
"/    (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3665
"/              yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3666
321c1729db5b initial checkin
penk
parents:
diff changeset
  3667
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3668
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3669
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3670
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3671
	directories isEmpty ifTrue:[^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3672
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3673
	allFiles := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3674
	directories do:[ : dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3675
	    fileNames := dir directoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3676
	    fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3677
	    fileNames := fileNames select:[:fn | fn isDirectory not].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3678
	    allFiles addAll:fileNames.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3679
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3680
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3681
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3682
	allFiles do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3683
	    infoDir at:fn put:(fn info)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3684
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3685
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3686
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3687
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3688
	"/ compare them ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3689
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3690
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3691
	infoDir keysAndValuesDo:[:fn :info |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3692
	    |sz entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3693
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3694
	    sz := info size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3695
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3696
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3697
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3698
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3699
	"/ any of same size ?
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3700
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3701
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3702
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3703
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3704
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3705
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3706
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3707
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3708
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3709
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3710
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3711
			fn2 := files at:idx2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3712
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3713
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3714
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3715
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3716
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3717
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3718
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3719
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3720
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3721
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3722
	    ]
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 := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3726
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3727
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3728
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3729
					f1 := assoc key asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3730
					f2 := assoc value asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3731
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3732
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3733
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3734
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3735
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3736
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3737
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3738
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3739
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3740
	size := self getBestDirectory asString size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3741
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3742
	    |fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3743
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3744
	    fn1 := assoc key.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3745
	    fn2 := assoc value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3746
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3747
		fn1 := ('..', (fn1 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3748
		fn2 := ('..', (fn2 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3749
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3750
	    (fn1 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3751
		fn1 := '"' , fn1 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3752
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3753
	    (fn2 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3754
		fn2 := '"' , fn2 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3755
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3756
	    info add:(fn1 , ' same as ' , fn2)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3757
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3758
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3759
	    info add:'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3760
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3761
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3762
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3763
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3764
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3765
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3766
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3767
    titleStream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3768
    titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3769
    directories size == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3770
	titleStream nextPutAll:'y: ', directories first asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3771
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3772
	titleStream nextPutAll:'ies: '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3773
	titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3774
	directories do:[:dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3775
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3776
		titleStream nextPutAll:'..'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3777
		titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3778
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3779
		titleStream nextPutAll:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3780
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3781
	    titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3782
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3783
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3784
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3785
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3786
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3787
    textBox title:(titleStream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3788
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3789
    textBox noCancel.
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3790
    stream := WriteStream on:'Dublicates in '.
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3791
    directories do:[ :aDirectory |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3792
	stream nextPutAll:aDirectory baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3793
	stream space
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3794
    ].
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3795
    textBox label:stream contents.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3796
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3797
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3798
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3799
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3800
    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3801
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3802
    titleStream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3803
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3804
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3805
321c1729db5b initial checkin
penk
parents:
diff changeset
  3806
fileFindFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3807
    |filename files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3808
321c1729db5b initial checkin
penk
parents:
diff changeset
  3809
    files := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3810
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3811
	filename := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3812
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3813
	filename := (Filename homeDirectory).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3814
    ].
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  3815
    FindFileApplication openOnFileName:filename for:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3816
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3817
321c1729db5b initial checkin
penk
parents:
diff changeset
  3818
installAllAsAutoloaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3819
    "install all classes found here as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3820
321c1729db5b initial checkin
penk
parents:
diff changeset
  3821
    self allItemsOfCurrentDirectory do:[:fileItem |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3822
	(fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3823
	    self installAsAutoloaded:(fileItem fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3824
	]
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
321c1729db5b initial checkin
penk
parents:
diff changeset
  3828
installAsAutoloaded:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  3829
    "install aFilename as autoloaded class"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3830
321c1729db5b initial checkin
penk
parents:
diff changeset
  3831
    |chunks s|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3832
321c1729db5b initial checkin
penk
parents:
diff changeset
  3833
    chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3834
    chunks 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3835
	select:[:eachChunk | eachChunk isClassDefinitionChange]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3836
	thenDo:[:eachClassChunk | eachClassChunk installAsAutoloadedClassIfNotPrivate].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3837
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3838
321c1729db5b initial checkin
penk
parents:
diff changeset
  3839
loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3840
321c1729db5b initial checkin
penk
parents:
diff changeset
  3841
    |img path files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3842
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3843
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3844
    files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3845
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3846
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3847
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3848
	    img := Image fromFile:(path pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3849
	    img notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3850
		aSelectorOrBlock isSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3851
		    img perform:aSelectorOrBlock
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3852
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3853
		    aSelectorOrBlock value:img
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3854
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3855
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3856
		Dialog warn:'unknown format: ' , fileName asString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3857
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3858
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3859
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3860
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3861
321c1729db5b initial checkin
penk
parents:
diff changeset
  3862
openASN1Browser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3863
321c1729db5b initial checkin
penk
parents:
diff changeset
  3864
    self openTool:OSI::ASN1Browser 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3865
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3866
321c1729db5b initial checkin
penk
parents:
diff changeset
  3867
openAppletViewer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3868
    |numItems files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3869
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3870
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3871
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3872
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3873
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3874
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3875
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3876
321c1729db5b initial checkin
penk
parents:
diff changeset
  3877
    Java startupJavaSystem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3878
"/    Java markAllClassesUninitialized.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3879
"/    Java initAllStaticFields.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3880
"/    Java initAllClasses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3881
321c1729db5b initial checkin
penk
parents:
diff changeset
  3882
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3883
	|p path|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3884
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3885
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3886
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3887
	    p := Java 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3888
		    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3889
		    argumentString:path pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3890
	    p resume.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3891
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3892
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3893
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3894
321c1729db5b initial checkin
penk
parents:
diff changeset
  3895
openCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3896
321c1729db5b initial checkin
penk
parents:
diff changeset
  3897
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3898
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3899
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3900
    directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3901
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3902
	CBrowser::Browser openIn:directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3903
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3904
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3905
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3906
openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3907
    self
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3908
        openTool:ChangeSetBrowser 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3909
        with:#openOnFile: 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3910
        ignoreDirectories:true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3911
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3912
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3913
openChangesBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3914
    "open a change browser on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3915
321c1729db5b initial checkin
penk
parents:
diff changeset
  3916
    self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3917
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3918
321c1729db5b initial checkin
penk
parents:
diff changeset
  3919
openDiffView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3920
    "open a diff-view"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3921
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3922
    | name1 name2 text1 text2 d err nm l1 files title defaultName lastFile|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3923
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3924
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3925
    files isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3926
	Dialog warn:'you have to select a file first'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3927
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3928
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3929
    (files size == 2) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3930
	name1 := files last.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3931
	name2 := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3932
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3933
	LastFileDiffFile notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3934
	    | directories |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3935
	    directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3936
	    directories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3937
		lastFile := directories first asFilename construct:(LastFileDiffFile baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3938
		(lastFile exists and:[lastFile isReadable]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3939
		    name1 := lastFile.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3940
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3941
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3942
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3943
	name2 := files first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3944
	title := 'show difference between ', name2 baseName, ' and:'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3945
	defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3946
	name1 := DialogBox 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3947
		    requestFileName:title 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3948
		    default:defaultName 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3949
		    ok:'OK' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3950
		    abort:'Use File List' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3951
		    pattern:'*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3952
		    fromDirectory:(name2 asFilename directory).
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3953
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3954
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3955
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3956
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3957
321c1729db5b initial checkin
penk
parents:
diff changeset
  3958
    (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3959
	text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3960
	text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3961
	name1 := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3962
	l1 := 'browser contents'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3963
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3964
	name1 := name1 asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3965
	LastFileDiffFile := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3966
	name1 asFilename isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3967
	    nm := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3968
	    name1 asFilename 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
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3974
	l1 := name1
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3975
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3976
321c1729db5b initial checkin
penk
parents:
diff changeset
  3977
    err isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3978
	name2 isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3979
	    nm := name2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3980
	    name2 exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3981
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3982
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3983
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3984
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3985
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3986
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3987
    err notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3988
	Dialog warn:(resources string:err with:nm pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3989
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3990
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3991
321c1729db5b initial checkin
penk
parents:
diff changeset
  3992
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3993
	name1 notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3994
	    text1 := name1 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3995
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3996
	text2 := name2 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3997
	text1 = text2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3998
	    self information:'same contents'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3999
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4000
	    d := DiffTextView 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4001
		    openOn:text1 label:l1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4002
		    and:text2 label:name2 pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4003
	    d topView label:'file differences'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4004
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4005
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4006
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4007
321c1729db5b initial checkin
penk
parents:
diff changeset
  4008
openEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  4009
    self openTool:EditTextView
321c1729db5b initial checkin
penk
parents:
diff changeset
  4010
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4011
321c1729db5b initial checkin
penk
parents:
diff changeset
  4012
openHTMLReader
321c1729db5b initial checkin
penk
parents:
diff changeset
  4013
321c1729db5b initial checkin
penk
parents:
diff changeset
  4014
    self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4015
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4016
321c1729db5b initial checkin
penk
parents:
diff changeset
  4017
openImageEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  4018
321c1729db5b initial checkin
penk
parents:
diff changeset
  4019
    [self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4020
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4021
321c1729db5b initial checkin
penk
parents:
diff changeset
  4022
openImageInspector
321c1729db5b initial checkin
penk
parents:
diff changeset
  4023
    [self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4024
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4025
321c1729db5b initial checkin
penk
parents:
diff changeset
  4026
openImagePreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  4027
321c1729db5b initial checkin
penk
parents:
diff changeset
  4028
    [self loadImageAndPerform:[:img |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4029
				|i top viewer|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4030
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4031
				top := StandardSystemView new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4032
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4033
				viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4034
				i := img.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4035
				top extent:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4036
				top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4037
				top openAndWait.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4038
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4039
				(i width > 200 or:[i height > 200]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4040
				    i := i magnifiedPreservingRatioTo:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4041
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4042
				viewer image:i.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4043
			      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4044
    ] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4045
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4046
321c1729db5b initial checkin
penk
parents:
diff changeset
  4047
openMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4048
    |file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4049
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4050
    file := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4051
    (file isEmpty) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4052
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4053
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4054
    file := file first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4055
    (MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4056
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4057
321c1729db5b initial checkin
penk
parents:
diff changeset
  4058
openSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4059
321c1729db5b initial checkin
penk
parents:
diff changeset
  4060
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4061
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4062
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4063
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4064
321c1729db5b initial checkin
penk
parents:
diff changeset
  4065
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4066
    CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4067
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4068
321c1729db5b initial checkin
penk
parents:
diff changeset
  4069
openSnapshotImageBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4070
    ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4071
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4072
321c1729db5b initial checkin
penk
parents:
diff changeset
  4073
openTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4074
321c1729db5b initial checkin
penk
parents:
diff changeset
  4075
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4076
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4077
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4078
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4079
	dir := Filename homeDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4080
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4081
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4082
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4083
321c1729db5b initial checkin
penk
parents:
diff changeset
  4084
    VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4085
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4086
321c1729db5b initial checkin
penk
parents:
diff changeset
  4087
openTool:aToolClass
321c1729db5b initial checkin
penk
parents:
diff changeset
  4088
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4089
321c1729db5b initial checkin
penk
parents:
diff changeset
  4090
    ^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4091
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4092
321c1729db5b initial checkin
penk
parents:
diff changeset
  4093
openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4094
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4095
321c1729db5b initial checkin
penk
parents:
diff changeset
  4096
    ^ self
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4097
	openTool:aToolClass 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4098
	with:#openOn: 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4099
	ignoreDirectories:ignoreDirs
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4100
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4101
321c1729db5b initial checkin
penk
parents:
diff changeset
  4102
openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4103
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4104
321c1729db5b initial checkin
penk
parents:
diff changeset
  4105
    |numItems path tool files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4106
321c1729db5b initial checkin
penk
parents:
diff changeset
  4107
    aToolClass isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4108
	Dialog warn:'Sorry, that tool seems to be not available'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4109
	^ nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4110
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4111
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4112
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  4113
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4114
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4115
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4116
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4117
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4118
321c1729db5b initial checkin
penk
parents:
diff changeset
  4119
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4120
	files do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4121
	    (ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4122
		fileName isAbsolute ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4123
		    path := fileName getName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4124
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4125
		    path := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4126
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4127
		tool := aToolClass perform:aSelector with:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4128
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4129
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4130
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4131
    ^ tool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4132
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4133
321c1729db5b initial checkin
penk
parents:
diff changeset
  4134
openZipTool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4135
    |zipTool directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4136
321c1729db5b initial checkin
penk
parents:
diff changeset
  4137
    (zipTool := self openTool:ZipTool) notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4138
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4139
	directories isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4140
	    dir := directories first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4141
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4142
	    dir := Filename homeDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4143
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4144
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4145
	zipTool initialExtractDirectory:dir.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4146
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4147
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4148
321c1729db5b initial checkin
penk
parents:
diff changeset
  4149
readAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4150
    "read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4151
321c1729db5b initial checkin
penk
parents:
diff changeset
  4152
    | directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4153
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4154
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4155
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4156
321c1729db5b initial checkin
penk
parents:
diff changeset
  4157
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4158
    Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin
penk
parents:
diff changeset
  4159
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4160
321c1729db5b initial checkin
penk
parents:
diff changeset
  4161
singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  4162
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4163
321c1729db5b initial checkin
penk
parents:
diff changeset
  4164
    |aStream wasLazy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4165
321c1729db5b initial checkin
penk
parents:
diff changeset
  4166
    fileName type == #regular ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4167
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4168
	(ObjectFileLoader notNil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4169
	and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4170
	    AbortOperationRequest catch:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4171
		|p|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4172
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4173
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4174
		"/ look if already loaded ...  then unload first
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4175
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4176
		p := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4177
		(ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4178
		    (Dialog confirm:(resources 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4179
					string:'%1 is already loaded; load anyway ?'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4180
					with:p)) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4181
			^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4182
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4183
		    Transcript showCR:'unloading old ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4184
		    ObjectFileLoader unloadObjectFile:p. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4185
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4186
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4187
		Transcript showCR:'loading ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4188
		ObjectFileLoader loadObjectFile:p.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4189
		Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4190
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4191
	] ifFalse:[ ((fileName hasSuffix:'cls') 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4192
		     and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4193
	    "/ loading a binary class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4194
	    aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4195
	    aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4196
		aStream fileInBinary.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4197
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4198
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4199
	    ((fileName hasSuffix:'class')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4200
	    or:[(fileName hasSuffix:'cla')]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4201
		"/ loading a java class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4202
		JavaClassReader notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4203
		    JavaClassReader loadFile:(fileName pathName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4204
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4205
	    ] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4206
		"/ loading a sif (smalltalk interchange format) file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4207
		SmalltalkInterchangeSTXFileInManager autoload.    
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4208
		SmalltalkInterchangeFileManager newForFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4209
		    fileName: fileName pathName;
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4210
		    fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4211
	    ] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4212
		Parcel isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4213
		    Dialog warn:'Parcel support not loaded.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4214
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4215
		    Parcel loadParcelFrom: fileName pathName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4216
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4217
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4218
		"/ loading a regular (chunk) or xml source file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4219
		aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4220
		aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4221
		    Error handle:[ : ex |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4222
			Dialog warn:'Error on file in: ', ex errorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4223
		    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4224
			[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4225
			    Class withoutUpdatingChangesDo:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4226
				wasLazy := Compiler compileLazy:lazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4227
				aStream fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4228
			    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4229
			    Class addInfoRecord:('fileIn ' , fileName asString) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4230
			] ensure:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4231
			    Compiler compileLazy:wasLazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4232
			    aStream close
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4233
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4234
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4235
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4236
	    ]]]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4237
	]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4238
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4239
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4240
321c1729db5b initial checkin
penk
parents:
diff changeset
  4241
!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4242
321c1729db5b initial checkin
penk
parents:
diff changeset
  4243
canCvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  4244
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4245
    |selectedFiles|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4246
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4247
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4248
    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4249
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4250
321c1729db5b initial checkin
penk
parents:
diff changeset
  4251
canRemoveCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  4252
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4253
    |selectedFiles dirOfFile cvsDir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4254
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4255
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4256
    selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4257
    ^ ((selectedFiles detect:[:fileName|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4258
	dirOfFile := self getDirWithoutFileName:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4259
	cvsDir := dirOfFile construct:'CVS'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4260
	(cvsDir isDirectory and:[cvsDir exists])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4261
    ] ifNone:[nil]) notNil).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4262
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4263
321c1729db5b initial checkin
penk
parents:
diff changeset
  4264
!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4265
321c1729db5b initial checkin
penk
parents:
diff changeset
  4266
anySTFilesPresent
321c1729db5b initial checkin
penk
parents:
diff changeset
  4267
321c1729db5b initial checkin
penk
parents:
diff changeset
  4268
    ^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4269
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4270
321c1729db5b initial checkin
penk
parents:
diff changeset
  4271
canCreateNewProject
321c1729db5b initial checkin
penk
parents:
diff changeset
  4272
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4273
    | selectedFiles |
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4274
321c1729db5b initial checkin
penk
parents:
diff changeset
  4275
    self currentFilesAreInSameDirectory ifFalse:[^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4276
    selectedFiles := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4277
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4278
	((selectedFiles detect:[:fileName| | suffix|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4279
	    suffix := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4280
	    (suffix = 'prj' or:[suffix = 'st'])
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4281
	] ifNone:[nil]) notNil)
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4282
      ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4283
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4284
321c1729db5b initial checkin
penk
parents:
diff changeset
  4285
canDoTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4286
321c1729db5b initial checkin
penk
parents:
diff changeset
  4287
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4288
      or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4289
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4290
321c1729db5b initial checkin
penk
parents:
diff changeset
  4291
canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4292
321c1729db5b initial checkin
penk
parents:
diff changeset
  4293
    ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4294
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4295
321c1729db5b initial checkin
penk
parents:
diff changeset
  4296
canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4297
321c1729db5b initial checkin
penk
parents:
diff changeset
  4298
    ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4299
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4300
321c1729db5b initial checkin
penk
parents:
diff changeset
  4301
canReadAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4302
321c1729db5b initial checkin
penk
parents:
diff changeset
  4303
321c1729db5b initial checkin
penk
parents:
diff changeset
  4304
    self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4305
    ^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  4306
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4307
321c1729db5b initial checkin
penk
parents:
diff changeset
  4308
canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  4309
321c1729db5b initial checkin
penk
parents:
diff changeset
  4310
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4311
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4312
321c1729db5b initial checkin
penk
parents:
diff changeset
  4313
hasASN1
321c1729db5b initial checkin
penk
parents:
diff changeset
  4314
    ^ [ OSI::ASN1Parser notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4315
	and:[OSI::ASN1Parser isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4316
321c1729db5b initial checkin
penk
parents:
diff changeset
  4317
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4318
321c1729db5b initial checkin
penk
parents:
diff changeset
  4319
hasASN1AndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4320
    ^ [ self hasSelection value 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4321
	and:[self currentSelectedFiles size > 0
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4322
	and:[OSI::ASN1Parser notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4323
	and:[OSI::ASN1Parser isLoaded]]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4324
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4325
321c1729db5b initial checkin
penk
parents:
diff changeset
  4326
hasCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4327
    ^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4328
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4329
321c1729db5b initial checkin
penk
parents:
diff changeset
  4330
hasJava
321c1729db5b initial checkin
penk
parents:
diff changeset
  4331
321c1729db5b initial checkin
penk
parents:
diff changeset
  4332
    ^ [ JavaClassReader notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4333
	and:[JavaClassReader isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4334
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4335
321c1729db5b initial checkin
penk
parents:
diff changeset
  4336
hasJavaAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4337
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4338
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4339
	and:[JavaClassReader notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4340
	and:[JavaClassReader isLoaded]]]
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
hasMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4344
321c1729db5b initial checkin
penk
parents:
diff changeset
  4345
    ^ [ MP3PlayerApplication notNil
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4346
	or:[SaugFix::MP3PlayerApplication notNil ]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4347
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4348
321c1729db5b initial checkin
penk
parents:
diff changeset
  4349
hasMP3PlayerAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4350
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4351
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4352
	and:[ self hasMP3Player value]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4353
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4354
321c1729db5b initial checkin
penk
parents:
diff changeset
  4355
hasSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4356
321c1729db5b initial checkin
penk
parents:
diff changeset
  4357
    ^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4358
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4359
321c1729db5b initial checkin
penk
parents:
diff changeset
  4360
hasSnapshotSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4361
321c1729db5b initial checkin
penk
parents:
diff changeset
  4362
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4363
	| files |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4364
	files := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4365
	((files size == 1)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4366
	and:[ files first hasSuffix:'img' ])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4367
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4368
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4369
321c1729db5b initial checkin
penk
parents:
diff changeset
  4370
hasZipFileSelected
321c1729db5b initial checkin
penk
parents:
diff changeset
  4371
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4372
    ^ [|sel fileName fn suff|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4373
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4374
	sel := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4375
	sel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4376
	    fileName := sel first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4377
	    fileName notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4378
		suff := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4379
		suff = 'zip' or:[suff = 'jar']
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4380
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4381
		false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4382
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4383
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4384
	    false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4385
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4386
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4387
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4388
321c1729db5b initial checkin
penk
parents:
diff changeset
  4389
javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  4390
321c1729db5b initial checkin
penk
parents:
diff changeset
  4391
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4392
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4393
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4394
!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4395
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4396
getModeString:modeBits
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4397
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4398
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4399
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4400
    ^ self getModeString:modeBits 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4401
		    with:#( 'owner:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4402
			    ' group:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4403
			    ' others:' $r $w $x )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4404
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4405
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4406
getModeString:modeBits with:texts
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4407
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4408
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4409
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4410
    |bits modeString|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4411
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4412
    bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4413
    modeString := ''.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4414
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4415
    #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 ) 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4416
    with: texts do:[:bitMask :access |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4417
	|ch|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4418
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4419
	bitMask isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4420
	    modeString := modeString , access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4421
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4422
	    (bits bitAnd:bitMask) == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4423
		ch := $-
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4424
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4425
		ch := access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4426
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4427
	    modeString := modeString copyWith:ch 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4428
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4429
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4430
    ^ modeString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4431
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4432
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4433
!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4434
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4435
getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4436
    "get stat info on selected file - return a string which can be
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4437
     shown in a box"
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4438
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4439
    | selFiles filename text fileOutput type modeBits modeString s ts isLink info|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4440
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4441
    selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4442
    ((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4443
    filename := selFiles first.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4444
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4445
    text := StringCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4446
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4447
    text add:('filename: ', filename asString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4448
    isLink := filename isSymbolicLink.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4449
    isLink ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4450
	text add:('symbolic link to: ', (filename linkInfo path))
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4451
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4452
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4453
    info := filename info.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4454
    type := info type.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4455
    (longInfo and:[type == #regular]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4456
	fileOutput := filename fileType.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4457
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4458
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4459
    s := ('type:   ').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4460
    fileOutput isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4461
	s := s ,  type asString
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4462
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4463
	s := s , 'regular (' , fileOutput , ')'
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4464
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4465
    text add:s.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4466
    isLink = true ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4467
	info := filename linkInfo
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4468
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4469
	info := filename info
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4470
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4471
    
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4472
    text add:('size:   ', (info fileSize) printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4473
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4474
    modeBits := info mode.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4475
    modeString := self getModeString:modeBits.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4476
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4477
	text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4478
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4479
	text add:('access: ', modeString)
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4480
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4481
    text add:('owner:  ',
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4482
	       (OperatingSystem getUserNameFromID:(info uid))).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4483
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4484
	text add:('group:  ',
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4485
		   (OperatingSystem getGroupNameFromID:(info gid))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4486
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4487
	ts := info accessTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4488
	text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4489
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4490
	ts := info modificationTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4491
	text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4492
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4493
    ^ text asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4494
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4495
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4496
initialCommandFor:fileName into:aBox
321c1729db5b initial checkin
penk
parents:
diff changeset
  4497
    "set a useful initial command for execute box."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4498
321c1729db5b initial checkin
penk
parents:
diff changeset
  4499
    |mime cmd select path suffix|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4500
321c1729db5b initial checkin
penk
parents:
diff changeset
  4501
    path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4502
    suffix := fileName asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4503
    DefaultCommandPerSuffix notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4504
	cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4505
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4506
	    aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4507
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4508
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4509
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4510
    mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4511
"/    mime notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4512
"/        cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin
penk
parents:
diff changeset
  4513
"/    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4514
321c1729db5b initial checkin
penk
parents:
diff changeset
  4515
    "/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin
penk
parents:
diff changeset
  4516
    "/ XXX or from resources.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4517
321c1729db5b initial checkin
penk
parents:
diff changeset
  4518
    (path type == #regular) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4519
	path isExecutableProgram ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4520
	    aBox initialText:(fileName , ' <arguments>').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4521
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4522
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4523
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4524
	select := true.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4525
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4526
	"some heuristics - my personal preferences ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4527
	 (actually this should come from a configfile)"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4528
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4529
	(fileName endsWith:'akefile') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4530
	    aBox initialText:'make target' selectFrom:6 to:11.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4531
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4532
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4533
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4534
	cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4535
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4536
	    select := false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4537
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4538
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4539
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4540
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4541
	    suffix := path suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4542
	    (suffix = 'C') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4543
		cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4544
		select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4545
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4546
		suffix := suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4547
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4548
		(suffix = 'taz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4549
		    aBox initialText:'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4550
		    select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4551
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4552
		(suffix = 'tar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4553
		    cmd := 'tar tvf %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4554
		    select := 7.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4555
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4556
		(suffix = 'zoo') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4557
		    cmd := 'zoo -list %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4558
		    select := 9.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4559
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4560
		(suffix = 'zip') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4561
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4562
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4563
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4564
		(suffix = 'jar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4565
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4566
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4567
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4568
		(suffix = 'z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4569
		    (fileName asLowercase endsWith:'tar.z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4570
			cmd := 'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4571
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4572
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4573
			cmd := 'uncompress %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4574
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4575
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4576
		(suffix = 'gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4577
		    (fileName asLowercase endsWith:'tar.gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4578
			cmd := ('gunzip < %1 | tar tvf -' ).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4579
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4580
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4581
			cmd := 'gunzip %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4582
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4583
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4584
		(suffix = 'html') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4585
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4586
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4587
		(suffix = 'htm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4588
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4589
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4590
		(suffix = 'uue') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4591
		    cmd := 'uudecode %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4592
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4593
		(suffix = 'c') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4594
		    cmd := 'cc -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4595
		    select := 5.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4596
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4597
		(suffix = 'cc') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4598
		    cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4599
		    select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4600
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4601
		(suffix = 'xbm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4602
		    cmd := 'bitmap %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4603
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4604
		(suffix = 'ps') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4605
		    cmd := 'ghostview %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4606
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4607
		((suffix = '1') or:[suffix = 'man']) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4608
		    cmd := 'nroff -man %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4609
		    select := 10.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4610
		].
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
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4614
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4615
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4616
		cmd := '<cmd>'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4617
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4618
		cmd := DefaultCommandPerSuffix 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4619
			at:suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4620
			ifAbsent:'<cmd>'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4621
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4622
	    cmd := cmd , ' %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4623
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4624
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4625
	cmd := cmd bindWith:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4626
	select == false ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4627
	    aBox initialText:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4628
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4629
	    select class == Interval ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4630
		aBox initialText:cmd selectFrom:select start to:select stop
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4631
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4632
		select isInteger ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4633
		    select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4634
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4635
		aBox initialText:cmd selectFrom:1 to:select
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4636
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4637
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4638
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4639
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4640
321c1729db5b initial checkin
penk
parents:
diff changeset
  4641
isAbstractFileBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4642
321c1729db5b initial checkin
penk
parents:
diff changeset
  4643
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4644
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4645
321c1729db5b initial checkin
penk
parents:
diff changeset
  4646
systemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4647
321c1729db5b initial checkin
penk
parents:
diff changeset
  4648
    ^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4649
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4650
321c1729db5b initial checkin
penk
parents:
diff changeset
  4651
systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4652
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4653
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4654
321c1729db5b initial checkin
penk
parents:
diff changeset
  4655
!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4656
321c1729db5b initial checkin
penk
parents:
diff changeset
  4657
allItemsOfCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4658
321c1729db5b initial checkin
penk
parents:
diff changeset
  4659
    ^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4660
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4661
321c1729db5b initial checkin
penk
parents:
diff changeset
  4662
anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4663
321c1729db5b initial checkin
penk
parents:
diff changeset
  4664
    | directories |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4665
321c1729db5b initial checkin
penk
parents:
diff changeset
  4666
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4667
    directories do:[ : dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4668
	(dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4669
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4670
    ^ false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4671
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4672
321c1729db5b initial checkin
penk
parents:
diff changeset
  4673
currentFilesAreInSameDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4674
321c1729db5b initial checkin
penk
parents:
diff changeset
  4675
    ^ (self currentDirectories value size == 1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4676
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4677
321c1729db5b initial checkin
penk
parents:
diff changeset
  4678
currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  4679
321c1729db5b initial checkin
penk
parents:
diff changeset
  4680
    ^ self currentDirectories value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4681
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4682
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4683
directoriesForFiles:aFileCol
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4684
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4685
    ^ ((aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4686
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4687
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4688
fileListIsEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4689
321c1729db5b initial checkin
penk
parents:
diff changeset
  4690
    ^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4691
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4692
321c1729db5b initial checkin
penk
parents:
diff changeset
  4693
fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4694
321c1729db5b initial checkin
penk
parents:
diff changeset
  4695
    ^ self fileListIsEmpty not.   
321c1729db5b initial checkin
penk
parents:
diff changeset
  4696
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4697
321c1729db5b initial checkin
penk
parents:
diff changeset
  4698
fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin
penk
parents:
diff changeset
  4699
321c1729db5b initial checkin
penk
parents:
diff changeset
  4700
" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin
penk
parents:
diff changeset
  4701
321c1729db5b initial checkin
penk
parents:
diff changeset
  4702
    | file1 file2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4703
321c1729db5b initial checkin
penk
parents:
diff changeset
  4704
    aFilename2 isNil ifTrue:[ ^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4705
    aFilename1 isNil ifTrue:[ ^ false].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4706
    file1 := aFilename1 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4707
    file2 := aFilename2 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4708
    file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4709
    ((file1 isDirectory) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4710
    and:[(file2 isDirectory)
321c1729db5b initial checkin
penk
parents:
diff changeset
  4711
    and:[file1 directory = file2 directory]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4712
	^ file1 baseName = file2 baseName
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4713
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4714
    ^ (file1 pathName) startsWith:(file2 pathName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4715
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4716
321c1729db5b initial checkin
penk
parents:
diff changeset
  4717
getAllFilesAsStringCollection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4718
321c1729db5b initial checkin
penk
parents:
diff changeset
  4719
    ^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4720
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4721
321c1729db5b initial checkin
penk
parents:
diff changeset
  4722
getBestDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4723
321c1729db5b initial checkin
penk
parents:
diff changeset
  4724
    |selFiles stringCol firstPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4725
321c1729db5b initial checkin
penk
parents:
diff changeset
  4726
    selFiles := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4727
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4728
    selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4729
    stringCol := (selFiles collect:[: file| file asString]) asOrderedCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4730
    firstPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4731
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4732
	 firstPre :=  firstPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4733
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4734
    (firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4735
	firstPre removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4736
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4737
    ^ firstPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4738
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4739
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4740
getCommonForCurrentFiles
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4741
321c1729db5b initial checkin
penk
parents:
diff changeset
  4742
    |selFiles stringCol firtsPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4743
321c1729db5b initial checkin
penk
parents:
diff changeset
  4744
    selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4745
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4746
    stringCol := selFiles collect:[: file| file asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4747
    firtsPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4748
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4749
	 firtsPre :=  firtsPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4750
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4751
    ^ firtsPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4752
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4753
321c1729db5b initial checkin
penk
parents:
diff changeset
  4754
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4755
321c1729db5b initial checkin
penk
parents:
diff changeset
  4756
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4757
    aFileName isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4758
	^ aFileName.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4759
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4760
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4761
    dir isDirectory ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4762
	dir := dir directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4763
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4764
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4765
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4766
321c1729db5b initial checkin
penk
parents:
diff changeset
  4767
getInfoItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4768
    "get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin
penk
parents:
diff changeset
  4769
     This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4770
     You can add more names below if you like."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4771
321c1729db5b initial checkin
penk
parents:
diff changeset
  4772
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4773
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4774
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4775
    (directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4776
321c1729db5b initial checkin
penk
parents:
diff changeset
  4777
    #( 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4778
       '.dir.info'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4779
       'README'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4780
       'ReadMe'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4781
       'Readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4782
       'readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4783
       'read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4784
       'Read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4785
       'READ.ME'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4786
       'README.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4787
       'readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4788
       'Readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4789
       'Info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4790
       'info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4791
       'INFO.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4792
    ) do:[:f | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4793
	|n dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4794
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4795
	n := (directories first) construct:f.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4796
	(n isReadable and:[n isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4797
	    ^ DirectoryContentsBrowser itemClass fileName:n
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4798
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4799
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4800
    ^ nil
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4801
! !
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4802
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4803
!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4804
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4805
currentSelectedDirectories
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4806
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4807
    ^ self currentDirectories value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4808
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4809
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4810
currentSelectedFiles
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4811
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4812
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4813
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4814
    ^ (files select:[: file | file isDirectory not]).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4815
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4816
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4817
firstSelectedFile
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4818
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4819
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4820
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4821
    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4822
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4823
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4824
!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4825
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4826
currentSortOrder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4827
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4828
    " returns a Ordered Collection of all directories currently selected 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4829
      if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4830
    "
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4831
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4832
    ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4833
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4834
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4835
makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4836
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4837
    self sortDirectoriesBeforeFiles value ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4838
	^ [:a :b|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4839
	    |aIsDir bIsDir res|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4840
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4841
	    aIsDir := a isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4842
	    bIsDir := b isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4843
	    (aIsDir ~~ bIsDir) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4844
		res := aIsDir 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4845
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4846
		res := aSortBlock value:a value:b.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4847
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4848
	    res
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4849
	  ].
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4850
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4851
	^ aSortBlock
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4852
    ].
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
sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4856
    |nameSortBlock|
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4857
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4858
    ^ self aspectFor:#sortBlockHolder ifAbsent:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4859
	self sortCaseless value ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4860
	    nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4861
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4862
	    nameSortBlock := [ :a :b | a asString < b asString.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4863
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4864
	(self makeDirectorySortBlockFor:nameSortBlock) asValue.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4865
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4866
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4867
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4868
sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4869
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4870
    
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4871
    ^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4872
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4873
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4874
sortCaseless
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4875
    " aspect for sort caseless "
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4876
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4877
    ^ self aspectFor:#sortCaseless ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4878
        | holder |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4879
        holder := (Filename isCaseSensitive not) asValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4880
        holder
3989
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
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4884
sortDirectoriesBeforeFiles
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4885
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4886
    " aspect for sort directories always before files"
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4887
    ^ self aspectFor:#sortDirectoriesBeforeFiles ifAbsent:[ true asValue ].
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4888
!
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4889
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4890
sortFileListsBy:instanceName 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4891
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4892
    self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4893
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4894
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4895
sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4896
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4897
    | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse|
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4898
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4899
    aSymbol := instanceName asSymbol.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4900
    self sortBlockProperty setValue:instanceName asSymbol.
4151
950e04fef4ba treeBrowser has his own sort now
penk
parents: 4148
diff changeset
  4901
    sortCaselessLocal := self sortCaseless value.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4902
    currentSortOrder := self currentSortOrder value.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4903
    currentSortOrder isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4904
	currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4905
	currentSortOrder at:#reverse put:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4906
	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4907
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4908
	(currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4909
	    "/ sort caseless changed
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4910
	    currentSortOrder at:#sortCaseless put:sortCaselessLocal.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4911
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4912
	    (currentSortOrder at:#column) = aSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4913
		"/ same column like before - change sort order ifReverse is true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4914
		aBoolean ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4915
		    | isReverse |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4916
		    isReverse := currentSortOrder at:#reverse.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4917
		    currentSortOrder at:#reverse put:(isReverse not).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4918
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4919
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4920
		"/ another column - remark column
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4921
		currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4922
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4923
	]
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4924
    ].
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4925
    self currentSortOrder changed.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4926
    (currentSortOrder at:#reverse) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4927
	cmpOp := #'>'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4928
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4929
	cmpOp := #'<'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4930
    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4931
    sortReverse := currentSortOrder at:#reverse.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4932
    instanceSortBlock := [:a :b | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4933
	|entry1 entry2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4934
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4935
	((a respondsTo:aSymbol) not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4936
	    true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4937
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4938
	    entry1 := (a perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4939
	    entry2 := (b perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4940
	    ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4941
		((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4942
		    ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4943
		       sortReverse
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4944
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4945
			sortReverse not
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4946
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4947
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4948
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4949
		(aSymbol = #baseName) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4950
		    sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4951
			entry1 := entry1 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4952
			entry2 := entry2 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4953
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4954
			entry1 := entry1 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4955
			entry2 := entry2 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4956
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4957
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4958
		entry1 perform:cmpOp with:entry2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4959
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4960
	]
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4961
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4962
    self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4963
! !
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4964
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4965
!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4966
321c1729db5b initial checkin
penk
parents:
diff changeset
  4967
makeDependent
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4968
    self filterModel addDependent:self.            
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4969
    self currentFileNameHolder addDependent:self.
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4970
    self sortDirectoriesBeforeFiles addDependent:self.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4971
    self sortCaseless addDependent:self.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4972
    self showHiddenFiles addDependent:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4973
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4974
321c1729db5b initial checkin
penk
parents:
diff changeset
  4975
masterApplication:anApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  4976
321c1729db5b initial checkin
penk
parents:
diff changeset
  4977
    masterApplication isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4978
	(anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4979
	    aspects := anApplication aspects
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4980
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4981
	    aspects isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4982
		aspects := IdentityDictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4983
		aspects at:#applications put:(IdentityDictionary new).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4984
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4985
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4986
	self applications at:(self className) put:self.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4987
	self makeDependent.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4988
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4989
    ^ super masterApplication:anApplication.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4990
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4991
321c1729db5b initial checkin
penk
parents:
diff changeset
  4992
postOpenWith:aBuilder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4993
321c1729db5b initial checkin
penk
parents:
diff changeset
  4994
    super postOpenWith:aBuilder.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4995
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4996
321c1729db5b initial checkin
penk
parents:
diff changeset
  4997
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4998
321c1729db5b initial checkin
penk
parents:
diff changeset
  4999
files
321c1729db5b initial checkin
penk
parents:
diff changeset
  5000
    "return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5001
321c1729db5b initial checkin
penk
parents:
diff changeset
  5002
    ^ files
321c1729db5b initial checkin
penk
parents:
diff changeset
  5003
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5004
321c1729db5b initial checkin
penk
parents:
diff changeset
  5005
files:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5006
    "set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5007
321c1729db5b initial checkin
penk
parents:
diff changeset
  5008
    files := 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
method
321c1729db5b initial checkin
penk
parents:
diff changeset
  5012
    "return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5013
321c1729db5b initial checkin
penk
parents:
diff changeset
  5014
    ^ method
321c1729db5b initial checkin
penk
parents:
diff changeset
  5015
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5016
321c1729db5b initial checkin
penk
parents:
diff changeset
  5017
method:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5018
    "set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5019
321c1729db5b initial checkin
penk
parents:
diff changeset
  5020
    method := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5021
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5022
321c1729db5b initial checkin
penk
parents:
diff changeset
  5023
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5024
321c1729db5b initial checkin
penk
parents:
diff changeset
  5025
locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  5026
    "return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5027
321c1729db5b initial checkin
penk
parents:
diff changeset
  5028
    locked isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5029
	locked := false.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5030
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5031
    ^ locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  5032
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5033
321c1729db5b initial checkin
penk
parents:
diff changeset
  5034
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5035
321c1729db5b initial checkin
penk
parents:
diff changeset
  5036
doIfUnLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5037
321c1729db5b initial checkin
penk
parents:
diff changeset
  5038
    self locked ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5039
	aBlock value.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5040
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5041
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5042
321c1729db5b initial checkin
penk
parents:
diff changeset
  5043
doLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5044
321c1729db5b initial checkin
penk
parents:
diff changeset
  5045
    locked  := true.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5046
    aBlock ensure:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5047
	locked := false.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5048
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5049
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5050
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5051
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5052
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5053
historySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5054
321c1729db5b initial checkin
penk
parents:
diff changeset
  5055
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5056
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5057
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5058
!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5059
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5060
new
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5061
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5062
    ^ super new initialize.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5063
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5064
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5065
!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5066
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5067
forwardList
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5068
    "return the value of the instance variable 'forwardList' (automatically generated)"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5069
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5070
    forwardList isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5071
	forwardList := OrderedCollection new.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5072
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5073
    ^ forwardList
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5074
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5075
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5076
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5077
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5078
addToHistory:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5079
    | item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5080
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5081
    item := self getItemFor:aPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5082
    (lastBackPath notNil and:[lastAddPath notNil and:[lastBackPath = aPath]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5083
	lastAddPath := nil.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5084
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5085
    lastAddPath notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5086
	self backListAdd:lastAddPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5087
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5088
    lastAddPath := aPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5089
    item isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5090
	" not already in history"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5091
	self size >= self class historySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5092
	    self removeLast.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5093
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5094
	item := DirectoryHistoryItem path:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5095
	self addFirst:item
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5096
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5097
	"already been there before; move the entry to
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5098
	 the beginning, so it will fall out later."
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5099
	self remove:item.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5100
	self addFirst:item
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5101
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5102
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5103
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5104
backListAdd:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5105
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5106
    backList size >= self class historySize ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5107
	backList removeLast.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5108
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5109
    backList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5110
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5111
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5112
forwardListAdd:aPath
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5113
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5114
    forwardList size >= self class historySize ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5115
	forwardList removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5116
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5117
    forwardList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5118
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5119
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5120
goBack
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
" 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
  5123
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5124
    | retPath|
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
    backList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5127
    retPath := backList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5128
    self forwardListAdd:(self first path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5129
    lastBackPath := retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5130
    backList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5131
    ^ retPath.
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
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5134
goForward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5135
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5136
" return first path of forward list"
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
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5139
    self forwardList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5140
    retPath := self forwardList first.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5141
    self forwardList removeFirst.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5142
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5143
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5144
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5145
resetForwardBackward
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
    backList := self collect:[:item| item path].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5148
    forwardList := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5149
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5150
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5151
setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5152
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5153
    self do:[:item| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5154
	item path = aPath ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5155
	    item position:aPosition.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5156
	]
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5157
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5158
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5159
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5160
xxgoBackFrom:aPath
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5161
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5162
" search the item in the list and give back the next in the list"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5163
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5164
    | index retVal|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5165
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5166
    self isEmpty ifTrue:[ ^ nil].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5167
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5168
    aPath isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5169
	retVal := self first path
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5170
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5171
	index := self findFirst:[:item| item path = aPath].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5172
	index == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5173
	    retVal := self first path
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5174
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5175
	    index < self size ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5176
		retVal := ((self at:index + 1) path).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5177
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5178
	].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5179
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5180
    retVal := retVal ? self first path.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5181
    self forwardListAdd:aPath.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5182
    ^ retVal.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5183
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5184
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5185
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5186
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5187
initialize
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5188
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5189
    backList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5190
    forwardList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5191
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5192
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5193
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5194
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  5195
canBack
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5196
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5197
    ^ backList notEmpty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5198
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5199
321c1729db5b initial checkin
penk
parents:
diff changeset
  5200
canForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  5201
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5202
    ^ self forwardList notEmpty.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5203
!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5204
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5205
getBackCollectionFrom:aPath
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5206
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5207
"/    | backCol index |
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
"/    backCol := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5210
"/    aPath isNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5211
"/        index := 0.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5212
"/    ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5213
"/        index := self findFirst:[:item| item path = aPath].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5214
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5215
"/    "/ 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
  5216
"/    index < self size ifTrue:[ 
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5217
"/        self from:(index + 1) to:(self size) do:[:item |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5218
"/            backCol add:(item path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5219
"/        ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5220
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5221
    ^ backList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5222
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5223
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5224
getForwardCollection
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5225
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5226
    ^ self forwardList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5227
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5228
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5229
getItemFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5230
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5231
    self do:[:item| item path = aPath ifTrue:[^ item]].
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
getPositionFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5236
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5237
    |item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5238
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5239
    item := self getItemFor:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5240
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5241
    item notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5242
	^ item position.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5243
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5244
    ^ nil
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5245
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5246
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5247
includesPath:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5248
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5249
    self do:[:item| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5250
    ^ false.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5251
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5252
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5253
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5254
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5255
path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5256
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5257
    ^ self new path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5258
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5259
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5260
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5261
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5262
path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5263
    "return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5264
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5265
    ^ path
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
path:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5269
    "set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5270
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5271
    path := 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
position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5275
    "return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5276
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5277
    ^ position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5278
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5279
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5280
position:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5281
    "set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5282
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5283
    position := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5284
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5285
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5286
printString
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5287
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5288
    ^ self path asString
3892
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 class methodsFor:'attributes access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5292
321c1729db5b initial checkin
penk
parents:
diff changeset
  5293
FilenameHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  5294
321c1729db5b initial checkin
penk
parents:
diff changeset
  5295
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5296
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5297
321c1729db5b initial checkin
penk
parents:
diff changeset
  5298
HistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  5299
321c1729db5b initial checkin
penk
parents:
diff changeset
  5300
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5301
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5302
321c1729db5b initial checkin
penk
parents:
diff changeset
  5303
!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5304
321c1729db5b initial checkin
penk
parents:
diff changeset
  5305
add:aApplItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  5306
321c1729db5b initial checkin
penk
parents:
diff changeset
  5307
    super add:aApplItem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5308
    (self size > self class FilenameHistorySize) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5309
	self removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5310
    ]
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 class methodsFor:'instance creation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5314
321c1729db5b initial checkin
penk
parents:
diff changeset
  5315
withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  5316
321c1729db5b initial checkin
penk
parents:
diff changeset
  5317
    | instance |
321c1729db5b initial checkin
penk
parents:
diff changeset
  5318
321c1729db5b initial checkin
penk
parents:
diff changeset
  5319
    instance := self basicNew.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5320
    instance value:aValue.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5321
    instance isHolder:aBoolean.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5322
    ^ instance
321c1729db5b initial checkin
penk
parents:
diff changeset
  5323
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5324
321c1729db5b initial checkin
penk
parents:
diff changeset
  5325
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5326
321c1729db5b initial checkin
penk
parents:
diff changeset
  5327
isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5328
    "return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5329
321c1729db5b initial checkin
penk
parents:
diff changeset
  5330
    ^ isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5331
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5332
321c1729db5b initial checkin
penk
parents:
diff changeset
  5333
isHolder:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5334
    "set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5335
321c1729db5b initial checkin
penk
parents:
diff changeset
  5336
    isHolder := 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
value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5340
    "return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5341
321c1729db5b initial checkin
penk
parents:
diff changeset
  5342
    ^ value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5343
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5344
321c1729db5b initial checkin
penk
parents:
diff changeset
  5345
value:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5346
    "set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5347
321c1729db5b initial checkin
penk
parents:
diff changeset
  5348
    value := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5349
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5350
321c1729db5b initial checkin
penk
parents:
diff changeset
  5351
!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5352
321c1729db5b initial checkin
penk
parents:
diff changeset
  5353
version
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  5354
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.58 2002-11-11 09:37:33 cg Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5355
! !