AbstractFileBrowser.st
author penk
Fri, 29 Nov 2002 10:48:10 +0100
changeset 4337 f2eed806e854
parent 4317 bf3f150809c2
child 4343 209810452034
permissions -rw-r--r--
change first letter uppercase methods on class side to lowercase ones
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
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   236
disabledCursorImage
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   237
321c1729db5b initial checkin
penk
parents:
diff changeset
   238
    DisabledCursorImage isNil ifTrue:[
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
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
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   244
enabledCursorImage
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   245
321c1729db5b initial checkin
penk
parents:
diff changeset
   246
    EnabledCursorImage isNil ifTrue:[
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
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
4317
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
   990
            #label: 'Settings...'
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
   991
            #itemValue: #doOpenSettings
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   992
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   993
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   994
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   995
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   996
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   997
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   998
            #label: 'Search Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   999
            #itemValue: #doOpenSearchFile
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1000
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1001
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1002
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1003
            #label: 'Shell Terminal'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1004
            #itemValue: #doAddTerminal
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1005
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1006
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1007
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1008
            #label: '-'
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: 'Exit'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1012
            #itemValue: #closeRequest
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1013
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1014
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1015
         )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1016
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1017
        nil
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1018
      )
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1019
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1020
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1021
cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1022
    "This resource specification was automatically generated
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1023
     by the MenuEditor of ST/X."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1024
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1025
    "Do not manually edit this!! If it is corrupted,
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1026
     the MenuEditor may not be able to read the specification."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1027
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1028
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1029
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1030
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser cvsMenu)) startUp
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1031
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1032
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1033
    <resource: #menu>
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1034
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1035
    ^ 
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1036
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1037
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1038
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1039
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1040
	    #label: 'Update selected Files/Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1041
	    #itemValue: #cvsUpdateSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1042
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1043
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1044
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1045
	    #label: 'Update Directory Local'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1046
	    #itemValue: #cvsUpdateAll
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1047
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1048
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1049
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1050
	    #label: 'Update Directory Recursive'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1051
	    #itemValue: #cvsUpdateAllRecursive
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1052
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1053
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1054
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1055
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1056
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1057
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1058
	    #label: 'Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1059
	    #itemValue: #cvsCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1060
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1061
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1062
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1063
	    #enabled: #canCvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1064
	    #label: 'Add && Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1065
	    #itemValue: #cvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1066
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1067
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1068
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1069
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1070
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1071
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1072
	    #enabled: #canRemoveCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1073
	    #label: 'Remove File && CVS Container...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1074
	    #itemValue: #cvsRemoveFileAndCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1075
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1076
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1077
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1078
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1079
	nil
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1080
      )
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1081
!
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1082
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1083
directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1084
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1085
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1086
321c1729db5b initial checkin
penk
parents:
diff changeset
  1087
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1088
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1089
321c1729db5b initial checkin
penk
parents:
diff changeset
  1090
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1091
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1092
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1093
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1094
321c1729db5b initial checkin
penk
parents:
diff changeset
  1095
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1096
321c1729db5b initial checkin
penk
parents:
diff changeset
  1097
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1098
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1099
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1100
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1101
	    #label: 'Up'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1102
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1103
	    #value: #doGoDirectoryUp
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1104
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1105
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1106
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1107
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1108
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1109
	    #label: 'Back'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1110
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1111
	    #value: #doBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1112
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1113
	    #enabled: #enableBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1114
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1115
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1116
	    #label: 'Forward'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1117
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1118
	    #value: #doForward
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1119
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1120
	    #enabled: #enableForward
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: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1124
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1125
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1126
	    #label: 'Default'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1127
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1128
	    #value: #doGotoDefaultDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1129
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1130
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1131
	    #label: 'Home'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1132
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1133
	    #value: #doGotoHomeDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1134
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1135
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1136
	    #label: 'Visited Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1137
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1138
	    #submenuChannel: #visitedDirectoriesMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1139
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1140
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1141
	    #label: 'Bookmarks'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1142
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1143
	    #submenuChannel: #bookmarksMenuSpec
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1144
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1145
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1146
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1147
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1148
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1149
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1150
321c1729db5b initial checkin
penk
parents:
diff changeset
  1151
editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1152
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1153
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1154
321c1729db5b initial checkin
penk
parents:
diff changeset
  1155
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1156
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1157
321c1729db5b initial checkin
penk
parents:
diff changeset
  1158
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1159
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1160
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser editMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1161
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1162
321c1729db5b initial checkin
penk
parents:
diff changeset
  1163
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1164
321c1729db5b initial checkin
penk
parents:
diff changeset
  1165
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1166
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1167
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1168
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1169
	    #label: 'Copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1170
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1171
	    #value: #copyInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1172
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1173
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1174
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1175
	    #label: 'Cut'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1176
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1177
	    #value: #cutInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1178
	    #enabled: #hasSelection
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: 'Paste'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1182
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1183
	    #value: #pasteFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1184
	    #enabled: #canPaste
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1185
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1186
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1187
	    #label: 'Delete'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1188
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1189
	    #value: #deleteInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1190
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1191
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1192
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1193
	    #label: '-'
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: 'Copy All Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1197
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1198
	    #value: #copyFileList
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1199
	    #enabled: #fileListIsNotEmpty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1200
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1201
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1202
	    #label: 'Copy Selected Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1203
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1204
	    #value: #copySelectedFilenames
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1205
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1206
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1207
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1208
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1209
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1210
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1211
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1212
321c1729db5b initial checkin
penk
parents:
diff changeset
  1213
fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1214
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1215
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1216
321c1729db5b initial checkin
penk
parents:
diff changeset
  1217
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1218
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1219
321c1729db5b initial checkin
penk
parents:
diff changeset
  1220
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1221
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1222
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser fileMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1223
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1224
321c1729db5b initial checkin
penk
parents:
diff changeset
  1225
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1226
321c1729db5b initial checkin
penk
parents:
diff changeset
  1227
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1228
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1229
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1230
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1231
	    #label: 'New'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1232
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1233
	    #submenuChannel: #newMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1234
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1235
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1236
	    #label: 'Rename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1237
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1238
	    #value: #renameSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1239
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1240
	    #shortcutKeyCharacter: #Replace
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1241
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1242
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1243
	    #label: '-'
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: 'Open in Text Editor'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1247
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1248
	    #value: #doShowFileContents
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1249
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1250
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1251
	    #label: 'Properties...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1252
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1253
	    #value: #doShowProperties
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1254
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1255
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1256
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1257
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1258
	    #isVisible: #javaSupportLoaded
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: 'File in'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1262
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1263
	    #value: #fileFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1264
	    #enabled: #hasSelection
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: 'File in to Namespace...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1268
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1269
	    #value: #fileFileInToNameSpace
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
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1273
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1274
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1275
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1276
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1277
	    #label: 'Add to Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1278
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1279
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1280
	    #enabled: #canAddToClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1281
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1282
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1283
	    #label: 'Remove from Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1284
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1285
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1286
	    #enabled: #canRemoveFromClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1287
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1288
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1289
	    #label: 'Add to Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1290
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1291
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1292
	    #enabled: #canAddToSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1293
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1294
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1295
	    #label: 'Remove from Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1296
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1297
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1298
	    #enabled: #canRemoveFromSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1299
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1300
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1301
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1302
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1303
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1304
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1305
321c1729db5b initial checkin
penk
parents:
diff changeset
  1306
newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1307
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1308
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1309
321c1729db5b initial checkin
penk
parents:
diff changeset
  1310
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1311
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1312
321c1729db5b initial checkin
penk
parents:
diff changeset
  1313
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1314
     MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1315
     (Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser newMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1316
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1317
321c1729db5b initial checkin
penk
parents:
diff changeset
  1318
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1319
321c1729db5b initial checkin
penk
parents:
diff changeset
  1320
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1321
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1322
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1323
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1324
	    #label: 'Directory...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1325
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1326
	    #value: #newDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1327
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1328
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1329
	    #label: 'File...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1330
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1331
	    #value: #newFile
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1332
	  )                                     
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1333
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1334
	    #label: 'Hard Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1335
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1336
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1337
	    #value: #newHardLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1338
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1339
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1340
	    #label: 'Symbolic Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1341
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1342
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1343
	    #value: #newSoftLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1344
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1345
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1346
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1347
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1348
      )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1349
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1350
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1351
showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1352
    "This resource specification was automatically generated
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1353
     by the MenuEditor of ST/X."
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1354
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1355
    "Do not manually edit this!! If it is corrupted,
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1356
     the MenuEditor may not be able to read the specification."
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1357
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1358
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1359
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1360
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser showMenuSpec)) startUp
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1361
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1362
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1363
    <resource: #menu>
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1364
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1365
    ^ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1366
     #(#Menu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1367
        #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1368
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1369
            #label: 'Hidden Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1370
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1371
            #indication: #showHiddenFiles
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1372
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1373
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1374
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1375
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1376
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1377
            #label: 'Directory Tree'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1378
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1379
            #indication: #showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1380
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1381
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1382
            #label: 'Regular Files in TreeView (Left)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1383
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1384
            #indication: #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1385
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1386
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1387
            #label: 'Directories in ContentsView (Right)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1388
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1389
            #indication: #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1390
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1391
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1392
            #enabled: #enableViewNoteBookApplication
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1393
            #label: 'File Applications'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1394
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1395
            #indication: #viewNoteBookApplicationHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1396
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1397
         )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1398
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1399
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1400
      )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1401
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1402
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1403
sortMenu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1404
    "This resource specification was automatically generated
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1405
     by the MenuEditor of ST/X."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1406
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1407
    "Do not manually edit this!! If it is corrupted,
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1408
     the MenuEditor may not be able to read the specification."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1409
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1410
    "
3907
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1411
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#sortMenu
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1412
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser sortMenu)) startUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1413
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1414
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1415
    <resource: #menu>
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1416
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1417
    ^ 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1418
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1419
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1420
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1421
	    #label: 'By Filename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1422
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1423
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1424
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1425
	    #choiceValue: #baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1426
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1427
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1428
	    #label: 'By Type'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1429
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1430
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1431
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1432
	    #choiceValue: #suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1433
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1434
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1435
	    #label: 'By Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1436
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1437
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1438
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1439
	    #choiceValue: #permissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1440
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1441
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1442
	    #label: 'By Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1443
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1444
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1445
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1446
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1447
	    #choiceValue: #owner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1448
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1449
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1450
	    #label: 'By Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1451
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1452
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1453
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1454
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1455
	    #choiceValue: #group
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1456
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1457
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1458
	    #label: 'By Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1459
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1460
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1461
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1462
	    #choiceValue: #fileSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1463
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1464
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1465
	    #label: 'By Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1466
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1467
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1468
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1469
	    #choiceValue: #modificationTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1470
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1471
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1472
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1473
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1474
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1475
	    #label: 'Ignore Case in Sort'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1476
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1477
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1478
	    #indication: #sortCaseless
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1479
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1480
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1481
	    #label: 'Directories before Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1482
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1483
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1484
	    #indication: #sortDirectoriesBeforeFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1485
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1486
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1487
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1488
	nil
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1489
      )
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1490
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1491
4164
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1492
toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1493
    "This resource specification was automatically generated
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1494
     by the MenuEditor of ST/X."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1495
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1496
    "Do not manually edit this!! If it is corrupted,
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1497
     the MenuEditor may not be able to read the specification."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1498
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1499
    "
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1500
     MenuEditor new openOnClass:FileBrowserV2 andSelector:#toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1501
     (Menu new fromLiteralArrayEncoding:(FileBrowserV2 toolsMenuSpec)) startUp
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1502
    "
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1503
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1504
    <resource: #menu>
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1505
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1506
    ^ 
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1507
     #(#Menu
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1508
        #(
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1509
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1510
            #label: 'Execute Command...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1511
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1512
            #value: #doExecuteCommand
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1513
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1514
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1515
            #label: 'Shell Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1516
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1517
            #isVisible: #canDoTerminalAndSystemIsUnix
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1518
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1519
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1520
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1521
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1522
            #label: 'DOS Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1523
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1524
            #isVisible: #canDoTerminalAndSystemIsDOS
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1525
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1526
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1527
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1528
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1529
            #label: '-'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1530
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1531
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1532
            #label: 'Changes Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1533
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1534
            #value: #openChangesBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1535
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1536
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1537
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1538
            #label: 'ChangeSet Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1539
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1540
            #value: #openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1541
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1542
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1543
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1544
            #label: 'Snapshot Image Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1545
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1546
            #value: #openSnapshotImageBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1547
            #enabled: #hasSnapshotSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1548
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1549
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1550
            #label: 'Create Smalltalk Project'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1551
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1552
            #value: #createProjectAndOpenProjectBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1553
            #enabled: #canCreateNewProject
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1554
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1555
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1556
            #label: 'Install Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1557
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1558
            #value: #readAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1559
            #enabled: #canReadAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1560
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1561
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1562
            #label: 'Install all as Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1563
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1564
            #value: #installAllAsAutoloaded
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1565
            #enabled: #anySTFilesPresent
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1566
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1567
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1568
            #label: 'Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1569
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1570
            #value: #openEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1571
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1572
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1573
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1574
            #label: 'HTML Reader'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1575
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1576
            #value: #openHTMLReader
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1577
            #enabled: #hasSelection
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: 'ASN1 Browser'
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: #hasASN1
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1583
            #value: #openASN1Browser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1584
            #enabled: #hasASN1AndSelection
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: 'C Browser'
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: #hasCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1590
            #value: #openCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1591
            #enabled: #hasCBrowser
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: 'Applet Viewer'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1595
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1596
            #isVisible: #hasJava
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1597
            #value: #openAppletViewer
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1598
            #enabled: #hasJavaAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1599
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1600
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1601
            #label: 'Image Inspector'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1602
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1603
            #value: #openImageInspector
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1604
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1605
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1606
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1607
            #label: 'Image Preview'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1608
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1609
            #value: #openImagePreview
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1610
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1611
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1612
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1613
            #label: 'Image Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1614
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1615
            #value: #openImageEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1616
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1617
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1618
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1619
            #label: 'MP3 Player'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1620
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1621
            #isVisible: #hasMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1622
            #value: #openMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1623
            #enabled: #hasMP3PlayerAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1624
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1625
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1626
            #label: 'ZipFile Tool'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1627
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1628
            #value: #openZipTool
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1629
            #enabled: #hasZipFileSelected
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1630
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1631
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1632
            #label: 'Slide Show'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1633
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1634
            #isVisible: #hasSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1635
            #value: #openSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1636
            #enabled: #currentFilesAreInSameDirectory
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: 'File Differences...'
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: #openDiffView
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: 'Find Duplicate Files'
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
            #value: #fileFindDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1648
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1649
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1650
            #label: 'Find All Duplicate Files (Recursive)'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1651
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1652
            #value: #fileFindAllDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1653
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1654
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1655
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1656
            #label: 'Find a File...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1657
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1658
            #value: #fileFindFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1659
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1660
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1661
            #label: 'Hex Dump'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1662
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1663
            #value: #fileHexDump
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1664
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1665
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1666
         )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1667
        nil
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1668
        nil
4164
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1669
      )
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1670
!
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1671
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1672
viewDetailsMenuSpec
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1673
    "This resource specification was automatically generated
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1674
     by the MenuEditor of ST/X."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1675
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1676
    "Do not manually edit this!! If it is corrupted,
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1677
     the MenuEditor may not be able to read the specification."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1678
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1679
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1680
     MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1681
     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1682
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1683
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1684
    <resource: #menu>
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1685
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1686
    ^ 
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1687
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1688
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1689
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1690
	    #label: 'Suffix'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1691
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1692
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1693
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1694
	    #indication: #viewType
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1695
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1696
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1697
	    #label: 'Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1698
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1699
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1700
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1701
	    #indication: #viewPermissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1702
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1703
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1704
	    #label: 'Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1705
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1706
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1707
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1708
	    #indication: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1709
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1710
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1711
	    #label: 'Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1712
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1713
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1714
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1715
	    #indication: #viewGroup
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1716
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1717
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1718
	    #label: 'Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1719
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1720
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1721
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1722
	    #indication: #viewSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1723
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1724
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1725
	    #label: 'Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1726
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1727
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1728
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1729
	    #indication: #viewTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1730
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1731
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1732
	    #label: 'File Info'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1733
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1734
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1735
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1736
	    #indication: #viewDescription
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1737
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1738
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1739
	    #label: 'Preview'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1740
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1741
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1742
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1743
	    #indication: #viewPreview
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1744
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1745
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1746
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1747
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1748
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1749
	    #label: 'Hidden Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1750
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1751
	    #indication: #showHiddenFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1752
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1753
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1754
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1755
	nil
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1756
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1757
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1758
321c1729db5b initial checkin
penk
parents:
diff changeset
  1759
!AbstractFileBrowser class methodsFor:'misc'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1760
321c1729db5b initial checkin
penk
parents:
diff changeset
  1761
newLock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1762
    ^ CodeExecutionLock new
321c1729db5b initial checkin
penk
parents:
diff changeset
  1763
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1764
321c1729db5b initial checkin
penk
parents:
diff changeset
  1765
!AbstractFileBrowser methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1766
321c1729db5b initial checkin
penk
parents:
diff changeset
  1767
askForCommandFor:fileName thenDo:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1768
    "setup and launch a querybox to ask for unix command.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1769
     Then evaluate aBlock passing the command-string as argument."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1770
321c1729db5b initial checkin
penk
parents:
diff changeset
  1771
    |box osName|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1772
321c1729db5b initial checkin
penk
parents:
diff changeset
  1773
    osName := OperatingSystem platformName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1774
321c1729db5b initial checkin
penk
parents:
diff changeset
  1775
    box := FilenameEnterBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1776
		title:(resources string:'Execute %1 command:' with:osName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1777
	       okText:(resources string:'Execute')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1778
	       action:aBlock.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1779
321c1729db5b initial checkin
penk
parents:
diff changeset
  1780
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1781
	self initialCommandFor:fileName into:box.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1782
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1783
    box directory:(self getDirWithoutFileName:fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1784
    box showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1785
    box destroy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1786
321c1729db5b initial checkin
penk
parents:
diff changeset
  1787
    "Modified: / 7.9.1995 / 10:31:54 / claus"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1788
    "Modified: / 16.9.1997 / 15:35:10 / stefan"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1789
    "Modified: / 14.8.1998 / 14:12:52 / cg"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1790
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1791
321c1729db5b initial checkin
penk
parents:
diff changeset
  1792
changeFileBrowserTitleTo:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  1793
321c1729db5b initial checkin
penk
parents:
diff changeset
  1794
    self application:#FileBrowserV2
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1795
	 do:#changeFileBrowserTitleTo:                            
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1796
	 withArg:aString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1797
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1798
321c1729db5b initial checkin
penk
parents:
diff changeset
  1799
copyFileList
321c1729db5b initial checkin
penk
parents:
diff changeset
  1800
321c1729db5b initial checkin
penk
parents:
diff changeset
  1801
    | fileList stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1802
    fileList := self application:#DirectoryContentsBrowser do:#descriptions.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1803
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1804
    fileList do:[: item |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1805
	stream nextPutAll:(item fileName asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1806
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1807
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1808
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1809
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1810
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1811
321c1729db5b initial checkin
penk
parents:
diff changeset
  1812
copySelectedFilenames
321c1729db5b initial checkin
penk
parents:
diff changeset
  1813
321c1729db5b initial checkin
penk
parents:
diff changeset
  1814
    | fileList stream|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1815
    fileList := self application:#DirectoryContentsBrowser do:#selectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1816
    fileList isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1817
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1818
    fileList do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1819
	stream nextPutAll:(file asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1820
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1821
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1822
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1823
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1824
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1825
321c1729db5b initial checkin
penk
parents:
diff changeset
  1826
doAddTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  1827
321c1729db5b initial checkin
penk
parents:
diff changeset
  1828
    | item dir directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1829
321c1729db5b initial checkin
penk
parents:
diff changeset
  1830
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1831
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1832
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1833
	dir :=  Filename homeDirectory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1834
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1835
	dir :=  directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1836
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1837
    
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1838
    item := (DirectoryContentsBrowser itemClass fileName:dir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1839
    self fileApplicationDo:#openTerminalApplication: withArg:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1840
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1841
321c1729db5b initial checkin
penk
parents:
diff changeset
  1842
doExecuteCommand
321c1729db5b initial checkin
penk
parents:
diff changeset
  1843
321c1729db5b initial checkin
penk
parents:
diff changeset
  1844
    | action  fileName|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1845
    fileName := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1846
    action := [:command | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1847
		self addToCommandHistory:command for:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1848
		self executeCommand:command.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1849
	      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1850
    self askForCommandFor:fileName thenDo:action
321c1729db5b initial checkin
penk
parents:
diff changeset
  1851
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1852
321c1729db5b initial checkin
penk
parents:
diff changeset
  1853
doGoDirectoryUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1854
    | upDir directories rootInTreeView|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1855
321c1729db5b initial checkin
penk
parents:
diff changeset
  1856
    self enableDirectoryUp value ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1857
    self currentFilesAreInSameDirectory ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1858
	directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1859
	upDir := directories first directory.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1860
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1861
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1862
	upDir := rootInTreeView value asFilename directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1863
    ].
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1864
    self currentFileNameHolder value:(OrderedCollection with:upDir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1865
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1866
321c1729db5b initial checkin
penk
parents:
diff changeset
  1867
doGotoDefaultDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1868
    self gotoFile:(Filename defaultDirectory).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1869
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1870
321c1729db5b initial checkin
penk
parents:
diff changeset
  1871
doGotoHomeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1872
321c1729db5b initial checkin
penk
parents:
diff changeset
  1873
    | home |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1874
321c1729db5b initial checkin
penk
parents:
diff changeset
  1875
    home := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1876
    self gotoFile:home.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1877
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1878
321c1729db5b initial checkin
penk
parents:
diff changeset
  1879
doOpenSearchFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  1880
321c1729db5b initial checkin
penk
parents:
diff changeset
  1881
    |item files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1882
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1883
    files := self currentFileNameHolder value.
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1884
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1885
	item := DirectoryContentsBrowser itemClass fileName:(files first).
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1886
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1887
	item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1888
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1889
    self openSearchFileOn:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1890
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1891
321c1729db5b initial checkin
penk
parents:
diff changeset
  1892
doShowFileContents
321c1729db5b initial checkin
penk
parents:
diff changeset
  1893
321c1729db5b initial checkin
penk
parents:
diff changeset
  1894
    ^ self application:#DirectoryContentsBrowser do:#doShowFileContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1895
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1896
321c1729db5b initial checkin
penk
parents:
diff changeset
  1897
doShowProperties
321c1729db5b initial checkin
penk
parents:
diff changeset
  1898
321c1729db5b initial checkin
penk
parents:
diff changeset
  1899
    "show long stat (file)-info"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1900
321c1729db5b initial checkin
penk
parents:
diff changeset
  1901
    self fileGetInfo:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1902
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1903
321c1729db5b initial checkin
penk
parents:
diff changeset
  1904
fileApplicationDo:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1905
321c1729db5b initial checkin
penk
parents:
diff changeset
  1906
    ^ self application:#FileApplicationNoteBook do:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1907
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1908
321c1729db5b initial checkin
penk
parents:
diff changeset
  1909
fileApplicationDo:selector withArg:arg
321c1729db5b initial checkin
penk
parents:
diff changeset
  1910
    ^ self application:#FileApplicationNoteBook do:selector withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1911
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1912
321c1729db5b initial checkin
penk
parents:
diff changeset
  1913
fileGetInfo:longInfo 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1914
    "get info on selected file - show it in a box"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1915
321c1729db5b initial checkin
penk
parents:
diff changeset
  1916
    |string box updater|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1917
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1918
    string := self getFileInfoStringForFirstSelectedFile:longInfo.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1919
    string notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1920
	box := InfoBox title:string.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1921
	updater := [
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1922
		    [true] whileTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1923
			Delay waitForSeconds:2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1924
			string := self getFileInfoStringForFirstSelectedFile:longInfo.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1925
			string isNil ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1926
			box title:string
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1927
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1928
		] fork.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1929
	box showAtPointer.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1930
	updater terminate.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1931
	box destroy
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1932
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1933
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1934
321c1729db5b initial checkin
penk
parents:
diff changeset
  1935
gotoFile:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  1936
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1937
    " select only if the file is not already in selection"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1938
    | currentSel |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1939
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1940
    currentSel := self currentFileNameHolder value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1941
    ((currentSel findFirst:[:aFile| aFile = aFilename]) == 0) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1942
	self currentFileNameHolder value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1943
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1944
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1945
321c1729db5b initial checkin
penk
parents:
diff changeset
  1946
openApplByFileItem:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1947
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  1948
    ^ self fileApplicationDo:#openApplByFileItem: withArg:aItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1949
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1950
321c1729db5b initial checkin
penk
parents:
diff changeset
  1951
openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1952
321c1729db5b initial checkin
penk
parents:
diff changeset
  1953
    ^ self fileApplicationDo:#openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1954
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1955
321c1729db5b initial checkin
penk
parents:
diff changeset
  1956
openSearchFileOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1957
321c1729db5b initial checkin
penk
parents:
diff changeset
  1958
    ^ self fileApplicationDo:#openSearchFileOn: withArg:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1959
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1960
321c1729db5b initial checkin
penk
parents:
diff changeset
  1961
openTextEditorOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1962
321c1729db5b initial checkin
penk
parents:
diff changeset
  1963
    ^ self fileApplicationDo:#openTextEditorOn: withArg:aItem 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1964
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1965
321c1729db5b initial checkin
penk
parents:
diff changeset
  1966
updateAndSelect:aColOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  1967
321c1729db5b initial checkin
penk
parents:
diff changeset
  1968
    self application:#DirectoryContentsBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1969
    self application:#DirectoryTreeBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1970
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1971
    aColOfFiles notNil ifTrue:[ self currentFileNameHolder value:aColOfFiles ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1972
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1973
321c1729db5b initial checkin
penk
parents:
diff changeset
  1974
updateCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1975
321c1729db5b initial checkin
penk
parents:
diff changeset
  1976
    self updateAndSelect:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  1977
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1978
321c1729db5b initial checkin
penk
parents:
diff changeset
  1979
!AbstractFileBrowser methodsFor:'actions bookmarks'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1980
321c1729db5b initial checkin
penk
parents:
diff changeset
  1981
addBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  1982
321c1729db5b initial checkin
penk
parents:
diff changeset
  1983
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1984
321c1729db5b initial checkin
penk
parents:
diff changeset
  1985
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1986
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1987
    self addBookmark:directories.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1988
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1989
321c1729db5b initial checkin
penk
parents:
diff changeset
  1990
addBookmark:aColOfDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  1991
    |idx bookmarks|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1992
321c1729db5b initial checkin
penk
parents:
diff changeset
  1993
    aColOfDirectories do:[ : path |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1994
	bookmarks := self class directoryBookmarks.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1995
	idx := bookmarks indexOf:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1996
	idx == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1997
	    bookmarks addLast:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1998
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1999
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2000
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2001
321c1729db5b initial checkin
penk
parents:
diff changeset
  2002
hasBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
  2003
    ^ self class directoryBookmarks size > 0
321c1729db5b initial checkin
penk
parents:
diff changeset
  2004
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2005
321c1729db5b initial checkin
penk
parents:
diff changeset
  2006
hasBookmarksToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  2007
321c1729db5b initial checkin
penk
parents:
diff changeset
  2008
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2009
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2010
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2011
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2012
    ^ (bookmarks size > 0 and:[directories notEmpty])
321c1729db5b initial checkin
penk
parents:
diff changeset
  2013
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2014
321c1729db5b initial checkin
penk
parents:
diff changeset
  2015
removeBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  2016
321c1729db5b initial checkin
penk
parents:
diff changeset
  2017
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2018
321c1729db5b initial checkin
penk
parents:
diff changeset
  2019
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2020
    bookmarks isNil ifTrue:[ ^ self].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2021
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2022
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2023
    directories do:[:dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2024
	bookmarks remove:dir ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2025
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2026
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2027
321c1729db5b initial checkin
penk
parents:
diff changeset
  2028
!AbstractFileBrowser methodsFor:'actions history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2029
321c1729db5b initial checkin
penk
parents:
diff changeset
  2030
addToCommandHistory:aCommandString for:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  2031
    |cmd suffix cmdHist|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2032
321c1729db5b initial checkin
penk
parents:
diff changeset
  2033
    cmdHist := self class commandHistory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2034
    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2035
	cmdHist notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2036
	    cmdHist addFirst:aCommandString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2037
	    cmdHist size > self class commandHistorySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2038
		cmdHist removeLast
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2039
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2040
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2041
	aFilename notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2042
	    cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2043
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2044
		DefaultCommandPerSuffix := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2045
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2046
	    suffix := aFilename asFilename suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2047
	    suffix notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2048
		DefaultCommandPerSuffix at:suffix put:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2049
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2050
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2051
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2052
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2053
321c1729db5b initial checkin
penk
parents:
diff changeset
  2054
doBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2055
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2056
    | fileName|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2057
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2058
    fileName := self dirHistory goBack.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2059
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2060
	self gotoFile:(fileName asFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2061
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2062
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2063
321c1729db5b initial checkin
penk
parents:
diff changeset
  2064
doForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2065
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2066
    | fileName|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2067
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2068
    fileName := self dirHistory goForward.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2069
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2070
	self gotoFile:(fileName asFilename).
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2071
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2072
	self enableForward value:false.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2073
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2074
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2075
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2076
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2077
!AbstractFileBrowser methodsFor:'actions-app-common'!
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2078
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2079
openApplForFile:aFilename
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  2080
    ^ self openApplByFileItem:(DirectoryContentsBrowser itemClass fileName:aFilename).
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2081
! !
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2082
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2083
!AbstractFileBrowser methodsFor:'applications'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2084
321c1729db5b initial checkin
penk
parents:
diff changeset
  2085
application:aApplication do:aMethod 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2086
4191
441ab27e2c7e *** empty log message ***
penk
parents: 4190
diff changeset
  2087
    " perform a Method for a application "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2088
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2089
321c1729db5b initial checkin
penk
parents:
diff changeset
  2090
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2091
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2092
	^ appl perform:aMethod.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2093
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2094
    ^ nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2095
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2096
321c1729db5b initial checkin
penk
parents:
diff changeset
  2097
application:aApplication do:aMethod withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2098
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2099
321c1729db5b initial checkin
penk
parents:
diff changeset
  2100
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2101
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2102
	^ appl perform:aMethod with:arg
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2103
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2104
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2105
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2106
321c1729db5b initial checkin
penk
parents:
diff changeset
  2107
application:aApplication do:aMethod withArg:arg1 withArg:arg2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2108
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2109
321c1729db5b initial checkin
penk
parents:
diff changeset
  2110
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2111
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2112
	(arg1 notNil and:[arg2 notNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2113
	    ^ appl perform:aMethod with:arg1 with:arg2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2114
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2115
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2116
    ^ nil
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2117
!
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2118
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2119
directoryContentsBrowser
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2120
    ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2121
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2122
321c1729db5b initial checkin
penk
parents:
diff changeset
  2123
!AbstractFileBrowser methodsFor:'aspects'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2124
321c1729db5b initial checkin
penk
parents:
diff changeset
  2125
applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2126
    "returns the list of registered applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2127
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2128
    ^ aspects at:#applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2129
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2130
321c1729db5b initial checkin
penk
parents:
diff changeset
  2131
backgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2132
321c1729db5b initial checkin
penk
parents:
diff changeset
  2133
    ^ self aspectFor:#backgroundProcesses ifAbsent:[List new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2134
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2135
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2136
canMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2137
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2138
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2139
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2140
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2141
currentDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2142
321c1729db5b initial checkin
penk
parents:
diff changeset
  2143
    " returns a Ordered Collection of all directories currently selected 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2144
      if only a file is selected currentDirectories holds the directory of the file
321c1729db5b initial checkin
penk
parents:
diff changeset
  2145
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2146
321c1729db5b initial checkin
penk
parents:
diff changeset
  2147
    ^ self aspectFor:#currentDirectories ifAbsent:[ (OrderedCollection new) asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2148
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2149
321c1729db5b initial checkin
penk
parents:
diff changeset
  2150
currentFileNameHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2151
321c1729db5b initial checkin
penk
parents:
diff changeset
  2152
    " returns a OrderedCollection of all files that are selected
321c1729db5b initial checkin
penk
parents:
diff changeset
  2153
      if no file but a directory is selected it contains the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2154
      in contrast to currentDirectories wich have only the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2155
    "
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2156
    ^ self aspectFor:#currentFileNameHolder ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2157
        (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
  2158
        ] notPresentDo:[:holder|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2159
            | filenames newFilenames|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2160
            filenames := holder value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2161
            newFilenames := Set new.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2162
            filenames do:[ : filename |  | fn |
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2163
                fn := filename.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2164
                [fn exists not] whileTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2165
                    fn := fn directory.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2166
                ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2167
                newFilenames add:fn.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2168
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2169
            newFilenames asOrderedCollection.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2170
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2171
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2172
321c1729db5b initial checkin
penk
parents:
diff changeset
  2173
enableDirectoryUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  2174
321c1729db5b initial checkin
penk
parents:
diff changeset
  2175
    ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2176
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2177
321c1729db5b initial checkin
penk
parents:
diff changeset
  2178
enableHome
321c1729db5b initial checkin
penk
parents:
diff changeset
  2179
321c1729db5b initial checkin
penk
parents:
diff changeset
  2180
    ^ self aspectFor:#enableHome ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2181
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2182
321c1729db5b initial checkin
penk
parents:
diff changeset
  2183
enableViewNoteBookApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  2184
321c1729db5b initial checkin
penk
parents:
diff changeset
  2185
    ^ self aspectFor:#enableViewNoteBookApplication ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2186
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2187
321c1729db5b initial checkin
penk
parents:
diff changeset
  2188
hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2189
321c1729db5b initial checkin
penk
parents:
diff changeset
  2190
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2191
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2192
321c1729db5b initial checkin
penk
parents:
diff changeset
  2193
notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
  2194
321c1729db5b initial checkin
penk
parents:
diff changeset
  2195
    ^ self aspectFor:#notifyChannel ifAbsent:['' asValue]
4071
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2196
!
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2197
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2198
rootHolder
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2199
    "holder, which keeps the rootHolder of the treeView
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2200
    "
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2201
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2202
    ^ self aspectFor:#rootHolder ifAbsent:[ValueHolder new].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2203
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2204
321c1729db5b initial checkin
penk
parents:
diff changeset
  2205
!AbstractFileBrowser methodsFor:'aspects handling'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2206
321c1729db5b initial checkin
penk
parents:
diff changeset
  2207
aspectFor:something ifAbsent:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  2208
    "returns the model for an aspect
321c1729db5b initial checkin
penk
parents:
diff changeset
  2209
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2210
    |holder saveAspectItem aspect|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2211
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2212
    holder := aspects at:something ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2213
        saveAspectItem := self runtimeAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2214
        saveAspectItem notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2215
            saveAspectItem isHolder ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2216
                holder := ValueHolder with:saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2217
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2218
                holder := saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2219
            ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2220
        ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2221
            aspect := self userPreferencesAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2222
            aspect notNil ifTrue:[ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2223
                holder := aspect asValue
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2224
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2225
                holder := aBlock value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2226
            ]
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2227
        ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2228
        holder notNil ifTrue:[        
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2229
            aspects at:something put:holder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2230
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2231
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2232
    ^ holder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2233
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2234
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2235
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
  2236
    "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
  2237
    "
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2238
    |holder saveAspectItem aspect|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2239
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2240
    holder := aspects at:something ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2241
        saveAspectItem := self runtimeAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2242
        saveAspectItem notNil ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2243
            saveAspectItem isHolder ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2244
                holder := ValueHolder with:saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2245
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2246
                holder := saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2247
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2248
        ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2249
            aspect := self userPreferencesAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2250
            aspect notNil ifTrue:[ 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2251
                holder := aspect asValue
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2252
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2253
                holder := aBlock value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2254
            ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2255
        ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2256
        holder notNil ifTrue:[  
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2257
            holder value:(notPresentBlock value:holder).
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2258
            aspects at:something put:holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2259
        ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2260
    ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2261
    ^ holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2262
!
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2263
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2264
aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2265
    ^ aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2266
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2267
321c1729db5b initial checkin
penk
parents:
diff changeset
  2268
runtimeAspectValueFor:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  2269
    "returns the default aspect item from the class variable RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2270
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2271
    ^ self class runtimeAspects at:something ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2272
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2273
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2274
saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2275
    |saveAspects aspectValue|
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2276
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2277
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2278
    saveAspects := self class userPreferencesAspectList.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2279
    saveAspects do:[ : aspectKey |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2280
        aspectValue := (self perform:aspectKey) value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2281
        UserPreferences current perform:((aspectKey asString, ':') asSymbol) with:aspectValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2282
    ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2283
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2284
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2285
saveRuntimeAspectValues
321c1729db5b initial checkin
penk
parents:
diff changeset
  2286
    |savedAspects dictionary value isHolder aspect|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2287
321c1729db5b initial checkin
penk
parents:
diff changeset
  2288
    savedAspects := self class listOfRuntimeValuesToRemark.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2289
    dictionary := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2290
    savedAspects do:[ : aspectKey |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2291
	aspect := self perform:aspectKey.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2292
	isHolder := aspect isValueModel.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2293
	isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2294
	dictionary at:aspectKey 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2295
		   put:(SaveAspectItem withValue:value isHolder:isHolder)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2296
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2297
        
321c1729db5b initial checkin
penk
parents:
diff changeset
  2298
    RuntimeAspects := dictionary. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2299
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2300
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2301
userPreferencesAspectValueFor:something
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2302
    "returns the default aspect from the Userpreferences
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2303
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2304
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2305
    (self class userPreferencesAspectList includes:something) not ifTrue:[ ^ nil].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2306
    ^ UserPreferences current perform:something.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2307
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2308
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2309
!AbstractFileBrowser methodsFor:'aspects-filter'!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2310
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2311
filterBackgroundColor
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2312
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2313
    ^ self aspectFor:#filterBackgroundColor ifAbsent:[Color white asValue]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2314
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2315
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2316
filterBlockHolder
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2317
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2318
    ^ self aspectFor:#filterBlockHolder ifAbsent:[self getFilter asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2319
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2320
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2321
filterListModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2322
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2323
    ^ self aspectFor:#filterListModel ifAbsent:[self class defaultFilterList]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2324
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2325
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2326
filterModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2327
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2328
    ^ self aspectFor:#filterModel ifAbsent:[(self filterListModel at:1) asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2329
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2330
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2331
filterValueBox
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2332
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2333
    ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2334
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2335
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2336
getFilter
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2337
    | filter showHidden|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2338
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2339
    filter := self filterModel value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2340
    filter = '' ifTrue:[filter := '*'].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2341
    showHidden := self showHiddenFiles value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2342
    showHidden ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2343
	^ [: el | filter match:el].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2344
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2345
	^ [: el | ((el asString startsWith:'.') not) and:[filter match:el]].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2346
    ]
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2347
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2348
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2349
shownFiles
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2350
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2351
    ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2352
! !
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2353
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2354
!AbstractFileBrowser methodsFor:'aspects-history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2355
321c1729db5b initial checkin
penk
parents:
diff changeset
  2356
dirHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2357
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2358
    ^ self class directoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2359
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2360
321c1729db5b initial checkin
penk
parents:
diff changeset
  2361
enableBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2362
321c1729db5b initial checkin
penk
parents:
diff changeset
  2363
    ^ self aspectFor:#enableBack ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2364
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2365
321c1729db5b initial checkin
penk
parents:
diff changeset
  2366
enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2367
321c1729db5b initial checkin
penk
parents:
diff changeset
  2368
    ^ self aspectFor:#enableFileHistory ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2369
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2370
321c1729db5b initial checkin
penk
parents:
diff changeset
  2371
enableForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2372
321c1729db5b initial checkin
penk
parents:
diff changeset
  2373
    ^ self aspectFor:#enableForward ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2374
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2375
321c1729db5b initial checkin
penk
parents:
diff changeset
  2376
fileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2377
321c1729db5b initial checkin
penk
parents:
diff changeset
  2378
    ^ self aspectFor:#fileHistory ifAbsent:[FilenameHistory new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2379
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2380
321c1729db5b initial checkin
penk
parents:
diff changeset
  2381
!AbstractFileBrowser methodsFor:'aspects-visibility'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2382
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2383
openAlwaysInTextEditor
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2384
    " aspect for open every file in TextEditor dont use e.g. HtmlEditor for *.html'"
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2385
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2386
    ^ self aspectFor:#openAlwaysInTextEditor ifAbsent:[ false asValue ].
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2387
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2388
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2389
openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
  2390
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2391
    " 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
  2392
      open TextEditor "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2393
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2394
    ^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2395
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2396
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2397
showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2398
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2399
    ^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2400
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2401
321c1729db5b initial checkin
penk
parents:
diff changeset
  2402
showHiddenFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2403
321c1729db5b initial checkin
penk
parents:
diff changeset
  2404
    ^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2405
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2406
321c1729db5b initial checkin
penk
parents:
diff changeset
  2407
viewDescription
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2408
    "get the user preferences for show file description row in DirectoryContentsBrowser"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2409
321c1729db5b initial checkin
penk
parents:
diff changeset
  2410
    ^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2411
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2412
321c1729db5b initial checkin
penk
parents:
diff changeset
  2413
viewDetails
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2414
    "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
  2415
    "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2416
321c1729db5b initial checkin
penk
parents:
diff changeset
  2417
    ^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2418
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2419
321c1729db5b initial checkin
penk
parents:
diff changeset
  2420
viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  2421
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2422
    " 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
  2423
      on change directory "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2424
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2425
    ^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2426
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2427
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2428
viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2429
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2430
    ^ self aspectFor:#viewDirsInContentsBrowser ifAbsent:[ false asValue ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2431
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2432
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2433
viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
  2434
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2435
    " aspect for view files in tree view (not only directories) "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2436
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2437
    ^ self aspectFor:#viewFilesInDirectoryTree ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2438
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2439
321c1729db5b initial checkin
penk
parents:
diff changeset
  2440
viewGroup
321c1729db5b initial checkin
penk
parents:
diff changeset
  2441
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2442
    " aspect for show group information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2443
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2444
    ^ self aspectFor:#viewGroup ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2445
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2446
321c1729db5b initial checkin
penk
parents:
diff changeset
  2447
viewNoteBookApplicationHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2448
321c1729db5b initial checkin
penk
parents:
diff changeset
  2449
    ^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2450
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2451
321c1729db5b initial checkin
penk
parents:
diff changeset
  2452
viewOwner
321c1729db5b initial checkin
penk
parents:
diff changeset
  2453
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2454
    " aspect for show owner information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2455
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2456
    ^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2457
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2458
321c1729db5b initial checkin
penk
parents:
diff changeset
  2459
viewPermissions
321c1729db5b initial checkin
penk
parents:
diff changeset
  2460
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2461
    " aspect for show permission information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2462
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2463
    ^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2464
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2465
321c1729db5b initial checkin
penk
parents:
diff changeset
  2466
viewPreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  2467
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2468
    " aspect for show image previev row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2469
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2470
    ^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2471
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2472
321c1729db5b initial checkin
penk
parents:
diff changeset
  2473
viewSize
321c1729db5b initial checkin
penk
parents:
diff changeset
  2474
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2475
    " aspect for show size information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2476
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2477
    ^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2478
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2479
321c1729db5b initial checkin
penk
parents:
diff changeset
  2480
viewTime
321c1729db5b initial checkin
penk
parents:
diff changeset
  2481
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2482
    " aspect for show time information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2483
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2484
    ^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2485
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2486
321c1729db5b initial checkin
penk
parents:
diff changeset
  2487
viewType
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2488
    " aspect for show suffix (type) information row in DirectoryContentsBrowser "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2489
321c1729db5b initial checkin
penk
parents:
diff changeset
  2490
    ^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2491
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2492
321c1729db5b initial checkin
penk
parents:
diff changeset
  2493
!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2494
321c1729db5b initial checkin
penk
parents:
diff changeset
  2495
executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2496
321c1729db5b initial checkin
penk
parents:
diff changeset
  2497
    self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2498
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2499
321c1729db5b initial checkin
penk
parents:
diff changeset
  2500
executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2501
321c1729db5b initial checkin
penk
parents:
diff changeset
  2502
    | nameString executionBlock|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2503
321c1729db5b initial checkin
penk
parents:
diff changeset
  2504
    executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2505
    nameString := 'Command> ', cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2506
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2507
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2508
321c1729db5b initial checkin
penk
parents:
diff changeset
  2509
getExecutionBlockForCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2510
321c1729db5b initial checkin
penk
parents:
diff changeset
  2511
    ^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2512
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2513
321c1729db5b initial checkin
penk
parents:
diff changeset
  2514
getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2515
321c1729db5b initial checkin
penk
parents:
diff changeset
  2516
    | dir dirs|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2517
321c1729db5b initial checkin
penk
parents:
diff changeset
  2518
    dir := aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2519
    aDir isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2520
	dirs := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2521
	dirs size ~= 1 ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2522
	dir := dirs anElement.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2523
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2524
    ^ [:stream| stream notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2525
	    OperatingSystem 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2526
		executeCommand:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2527
		inputFrom:nil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2528
		outputTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2529
		errorTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2530
		inDirectory:dir
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2531
		onError:[:status| false].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2532
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2533
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2534
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2535
321c1729db5b initial checkin
penk
parents:
diff changeset
  2536
killAllRunningBackgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2537
321c1729db5b initial checkin
penk
parents:
diff changeset
  2538
    self backgroundProcesses do:[ : process |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2539
	self notifyChannel value:'kill ', process name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2540
	process terminate.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2541
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2542
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2543
321c1729db5b initial checkin
penk
parents:
diff changeset
  2544
makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2545
    | stream process appl nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2546
321c1729db5b initial checkin
penk
parents:
diff changeset
  2547
    appl := self openCommandResultApplication.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2548
    stream := appl resultStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2549
    nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2550
    appl changeTabTo:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2551
    process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2552
	self backgroundProcesses remove:process ifAbsent:[].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2553
	appl process value:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2554
    ]] newProcess.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2555
    process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2556
    process name:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2557
    self backgroundProcesses add:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2558
    appl process value:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2559
    process resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2560
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2561
321c1729db5b initial checkin
penk
parents:
diff changeset
  2562
!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2563
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2564
abstractCurrentFileNameHolderChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2565
    " 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
  2566
      and the things that have to be done if it runs standalone "
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2567
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2568
    | newDirectories oldDirectories size rootInTreeView holder|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2569
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2570
    holder := self currentFileNameHolder value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2571
    self hasSelection value:(holder value notEmpty).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2572
    newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2573
    oldDirectories := self currentDirectories value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2574
    oldDirectories ~= newDirectories ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2575
	self currentDirectories value:newDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2576
	size := newDirectories size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2577
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2578
	rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2579
	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
  2580
	newDirectories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2581
	    newDirectories do:[: dir |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2582
		self dirHistory addToHistory:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2583
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2584
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2585
	self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2586
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2587
    self enableForward value:self canForward.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2588
    self enableBack value:self canBack.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2589
    ^ self
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2590
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2591
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2592
filterModelChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2593
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2594
    self filterBlockHolder value:(self getFilter).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2595
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2596
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2597
update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2598
321c1729db5b initial checkin
penk
parents:
diff changeset
  2599
    " do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2600
      and the things that have to be done if it runs standalone "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2601
321c1729db5b initial checkin
penk
parents:
diff changeset
  2602
    changedObject == self currentFileNameHolder ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2603
	self abstractCurrentFileNameHolderChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2604
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2605
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2606
    changedObject == self sortCaseless ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2607
	self sortFileListsBy:#baseName withReverse:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2608
	^ self
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2609
    ].             
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2610
    (changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2611
	self filterModelChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2612
	^ self
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2613
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2614
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2615
    super update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2616
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2617
321c1729db5b initial checkin
penk
parents:
diff changeset
  2618
!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2619
321c1729db5b initial checkin
penk
parents:
diff changeset
  2620
canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
  2621
321c1729db5b initial checkin
penk
parents:
diff changeset
  2622
    ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2623
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2624
321c1729db5b initial checkin
penk
parents:
diff changeset
  2625
clipboard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2626
321c1729db5b initial checkin
penk
parents:
diff changeset
  2627
    ^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2628
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2629
321c1729db5b initial checkin
penk
parents:
diff changeset
  2630
copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2631
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2632
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2633
    self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2634
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2635
321c1729db5b initial checkin
penk
parents:
diff changeset
  2636
cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2637
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2638
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2639
    self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2640
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2641
321c1729db5b initial checkin
penk
parents:
diff changeset
  2642
emptyClipBoard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2643
321c1729db5b initial checkin
penk
parents:
diff changeset
  2644
    self clipboard files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2645
    self canPaste value:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2646
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2647
321c1729db5b initial checkin
penk
parents:
diff changeset
  2648
putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2649
321c1729db5b initial checkin
penk
parents:
diff changeset
  2650
    | stream clp|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2651
321c1729db5b initial checkin
penk
parents:
diff changeset
  2652
    colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2653
    clp := self clipboard.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2654
    clp files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2655
    clp method:aSymbol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2656
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2657
    stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2658
    stream nextPutAll:' <'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2659
    stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2660
    colOfFiles size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2661
	stream nextPutAll:' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2662
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2663
    stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2664
321c1729db5b initial checkin
penk
parents:
diff changeset
  2665
    self notifyChannel value:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2666
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2667
    clp files:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2668
    self canPaste value:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2669
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2670
321c1729db5b initial checkin
penk
parents:
diff changeset
  2671
!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2672
321c1729db5b initial checkin
penk
parents:
diff changeset
  2673
canDropArchiv:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2674
321c1729db5b initial checkin
penk
parents:
diff changeset
  2675
    (filename isDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2676
    and:[filename isWritable and:[dropedObjects notEmpty]])  ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2677
	^ true
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2678
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2679
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2680
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2681
321c1729db5b initial checkin
penk
parents:
diff changeset
  2682
canDropFiles:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2683
    | checkObject filenameDirString checkObjectString filenameDir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2684
321c1729db5b initial checkin
penk
parents:
diff changeset
  2685
    dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2686
    filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2687
    filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2688
    filenameDirString := filenameDir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2689
    dropedObjects do:[:aObject | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2690
	checkObject := aObject theObject.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2691
	checkObjectString := checkObject asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2692
	checkObject isDirectory ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2693
	    (self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2694
		" can not drop a directory in his parents "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2695
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2696
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2697
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2698
	    (filenameDirString = checkObject directory asString 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2699
	    or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2700
		" can not drop a file in same directory "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2701
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2702
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2703
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2704
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2705
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2706
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2707
321c1729db5b initial checkin
penk
parents:
diff changeset
  2708
doStartDrag:aDropSource in:aView
321c1729db5b initial checkin
penk
parents:
diff changeset
  2709
    "set the cursors before starting the drag & drop operation
321c1729db5b initial checkin
penk
parents:
diff changeset
  2710
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2711
    |hdl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2712
321c1729db5b initial checkin
penk
parents:
diff changeset
  2713
321c1729db5b initial checkin
penk
parents:
diff changeset
  2714
    hdl := DragAndDropManager new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2715
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  2716
    hdl disabledCursor:self class disabledCursorImage.
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  2717
    hdl enabledCursor:self class enabledCursorImage.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2718
    hdl alienCursor:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2719
321c1729db5b initial checkin
penk
parents:
diff changeset
  2720
    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin
penk
parents:
diff changeset
  2721
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2722
321c1729db5b initial checkin
penk
parents:
diff changeset
  2723
!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2724
321c1729db5b initial checkin
penk
parents:
diff changeset
  2725
copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2726
    "copy to
321c1729db5b initial checkin
penk
parents:
diff changeset
  2727
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2728
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2729
321c1729db5b initial checkin
penk
parents:
diff changeset
  2730
    copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2731
    copy result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2732
	self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2733
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2734
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2735
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2736
    ^ copy result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2737
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2738
321c1729db5b initial checkin
penk
parents:
diff changeset
  2739
copyFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2740
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2741
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2742
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2743
321c1729db5b initial checkin
penk
parents:
diff changeset
  2744
    copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2745
    copy result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2746
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2747
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2748
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2749
    ^ copy colOfCopiedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2750
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2751
321c1729db5b initial checkin
penk
parents:
diff changeset
  2752
copyOrMoveDialog:aCol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2753
321c1729db5b initial checkin
penk
parents:
diff changeset
  2754
    | size stream dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2755
321c1729db5b initial checkin
penk
parents:
diff changeset
  2756
    size := aCol size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2757
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2758
    stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2759
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2760
	stream nextPutAll:'s'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2761
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2762
    stream nextPutAll:': '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2763
    stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2764
    size == 1 ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2765
	stream nextPutAll:' ... '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2766
	stream nextPutAll:aCol last baseName asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2767
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2768
321c1729db5b initial checkin
penk
parents:
diff changeset
  2769
    dialog := OptionBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2770
		  request:stream contents 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2771
		  label:'move or copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2772
		  form:(WarningBox iconBitmap)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2773
		  buttonLabels:#('cancel' 'move' 'copy')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2774
		  values:#(#cancel #move #copy)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2775
		  default:#copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2776
    dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2777
    ^ dialog.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2778
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2779
321c1729db5b initial checkin
penk
parents:
diff changeset
  2780
copyOrMoveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2781
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2782
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2783
    |dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2784
321c1729db5b initial checkin
penk
parents:
diff changeset
  2785
    dialog := self copyOrMoveDialog:aColOfSourceFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2786
    dialog == #copy ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2787
	self copyFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2788
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2789
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2790
    dialog == #move ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2791
	self moveFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2792
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2793
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2794
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2795
321c1729db5b initial checkin
penk
parents:
diff changeset
  2796
deleteFile:aFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2797
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2798
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2799
321c1729db5b initial checkin
penk
parents:
diff changeset
  2800
    ^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2801
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2802
321c1729db5b initial checkin
penk
parents:
diff changeset
  2803
deleteFiles:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2804
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2805
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2806
    |delete|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2807
321c1729db5b initial checkin
penk
parents:
diff changeset
  2808
    delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2809
    delete result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2810
	self notifyChannel value:delete errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2811
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2812
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2813
    ^ delete 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
moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2817
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2818
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2819
321c1729db5b initial checkin
penk
parents:
diff changeset
  2820
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2821
321c1729db5b initial checkin
penk
parents:
diff changeset
  2822
    move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2823
    move result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2824
	self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2825
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2826
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2827
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2828
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2829
    ^ move result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2830
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2831
321c1729db5b initial checkin
penk
parents:
diff changeset
  2832
moveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2833
   "move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2834
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2835
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2836
321c1729db5b initial checkin
penk
parents:
diff changeset
  2837
    move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2838
    move result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2839
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2840
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2841
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2842
    ^ move colOfMovedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2843
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2844
321c1729db5b initial checkin
penk
parents:
diff changeset
  2845
newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2846
    "ask for and create a new directory"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2847
321c1729db5b initial checkin
penk
parents:
diff changeset
  2848
    | directories directory create newFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2849
321c1729db5b initial checkin
penk
parents:
diff changeset
  2850
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2851
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2852
    directory := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2853
    create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2854
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2855
    newFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2856
    newFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2857
	self updateCurrentDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2858
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2859
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2860
321c1729db5b initial checkin
penk
parents:
diff changeset
  2861
newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2862
    "ask for and create a new file"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2863
321c1729db5b initial checkin
penk
parents:
diff changeset
  2864
    | curFile directories directory create file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2865
321c1729db5b initial checkin
penk
parents:
diff changeset
  2866
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2867
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2868
    directory := directories first.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2869
    curFile := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2870
    curFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2871
	file := curFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2872
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2873
	file := directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2874
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2875
    create := FileOperation create createFileIn:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2876
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2877
    self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2878
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2879
321c1729db5b initial checkin
penk
parents:
diff changeset
  2880
newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2881
    "ask for and create a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2882
321c1729db5b initial checkin
penk
parents:
diff changeset
  2883
    self newLink:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2884
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2885
321c1729db5b initial checkin
penk
parents:
diff changeset
  2886
newLink:symbolic
321c1729db5b initial checkin
penk
parents:
diff changeset
  2887
321c1729db5b initial checkin
penk
parents:
diff changeset
  2888
    "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2889
321c1729db5b initial checkin
penk
parents:
diff changeset
  2890
    | sel create createdFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2891
321c1729db5b initial checkin
penk
parents:
diff changeset
  2892
    sel := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2893
    (sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2894
    symbolic ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2895
	create := FileOperation create createSoftLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2896
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2897
	create := FileOperation create createHardLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2898
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2899
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2900
    createdFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2901
    createdFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2902
	self updateAndSelect:(OrderedCollection with:createdFile).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2903
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2904
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2905
321c1729db5b initial checkin
penk
parents:
diff changeset
  2906
newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2907
    "ask for and create a soft link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2908
321c1729db5b initial checkin
penk
parents:
diff changeset
  2909
    self newLink:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2910
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2911
321c1729db5b initial checkin
penk
parents:
diff changeset
  2912
pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2913
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2914
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2915
    | buffer destination files directories copiedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2916
321c1729db5b initial checkin
penk
parents:
diff changeset
  2917
    files := self clipboard files.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2918
    (files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2919
    buffer := self clipboard copy.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2920
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2921
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2922
	|box dirStringCol|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2923
	dirStringCol := directories collect:[:aDir| aDir asString].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2924
	box := ListSelectionBox new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2925
	box title:'In which directory you want to paste ?'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2926
	box list:dirStringCol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2927
	box okAction:[:sel | destination := sel asFilename].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2928
	box showAtPointer
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2929
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2930
	destination := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2931
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2932
    copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2933
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2934
    (self clipboard method == #cut) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2935
	self deleteFiles:copiedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2936
    ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2937
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2938
321c1729db5b initial checkin
penk
parents:
diff changeset
  2939
renameFile:aFile 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2940
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2941
321c1729db5b initial checkin
penk
parents:
diff changeset
  2942
    ^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2943
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2944
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2945
renameFile:filename to:newFileString update:aBoolean
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2946
    "rename filename to newFileString"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2947
321c1729db5b initial checkin
penk
parents:
diff changeset
  2948
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2949
321c1729db5b initial checkin
penk
parents:
diff changeset
  2950
    rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2951
    rename result ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2952
        aBoolean ifTrue:[
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2953
            self updateAndSelect:(rename renamedFiles).
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2954
        ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2955
    ] ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2956
        self notifyChannel value:rename errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2957
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2958
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2959
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2960
321c1729db5b initial checkin
penk
parents:
diff changeset
  2961
renameFiles:aColOfFiles 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2962
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2963
321c1729db5b initial checkin
penk
parents:
diff changeset
  2964
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2965
321c1729db5b initial checkin
penk
parents:
diff changeset
  2966
    rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2967
    rename result ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2968
        self notifyChannel value:rename errorString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2969
    ] ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2970
        "/ self updateAndSelect:(rename renamedFiles)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2971
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2972
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2973
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2974
321c1729db5b initial checkin
penk
parents:
diff changeset
  2975
renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2976
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2977
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2978
    self renameFiles:self currentFileNameHolder value
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2979
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2980
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  2981
!AbstractFileBrowser methodsFor:'menu accessing'!
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2982
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2983
bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2984
    "This resource specification was automatically generated
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2985
     by the MenuEditor of ST/X."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2986
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2987
    "Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2988
     the MenuEditor may not be able to read the specification."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2989
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2990
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2991
     MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2992
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2993
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2994
    <resource: #programMenu>
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2995
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  2996
    |menuSpec menu bookmarks|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  2997
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  2998
    menuSpec := self class baseBookmarksMenuSpec.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  2999
    menu := menuSpec decodeAsLiteralArray.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3000
    menu findGuiResourcesIn:self.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3001
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3002
    bookmarks := self class directoryBookmarks.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3003
    "/ add the history items ...
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3004
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3005
    bookmarks size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3006
	menu addItem:(MenuItem labeled:'-').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3007
	bookmarks do:[:dirName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3008
	    menu addItem:((MenuItem label:dirName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3009
		(self currentDirectories value includes:dirName) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3010
		    self currentFileNameHolder value:(OrderedCollection with:dirName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3011
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3012
	    ])).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3013
	].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3014
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3015
    ^ menu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3016
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3017
    "Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3018
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3019
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3020
canBack
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3021
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3022
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  3023
    ^ self dirHistory canBack.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3024
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3025
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3026
canForward
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3027
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3028
"/    | currentSelection |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3029
"/
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3030
"/    currentSelection := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3031
"/    currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3032
    
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3033
    ^ self dirHistory canForward.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3034
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3035
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3036
menuDirHistory:backOrForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3037
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3038
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3039
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3040
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3041
    |menu pathList currentSel currentPath|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3042
321c1729db5b initial checkin
penk
parents:
diff changeset
  3043
    menu := Menu new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3044
    menu receiver:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3045
321c1729db5b initial checkin
penk
parents:
diff changeset
  3046
    self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3047
    backOrForward == #back ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3048
	currentSel := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3049
	currentSel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3050
	    currentPath := currentSel first asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3051
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3052
	    currentPath := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3053
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3054
	pathList := self dirHistory getBackCollectionFrom:currentPath.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3055
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3056
	pathList := self dirHistory getForwardCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3057
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  3058
    pathList isEmpty ifTrue:[ ^ nil].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3059
    pathList do:[:aPath| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3060
	| menuItem |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3061
	menuItem := MenuItem new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3062
	menuItem label:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3063
	menuItem value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3064
	    self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3065
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3066
	menu addItem:menuItem.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3067
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3068
    ^ menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3069
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3070
321c1729db5b initial checkin
penk
parents:
diff changeset
  3071
menuDirHistoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  3072
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3073
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3074
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3075
321c1729db5b initial checkin
penk
parents:
diff changeset
  3076
    ^ self menuDirHistory:#back.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3077
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3078
321c1729db5b initial checkin
penk
parents:
diff changeset
  3079
menuDirHistoryForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3080
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3081
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3082
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3083
321c1729db5b initial checkin
penk
parents:
diff changeset
  3084
    ^ self menuDirHistory:#forward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3085
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3086
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3087
menuFileHistory
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3088
    "initialize the file history menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3089
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3090
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3091
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3092
    |menu hist text removeItem removeCol|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3093
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3094
    menu := Menu new.
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3095
    menu findGuiResourcesIn:self.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3096
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3097
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3098
    hist := self fileHistory.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3099
    hist isEmpty ifTrue:[^ nil].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3100
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3101
    removeCol := OrderedCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3102
    hist do:[:aFileItem|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3103
	aFileItem fileName exists ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3104
	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3105
		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3106
		self openApplByFileItem:aFileItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3107
	    ]).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3108
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3109
	    removeCol add:aFileItem.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3110
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3111
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3112
    "/ remove all not existing history entries
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3113
    removeCol do:[ : el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3114
	hist remove:el.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3115
    ].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3116
    removeItem := MenuItem new.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3117
    removeItem translateLabel:true.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3118
    removeItem label:text.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3119
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3120
	self fileHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3121
	self enableFileHistory value:false.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3122
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3123
    menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3124
    menu addItem:removeItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3125
    ^ menu
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3126
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3127
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3128
sortMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3129
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3130
    <resource: #programMenu >
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3131
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3132
    |menu|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3133
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3134
    menu :=  Menu new fromLiteralArrayEncoding:self class sortMenu.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3135
    menu ifNil:[ ^ nil ].
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3136
    menu findGuiResourcesIn:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3137
    menu receiver:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3138
    ^ menu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3139
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3140
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3141
viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3142
    ^self class viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3143
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3144
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3145
viewInContentsBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3146
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3147
    ^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3148
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3149
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3150
visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3151
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3152
    <resource: #programMenu >
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3153
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3154
    |menu histCopy text removeItem|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3155
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3156
    menu := Menu new.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3157
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3158
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3159
    self dirHistory isEmpty ifTrue:[^ nil].
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3160
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3161
    removeItem := MenuItem new.
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3162
    removeItem translateLabel:true.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3163
    removeItem label:text.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3164
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3165
	self dirHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3166
	self enableForward value:self canForward.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3167
	self enableBack value:self canBack.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3168
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3169
    histCopy := self dirHistory.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3170
    histCopy do:[:aFile| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3171
	menu addItem:(MenuItem label:aFile asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3172
	    self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3173
	]).
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3174
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3175
    menu addItem:(MenuItem label:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3176
    menu addItem:removeItem.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3177
    ^ menu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3178
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3179
321c1729db5b initial checkin
penk
parents:
diff changeset
  3180
!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3181
321c1729db5b initial checkin
penk
parents:
diff changeset
  3182
cvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3183
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  3184
    |sel log cmd dir executionBlock nameString block|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3185
321c1729db5b initial checkin
penk
parents:
diff changeset
  3186
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3187
	requestText:(resources string:'enter initial log message')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3188
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3189
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3190
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3191
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3192
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3193
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3194
	log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3195
	    sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3196
		sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3197
		    dir := self getDirWithoutFileName:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3198
		    cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3199
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3200
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3201
		    cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3202
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3203
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3204
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3205
	    ] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3206
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3207
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3208
    nameString := 'Command> cvs add and commit'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3209
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3210
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3211
321c1729db5b initial checkin
penk
parents:
diff changeset
  3212
cvsCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3213
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3214
    |nSel log msg cmd selectedFiles sel executionBlock nameString|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3215
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3216
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3217
    nSel := selectedFiles size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3218
321c1729db5b initial checkin
penk
parents:
diff changeset
  3219
    nSel == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3220
	msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3221
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3222
	nSel > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3223
	    msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3224
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3225
	    msg := resources string:'enter log message for checkIn'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3226
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3227
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3228
321c1729db5b initial checkin
penk
parents:
diff changeset
  3229
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3230
	requestText:msg
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3231
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3232
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3233
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3234
321c1729db5b initial checkin
penk
parents:
diff changeset
  3235
    log notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3236
	sel := self currentFileNameHolder value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3237
	sel isEmpty ifTrue:[ ^ self ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3238
	executionBlock := [ : stream |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3239
	    log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3240
		sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3241
		    sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3242
			| dir block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3243
			dir := fn directory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3244
			cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3245
			block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3246
			block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3247
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3248
		] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3249
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3250
	].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3251
    ].
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3252
    nameString := 'Command> cvs commit'.
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3253
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3254
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3255
321c1729db5b initial checkin
penk
parents:
diff changeset
  3256
cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  3257
    "remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3258
321c1729db5b initial checkin
penk
parents:
diff changeset
  3259
    |msg toRemove updateRunning cmd executionBlock nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3260
321c1729db5b initial checkin
penk
parents:
diff changeset
  3261
    updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3262
    self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3263
    toRemove := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3264
321c1729db5b initial checkin
penk
parents:
diff changeset
  3265
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3266
	| block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3267
	filesToRemove do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3268
	    OperatingSystem accessDeniedErrorSignal handle:[:ex|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3269
		"was not able to remove it"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3270
		| lastError |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3271
		lastError := OperatingSystem lastErrorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3272
		msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3273
		lastError isNil ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3274
		    msg := msg , '\\(' , lastError , ')'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3275
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3276
		Dialog warn:msg withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3277
	    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3278
		|answer contents|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3279
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3280
		(fileName isSymbolicLink not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3281
		    fileName remove.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3282
		    cmd := ('cvs remove -f ' , fileName baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3283
		    block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3284
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3285
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3286
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3287
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3288
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3289
	cmd := ('cvs commit -m ''removed via FileBrowser''').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3290
	block := self getExecutionBlockForCommand:cmd. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3291
	block value:stream.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3292
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3293
    nameString := 'Command> cvs remove and commit ', filesToRemove first baseName.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3294
    filesToRemove size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3295
	nameString := nameString, ' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3296
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3297
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3298
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3299
321c1729db5b initial checkin
penk
parents:
diff changeset
  3300
cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3301
321c1729db5b initial checkin
penk
parents:
diff changeset
  3302
    |sel question aswer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3303
4294
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3304
    sel := self currentSelectedFiles copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3305
    sel size > 0 ifTrue:[
4294
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3306
        sel size > 1 ifTrue:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3307
            question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3308
        ] ifFalse:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3309
            question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3310
        ].
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3311
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3312
        aswer := Dialog 
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3313
                confirm:question withCRs
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3314
                yesLabel:(resources at:'Remove')
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3315
                noLabel:(resources at:'Cancel').
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3316
        aswer ifTrue:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3317
            self withCursor:(Cursor wait) do:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3318
                self cvsRemoveAndRemoveFromCVS:sel
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3319
            ]
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3320
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3321
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3322
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3323
321c1729db5b initial checkin
penk
parents:
diff changeset
  3324
cvsUpdateAll
321c1729db5b initial checkin
penk
parents:
diff changeset
  3325
321c1729db5b initial checkin
penk
parents:
diff changeset
  3326
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3327
321c1729db5b initial checkin
penk
parents:
diff changeset
  3328
    cmd := 'cvs upd -l'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3329
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3330
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3331
321c1729db5b initial checkin
penk
parents:
diff changeset
  3332
cvsUpdateAllRecursive
321c1729db5b initial checkin
penk
parents:
diff changeset
  3333
321c1729db5b initial checkin
penk
parents:
diff changeset
  3334
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3335
321c1729db5b initial checkin
penk
parents:
diff changeset
  3336
    cmd := 'cvs upd -d'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3337
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3338
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3339
321c1729db5b initial checkin
penk
parents:
diff changeset
  3340
cvsUpdateSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3341
321c1729db5b initial checkin
penk
parents:
diff changeset
  3342
    | selectedFiles stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3343
321c1729db5b initial checkin
penk
parents:
diff changeset
  3344
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3345
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3346
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3347
    stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3348
    selectedFiles do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3349
	stream nextPutAll:file baseName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3350
	stream space.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3351
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3352
    self executeCommand:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3353
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3354
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3355
321c1729db5b initial checkin
penk
parents:
diff changeset
  3356
!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3357
321c1729db5b initial checkin
penk
parents:
diff changeset
  3358
copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3359
321c1729db5b initial checkin
penk
parents:
diff changeset
  3360
    ^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3361
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3362
321c1729db5b initial checkin
penk
parents:
diff changeset
  3363
cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3364
321c1729db5b initial checkin
penk
parents:
diff changeset
  3365
    ^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3366
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3367
321c1729db5b initial checkin
penk
parents:
diff changeset
  3368
deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3369
321c1729db5b initial checkin
penk
parents:
diff changeset
  3370
    ^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3371
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3372
321c1729db5b initial checkin
penk
parents:
diff changeset
  3373
!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3374
321c1729db5b initial checkin
penk
parents:
diff changeset
  3375
createProjectAndOpenProjectBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3376
    |nm f s directory|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3377
321c1729db5b initial checkin
penk
parents:
diff changeset
  3378
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3379
    directory := self currentDirectories value first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3380
    nm := directory baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3381
    f := (directory  construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3382
    f exists ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3383
	Dialog warn:'A file named ' , f baseName , ' already exists.'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3384
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3385
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3386
    s := f writeStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3387
    s nextPutAll:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3388
name            ''' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3389
type            #classLibrary
321c1729db5b initial checkin
penk
parents:
diff changeset
  3390
package         #''private:' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3391
prerequisites   nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3392
321c1729db5b initial checkin
penk
parents:
diff changeset
  3393
classes      #( )
321c1729db5b initial checkin
penk
parents:
diff changeset
  3394
'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3395
    s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3396
    ProjectBrowser openOnFile:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3397
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3398
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3399
doMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3400
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3401
    | cmd |
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3402
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3403
    cmd := 'make'.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3404
    self executeCommand:cmd.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3405
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3406
4317
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3407
doOpenSettings
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3408
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3409
    | inst |
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3410
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3411
    inst := FileBrowserV2SettingsFrame new.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3412
    inst requestor:self.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3413
    inst open.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3414
!
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3415
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3416
fileFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  3417
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3418
321c1729db5b initial checkin
penk
parents:
diff changeset
  3419
    self fileFileInLazy:false 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3420
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3421
321c1729db5b initial checkin
penk
parents:
diff changeset
  3422
fileFileInLazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3423
    "fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3424
321c1729db5b initial checkin
penk
parents:
diff changeset
  3425
    self fileFileInLazy:true 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3426
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3427
321c1729db5b initial checkin
penk
parents:
diff changeset
  3428
fileFileInLazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3429
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3430
321c1729db5b initial checkin
penk
parents:
diff changeset
  3431
    | selectedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3432
4156
28bd97c1bf64 show a busy cursor, while filing in
Claus Gittinger <cg@exept.de>
parents: 4151
diff changeset
  3433
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3434
	selectedFiles:= self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3435
	selectedFiles do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3436
	    self singleFileFileIn:fileName lazy:lazy
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3437
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3438
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3439
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3440
321c1729db5b initial checkin
penk
parents:
diff changeset
  3441
fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  3442
    "fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3443
321c1729db5b initial checkin
penk
parents:
diff changeset
  3444
    |ns listOfKnownNameSpaces|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3445
321c1729db5b initial checkin
penk
parents:
diff changeset
  3446
    listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3447
    NameSpace 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3448
	allNamespaces 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3449
	    do:[:eachNameSpace | 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3450
		listOfKnownNameSpaces add:eachNameSpace name
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3451
	    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3452
    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3453
321c1729db5b initial checkin
penk
parents:
diff changeset
  3454
    ns := Dialog 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3455
		request:'During fileIn, new classes are created in nameSpace:'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3456
		initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3457
		list:listOfKnownNameSpaces.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3458
    ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3459
321c1729db5b initial checkin
penk
parents:
diff changeset
  3460
    LastEnforcedNameSpace := ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3461
    ns := NameSpace name:ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3462
321c1729db5b initial checkin
penk
parents:
diff changeset
  3463
    Class nameSpaceQuerySignal 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3464
	answer:ns
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3465
	do:[ 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3466
	    self fileFileInLazy:false 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3467
	] 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3468
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3469
321c1729db5b initial checkin
penk
parents:
diff changeset
  3470
fileFindAllDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3471
    "scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3472
321c1729db5b initial checkin
penk
parents:
diff changeset
  3473
    |fileNames dir infoDir filesBySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  3474
     result info dirPrefix myName stream textBox maxLength directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3475
321c1729db5b initial checkin
penk
parents:
diff changeset
  3476
321c1729db5b initial checkin
penk
parents:
diff changeset
  3477
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3478
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3479
	myName := self class name asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3480
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3481
	directories isEmpty ifTrue:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3482
        
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3483
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3484
"/        self label: myName, '- gathering file names ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3485
	fileNames := dir recursiveDirectoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3486
	fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3487
	fileNames := fileNames select:[:fn | fn isDirectory not].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3488
321c1729db5b initial checkin
penk
parents:
diff changeset
  3489
"/        self label:myName , '- gathering sizes ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3490
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3491
	fileNames do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3492
	    infoDir at:fn put:(fn fileSize)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3493
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3494
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3495
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3496
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3497
	"/ compare them ...
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3498
321c1729db5b initial checkin
penk
parents:
diff changeset
  3499
"/        self label:myName , '- preselect possible duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3500
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3501
	infoDir keysAndValuesDo:[:fn :sz |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3502
	    |entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3503
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3504
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3505
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3506
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3507
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3508
	"/ any of same size ?
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3509
321c1729db5b initial checkin
penk
parents:
diff changeset
  3510
"/        self label:myName , '- checking for duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3511
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3512
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3513
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3514
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3515
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3516
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3517
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3518
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3519
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3520
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3521
			fn2 := files at:idx2.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3522
321c1729db5b initial checkin
penk
parents:
diff changeset
  3523
"/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3524
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3525
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3526
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3527
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3528
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3529
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3530
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3531
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3532
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3533
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3534
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3535
321c1729db5b initial checkin
penk
parents:
diff changeset
  3536
"/        self label:myName , '- sorting ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3537
	dirPrefix := dir pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3538
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3539
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3540
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3541
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3542
					f1 := assoc key name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3543
					f2 := assoc value name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3544
					(f1 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3545
					    f1 := f1 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3546
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3547
					(f2 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3548
					    f2 := f2 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3549
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3550
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3551
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3552
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3553
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3554
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3555
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3556
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3557
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3558
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3559
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3560
	    info add:(assoc key , ' same as ' , assoc value)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3561
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3562
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3563
	    info := 'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3564
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3565
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3566
321c1729db5b initial checkin
penk
parents:
diff changeset
  3567
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3568
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3569
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3570
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3571
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3572
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3573
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3574
    textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3575
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3576
    textBox noCancel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3577
    textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3578
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3579
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3580
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3581
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3582
    textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3583
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3584
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3585
"/    subView contents:info.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3586
"/    self label:myName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3587
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3588
321c1729db5b initial checkin
penk
parents:
diff changeset
  3589
fileFindDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3590
    "scan directory for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3591
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3592
    |fileNames infoDir filesBySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3593
     result info stream textBox maxLength directories allFiles titleStream size|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3594
321c1729db5b initial checkin
penk
parents:
diff changeset
  3595
"/    (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3596
"/              yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3597
321c1729db5b initial checkin
penk
parents:
diff changeset
  3598
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3599
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3600
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3601
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3602
	directories isEmpty ifTrue:[^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3603
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3604
	allFiles := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3605
	directories do:[ : dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3606
	    fileNames := dir directoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3607
	    fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3608
	    fileNames := fileNames select:[:fn | fn isDirectory not].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3609
	    allFiles addAll:fileNames.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3610
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3611
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3612
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3613
	allFiles do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3614
	    infoDir at:fn put:(fn info)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3615
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3616
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3617
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3618
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3619
	"/ compare them ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3620
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3621
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3622
	infoDir keysAndValuesDo:[:fn :info |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3623
	    |sz entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3624
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3625
	    sz := info size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3626
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3627
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3628
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3629
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3630
	"/ any of same size ?
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3631
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3632
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3633
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3634
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3635
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3636
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3637
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3638
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3639
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3640
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3641
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3642
			fn2 := files at:idx2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3643
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3644
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3645
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3646
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3647
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3648
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3649
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3650
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3651
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3652
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3653
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3654
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3655
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3656
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3657
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3658
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3659
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3660
					f1 := assoc key asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3661
					f2 := assoc value asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3662
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3663
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3664
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3665
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3666
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3667
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3668
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3669
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3670
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3671
	size := self getBestDirectory asString size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3672
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3673
	    |fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3674
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3675
	    fn1 := assoc key.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3676
	    fn2 := assoc value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3677
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3678
		fn1 := ('..', (fn1 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3679
		fn2 := ('..', (fn2 copyFrom:(size + 1))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3680
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3681
	    (fn1 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3682
		fn1 := '"' , fn1 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3683
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3684
	    (fn2 includes:Character space) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3685
		fn2 := '"' , fn2 , '"'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3686
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3687
	    info add:(fn1 , ' same as ' , fn2)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3688
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3689
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3690
	    info add:'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3691
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3692
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3693
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3694
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3695
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3696
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3697
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3698
    titleStream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3699
    titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3700
    directories size == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3701
	titleStream nextPutAll:'y: ', directories first asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3702
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3703
	titleStream nextPutAll:'ies: '.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3704
	titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3705
	directories do:[:dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3706
	    size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3707
		titleStream nextPutAll:'..'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3708
		titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3709
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3710
		titleStream nextPutAll:(dir asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3711
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3712
	    titleStream cr.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3713
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3714
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3715
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3716
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3717
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3718
    textBox title:(titleStream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3719
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3720
    textBox noCancel.
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3721
    stream := WriteStream on:'Dublicates in '.
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3722
    directories do:[ :aDirectory |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3723
	stream nextPutAll:aDirectory baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3724
	stream space
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3725
    ].
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3726
    textBox label:stream contents.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3727
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3728
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3729
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3730
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3731
    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3732
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3733
    titleStream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3734
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3735
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3736
321c1729db5b initial checkin
penk
parents:
diff changeset
  3737
fileFindFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3738
    |filename files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3739
321c1729db5b initial checkin
penk
parents:
diff changeset
  3740
    files := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3741
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3742
	filename := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3743
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3744
	filename := (Filename homeDirectory).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3745
    ].
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  3746
    FindFileApplication openOnFileName:filename for:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3747
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3748
321c1729db5b initial checkin
penk
parents:
diff changeset
  3749
installAllAsAutoloaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3750
    "install all classes found here as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3751
321c1729db5b initial checkin
penk
parents:
diff changeset
  3752
    self allItemsOfCurrentDirectory do:[:fileItem |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3753
	(fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3754
	    self installAsAutoloaded:(fileItem fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3755
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3756
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3757
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3758
321c1729db5b initial checkin
penk
parents:
diff changeset
  3759
installAsAutoloaded:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  3760
    "install aFilename as autoloaded class"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3761
321c1729db5b initial checkin
penk
parents:
diff changeset
  3762
    |chunks s|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3763
321c1729db5b initial checkin
penk
parents:
diff changeset
  3764
    chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3765
    chunks 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3766
	select:[:eachChunk | eachChunk isClassDefinitionChange]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3767
	thenDo:[:eachClassChunk | eachClassChunk installAsAutoloadedClassIfNotPrivate].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3768
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3769
321c1729db5b initial checkin
penk
parents:
diff changeset
  3770
loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3771
321c1729db5b initial checkin
penk
parents:
diff changeset
  3772
    |img path files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3773
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3774
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3775
    files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3776
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3777
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3778
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3779
	    img := Image fromFile:(path pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3780
	    img notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3781
		aSelectorOrBlock isSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3782
		    img perform:aSelectorOrBlock
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3783
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3784
		    aSelectorOrBlock value:img
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3785
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3786
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3787
		Dialog warn:'unknown format: ' , fileName asString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3788
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3789
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3790
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3791
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3792
321c1729db5b initial checkin
penk
parents:
diff changeset
  3793
openASN1Browser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3794
321c1729db5b initial checkin
penk
parents:
diff changeset
  3795
    self openTool:OSI::ASN1Browser 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3796
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3797
321c1729db5b initial checkin
penk
parents:
diff changeset
  3798
openAppletViewer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3799
    |numItems files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3800
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3801
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3802
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3803
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3804
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3805
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3806
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3807
321c1729db5b initial checkin
penk
parents:
diff changeset
  3808
    Java startupJavaSystem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3809
"/    Java markAllClassesUninitialized.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3810
"/    Java initAllStaticFields.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3811
"/    Java initAllClasses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3812
321c1729db5b initial checkin
penk
parents:
diff changeset
  3813
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3814
	|p path|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3815
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3816
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3817
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3818
	    p := Java 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3819
		    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3820
		    argumentString:path pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3821
	    p resume.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3822
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3823
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3824
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3825
321c1729db5b initial checkin
penk
parents:
diff changeset
  3826
openCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3827
321c1729db5b initial checkin
penk
parents:
diff changeset
  3828
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3829
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3830
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3831
    directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3832
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3833
	CBrowser::Browser openIn:directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3834
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3835
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3836
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3837
openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3838
    self
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3839
        openTool:ChangeSetBrowser 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3840
        with:#openOnFile: 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3841
        ignoreDirectories:true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3842
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3843
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3844
openChangesBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3845
    "open a change browser on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3846
321c1729db5b initial checkin
penk
parents:
diff changeset
  3847
    self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3848
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3849
321c1729db5b initial checkin
penk
parents:
diff changeset
  3850
openDiffView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3851
    "open a diff-view"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3852
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3853
    | name1 name2 text1 text2 d err nm l1 files title defaultName lastFile|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3854
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3855
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3856
    files isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3857
	Dialog warn:'you have to select a file first'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3858
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3859
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3860
    (files size == 2) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3861
	name1 := files last.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3862
	name2 := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3863
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3864
	LastFileDiffFile notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3865
	    | directories |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3866
	    directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3867
	    directories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3868
		lastFile := directories first asFilename construct:(LastFileDiffFile baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3869
		(lastFile exists and:[lastFile isReadable]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3870
		    name1 := lastFile.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3871
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3872
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3873
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3874
	name2 := files first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3875
	title := 'show difference between ', name2 baseName, ' and:'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3876
	defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3877
	name1 := DialogBox 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3878
		    requestFileName:title 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3879
		    default:defaultName 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3880
		    ok:'OK' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3881
		    abort:'Use File List' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3882
		    pattern:'*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3883
		    fromDirectory:(name2 asFilename directory).
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3884
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3885
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3886
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3887
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3888
321c1729db5b initial checkin
penk
parents:
diff changeset
  3889
    (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3890
	text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3891
	text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3892
	name1 := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3893
	l1 := 'browser contents'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3894
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3895
	name1 := name1 asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3896
	LastFileDiffFile := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3897
	name1 asFilename isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3898
	    nm := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3899
	    name1 asFilename exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3900
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3901
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3902
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3903
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3904
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3905
	l1 := name1
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3906
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3907
321c1729db5b initial checkin
penk
parents:
diff changeset
  3908
    err isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3909
	name2 isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3910
	    nm := name2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3911
	    name2 exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3912
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3913
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3914
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3915
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3916
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3917
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3918
    err notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3919
	Dialog warn:(resources string:err with:nm pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3920
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3921
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3922
321c1729db5b initial checkin
penk
parents:
diff changeset
  3923
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3924
	name1 notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3925
	    text1 := name1 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3926
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3927
	text2 := name2 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3928
	text1 = text2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3929
	    self information:'same contents'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3930
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3931
	    d := DiffTextView 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3932
		    openOn:text1 label:l1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3933
		    and:text2 label:name2 pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3934
	    d topView label:'file differences'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3935
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3936
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3937
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3938
321c1729db5b initial checkin
penk
parents:
diff changeset
  3939
openEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3940
    self openTool:EditTextView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3941
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3942
321c1729db5b initial checkin
penk
parents:
diff changeset
  3943
openHTMLReader
321c1729db5b initial checkin
penk
parents:
diff changeset
  3944
321c1729db5b initial checkin
penk
parents:
diff changeset
  3945
    self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3946
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3947
321c1729db5b initial checkin
penk
parents:
diff changeset
  3948
openImageEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3949
321c1729db5b initial checkin
penk
parents:
diff changeset
  3950
    [self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3951
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3952
321c1729db5b initial checkin
penk
parents:
diff changeset
  3953
openImageInspector
321c1729db5b initial checkin
penk
parents:
diff changeset
  3954
    [self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3955
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3956
321c1729db5b initial checkin
penk
parents:
diff changeset
  3957
openImagePreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  3958
321c1729db5b initial checkin
penk
parents:
diff changeset
  3959
    [self loadImageAndPerform:[:img |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3960
				|i top viewer|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3961
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3962
				top := StandardSystemView new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3963
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3964
				viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3965
				i := img.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3966
				top extent:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3967
				top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3968
				top openAndWait.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3969
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3970
				(i width > 200 or:[i height > 200]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3971
				    i := i magnifiedPreservingRatioTo:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3972
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3973
				viewer image:i.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3974
			      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3975
    ] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3976
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3977
321c1729db5b initial checkin
penk
parents:
diff changeset
  3978
openMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  3979
    |file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3980
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3981
    file := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3982
    (file isEmpty) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3983
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3984
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3985
    file := file first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3986
    (MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3987
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3988
321c1729db5b initial checkin
penk
parents:
diff changeset
  3989
openSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  3990
321c1729db5b initial checkin
penk
parents:
diff changeset
  3991
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3992
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3993
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3994
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3995
321c1729db5b initial checkin
penk
parents:
diff changeset
  3996
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3997
    CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3998
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3999
321c1729db5b initial checkin
penk
parents:
diff changeset
  4000
openSnapshotImageBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4001
    ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4002
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4003
321c1729db5b initial checkin
penk
parents:
diff changeset
  4004
openTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4005
321c1729db5b initial checkin
penk
parents:
diff changeset
  4006
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4007
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4008
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4009
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4010
	dir := Filename homeDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4011
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4012
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4013
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4014
321c1729db5b initial checkin
penk
parents:
diff changeset
  4015
    VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4016
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4017
321c1729db5b initial checkin
penk
parents:
diff changeset
  4018
openTool:aToolClass
321c1729db5b initial checkin
penk
parents:
diff changeset
  4019
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4020
321c1729db5b initial checkin
penk
parents:
diff changeset
  4021
    ^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4022
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4023
321c1729db5b initial checkin
penk
parents:
diff changeset
  4024
openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4025
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4026
321c1729db5b initial checkin
penk
parents:
diff changeset
  4027
    ^ self
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4028
	openTool:aToolClass 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4029
	with:#openOn: 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4030
	ignoreDirectories:ignoreDirs
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4031
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4032
321c1729db5b initial checkin
penk
parents:
diff changeset
  4033
openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4034
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4035
321c1729db5b initial checkin
penk
parents:
diff changeset
  4036
    |numItems path tool files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4037
321c1729db5b initial checkin
penk
parents:
diff changeset
  4038
    aToolClass isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4039
	Dialog warn:'Sorry, that tool seems to be not available'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4040
	^ nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4041
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4042
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4043
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  4044
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4045
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4046
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4047
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4048
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4049
321c1729db5b initial checkin
penk
parents:
diff changeset
  4050
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4051
	files do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4052
	    (ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4053
		fileName isAbsolute ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4054
		    path := fileName getName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4055
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4056
		    path := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4057
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4058
		tool := aToolClass perform:aSelector with:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4059
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4060
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4061
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4062
    ^ tool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4063
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4064
321c1729db5b initial checkin
penk
parents:
diff changeset
  4065
openZipTool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4066
    |zipTool directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4067
321c1729db5b initial checkin
penk
parents:
diff changeset
  4068
    (zipTool := self openTool:ZipTool) notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4069
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4070
	directories isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4071
	    dir := directories first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4072
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4073
	    dir := Filename homeDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4074
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4075
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4076
	zipTool initialExtractDirectory:dir.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4077
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4078
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4079
321c1729db5b initial checkin
penk
parents:
diff changeset
  4080
readAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4081
    "read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4082
321c1729db5b initial checkin
penk
parents:
diff changeset
  4083
    | directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4084
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4085
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4086
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4087
321c1729db5b initial checkin
penk
parents:
diff changeset
  4088
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4089
    Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin
penk
parents:
diff changeset
  4090
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4091
321c1729db5b initial checkin
penk
parents:
diff changeset
  4092
singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  4093
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4094
321c1729db5b initial checkin
penk
parents:
diff changeset
  4095
    |aStream wasLazy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4096
321c1729db5b initial checkin
penk
parents:
diff changeset
  4097
    fileName type == #regular ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4098
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4099
	(ObjectFileLoader notNil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4100
	and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4101
	    AbortOperationRequest catch:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4102
		|p|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4103
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4104
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4105
		"/ look if already loaded ...  then unload first
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4106
		"/
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4107
		p := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4108
		(ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4109
		    (Dialog confirm:(resources 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4110
					string:'%1 is already loaded; load anyway ?'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4111
					with:p)) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4112
			^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4113
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4114
		    Transcript showCR:'unloading old ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4115
		    ObjectFileLoader unloadObjectFile:p. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4116
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4117
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4118
		Transcript showCR:'loading ' , p , ' ...'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4119
		ObjectFileLoader loadObjectFile:p.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4120
		Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4121
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4122
	] ifFalse:[ ((fileName hasSuffix:'cls') 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4123
		     and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4124
	    "/ loading a binary class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4125
	    aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4126
	    aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4127
		aStream fileInBinary.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4128
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4129
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4130
	    ((fileName hasSuffix:'class')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4131
	    or:[(fileName hasSuffix:'cla')]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4132
		"/ loading a java class file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4133
		JavaClassReader notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4134
		    JavaClassReader loadFile:(fileName pathName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4135
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4136
	    ] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4137
		"/ loading a sif (smalltalk interchange format) file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4138
		SmalltalkInterchangeSTXFileInManager autoload.    
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4139
		SmalltalkInterchangeFileManager newForFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4140
		    fileName: fileName pathName;
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4141
		    fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4142
	    ] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4143
		Parcel isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4144
		    Dialog warn:'Parcel support not loaded.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4145
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4146
		    Parcel loadParcelFrom: fileName pathName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4147
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4148
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4149
		"/ loading a regular (chunk) or xml source file
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4150
		aStream := fileName readStream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4151
		aStream notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4152
		    Error handle:[ : ex |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4153
			Dialog warn:'Error on file in: ', ex errorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4154
		    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4155
			[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4156
			    Class withoutUpdatingChangesDo:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4157
				wasLazy := Compiler compileLazy:lazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4158
				aStream fileIn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4159
			    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4160
			    Class addInfoRecord:('fileIn ' , fileName asString) 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4161
			] ensure:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4162
			    Compiler compileLazy:wasLazy.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4163
			    aStream close
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4164
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4165
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4166
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4167
	    ]]]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4168
	]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4169
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4170
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4171
321c1729db5b initial checkin
penk
parents:
diff changeset
  4172
!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4173
321c1729db5b initial checkin
penk
parents:
diff changeset
  4174
canCvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  4175
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4176
    |selectedFiles|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4177
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4178
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4179
    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4180
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4181
321c1729db5b initial checkin
penk
parents:
diff changeset
  4182
canRemoveCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  4183
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4184
    |selectedFiles dirOfFile cvsDir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4185
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4186
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4187
    selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4188
    ^ ((selectedFiles detect:[:fileName|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4189
	dirOfFile := self getDirWithoutFileName:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4190
	cvsDir := dirOfFile construct:'CVS'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4191
	(cvsDir isDirectory and:[cvsDir exists])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4192
    ] ifNone:[nil]) notNil).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4193
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4194
321c1729db5b initial checkin
penk
parents:
diff changeset
  4195
!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4196
321c1729db5b initial checkin
penk
parents:
diff changeset
  4197
anySTFilesPresent
321c1729db5b initial checkin
penk
parents:
diff changeset
  4198
321c1729db5b initial checkin
penk
parents:
diff changeset
  4199
    ^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4200
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4201
321c1729db5b initial checkin
penk
parents:
diff changeset
  4202
canCreateNewProject
321c1729db5b initial checkin
penk
parents:
diff changeset
  4203
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4204
    | selectedFiles |
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4205
321c1729db5b initial checkin
penk
parents:
diff changeset
  4206
    self currentFilesAreInSameDirectory ifFalse:[^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4207
    selectedFiles := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4208
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4209
	((selectedFiles detect:[:fileName| | suffix|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4210
	    suffix := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4211
	    (suffix = 'prj' or:[suffix = 'st'])
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4212
	] ifNone:[nil]) notNil)
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4213
      ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4214
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4215
321c1729db5b initial checkin
penk
parents:
diff changeset
  4216
canDoTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4217
321c1729db5b initial checkin
penk
parents:
diff changeset
  4218
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4219
      or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4220
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4221
321c1729db5b initial checkin
penk
parents:
diff changeset
  4222
canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4223
321c1729db5b initial checkin
penk
parents:
diff changeset
  4224
    ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4225
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4226
321c1729db5b initial checkin
penk
parents:
diff changeset
  4227
canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4228
321c1729db5b initial checkin
penk
parents:
diff changeset
  4229
    ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4230
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4231
321c1729db5b initial checkin
penk
parents:
diff changeset
  4232
canReadAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4233
321c1729db5b initial checkin
penk
parents:
diff changeset
  4234
321c1729db5b initial checkin
penk
parents:
diff changeset
  4235
    self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4236
    ^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  4237
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4238
321c1729db5b initial checkin
penk
parents:
diff changeset
  4239
canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  4240
321c1729db5b initial checkin
penk
parents:
diff changeset
  4241
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4242
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4243
321c1729db5b initial checkin
penk
parents:
diff changeset
  4244
hasASN1
321c1729db5b initial checkin
penk
parents:
diff changeset
  4245
    ^ [ OSI::ASN1Parser notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4246
	and:[OSI::ASN1Parser isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4247
321c1729db5b initial checkin
penk
parents:
diff changeset
  4248
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4249
321c1729db5b initial checkin
penk
parents:
diff changeset
  4250
hasASN1AndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4251
    ^ [ self hasSelection value 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4252
	and:[self currentSelectedFiles size > 0
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4253
	and:[OSI::ASN1Parser notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4254
	and:[OSI::ASN1Parser isLoaded]]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4255
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4256
321c1729db5b initial checkin
penk
parents:
diff changeset
  4257
hasCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4258
    ^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4259
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4260
321c1729db5b initial checkin
penk
parents:
diff changeset
  4261
hasJava
321c1729db5b initial checkin
penk
parents:
diff changeset
  4262
321c1729db5b initial checkin
penk
parents:
diff changeset
  4263
    ^ [ JavaClassReader notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4264
	and:[JavaClassReader isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4265
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4266
321c1729db5b initial checkin
penk
parents:
diff changeset
  4267
hasJavaAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4268
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4269
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4270
	and:[JavaClassReader notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4271
	and:[JavaClassReader isLoaded]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4272
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4273
321c1729db5b initial checkin
penk
parents:
diff changeset
  4274
hasMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4275
321c1729db5b initial checkin
penk
parents:
diff changeset
  4276
    ^ [ MP3PlayerApplication notNil
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4277
	or:[SaugFix::MP3PlayerApplication notNil ]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4278
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4279
321c1729db5b initial checkin
penk
parents:
diff changeset
  4280
hasMP3PlayerAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4281
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4282
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4283
	and:[ self hasMP3Player value]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4284
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4285
321c1729db5b initial checkin
penk
parents:
diff changeset
  4286
hasSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4287
321c1729db5b initial checkin
penk
parents:
diff changeset
  4288
    ^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4289
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4290
321c1729db5b initial checkin
penk
parents:
diff changeset
  4291
hasSnapshotSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4292
321c1729db5b initial checkin
penk
parents:
diff changeset
  4293
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4294
	| files |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4295
	files := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4296
	((files size == 1)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4297
	and:[ files first hasSuffix:'img' ])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4298
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4299
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4300
321c1729db5b initial checkin
penk
parents:
diff changeset
  4301
hasZipFileSelected
321c1729db5b initial checkin
penk
parents:
diff changeset
  4302
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4303
    ^ [|sel fileName fn suff|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4304
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4305
	sel := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4306
	sel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4307
	    fileName := sel first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4308
	    fileName notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4309
		suff := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4310
		suff = 'zip' or:[suff = 'jar']
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4311
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4312
		false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4313
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4314
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4315
	    false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4316
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4317
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4318
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4319
321c1729db5b initial checkin
penk
parents:
diff changeset
  4320
javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  4321
321c1729db5b initial checkin
penk
parents:
diff changeset
  4322
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4323
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4324
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4325
!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4326
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4327
getModeString:modeBits
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4328
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4329
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4330
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4331
    ^ self getModeString:modeBits 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4332
		    with:#( 'owner:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4333
			    ' group:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4334
			    ' others:' $r $w $x )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4335
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4336
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4337
getModeString:modeBits with:texts
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4338
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4339
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4340
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4341
    |bits modeString|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4342
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4343
    bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4344
    modeString := ''.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4345
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4346
    #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 ) 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4347
    with: texts do:[:bitMask :access |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4348
	|ch|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4349
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4350
	bitMask isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4351
	    modeString := modeString , access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4352
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4353
	    (bits bitAnd:bitMask) == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4354
		ch := $-
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4355
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4356
		ch := access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4357
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4358
	    modeString := modeString copyWith:ch 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4359
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4360
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4361
    ^ modeString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4362
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4363
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4364
!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4365
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4366
getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4367
    "get stat info on selected file - return a string which can be
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4368
     shown in a box"
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4369
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4370
    | selFiles filename text fileOutput type modeBits modeString s ts isLink info|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4371
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4372
    selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4373
    ((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4374
    filename := selFiles first.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4375
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4376
    text := StringCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4377
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4378
    text add:('filename: ', filename asString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4379
    isLink := filename isSymbolicLink.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4380
    isLink ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4381
	text add:('symbolic link to: ', (filename linkInfo path))
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4382
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4383
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4384
    info := filename info.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4385
    type := info type.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4386
    (longInfo and:[type == #regular]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4387
	fileOutput := filename fileType.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4388
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4389
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4390
    s := ('type:   ').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4391
    fileOutput isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4392
	s := s ,  type asString
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4393
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4394
	s := s , 'regular (' , fileOutput , ')'
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4395
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4396
    text add:s.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4397
    isLink = true ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4398
	info := filename linkInfo
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4399
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4400
	info := filename info
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4401
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4402
    
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4403
    text add:('size:   ', (info fileSize) printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4404
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4405
    modeBits := info mode.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4406
    modeString := self getModeString:modeBits.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4407
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4408
	text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4409
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4410
	text add:('access: ', modeString)
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4411
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4412
    text add:('owner:  ',
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4413
	       (OperatingSystem getUserNameFromID:(info uid))).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4414
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4415
	text add:('group:  ',
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4416
		   (OperatingSystem getGroupNameFromID:(info gid))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4417
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4418
	ts := info accessTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4419
	text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4420
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4421
	ts := info modificationTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4422
	text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4423
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4424
    ^ text asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4425
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4426
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4427
initialCommandFor:fileName into:aBox
321c1729db5b initial checkin
penk
parents:
diff changeset
  4428
    "set a useful initial command for execute box."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4429
321c1729db5b initial checkin
penk
parents:
diff changeset
  4430
    |mime cmd select path suffix|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4431
321c1729db5b initial checkin
penk
parents:
diff changeset
  4432
    path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4433
    suffix := fileName asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4434
    DefaultCommandPerSuffix notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4435
	cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4436
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4437
	    aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4438
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4439
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4440
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4441
    mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4442
"/    mime notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4443
"/        cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin
penk
parents:
diff changeset
  4444
"/    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4445
321c1729db5b initial checkin
penk
parents:
diff changeset
  4446
    "/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin
penk
parents:
diff changeset
  4447
    "/ XXX or from resources.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4448
321c1729db5b initial checkin
penk
parents:
diff changeset
  4449
    (path type == #regular) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4450
	path isExecutableProgram ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4451
	    aBox initialText:(fileName , ' <arguments>').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4452
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4453
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4454
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4455
	select := true.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4456
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4457
	"some heuristics - my personal preferences ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4458
	 (actually this should come from a configfile)"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4459
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4460
	(fileName endsWith:'akefile') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4461
	    aBox initialText:'make target' selectFrom:6 to:11.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4462
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4463
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4464
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4465
	cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4466
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4467
	    select := false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4468
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4469
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4470
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4471
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4472
	    suffix := path suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4473
	    (suffix = 'C') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4474
		cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4475
		select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4476
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4477
		suffix := suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4478
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4479
		(suffix = 'taz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4480
		    aBox initialText:'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4481
		    select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4482
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4483
		(suffix = 'tar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4484
		    cmd := 'tar tvf %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4485
		    select := 7.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4486
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4487
		(suffix = 'zoo') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4488
		    cmd := 'zoo -list %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4489
		    select := 9.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4490
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4491
		(suffix = 'zip') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4492
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4493
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4494
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4495
		(suffix = 'jar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4496
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4497
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4498
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4499
		(suffix = 'z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4500
		    (fileName asLowercase endsWith:'tar.z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4501
			cmd := 'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4502
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4503
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4504
			cmd := 'uncompress %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4505
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4506
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4507
		(suffix = 'gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4508
		    (fileName asLowercase endsWith:'tar.gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4509
			cmd := ('gunzip < %1 | tar tvf -' ).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4510
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4511
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4512
			cmd := 'gunzip %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4513
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4514
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4515
		(suffix = 'html') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4516
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4517
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4518
		(suffix = 'htm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4519
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4520
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4521
		(suffix = 'uue') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4522
		    cmd := 'uudecode %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4523
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4524
		(suffix = 'c') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4525
		    cmd := 'cc -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4526
		    select := 5.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4527
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4528
		(suffix = 'cc') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4529
		    cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4530
		    select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4531
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4532
		(suffix = 'xbm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4533
		    cmd := 'bitmap %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4534
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4535
		(suffix = 'ps') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4536
		    cmd := 'ghostview %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4537
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4538
		((suffix = '1') or:[suffix = 'man']) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4539
		    cmd := 'nroff -man %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4540
		    select := 10.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4541
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4542
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4543
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4544
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4545
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4546
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4547
		cmd := '<cmd>'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4548
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4549
		cmd := DefaultCommandPerSuffix 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4550
			at:suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4551
			ifAbsent:'<cmd>'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4552
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4553
	    cmd := cmd , ' %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4554
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4555
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4556
	cmd := cmd bindWith:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4557
	select == false ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4558
	    aBox initialText:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4559
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4560
	    select class == Interval ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4561
		aBox initialText:cmd selectFrom:select start to:select stop
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4562
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4563
		select isInteger ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4564
		    select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4565
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4566
		aBox initialText:cmd selectFrom:1 to:select
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4567
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4568
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4569
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4570
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4571
321c1729db5b initial checkin
penk
parents:
diff changeset
  4572
isAbstractFileBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4573
321c1729db5b initial checkin
penk
parents:
diff changeset
  4574
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4575
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4576
321c1729db5b initial checkin
penk
parents:
diff changeset
  4577
systemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4578
321c1729db5b initial checkin
penk
parents:
diff changeset
  4579
    ^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4580
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4581
321c1729db5b initial checkin
penk
parents:
diff changeset
  4582
systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4583
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4584
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4585
321c1729db5b initial checkin
penk
parents:
diff changeset
  4586
!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4587
321c1729db5b initial checkin
penk
parents:
diff changeset
  4588
allItemsOfCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4589
321c1729db5b initial checkin
penk
parents:
diff changeset
  4590
    ^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4591
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4592
321c1729db5b initial checkin
penk
parents:
diff changeset
  4593
anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4594
321c1729db5b initial checkin
penk
parents:
diff changeset
  4595
    | directories |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4596
321c1729db5b initial checkin
penk
parents:
diff changeset
  4597
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4598
    directories do:[ : dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4599
	(dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4600
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4601
    ^ false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4602
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4603
321c1729db5b initial checkin
penk
parents:
diff changeset
  4604
currentFilesAreInSameDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4605
321c1729db5b initial checkin
penk
parents:
diff changeset
  4606
    ^ (self currentDirectories value size == 1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4607
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4608
321c1729db5b initial checkin
penk
parents:
diff changeset
  4609
currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  4610
321c1729db5b initial checkin
penk
parents:
diff changeset
  4611
    ^ self currentDirectories value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4612
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4613
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4614
directoriesForFiles:aFileCol
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4615
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4616
    ^ ((aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4617
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4618
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4619
fileListIsEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4620
321c1729db5b initial checkin
penk
parents:
diff changeset
  4621
    ^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4622
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4623
321c1729db5b initial checkin
penk
parents:
diff changeset
  4624
fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4625
321c1729db5b initial checkin
penk
parents:
diff changeset
  4626
    ^ self fileListIsEmpty not.   
321c1729db5b initial checkin
penk
parents:
diff changeset
  4627
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4628
321c1729db5b initial checkin
penk
parents:
diff changeset
  4629
fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin
penk
parents:
diff changeset
  4630
321c1729db5b initial checkin
penk
parents:
diff changeset
  4631
" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin
penk
parents:
diff changeset
  4632
321c1729db5b initial checkin
penk
parents:
diff changeset
  4633
    | file1 file2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4634
321c1729db5b initial checkin
penk
parents:
diff changeset
  4635
    aFilename2 isNil ifTrue:[ ^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4636
    aFilename1 isNil ifTrue:[ ^ false].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4637
    file1 := aFilename1 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4638
    file2 := aFilename2 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4639
    file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4640
    ((file1 isDirectory) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4641
    and:[(file2 isDirectory)
321c1729db5b initial checkin
penk
parents:
diff changeset
  4642
    and:[file1 directory = file2 directory]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4643
	^ file1 baseName = file2 baseName
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4644
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4645
    ^ (file1 pathName) startsWith:(file2 pathName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4646
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4647
321c1729db5b initial checkin
penk
parents:
diff changeset
  4648
getAllFilesAsStringCollection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4649
321c1729db5b initial checkin
penk
parents:
diff changeset
  4650
    ^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4651
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4652
321c1729db5b initial checkin
penk
parents:
diff changeset
  4653
getBestDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4654
321c1729db5b initial checkin
penk
parents:
diff changeset
  4655
    |selFiles stringCol firstPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4656
321c1729db5b initial checkin
penk
parents:
diff changeset
  4657
    selFiles := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4658
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4659
    selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4660
    stringCol := (selFiles collect:[: file| file asString]) asOrderedCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4661
    firstPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4662
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4663
	 firstPre :=  firstPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4664
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4665
    (firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4666
	firstPre removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4667
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4668
    ^ firstPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4669
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4670
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4671
getCommonForCurrentFiles
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4672
321c1729db5b initial checkin
penk
parents:
diff changeset
  4673
    |selFiles stringCol firtsPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4674
321c1729db5b initial checkin
penk
parents:
diff changeset
  4675
    selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4676
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4677
    stringCol := selFiles collect:[: file| file asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4678
    firtsPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4679
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4680
	 firtsPre :=  firtsPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4681
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4682
    ^ firtsPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4683
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4684
321c1729db5b initial checkin
penk
parents:
diff changeset
  4685
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4686
321c1729db5b initial checkin
penk
parents:
diff changeset
  4687
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4688
    aFileName isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4689
	^ aFileName.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4690
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4691
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4692
    dir isDirectory ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4693
	dir := dir directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4694
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4695
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4696
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4697
321c1729db5b initial checkin
penk
parents:
diff changeset
  4698
getInfoItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4699
    "get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin
penk
parents:
diff changeset
  4700
     This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4701
     You can add more names below if you like."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4702
321c1729db5b initial checkin
penk
parents:
diff changeset
  4703
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4704
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4705
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4706
    (directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4707
321c1729db5b initial checkin
penk
parents:
diff changeset
  4708
    #( 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4709
       '.dir.info'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4710
       'README'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4711
       'ReadMe'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4712
       'Readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4713
       'readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4714
       'read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4715
       'Read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4716
       'READ.ME'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4717
       'README.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4718
       'readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4719
       'Readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4720
       'Info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4721
       'info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4722
       'INFO.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4723
    ) do:[:f | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4724
	|n dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4725
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4726
	n := (directories first) construct:f.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4727
	(n isReadable and:[n isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4728
	    ^ DirectoryContentsBrowser itemClass fileName:n
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4729
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4730
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4731
    ^ nil
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4732
! !
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4733
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4734
!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4735
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4736
currentSelectedDirectories
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4737
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4738
    ^ self currentDirectories value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4739
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4740
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4741
currentSelectedFiles
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4742
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4743
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4744
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4745
    ^ (files select:[: file | file isDirectory not]).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4746
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4747
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4748
firstSelectedFile
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4749
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4750
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4751
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4752
    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4753
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4754
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4755
!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4756
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4757
currentSortOrder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4758
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4759
    " returns a Ordered Collection of all directories currently selected 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4760
      if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4761
    "
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4762
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4763
    ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4764
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4765
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4766
makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4767
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4768
    self sortDirectoriesBeforeFiles value ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4769
	^ [:a :b|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4770
	    |aIsDir bIsDir res|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4771
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4772
	    aIsDir := a isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4773
	    bIsDir := b isDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4774
	    (aIsDir ~~ bIsDir) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4775
		res := aIsDir 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4776
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4777
		res := aSortBlock value:a value:b.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4778
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4779
	    res
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4780
	  ].
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4781
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4782
	^ aSortBlock
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4783
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4784
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4785
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4786
sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4787
    |nameSortBlock|
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4788
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4789
    ^ self aspectFor:#sortBlockHolder ifAbsent:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4790
	self sortCaseless value ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4791
	    nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4792
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4793
	    nameSortBlock := [ :a :b | a asString < b asString.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4794
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4795
	(self makeDirectorySortBlockFor:nameSortBlock) asValue.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4796
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4797
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4798
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4799
sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4800
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4801
    
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4802
    ^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4803
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4804
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4805
sortCaseless
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4806
    " aspect for sort caseless "
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4807
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4808
    ^ self aspectFor:#sortCaseless ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4809
        | holder |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4810
        holder := (Filename isCaseSensitive not) asValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4811
        holder
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4812
    ]
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4813
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4814
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4815
sortDirectoriesBeforeFiles
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4816
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4817
    " aspect for sort directories always before files"
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4818
    ^ self aspectFor:#sortDirectoriesBeforeFiles ifAbsent:[ true asValue ].
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4819
!
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4820
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4821
sortFileListsBy:instanceName 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4822
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4823
    self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4824
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4825
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4826
sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4827
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4828
    | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse|
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4829
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4830
    aSymbol := instanceName asSymbol.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4831
    self sortBlockProperty setValue:instanceName asSymbol.
4151
950e04fef4ba treeBrowser has his own sort now
penk
parents: 4148
diff changeset
  4832
    sortCaselessLocal := self sortCaseless value.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4833
    currentSortOrder := self currentSortOrder value.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4834
    currentSortOrder isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4835
	currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4836
	currentSortOrder at:#reverse put:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4837
	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4838
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4839
	(currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4840
	    "/ sort caseless changed
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4841
	    currentSortOrder at:#sortCaseless put:sortCaselessLocal.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4842
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4843
	    (currentSortOrder at:#column) = aSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4844
		"/ same column like before - change sort order ifReverse is true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4845
		aBoolean ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4846
		    | isReverse |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4847
		    isReverse := currentSortOrder at:#reverse.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4848
		    currentSortOrder at:#reverse put:(isReverse not).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4849
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4850
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4851
		"/ another column - remark column
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4852
		currentSortOrder at:#column put:aSymbol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4853
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4854
	]
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4855
    ].
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4856
    self currentSortOrder changed.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4857
    (currentSortOrder at:#reverse) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4858
	cmpOp := #'>'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4859
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4860
	cmpOp := #'<'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4861
    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4862
    sortReverse := currentSortOrder at:#reverse.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4863
    instanceSortBlock := [:a :b | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4864
	|entry1 entry2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4865
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4866
	((a respondsTo:aSymbol) not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4867
	    true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4868
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4869
	    entry1 := (a perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4870
	    entry2 := (b perform:aSymbol).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4871
	    ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4872
		((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4873
		    ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4874
		       sortReverse
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4875
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4876
			sortReverse not
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4877
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4878
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4879
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4880
		(aSymbol = #baseName) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4881
		    sortCaselessLocal ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4882
			entry1 := entry1 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4883
			entry2 := entry2 asString asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4884
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4885
			entry1 := entry1 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4886
			entry2 := entry2 asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4887
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4888
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4889
		entry1 perform:cmpOp with:entry2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4890
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4891
	]
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4892
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4893
    self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4894
! !
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4895
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4896
!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4897
321c1729db5b initial checkin
penk
parents:
diff changeset
  4898
makeDependent
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4899
    self filterModel addDependent:self.            
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4900
    self currentFileNameHolder addDependent:self.
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4901
    self sortDirectoriesBeforeFiles addDependent:self.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4902
    self sortCaseless addDependent:self.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4903
    self showHiddenFiles addDependent:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4904
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4905
321c1729db5b initial checkin
penk
parents:
diff changeset
  4906
masterApplication:anApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  4907
321c1729db5b initial checkin
penk
parents:
diff changeset
  4908
    masterApplication isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4909
	(anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4910
	    aspects := anApplication aspects
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4911
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4912
	    aspects isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4913
		aspects := IdentityDictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4914
		aspects at:#applications put:(IdentityDictionary new).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4915
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4916
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4917
	self applications at:(self className) put:self.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4918
	self makeDependent.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4919
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4920
    ^ super masterApplication:anApplication.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4921
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4922
321c1729db5b initial checkin
penk
parents:
diff changeset
  4923
postOpenWith:aBuilder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4924
321c1729db5b initial checkin
penk
parents:
diff changeset
  4925
    super postOpenWith:aBuilder.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4926
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4927
321c1729db5b initial checkin
penk
parents:
diff changeset
  4928
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4929
321c1729db5b initial checkin
penk
parents:
diff changeset
  4930
files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4931
    "return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4932
321c1729db5b initial checkin
penk
parents:
diff changeset
  4933
    ^ files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4934
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4935
321c1729db5b initial checkin
penk
parents:
diff changeset
  4936
files:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4937
    "set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4938
321c1729db5b initial checkin
penk
parents:
diff changeset
  4939
    files := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4940
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4941
321c1729db5b initial checkin
penk
parents:
diff changeset
  4942
method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4943
    "return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4944
321c1729db5b initial checkin
penk
parents:
diff changeset
  4945
    ^ method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4946
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4947
321c1729db5b initial checkin
penk
parents:
diff changeset
  4948
method:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4949
    "set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4950
321c1729db5b initial checkin
penk
parents:
diff changeset
  4951
    method := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4952
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4953
321c1729db5b initial checkin
penk
parents:
diff changeset
  4954
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4955
321c1729db5b initial checkin
penk
parents:
diff changeset
  4956
locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  4957
    "return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4958
321c1729db5b initial checkin
penk
parents:
diff changeset
  4959
    locked isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4960
	locked := false.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4961
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4962
    ^ locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  4963
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4964
321c1729db5b initial checkin
penk
parents:
diff changeset
  4965
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4966
321c1729db5b initial checkin
penk
parents:
diff changeset
  4967
doIfUnLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  4968
321c1729db5b initial checkin
penk
parents:
diff changeset
  4969
    self locked ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4970
	aBlock value.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4971
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4972
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4973
321c1729db5b initial checkin
penk
parents:
diff changeset
  4974
doLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  4975
321c1729db5b initial checkin
penk
parents:
diff changeset
  4976
    locked  := true.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4977
    aBlock ensure:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4978
	locked := false.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4979
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4980
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4981
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4982
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4983
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4984
historySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4985
321c1729db5b initial checkin
penk
parents:
diff changeset
  4986
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  4987
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4988
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4989
!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4990
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4991
new
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4992
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4993
    ^ super new initialize.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4994
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  4995
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4996
!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4997
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4998
forwardList
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4999
    "return the value of the instance variable 'forwardList' (automatically generated)"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5000
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5001
    forwardList isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5002
	forwardList := OrderedCollection new.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5003
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5004
    ^ forwardList
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5005
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5006
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5007
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5008
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5009
addToHistory:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5010
    | item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5011
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5012
    item := self getItemFor:aPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5013
    (lastBackPath notNil and:[lastAddPath notNil and:[lastBackPath = aPath]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5014
	lastAddPath := nil.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5015
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5016
    lastAddPath notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5017
	self backListAdd:lastAddPath.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5018
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5019
    lastAddPath := aPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5020
    item isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5021
	" not already in history"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5022
	self size >= self class historySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5023
	    self removeLast.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5024
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5025
	item := DirectoryHistoryItem path:aPath.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5026
	self addFirst:item
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5027
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5028
	"already been there before; move the entry to
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5029
	 the beginning, so it will fall out later."
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5030
	self remove:item.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5031
	self addFirst:item
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5032
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5033
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5034
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5035
backListAdd:aPath
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5036
    |path|
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5037
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5038
    path := aPath asFilename pathName.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5039
    ((backList size > 0) and:[backList last = path]) ifTrue:[^ self].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5040
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5041
    backList size >= self class historySize ifTrue:[
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5042
        backList removeLast.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5043
    ].
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5044
    backList addFirst:path.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5045
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5046
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5047
forwardListAdd:aPath
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5048
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5049
    forwardList size >= self class historySize ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5050
	forwardList removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5051
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5052
    forwardList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5053
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5054
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5055
goBack
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5056
    "return the first path of the backward list;
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5057
     remove it from the back list and add it ti the forward list."
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5058
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5059
    | retPath|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5060
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5061
    retPath := self nextBackwardItem.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5062
    retPath notNil ifTrue:[
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5063
        self forwardListAdd:(self first path).
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5064
        lastBackPath := retPath.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5065
        backList removeFirst.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5066
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5067
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5068
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5069
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5070
goForward
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5071
    "return the first path of the forward list;
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5072
     remove it from the list."
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5073
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5074
    | retPath|
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5075
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5076
    retPath := self nextForwardItem.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5077
    retPath notNil ifTrue:[
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5078
        self forwardList removeFirst.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5079
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5080
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5081
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5082
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5083
nextBackwardItem
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5084
    "return the first path of the backward list"
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5085
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5086
    backList isEmptyOrNil ifTrue:[ ^ nil].
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5087
    ^ backList first.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5088
!
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5089
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5090
nextForwardItem
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5091
    "return the first path of the forward list"
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5092
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5093
    forwardList isEmptyOrNil ifTrue:[ ^ nil].
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5094
    ^ forwardList first.
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5095
!
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5096
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5097
resetForwardBackward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5098
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5099
    backList := self collect:[:item| item path].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5100
    forwardList := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5101
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5102
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5103
setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5104
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5105
    self do:[:item| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5106
	item path = aPath ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5107
	    item position:aPosition.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5108
	]
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5109
    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5110
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5111
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5112
xxgoBackFrom:aPath
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5113
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5114
" search the item in the list and give back the next in the list"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5115
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5116
    | index retVal|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5117
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5118
    self isEmpty ifTrue:[ ^ nil].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5119
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5120
    aPath isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5121
	retVal := self first path
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5122
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5123
	index := self findFirst:[:item| item path = aPath].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5124
	index == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5125
	    retVal := self first path
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5126
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5127
	    index < self size ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5128
		retVal := ((self at:index + 1) path).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5129
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5130
	].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5131
    ].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5132
    retVal := retVal ? self first path.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5133
    self forwardListAdd:aPath.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5134
    ^ retVal.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5135
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5136
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5137
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5138
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5139
initialize
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5140
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5141
    backList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5142
    forwardList := OrderedCollection new.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5143
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5144
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5145
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5146
4024
c7f8d1ad4bc5 history
penk
parents: 4022
diff changeset
  5147
canBack
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5148
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5149
    ^ backList notEmpty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5150
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5151
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5152
canBackward
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5153
    ^ backList notEmpty
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5154
!
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5155
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5156
canForward
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5157
    ^ self forwardList notEmpty.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5158
!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5159
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5160
getBackCollectionFrom:aPath
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5161
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5162
"/    | backCol index |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5163
"/    
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5164
"/    backCol := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5165
"/    aPath isNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5166
"/        index := 0.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5167
"/    ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5168
"/        index := self findFirst:[:item| item path = aPath].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5169
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5170
"/    "/ 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
  5171
"/    index < self size ifTrue:[ 
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5172
"/        self from:(index + 1) to:(self size) do:[:item |
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5173
"/            backCol add:(item path).
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5174
"/        ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5175
"/    ].
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5176
    ^ backList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5177
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5178
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5179
getForwardCollection
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5180
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  5181
    ^ self forwardList.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5182
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5183
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5184
getItemFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5185
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5186
    self do:[:item| item path = aPath ifTrue:[^ item]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5187
    ^ nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5188
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5189
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5190
getPositionFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5191
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5192
    |item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5193
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5194
    item := self getItemFor:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5195
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5196
    item notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5197
	^ item position.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5198
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5199
    ^ nil
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5200
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5201
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5202
includesPath:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5203
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5204
    self do:[:item| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5205
    ^ false.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5206
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5207
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5208
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5209
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5210
path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5211
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5212
    ^ self new path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5213
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5214
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5215
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5216
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5217
path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5218
    "return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5219
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5220
    ^ path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5221
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5222
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5223
path:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5224
    "set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5225
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5226
    path := something.
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
position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5230
    "return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5231
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5232
    ^ position
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
position:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5236
    "set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5237
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5238
    position := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5239
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5240
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5241
printString
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5242
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5243
    ^ self path asString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5244
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5245
321c1729db5b initial checkin
penk
parents:
diff changeset
  5246
!AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5247
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5248
filenameHistorySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5249
321c1729db5b initial checkin
penk
parents:
diff changeset
  5250
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5251
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5252
321c1729db5b initial checkin
penk
parents:
diff changeset
  5253
!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5254
321c1729db5b initial checkin
penk
parents:
diff changeset
  5255
add:aApplItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  5256
321c1729db5b initial checkin
penk
parents:
diff changeset
  5257
    super add:aApplItem.
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5258
    (self size > self class filenameHistorySize) ifTrue:[
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5259
        self removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5260
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  5261
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5262
321c1729db5b initial checkin
penk
parents:
diff changeset
  5263
!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5264
321c1729db5b initial checkin
penk
parents:
diff changeset
  5265
withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  5266
321c1729db5b initial checkin
penk
parents:
diff changeset
  5267
    | instance |
321c1729db5b initial checkin
penk
parents:
diff changeset
  5268
321c1729db5b initial checkin
penk
parents:
diff changeset
  5269
    instance := self basicNew.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5270
    instance value:aValue.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5271
    instance isHolder:aBoolean.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5272
    ^ instance
321c1729db5b initial checkin
penk
parents:
diff changeset
  5273
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5274
321c1729db5b initial checkin
penk
parents:
diff changeset
  5275
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5276
321c1729db5b initial checkin
penk
parents:
diff changeset
  5277
isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5278
    "return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5279
321c1729db5b initial checkin
penk
parents:
diff changeset
  5280
    ^ isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5281
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5282
321c1729db5b initial checkin
penk
parents:
diff changeset
  5283
isHolder:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5284
    "set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5285
321c1729db5b initial checkin
penk
parents:
diff changeset
  5286
    isHolder := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5287
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5288
321c1729db5b initial checkin
penk
parents:
diff changeset
  5289
value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5290
    "return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5291
321c1729db5b initial checkin
penk
parents:
diff changeset
  5292
    ^ value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5293
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5294
321c1729db5b initial checkin
penk
parents:
diff changeset
  5295
value:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5296
    "set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5297
321c1729db5b initial checkin
penk
parents:
diff changeset
  5298
    value := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5299
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5300
321c1729db5b initial checkin
penk
parents:
diff changeset
  5301
!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5302
321c1729db5b initial checkin
penk
parents:
diff changeset
  5303
version
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5304
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.63 2002-11-29 09:48:10 penk Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5305
! !