AbstractFileBrowser.st
author Claus Gittinger <cg@exept.de>
Mon, 09 Dec 2002 13:16:48 +0100
changeset 4355 63dc8ed2e56c
parent 4354 0a1239cd339d
child 4358 b0023a5ca3b8
permissions -rw-r--r--
checkin from browser
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
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
    39
	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
    40
		backForwardList backForwardIndex'
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    41
	classVariableNames:'HistorySize'
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    42
	poolDictionaries:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    43
	privateIn:AbstractFileBrowser
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    44
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    45
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    46
Object subclass:#DirectoryHistoryItem
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    47
	instanceVariableNames:'path position'
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    48
	classVariableNames:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    49
	poolDictionaries:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    50
	privateIn:AbstractFileBrowser::DirectoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    51
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    52
321c1729db5b initial checkin
penk
parents:
diff changeset
    53
OrderedSet subclass:#FilenameHistory
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    54
	instanceVariableNames:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    55
	classVariableNames:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    56
	poolDictionaries:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    57
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    58
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    59
321c1729db5b initial checkin
penk
parents:
diff changeset
    60
Object subclass:#SaveAspectItem
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    61
	instanceVariableNames:'value isHolder'
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    62
	classVariableNames:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    63
	poolDictionaries:''
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
    64
	privateIn:AbstractFileBrowser
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    65
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    66
321c1729db5b initial checkin
penk
parents:
diff changeset
    67
321c1729db5b initial checkin
penk
parents:
diff changeset
    68
!AbstractFileBrowser class methodsFor:'classAccess'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    69
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    70
directoryHistoryClass
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    71
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    72
    ^ AbstractFileBrowser::DirectoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    73
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    74
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    75
filenameHistoryClass
321c1729db5b initial checkin
penk
parents:
diff changeset
    76
321c1729db5b initial checkin
penk
parents:
diff changeset
    77
    ^ FilenameHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
    78
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
    79
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    80
!AbstractFileBrowser class methodsFor:'classVarAccess'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    81
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    82
directoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    83
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    84
    DirectoryHistory isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
    85
	DirectoryHistory := self directoryHistoryClass new.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
    86
"/        DirectoryHistory inspect.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    87
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    88
    ^ DirectoryHistory
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    89
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    90
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    91
resetClassVars
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    92
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    93
    DirectoryHistory := nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    94
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    95
"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    96
    AbstractFileBrowser resetClassVars
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    97
"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    98
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
    99
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   100
!AbstractFileBrowser class methodsFor:'defaults'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   101
321c1729db5b initial checkin
penk
parents:
diff changeset
   102
commandHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   103
321c1729db5b initial checkin
penk
parents:
diff changeset
   104
    CommandHistory isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   105
	CommandHistory := OrderedCollection new.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   106
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   107
    ^ CommandHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
   108
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   109
321c1729db5b initial checkin
penk
parents:
diff changeset
   110
commandHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
   111
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   112
    "max no of entries in the HistoryList "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   113
    CommandHistorySize isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   114
	CommandHistorySize := 50
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   115
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   116
    ^ CommandHistorySize
321c1729db5b initial checkin
penk
parents:
diff changeset
   117
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   118
321c1729db5b initial checkin
penk
parents:
diff changeset
   119
defaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   120
321c1729db5b initial checkin
penk
parents:
diff changeset
   121
    DefaultCommandPerMIME isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   122
	self initializeDefaultCommands
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   123
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   124
    ^ DefaultCommandPerMIME
321c1729db5b initial checkin
penk
parents:
diff changeset
   125
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   126
321c1729db5b initial checkin
penk
parents:
diff changeset
   127
defaultFilterList
321c1729db5b initial checkin
penk
parents:
diff changeset
   128
321c1729db5b initial checkin
penk
parents:
diff changeset
   129
    DefaultFilters isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   130
	DefaultFilters := #(        '*'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   131
				    '*.st' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   132
				    '*.htm*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   133
				    '*.txt' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   134
				    '*.gif' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   135
				    '*.xpm' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   136
				    '*.jpg' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   137
				    '*.[h,c]*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   138
				)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   139
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   140
    ^ DefaultFilters.
321c1729db5b initial checkin
penk
parents:
diff changeset
   141
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   142
321c1729db5b initial checkin
penk
parents:
diff changeset
   143
directoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   144
321c1729db5b initial checkin
penk
parents:
diff changeset
   145
    DirectoryBookmarks isNil ifTrue:[                     
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   146
	DirectoryBookmarks := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   147
	DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   148
	DirectoryBookmarks add:Filename tempDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   149
	DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   150
	Smalltalk systemPath do:[:path |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   151
	    ((path ~= '.') and:[path asFilename exists]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   152
		DirectoryBookmarks add:path asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   153
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   154
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   155
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   156
    ^ DirectoryBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
   157
321c1729db5b initial checkin
penk
parents:
diff changeset
   158
"/    DirectoryBookmarks := nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   159
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   160
321c1729db5b initial checkin
penk
parents:
diff changeset
   161
initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   162
    DefaultCommandPerMIME := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
   163
321c1729db5b initial checkin
penk
parents:
diff changeset
   164
    DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   165
    DefaultCommandPerMIME at:'application/pdf'              put:'acroread -display %2 %1'.
321c1729db5b initial checkin
penk
parents:
diff changeset
   166
321c1729db5b initial checkin
penk
parents:
diff changeset
   167
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   168
     self initializeDefaultCommands
321c1729db5b initial checkin
penk
parents:
diff changeset
   169
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   170
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   171
321c1729db5b initial checkin
penk
parents:
diff changeset
   172
listOfRuntimeValuesToRemark
321c1729db5b initial checkin
penk
parents:
diff changeset
   173
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   174
    " list of all aspects that will be saved after close of FileBrowserV2"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   175
321c1729db5b initial checkin
penk
parents:
diff changeset
   176
    ^ #(
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   177
           #rootHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   178
           #filterModel
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   179
           #enableFileHistory
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   180
           #fileHistory
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   181
           #currentFileNameHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   182
           #currentSortOrder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   183
           #sortBlockProperty
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   184
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   185
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   186
321c1729db5b initial checkin
penk
parents:
diff changeset
   187
resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   188
321c1729db5b initial checkin
penk
parents:
diff changeset
   189
    RuntimeAspects := nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
   190
321c1729db5b initial checkin
penk
parents:
diff changeset
   191
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   192
    self resetAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   193
"
321c1729db5b initial checkin
penk
parents:
diff changeset
   194
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   195
321c1729db5b initial checkin
penk
parents:
diff changeset
   196
runtimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   197
321c1729db5b initial checkin
penk
parents:
diff changeset
   198
    RuntimeAspects isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   199
	RuntimeAspects := Dictionary new.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   200
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   201
    ^ RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
   202
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   203
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   204
userPreferencesAspectList
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   205
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   206
    " list of all aspects that will be saved with save settings
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   207
      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
   208
      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
   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
    ^ #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   212
           #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   213
           #showDirectoryTree  
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   214
           #showHiddenFiles          
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   215
           #viewDescription        
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   216
           #viewDetails              
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   217
           #viewDirectoryDescription
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   218
           #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   219
           #viewGroup                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   220
           #viewOwner                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   221
           #viewPermissions          
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   222
           #viewPreview              
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   223
           #viewSize                
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   224
           #viewTime                 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   225
           #viewType  
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   226
           #openMultipleApplicationsForType
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   227
           #filenameEntryFieldVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   228
           #toolBarVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   229
           #sortDirectoriesBeforeFiles
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   230
           #openAlwaysInTextEditor
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   231
           #sortCaseless
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   232
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   233
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   234
321c1729db5b initial checkin
penk
parents:
diff changeset
   235
!AbstractFileBrowser class methodsFor:'image'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   236
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   237
disabledCursorImage
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   238
321c1729db5b initial checkin
penk
parents:
diff changeset
   239
    DisabledCursorImage isNil ifTrue:[
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   240
        DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   241
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   242
    ^ DisabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   243
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   244
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   245
enabledCursorImage
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   246
321c1729db5b initial checkin
penk
parents:
diff changeset
   247
    EnabledCursorImage isNil ifTrue:[
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
   248
        EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   249
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   250
    ^ EnabledCursorImage
321c1729db5b initial checkin
penk
parents:
diff changeset
   251
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   252
321c1729db5b initial checkin
penk
parents:
diff changeset
   253
!AbstractFileBrowser class methodsFor:'image specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   254
321c1729db5b initial checkin
penk
parents:
diff changeset
   255
clearHistoryIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   256
    ^ Icon deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   257
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   258
321c1729db5b initial checkin
penk
parents:
diff changeset
   259
closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   260
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   261
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   262
321c1729db5b initial checkin
penk
parents:
diff changeset
   263
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   264
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   265
321c1729db5b initial checkin
penk
parents:
diff changeset
   266
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   267
     self closeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   268
     ImageEditor openOnClass:self andSelector:#closeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   269
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   270
321c1729db5b initial checkin
penk
parents:
diff changeset
   271
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   272
321c1729db5b initial checkin
penk
parents:
diff changeset
   273
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   274
	constantNamed:#'AbstractFileBrowser class closeIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   275
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   276
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@HB@ @@@@@@@@@B@ H@@@@@@@@@@@@@@ HB@@@@@@@B@ H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   277
@@@@@@@B@ H@@@@B@ H@@@@@@@@@@@@@@@@@@@HB@ @B@ H@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   278
@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ H@@ HB@@@@@@@@@@@@@@@@@@@B@ H@@@@B@ H@@@@@@@@A@@@@@@@B@ H@@@@@@@HB@ @@@@@@@@@@@@@B
321c1729db5b initial checkin
penk
parents:
diff changeset
   279
@ H@@@@@@@@@@ HB@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@PD@@P@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   280
@@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
   281
@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
   282
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   283
321c1729db5b initial checkin
penk
parents:
diff changeset
   284
copyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   285
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   286
321c1729db5b initial checkin
penk
parents:
diff changeset
   287
    ^ ToolbarIconLibrary copy20x20Icon "copy28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   288
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   289
321c1729db5b initial checkin
penk
parents:
diff changeset
   290
cutIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   291
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   292
321c1729db5b initial checkin
penk
parents:
diff changeset
   293
    ^ ToolbarIconLibrary cut20x20Icon2 "cut28x28Icon"
321c1729db5b initial checkin
penk
parents:
diff changeset
   294
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   295
321c1729db5b initial checkin
penk
parents:
diff changeset
   296
deleteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   297
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   298
321c1729db5b initial checkin
penk
parents:
diff changeset
   299
    ^ ToolbarIconLibrary erase20x20Icon "/ delete28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   300
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   301
321c1729db5b initial checkin
penk
parents:
diff changeset
   302
diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   303
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   304
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   305
321c1729db5b initial checkin
penk
parents:
diff changeset
   306
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   307
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   308
321c1729db5b initial checkin
penk
parents:
diff changeset
   309
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   310
     self diffIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   311
     ImageEditor openOnClass:self andSelector:#diffIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   312
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   313
321c1729db5b initial checkin
penk
parents:
diff changeset
   314
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   315
321c1729db5b initial checkin
penk
parents:
diff changeset
   316
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   317
	constantNamed:#'AbstractFileBrowser class diffIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   318
	ifAbsentPut:[(Depth8Image new) width: 26; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   319
@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@DA XFA XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@XFA @F
321c1729db5b initial checkin
penk
parents:
diff changeset
   320
A XD@@@@@@@@@@@@@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA @FA XFA@@@@@@@@@@@@@@@@@@@@@@@A@XF@@XFA XD@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   321
@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA X@A XFA@@@@@@@@@@@@@@@@@@@@@@@A@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA XF
321c1729db5b initial checkin
penk
parents:
diff changeset
   322
A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XFA XFA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   323
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   324
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   325
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   326
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   327
321c1729db5b initial checkin
penk
parents:
diff changeset
   328
fileInIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   329
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   330
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   331
    ^ ToolbarIconLibrary fileIn20x20Icon3
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   332
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   333
321c1729db5b initial checkin
penk
parents:
diff changeset
   334
goHomeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   335
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   336
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   337
321c1729db5b initial checkin
penk
parents:
diff changeset
   338
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   339
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   340
321c1729db5b initial checkin
penk
parents:
diff changeset
   341
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   342
     self goHomeIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   343
     ImageEditor openOnClass:self andSelector:#goHomeIcon
4084
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   344
     Icon flushCachedIcons
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   345
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   346
321c1729db5b initial checkin
penk
parents:
diff changeset
   347
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   348
321c1729db5b initial checkin
penk
parents:
diff changeset
   349
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   350
	constantNamed:#'AbstractFileBrowser class goHomeIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   351
	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
   352
@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@DQ@@@@@@@@@@@@DQDP@@@@@@@@@@DQ@QD@@@@@@@@@DQH2DQ@@@@@@@@DQH4L!!DP@@@@@@DQH4QCHQD@@@@@
ada0669d06bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4089
diff changeset
   353
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
   354
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
   355
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   356
321c1729db5b initial checkin
penk
parents:
diff changeset
   357
hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   358
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   359
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   360
321c1729db5b initial checkin
penk
parents:
diff changeset
   361
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   362
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   363
321c1729db5b initial checkin
penk
parents:
diff changeset
   364
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   365
     self hexToggle22x22Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   366
     ImageEditor openOnClass:self andSelector:#hexToggle22x22Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   367
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   368
321c1729db5b initial checkin
penk
parents:
diff changeset
   369
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   370
321c1729db5b initial checkin
penk
parents:
diff changeset
   371
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   372
	constantNamed:#'AbstractFileBrowser class hexToggle22x22Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   373
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   374
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   375
@@@@@@TEAP@E@@TEAPT@@@@@@@@@@@@@@@@EAP@@AP@@APTE@@@@@@@@@@@@@@@@APTE@@T@APTEAP@@@@@@@@@@@@@@@@T@@@@E@@TEAPT@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   376
@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@@@@@@@T@AP@E@@T@APT@@@@@@@@@@@@@@@@E@@@@AP@@@@TE@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   377
AP@E@@T@AP@EAP@@@@@@@@@@@@@@@@T@AP@E@@@@APT@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   378
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   379
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   380
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   381
321c1729db5b initial checkin
penk
parents:
diff changeset
   382
historyIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   383
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   384
321c1729db5b initial checkin
penk
parents:
diff changeset
   385
    ^ ToolbarIconLibrary history20x20Icon "/ history28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   386
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   387
321c1729db5b initial checkin
penk
parents:
diff changeset
   388
homeIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   389
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   390
321c1729db5b initial checkin
penk
parents:
diff changeset
   391
    ^ ToolbarIconLibrary home28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   392
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   393
321c1729db5b initial checkin
penk
parents:
diff changeset
   394
htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   395
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   396
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   397
321c1729db5b initial checkin
penk
parents:
diff changeset
   398
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   399
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   400
321c1729db5b initial checkin
penk
parents:
diff changeset
   401
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   402
     self htmlReloadIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   403
     ImageEditor openOnClass:self andSelector:#htmlReloadIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   404
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   405
321c1729db5b initial checkin
penk
parents:
diff changeset
   406
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   407
321c1729db5b initial checkin
penk
parents:
diff changeset
   408
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   409
	constantNamed:#'AbstractFileBrowser class htmlReloadIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   410
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   411
@@@@@@@@@@@UT@@@@@EU@D@@@@UT@@@H@AUP@@@@@EU@@@@@@EU@@@@E@EU@@@@@@EU@@@@@AUUT@@@@@UUP@@@@@EU@@@@@@AT@@@@@@@P@@@@H@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   412
@@@@@@@@@@@@@@@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
   413
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   414
321c1729db5b initial checkin
penk
parents:
diff changeset
   415
leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   416
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   417
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   418
321c1729db5b initial checkin
penk
parents:
diff changeset
   419
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   420
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   421
321c1729db5b initial checkin
penk
parents:
diff changeset
   422
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   423
     self leftArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   424
     ImageEditor openOnClass:self andSelector:#leftArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   425
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   426
321c1729db5b initial checkin
penk
parents:
diff changeset
   427
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   428
321c1729db5b initial checkin
penk
parents:
diff changeset
   429
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   430
	constantNamed:#'AbstractFileBrowser class leftArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   431
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   432
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   433
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   434
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   435
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
   436
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   437
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   438
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   439
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   440
321c1729db5b initial checkin
penk
parents:
diff changeset
   441
leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   442
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   443
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   444
321c1729db5b initial checkin
penk
parents:
diff changeset
   445
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   446
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   447
321c1729db5b initial checkin
penk
parents:
diff changeset
   448
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   449
     self leftArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   450
     ImageEditor openOnClass:self andSelector:#leftArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   451
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   452
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   453
321c1729db5b initial checkin
penk
parents:
diff changeset
   454
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   455
321c1729db5b initial checkin
penk
parents:
diff changeset
   456
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   457
	constantNamed:#'AbstractFileBrowser class leftArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   458
	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
   459
@ 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
   460
@@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
   461
@ 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
   462
@@@@@@@@@@@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
   463
@ 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
   464
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   465
321c1729db5b initial checkin
penk
parents:
diff changeset
   466
leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   467
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   468
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   469
321c1729db5b initial checkin
penk
parents:
diff changeset
   470
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   471
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   472
321c1729db5b initial checkin
penk
parents:
diff changeset
   473
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   474
     self leftArrow20x20PlusMenuIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   475
     ImageEditor openOnClass:self andSelector:#leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   476
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   477
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   478
321c1729db5b initial checkin
penk
parents:
diff changeset
   479
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   480
321c1729db5b initial checkin
penk
parents:
diff changeset
   481
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   482
	constantNamed:#'AbstractFileBrowser class leftArrow20x20PlusMenuIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   483
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   484
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@A@ @@@@@@@@@@@@@@@@@@@@@@@PLA@@@@@@@@@@@@@@@@@@@@@@DD
321c1729db5b initial checkin
penk
parents:
diff changeset
   485
APH@@@@@@@@@@@@@@@@@@@@AA @G@P@@@@@@@@@@@@@@@@@@@P @BP(BB0LC@PDAB0@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@AA @@D1PUC!!@QDQXWA1H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   486
@@@@@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
   487
B DRD!!HRD!!HK@@@@@@@@@@@RB!!4"@ @@@@@@@@@@@@@@@@@@@@@RB"DA@@@@@@@@@@@KB0,KB0,K@@@K@PH@@@@@@@@@@@@KB0,KB0@@@@@K@P@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   488
@@@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
   489
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   490
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   491
leftArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   492
    ^ self leftArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   493
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   494
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   495
leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   496
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   497
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   498
321c1729db5b initial checkin
penk
parents:
diff changeset
   499
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   500
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   501
321c1729db5b initial checkin
penk
parents:
diff changeset
   502
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   503
     self leftArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   504
     ImageEditor openOnClass:self andSelector:#leftArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   505
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   506
321c1729db5b initial checkin
penk
parents:
diff changeset
   507
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   508
321c1729db5b initial checkin
penk
parents:
diff changeset
   509
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   510
	constantNamed:#'AbstractFileBrowser class leftArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   511
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   512
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   513
@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin
penk
parents:
diff changeset
   514
@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin
penk
parents:
diff changeset
   515
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
   516
@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   517
@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@KB0,KB0,K@@@@@@@@@@@@@@@@@@@@@@@@B0,KB0,@@@@@@@@@@@@@@@@@@@@@@@@@@@,KB0@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   518
@@@@@@@@@@@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
   519
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   520
321c1729db5b initial checkin
penk
parents:
diff changeset
   521
leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   522
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   523
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   524
321c1729db5b initial checkin
penk
parents:
diff changeset
   525
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   526
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   527
321c1729db5b initial checkin
penk
parents:
diff changeset
   528
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   529
     self leftDownIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   530
     ImageEditor openOnClass:self andSelector:#leftDownIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   531
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   532
321c1729db5b initial checkin
penk
parents:
diff changeset
   533
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   534
321c1729db5b initial checkin
penk
parents:
diff changeset
   535
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   536
	constantNamed:#'AbstractFileBrowser class leftDownIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   537
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   538
UUUUUUUUUUUPAUUUUUUUP@UUUUUUUPB!!UUUUUU@B*AUUUUU@B*(UUUUUPB** UUUUPB***AUUUTB***(EUUUB****%UUUR*****UUUUU@*%UUUUUUPJ)UUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   539
UUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*%UUUUUUPJ)UUUUUUTB*UUUUUUU@*$@@@@AUPJ*****)UTB******UU@******%UPJ*****)UTAUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   540
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
   541
@@@@@@@@@@@@ @@@@\@@@@O @@@G<@@@C? @@A?<@@@?? @@_?<@@G?? @@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C??? @???8@O?
321c1729db5b initial checkin
penk
parents:
diff changeset
   542
?>@C??? @???8@O??>@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   543
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   544
321c1729db5b initial checkin
penk
parents:
diff changeset
   545
leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   546
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   547
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   548
321c1729db5b initial checkin
penk
parents:
diff changeset
   549
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   550
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   551
321c1729db5b initial checkin
penk
parents:
diff changeset
   552
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   553
     self leftIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   554
     ImageEditor openOnClass:self andSelector:#leftIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   555
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   556
321c1729db5b initial checkin
penk
parents:
diff changeset
   557
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   558
321c1729db5b initial checkin
penk
parents:
diff changeset
   559
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   560
	constantNamed:#'AbstractFileBrowser class leftIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   561
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   562
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUPUUUUUUUUP%UUUUUUUP)UUUUUUUP*P@@@@@AP*$@@@@@@P*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   563
*P********$********)J********U********%V*%UUUUUUUZ)UUUUUUUP*UUUUUUUUV%UUUUUUUUYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   564
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
   565
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@F@@@@C @@@A8@@@@>@@@@_???0O???<G????C????0_???<C????@_???0C8@@@@^@@@@C @@@@X@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   566
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   567
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   568
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   569
makeIcon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   570
    "This resource specification was automatically generated
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   571
     by the ImageEditor of ST/X."
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   572
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   573
    "Do not manually edit this!! If it is corrupted,
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   574
     the ImageEditor may not be able to read the specification."
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
    "
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   577
     self makeIcon inspect
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   578
     ImageEditor openOnClass:self andSelector:#makeIcon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   579
     Icon flushCachedIcons
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
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   582
    <resource: #image>
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   583
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   584
    ^Icon
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   585
        constantNamed:#'AbstractFileBrowser class makeIcon'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   586
        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
   587
@@@@@@@@@@@@@@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
   588
@@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
   589
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
   590
@ 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
   591
@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
   592
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
   593
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   594
menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   595
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   596
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   597
321c1729db5b initial checkin
penk
parents:
diff changeset
   598
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   599
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   600
321c1729db5b initial checkin
penk
parents:
diff changeset
   601
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   602
     self menuHistoryList9x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   603
     ImageEditor openOnClass:self andSelector:#menuHistoryList9x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   604
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   605
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   606
321c1729db5b initial checkin
penk
parents:
diff changeset
   607
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   608
321c1729db5b initial checkin
penk
parents:
diff changeset
   609
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   610
	constantNamed:#'AbstractFileBrowser class menuHistoryList9x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   611
	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
   612
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   613
321c1729db5b initial checkin
penk
parents:
diff changeset
   614
menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   615
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   616
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   617
321c1729db5b initial checkin
penk
parents:
diff changeset
   618
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   619
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   620
321c1729db5b initial checkin
penk
parents:
diff changeset
   621
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   622
     self menuHistoryListIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   623
     ImageEditor openOnClass:self andSelector:#menuHistoryListIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   624
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   625
321c1729db5b initial checkin
penk
parents:
diff changeset
   626
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   627
321c1729db5b initial checkin
penk
parents:
diff changeset
   628
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   629
	constantNamed:#'AbstractFileBrowser class menuHistoryListIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   630
	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
   631
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   632
3923
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   633
newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   634
    "This resource specification was automatically generated
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   635
     by the ImageEditor of ST/X."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   636
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   637
    "Do not manually edit this!! If it is corrupted,
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   638
     the ImageEditor may not be able to read the specification."
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   639
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   640
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   641
     self newDirectory20x20Icon inspect
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   642
     ImageEditor openOnClass:self andSelector:#newDirectory20x20Icon
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   643
     Icon flushCachedIcons
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   644
    "
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   645
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   646
    <resource: #image>
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   647
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   648
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   649
	constantNamed:#'AbstractFileBrowser class newDirectory20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   650
	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
   651
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PDA@P@@@@@@@@@@@@@@@@@A@ HB@ HA@@@@@@@@@@@@@@@@@PHB@ HB@ HA
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   652
@@@@@@@@@@@@@@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
   653
@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
   654
@ 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
   655
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   656
!
2988fc3c88ab next stage
penk
parents: 3922
diff changeset
   657
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   658
pasteIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   659
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   660
321c1729db5b initial checkin
penk
parents:
diff changeset
   661
    ^ ToolbarIconLibrary paste20x20Icon "/ paste28x28Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   662
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   663
321c1729db5b initial checkin
penk
parents:
diff changeset
   664
rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   665
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   666
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   667
321c1729db5b initial checkin
penk
parents:
diff changeset
   668
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   669
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   670
321c1729db5b initial checkin
penk
parents:
diff changeset
   671
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   672
     self rightArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   673
     ImageEditor openOnClass:self andSelector:#rightArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   674
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   675
321c1729db5b initial checkin
penk
parents:
diff changeset
   676
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   677
321c1729db5b initial checkin
penk
parents:
diff changeset
   678
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   679
	constantNamed:#'AbstractFileBrowser class rightArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   680
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   681
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   682
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   683
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   684
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
   685
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   686
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   687
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   688
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   689
321c1729db5b initial checkin
penk
parents:
diff changeset
   690
rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   691
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   692
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   693
321c1729db5b initial checkin
penk
parents:
diff changeset
   694
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   695
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   696
321c1729db5b initial checkin
penk
parents:
diff changeset
   697
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   698
     self rightArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   699
     ImageEditor openOnClass:self andSelector:#rightArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   700
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   701
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   702
321c1729db5b initial checkin
penk
parents:
diff changeset
   703
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   704
321c1729db5b initial checkin
penk
parents:
diff changeset
   705
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   706
	constantNamed:#'AbstractFileBrowser class rightArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   707
	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
   708
@ 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
   709
@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
   710
@ 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
   711
@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
   712
@ 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
   713
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   714
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   715
rightArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   716
    ^ self rightArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   717
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   718
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   719
rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   720
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   721
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   722
321c1729db5b initial checkin
penk
parents:
diff changeset
   723
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   724
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   725
321c1729db5b initial checkin
penk
parents:
diff changeset
   726
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   727
     self rightArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   728
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   729
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   730
321c1729db5b initial checkin
penk
parents:
diff changeset
   731
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   732
321c1729db5b initial checkin
penk
parents:
diff changeset
   733
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   734
	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   735
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   736
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   737
@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin
penk
parents:
diff changeset
   738
@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin
penk
parents:
diff changeset
   739
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
   740
@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   741
@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   742
@@@@@@@@@@@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
   743
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   744
321c1729db5b initial checkin
penk
parents:
diff changeset
   745
rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   746
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   747
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   748
321c1729db5b initial checkin
penk
parents:
diff changeset
   749
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   750
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   751
321c1729db5b initial checkin
penk
parents:
diff changeset
   752
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   753
     self rightArrowPlusMenu20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   754
     ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   755
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   756
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   757
321c1729db5b initial checkin
penk
parents:
diff changeset
   758
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   759
321c1729db5b initial checkin
penk
parents:
diff changeset
   760
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   761
	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   762
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   763
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@@@@@@@@@@@@@@@@CA@H@@@@@@@@@@@@@@@@@@@@@@@DE
321c1729db5b initial checkin
penk
parents:
diff changeset
   764
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
   765
@@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
   766
FQDZ@ @@@@@@@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@CAA(B@@@@@@@@@@@@@@@@@@@@@@DZ@ @@@ HB@ HB@ @@@@@@@@@@@0H@@@@@@ HB@ H@
321c1729db5b initial checkin
penk
parents:
diff changeset
   767
@@@@@@@@@@@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
   768
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   769
321c1729db5b initial checkin
penk
parents:
diff changeset
   770
rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   771
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   772
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   773
321c1729db5b initial checkin
penk
parents:
diff changeset
   774
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   775
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   776
321c1729db5b initial checkin
penk
parents:
diff changeset
   777
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   778
     self rightIcon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   779
     ImageEditor openOnClass:self andSelector:#rightIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   780
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   781
321c1729db5b initial checkin
penk
parents:
diff changeset
   782
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   783
321c1729db5b initial checkin
penk
parents:
diff changeset
   784
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   785
	constantNamed:#'AbstractFileBrowser class rightIcon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   786
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   787
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTIUUUUUUUUB%UEUUUUUP*EP@@@@@@J)T@@@@@@B*%B*******
321c1729db5b initial checkin
penk
parents:
diff changeset
   788
*P********(J********B********P********PEUUUUUV*QEUUUUUP*PUUUUUUTJQUUUUUUUBQUUUUUUUPQUUUUUUUPAUUUUUUUTUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin
penk
parents:
diff changeset
   789
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
   790
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@8@@@@O@@@@C8A????@_???8G????A????0_???<G???>A????@@@@O @@@C0@@@@8@@@@L@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   791
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin
penk
parents:
diff changeset
   792
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   793
321c1729db5b initial checkin
penk
parents:
diff changeset
   794
searchIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   795
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   796
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   797
    ^ ToolbarIconLibrary search20x20Icon "/ search28x28Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   798
    "/ ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   799
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   800
321c1729db5b initial checkin
penk
parents:
diff changeset
   801
shellIcon
321c1729db5b initial checkin
penk
parents:
diff changeset
   802
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   803
321c1729db5b initial checkin
penk
parents:
diff changeset
   804
    OperatingSystem isMSDOSlike ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   805
	^ ToolbarIconLibrary dos20x20Icon
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   806
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   807
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   808
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   809
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   810
shellWithoutTextIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   811
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   812
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   813
    OperatingSystem isMSDOSlike ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   814
	^ ToolbarIconLibrary dosWithoutText20x20Icon
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   815
    ].
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   816
    ^ ToolbarIconLibrary shellWithoutText20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   817
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   818
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   819
upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   820
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   821
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   822
321c1729db5b initial checkin
penk
parents:
diff changeset
   823
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   824
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   825
321c1729db5b initial checkin
penk
parents:
diff changeset
   826
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   827
     self upArrow inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   828
     ImageEditor openOnClass:self andSelector:#upArrow
321c1729db5b initial checkin
penk
parents:
diff changeset
   829
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   830
321c1729db5b initial checkin
penk
parents:
diff changeset
   831
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   832
321c1729db5b initial checkin
penk
parents:
diff changeset
   833
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   834
	constantNamed:#'AbstractFileBrowser class upArrow'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   835
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   836
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   837
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   838
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   839
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   840
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   841
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   842
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   843
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   844
321c1729db5b initial checkin
penk
parents:
diff changeset
   845
upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   846
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   847
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   848
321c1729db5b initial checkin
penk
parents:
diff changeset
   849
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   850
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   851
321c1729db5b initial checkin
penk
parents:
diff changeset
   852
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   853
     self upArrow20x20Icon inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   854
     ImageEditor openOnClass:self andSelector:#upArrow20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   855
     Icon flushCachedIcons
321c1729db5b initial checkin
penk
parents:
diff changeset
   856
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   857
321c1729db5b initial checkin
penk
parents:
diff changeset
   858
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   859
321c1729db5b initial checkin
penk
parents:
diff changeset
   860
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   861
	constantNamed:#'AbstractFileBrowser class upArrow20x20Icon'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   862
	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
   863
@ 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
   864
@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
   865
@ 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
   866
@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
   867
@ 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
   868
!
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   869
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   870
upArrow20x20IconOld
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   871
    "This resource specification was automatically generated
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   872
     by the ImageEditor of ST/X."
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   873
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   874
    "Do not manually edit this!! If it is corrupted,
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   875
     the ImageEditor may not be able to read the specification."
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   876
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   877
    "
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   878
     self upArrow20x20IconOld inspect
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   879
     ImageEditor openOnClass:self andSelector:#upArrow20x20IconOld
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   880
     Icon flushCachedIcons
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   881
    "
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   882
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   883
    <resource: #image>
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   884
cac21759ab0e reduce colors for buttons
penk
parents: 4080
diff changeset
   885
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   886
	constantNamed:#'AbstractFileBrowser class upArrow20x20IconOld'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   887
	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   888
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@PXG
321c1729db5b initial checkin
penk
parents:
diff changeset
   889
B@PE@@@@@@@@@@@@@@@@@@DI@@\JB@PE@@@@@@@@@@@@@@@AB0@@C@4NC0PE@@@@@@@@@@@@@PX@@@0HB@4PC0PE@@@@@@@@@@DCA1DRBALSBAPNEPPB@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   890
@@@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
   891
EQ<DAP@@@@@@@@@@@@@@@@D@HRHUB PE@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@AE!! YA@PZ@ @@@@@@@@@@@@@@@@HEAPTEAPHB@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   892
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   893
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   894
4094
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   895
upArrowIcon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   896
    ^ self upArrow20x20Icon
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   897
!
Claus Gittinger <cg@exept.de>
parents: 4093
diff changeset
   898
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   899
upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   900
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   901
     by the ImageEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   902
321c1729db5b initial checkin
penk
parents:
diff changeset
   903
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   904
     the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   905
321c1729db5b initial checkin
penk
parents:
diff changeset
   906
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   907
     self upArrowPlusMenu inspect
321c1729db5b initial checkin
penk
parents:
diff changeset
   908
     ImageEditor openOnClass:self andSelector:#upArrowPlusMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
   909
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   910
321c1729db5b initial checkin
penk
parents:
diff changeset
   911
    <resource: #image>
321c1729db5b initial checkin
penk
parents:
diff changeset
   912
321c1729db5b initial checkin
penk
parents:
diff changeset
   913
    ^Icon
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   914
	constantNamed:#'AbstractFileBrowser class upArrowPlusMenu'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   915
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   916
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   917
@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin
penk
parents:
diff changeset
   918
C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin
penk
parents:
diff changeset
   919
GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   920
@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   921
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin
penk
parents:
diff changeset
   922
@@@@@@@@@@@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
   923
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   924
321c1729db5b initial checkin
penk
parents:
diff changeset
   925
vt100Terminal
321c1729db5b initial checkin
penk
parents:
diff changeset
   926
    <resource: #programImage>
321c1729db5b initial checkin
penk
parents:
diff changeset
   927
321c1729db5b initial checkin
penk
parents:
diff changeset
   928
    ^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin
penk
parents:
diff changeset
   929
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   930
321c1729db5b initial checkin
penk
parents:
diff changeset
   931
!AbstractFileBrowser class methodsFor:'menu specs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   932
321c1729db5b initial checkin
penk
parents:
diff changeset
   933
baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   934
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
   935
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
   936
321c1729db5b initial checkin
penk
parents:
diff changeset
   937
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
   938
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
   939
321c1729db5b initial checkin
penk
parents:
diff changeset
   940
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   941
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#baseBookmarksMenuSpec
321c1729db5b initial checkin
penk
parents:
diff changeset
   942
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser baseBookmarksMenuSpec)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
   943
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
   944
321c1729db5b initial checkin
penk
parents:
diff changeset
   945
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
   946
321c1729db5b initial checkin
penk
parents:
diff changeset
   947
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
   948
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   949
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   950
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   951
	    #label: 'Add Bookmark'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   952
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   953
	    #value: #addBookmark
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   954
	    #enabled: #currentFilesHasDirectories
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   955
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   956
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   957
	    #label: 'Remove Bookmark'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   958
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   959
	    #value: #removeBookmark
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   960
	    #enabled: #hasBookmarksToRemove
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   961
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   962
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   963
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
   964
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   965
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
   966
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   967
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   968
browserMenu
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   969
    "This resource specification was automatically generated
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   970
     by the MenuEditor of ST/X."
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   971
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   972
    "Do not manually edit this!! If it is corrupted,
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   973
     the MenuEditor may not be able to read the specification."
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   974
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   975
    "
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   976
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#browserMenu
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   977
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser browserMenu)) startUp
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   978
    "
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   979
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   980
    <resource: #menu>
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   981
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   982
    ^ 
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
   983
     #(#Menu
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   984
        #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   985
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   986
            #label: 'Spawn'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   987
            #itemValue: #doSpawn
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   988
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   989
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   990
         #(#MenuItem
4317
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
   991
            #label: 'Settings...'
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
   992
            #itemValue: #doOpenSettings
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   993
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   994
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   995
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   996
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   997
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   998
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
   999
            #label: 'Search Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1000
            #itemValue: #doOpenSearchFile
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1001
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1002
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1003
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1004
            #label: 'Shell Terminal'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1005
            #itemValue: #doAddTerminal
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1006
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1007
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1008
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1009
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1010
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1011
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1012
            #label: 'Exit'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1013
            #itemValue: #closeRequest
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1014
            #translateLabel: true
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
         )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1017
        nil
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1018
        nil
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1019
      )
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1020
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  1021
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1022
cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1023
    "This resource specification was automatically generated
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1024
     by the MenuEditor of ST/X."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1025
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1026
    "Do not manually edit this!! If it is corrupted,
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1027
     the MenuEditor may not be able to read the specification."
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1028
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1029
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1030
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#cvsMenu
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1031
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser cvsMenu)) startUp
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1032
    "
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1033
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1034
    <resource: #menu>
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1035
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1036
    ^ 
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1037
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1038
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1039
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1040
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1041
	    #label: 'Update selected Files/Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1042
	    #itemValue: #cvsUpdateSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1043
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1044
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1045
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1046
	    #label: 'Update Directory Local'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1047
	    #itemValue: #cvsUpdateAll
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1048
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1049
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1050
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1051
	    #label: 'Update Directory Recursive'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1052
	    #itemValue: #cvsUpdateAllRecursive
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1053
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1054
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1055
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1056
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1057
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1058
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1059
	    #label: 'Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1060
	    #itemValue: #cvsCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1061
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1062
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1063
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1064
	    #enabled: #canCvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1065
	    #label: 'Add && Commit...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1066
	    #itemValue: #cvsAddAndCommit
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1067
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1068
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1069
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1070
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1071
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1072
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1073
	    #enabled: #canRemoveCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1074
	    #label: 'Remove File && CVS Container...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1075
	    #itemValue: #cvsRemoveFileAndCVSContainer
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1076
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1077
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1078
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1079
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1080
	nil
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1081
      )
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1082
!
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  1083
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1084
directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1085
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1086
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1087
321c1729db5b initial checkin
penk
parents:
diff changeset
  1088
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1089
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1090
321c1729db5b initial checkin
penk
parents:
diff changeset
  1091
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1092
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1093
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1094
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1095
321c1729db5b initial checkin
penk
parents:
diff changeset
  1096
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1097
321c1729db5b initial checkin
penk
parents:
diff changeset
  1098
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1099
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1100
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1101
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1102
	    #label: 'Up'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1103
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1104
	    #value: #doGoDirectoryUp
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1105
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1106
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1107
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1108
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1109
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1110
	    #label: 'Back'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1111
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1112
	    #value: #doBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1113
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1114
	    #enabled: #enableBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1115
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1116
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1117
	    #label: 'Forward'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1118
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1119
	    #value: #doForward
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1120
	    #activeHelpKey: #directoryBack
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1121
	    #enabled: #enableForward
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1122
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1123
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1124
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1125
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1126
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1127
	    #label: 'Default'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1128
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1129
	    #value: #doGotoDefaultDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1130
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1131
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1132
	    #label: 'Home'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1133
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1134
	    #value: #doGotoHomeDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1135
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1136
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1137
	    #label: 'Visited Directories'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1138
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1139
	    #submenuChannel: #visitedDirectoriesMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1140
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1141
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1142
	    #label: 'Bookmarks'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1143
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1144
	    #submenuChannel: #bookmarksMenuSpec
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1145
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1146
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1147
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1148
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1149
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1150
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1151
321c1729db5b initial checkin
penk
parents:
diff changeset
  1152
editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1153
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1154
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1155
321c1729db5b initial checkin
penk
parents:
diff changeset
  1156
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1157
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1158
321c1729db5b initial checkin
penk
parents:
diff changeset
  1159
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1160
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#editMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1161
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser editMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1162
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1163
321c1729db5b initial checkin
penk
parents:
diff changeset
  1164
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1165
321c1729db5b initial checkin
penk
parents:
diff changeset
  1166
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1167
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1168
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1169
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1170
	    #label: 'Copy'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1171
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1172
	    #value: #copyInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1173
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1174
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1175
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1176
	    #label: 'Cut'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1177
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1178
	    #value: #cutInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1179
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1180
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1181
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1182
	    #label: 'Paste'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1183
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1184
	    #value: #pasteFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1185
	    #enabled: #canPaste
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1186
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1187
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1188
	    #label: 'Delete'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1189
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1190
	    #value: #deleteInDirContentsBrowser
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1191
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1192
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1193
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1194
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1195
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1196
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1197
	    #label: 'Copy All Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1198
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1199
	    #value: #copyFileList
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1200
	    #enabled: #fileListIsNotEmpty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1201
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1202
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1203
	    #label: 'Copy Selected Filenames'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1204
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1205
	    #value: #copySelectedFilenames
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1206
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1207
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1208
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1209
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1210
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1211
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1212
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1213
321c1729db5b initial checkin
penk
parents:
diff changeset
  1214
fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1215
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1216
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1217
321c1729db5b initial checkin
penk
parents:
diff changeset
  1218
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1219
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1220
321c1729db5b initial checkin
penk
parents:
diff changeset
  1221
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1222
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#fileMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1223
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser fileMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1224
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1225
321c1729db5b initial checkin
penk
parents:
diff changeset
  1226
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1227
321c1729db5b initial checkin
penk
parents:
diff changeset
  1228
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1229
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1230
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1231
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1232
	    #label: 'New'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1233
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1234
	    #submenuChannel: #newMenu
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1235
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1236
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1237
	    #label: 'Rename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1238
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1239
	    #value: #renameSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1240
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1241
	    #shortcutKeyCharacter: #Replace
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1242
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1243
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1244
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1245
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1246
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1247
	    #label: 'Open in Text Editor'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1248
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1249
	    #value: #doShowFileContents
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1250
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1251
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1252
	    #label: 'Properties...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1253
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1254
	    #value: #doShowProperties
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1255
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1256
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1257
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1258
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1259
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1260
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1261
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1262
	    #label: 'File in'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1263
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1264
	    #value: #fileFileIn
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1265
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1266
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1267
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1268
	    #label: 'File in to Namespace...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1269
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1270
	    #value: #fileFileInToNameSpace
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1271
	    #enabled: #hasSelection
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1272
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1273
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1274
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1275
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1276
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1277
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1278
	    #label: 'Add to Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1279
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1280
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1281
	    #enabled: #canAddToClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1282
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1283
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1284
	    #label: 'Remove from Java Class Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1285
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1286
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1287
	    #enabled: #canRemoveFromClassPath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1288
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1289
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1290
	    #label: 'Add to Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1291
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1292
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1293
	    #enabled: #canAddToSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1294
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1295
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1296
	    #label: 'Remove from Java Source Path'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1297
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1298
	    #isVisible: #javaSupportLoaded
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1299
	    #enabled: #canRemoveFromSourcePath
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1300
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1301
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1302
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1303
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1304
      )
321c1729db5b initial checkin
penk
parents:
diff changeset
  1305
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1306
321c1729db5b initial checkin
penk
parents:
diff changeset
  1307
newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1308
    "This resource specification was automatically generated
321c1729db5b initial checkin
penk
parents:
diff changeset
  1309
     by the MenuEditor of ST/X."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1310
321c1729db5b initial checkin
penk
parents:
diff changeset
  1311
    "Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin
penk
parents:
diff changeset
  1312
     the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1313
321c1729db5b initial checkin
penk
parents:
diff changeset
  1314
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1315
     MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#newMenu
321c1729db5b initial checkin
penk
parents:
diff changeset
  1316
     (Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser newMenu)) startUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  1317
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  1318
321c1729db5b initial checkin
penk
parents:
diff changeset
  1319
    <resource: #menu>
321c1729db5b initial checkin
penk
parents:
diff changeset
  1320
321c1729db5b initial checkin
penk
parents:
diff changeset
  1321
    ^ 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1322
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1323
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1324
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1325
	    #label: 'Directory...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1326
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1327
	    #value: #newDirectory
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1328
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1329
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1330
	    #label: 'File...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1331
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1332
	    #value: #newFile
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1333
	  )                                     
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1334
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1335
	    #label: 'Hard Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1336
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1337
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1338
	    #value: #newHardLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1339
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1340
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1341
	    #label: 'Symbolic Link...'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1342
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1343
	    #isVisible: #systemIsUnix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1344
	    #value: #newSoftLink
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1345
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1346
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1347
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1348
	nil
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1349
      )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1350
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1351
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1352
showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1353
    "This resource specification was automatically generated
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1354
     by the MenuEditor of ST/X."
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1355
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1356
    "Do not manually edit this!! If it is corrupted,
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1357
     the MenuEditor may not be able to read the specification."
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
    "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1360
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1361
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser showMenuSpec)) startUp
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
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1364
    <resource: #menu>
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
    ^ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1367
     #(#Menu
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1368
        #(
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1369
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1370
            #label: 'Hidden Files'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1371
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1372
            #indication: #showHiddenFiles
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1373
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1374
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1375
            #label: '-'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1376
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1377
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1378
            #label: 'Directory Tree'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1379
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1380
            #indication: #showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1381
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1382
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1383
            #label: 'Regular Files in TreeView (Left)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1384
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1385
            #indication: #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1386
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1387
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1388
            #label: 'Directories in ContentsView (Right)'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1389
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1390
            #indication: #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1391
          )
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1392
         #(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1393
            #enabled: #enableViewNoteBookApplication
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1394
            #label: 'File Applications'
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1395
            #translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1396
            #indication: #viewNoteBookApplicationHolder
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
         )
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
        nil
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
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  1403
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1404
sortMenu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1405
    "This resource specification was automatically generated
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1406
     by the MenuEditor of ST/X."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1407
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1408
    "Do not manually edit this!! If it is corrupted,
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1409
     the MenuEditor may not be able to read the specification."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1410
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1411
    "
3907
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1412
     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#sortMenu
a06fe9db6195 next stage
penk
parents: 3906
diff changeset
  1413
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser sortMenu)) startUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1414
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1415
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1416
    <resource: #menu>
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1417
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1418
    ^ 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1419
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1420
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1421
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1422
	    #label: 'By Filename'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1423
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1424
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1425
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1426
	    #choiceValue: #baseName
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1427
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1428
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1429
	    #label: 'By Type'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1430
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1431
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1432
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1433
	    #choiceValue: #suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1434
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1435
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1436
	    #label: 'By Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1437
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1438
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1439
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1440
	    #choiceValue: #permissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1441
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1442
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1443
	    #label: 'By Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1444
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1445
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1446
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1447
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1448
	    #choiceValue: #owner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1449
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1450
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1451
	    #label: 'By Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1452
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1453
	    #isVisible: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1454
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1455
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1456
	    #choiceValue: #group
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1457
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1458
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1459
	    #label: 'By Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1460
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1461
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1462
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1463
	    #choiceValue: #fileSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1464
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1465
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1466
	    #label: 'By Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1467
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1468
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1469
	    #choice: #sortBlockProperty
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1470
	    #choiceValue: #modificationTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1471
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1472
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1473
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1474
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1475
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1476
	    #label: 'Ignore Case in Sort'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1477
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1478
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1479
	    #indication: #sortCaseless
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1480
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1481
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1482
	    #label: 'Directories before Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1483
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1484
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1485
	    #indication: #sortDirectoriesBeforeFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1486
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1487
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1488
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1489
	nil
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1490
      )
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1491
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1492
4164
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1493
toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1494
    "This resource specification was automatically generated
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1495
     by the MenuEditor of ST/X."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1496
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1497
    "Do not manually edit this!! If it is corrupted,
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1498
     the MenuEditor may not be able to read the specification."
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
    "
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1501
     MenuEditor new openOnClass:FileBrowserV2 andSelector:#toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1502
     (Menu new fromLiteralArrayEncoding:(FileBrowserV2 toolsMenuSpec)) startUp
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
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1505
    <resource: #menu>
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
    ^ 
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1508
     #(#Menu
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1509
        #(
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1510
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1511
            #label: 'Execute Command...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1512
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1513
            #value: #doExecuteCommand
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1514
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1515
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1516
            #label: 'Shell Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1517
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1518
            #isVisible: #canDoTerminalAndSystemIsUnix
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1519
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1520
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1521
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1522
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1523
            #label: 'DOS Terminal'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1524
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1525
            #isVisible: #canDoTerminalAndSystemIsDOS
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1526
            #value: #openTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1527
            #enabled: #canDoTerminal
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1528
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1529
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1530
            #label: '-'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1531
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1532
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1533
            #label: 'Changes Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1534
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1535
            #value: #openChangesBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1536
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1537
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1538
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1539
            #label: 'ChangeSet Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1540
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1541
            #value: #openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1542
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1543
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1544
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1545
            #label: 'Snapshot Image Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1546
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1547
            #value: #openSnapshotImageBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1548
            #enabled: #hasSnapshotSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1549
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1550
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1551
            #label: 'Create Smalltalk Project'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1552
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1553
            #value: #createProjectAndOpenProjectBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1554
            #enabled: #canCreateNewProject
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1555
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1556
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1557
            #label: 'Install Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1558
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1559
            #value: #readAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1560
            #enabled: #canReadAbbrevFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1561
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1562
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1563
            #label: 'Install all as Autoloaded'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1564
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1565
            #value: #installAllAsAutoloaded
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1566
            #enabled: #anySTFilesPresent
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1567
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1568
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1569
            #label: 'Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1570
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1571
            #value: #openEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1572
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1573
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1574
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1575
            #label: 'HTML Reader'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1576
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1577
            #value: #openHTMLReader
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1578
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1579
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1580
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1581
            #label: 'ASN1 Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1582
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1583
            #isVisible: #hasASN1
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1584
            #value: #openASN1Browser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1585
            #enabled: #hasASN1AndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1586
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1587
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1588
            #label: 'C Browser'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1589
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1590
            #isVisible: #hasCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1591
            #value: #openCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1592
            #enabled: #hasCBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1593
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1594
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1595
            #label: 'Applet Viewer'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1596
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1597
            #isVisible: #hasJava
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1598
            #value: #openAppletViewer
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1599
            #enabled: #hasJavaAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1600
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1601
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1602
            #label: 'Image Inspector'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1603
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1604
            #value: #openImageInspector
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1605
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1606
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1607
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1608
            #label: 'Image Preview'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1609
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1610
            #value: #openImagePreview
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1611
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1612
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1613
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1614
            #label: 'Image Editor'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1615
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1616
            #value: #openImageEditor
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1617
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1618
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1619
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1620
            #label: 'MP3 Player'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1621
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1622
            #isVisible: #hasMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1623
            #value: #openMP3Player
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1624
            #enabled: #hasMP3PlayerAndSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1625
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1626
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1627
            #label: 'ZipFile Tool'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1628
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1629
            #value: #openZipTool
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1630
            #enabled: #hasZipFileSelected
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1631
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1632
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1633
            #label: 'Slide Show'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1634
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1635
            #isVisible: #hasSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1636
            #value: #openSlideShow
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1637
            #enabled: #currentFilesAreInSameDirectory
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1638
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1639
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1640
            #label: 'File Differences...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1641
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1642
            #value: #openDiffView
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1643
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1644
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1645
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1646
            #label: 'Find Duplicate Files'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1647
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1648
            #value: #fileFindDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1649
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1650
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1651
            #label: 'Find All Duplicate Files (Recursive)'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1652
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1653
            #value: #fileFindAllDuplicates
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1654
            #enabled: #hasSelection
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1655
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1656
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1657
            #label: 'Find a File...'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1658
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1659
            #value: #fileFindFile
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1660
          )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1661
         #(#MenuItem
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1662
            #label: 'Hex Dump'
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1663
            #translateLabel: true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1664
            #value: #fileHexDump
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1665
            #enabled: #hasSelection
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
         )
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1668
        nil
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  1669
        nil
4164
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
!
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser
penk
parents: 4163
diff changeset
  1672
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1673
viewDetailsMenuSpec
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1674
    "This resource specification was automatically generated
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1675
     by the MenuEditor of ST/X."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1676
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1677
    "Do not manually edit this!! If it is corrupted,
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1678
     the MenuEditor may not be able to read the specification."
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1679
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1680
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1681
     MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1682
     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1683
    "
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1684
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1685
    <resource: #menu>
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1686
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1687
    ^ 
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1688
     #(#Menu
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1689
	#(
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1690
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1691
	    #label: 'Suffix'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1692
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1693
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1694
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1695
	    #indication: #viewType
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1696
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1697
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1698
	    #label: 'Permissions'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1699
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1700
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1701
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1702
	    #indication: #viewPermissions
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1703
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1704
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1705
	    #label: 'Owner'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1706
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1707
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1708
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1709
	    #indication: #viewOwner
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1710
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1711
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1712
	    #label: 'Group'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1713
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1714
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1715
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1716
	    #indication: #viewGroup
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1717
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1718
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1719
	    #label: 'Size'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1720
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1721
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1722
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1723
	    #indication: #viewSize
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1724
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1725
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1726
	    #label: 'Date && Time'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1727
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1728
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1729
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1730
	    #indication: #viewTime
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1731
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1732
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1733
	    #label: 'File Info'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1734
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1735
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1736
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1737
	    #indication: #viewDescription
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1738
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1739
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1740
	    #label: 'Preview'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1741
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1742
	    #hideMenuOnActivated: false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1743
	    #enabled: #viewDetails
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1744
	    #indication: #viewPreview
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1745
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1746
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1747
	    #label: '-'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1748
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1749
	 #(#MenuItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1750
	    #label: 'Hidden Files'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1751
	    #translateLabel: true
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1752
	    #indication: #showHiddenFiles
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1753
	  )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1754
	 )
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1755
	nil
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1756
	nil
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  1757
      )
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1758
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1759
321c1729db5b initial checkin
penk
parents:
diff changeset
  1760
!AbstractFileBrowser class methodsFor:'misc'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1761
321c1729db5b initial checkin
penk
parents:
diff changeset
  1762
newLock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1763
    ^ CodeExecutionLock new
321c1729db5b initial checkin
penk
parents:
diff changeset
  1764
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1765
321c1729db5b initial checkin
penk
parents:
diff changeset
  1766
!AbstractFileBrowser methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1767
321c1729db5b initial checkin
penk
parents:
diff changeset
  1768
askForCommandFor:fileName thenDo:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  1769
    "setup and launch a querybox to ask for unix command.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1770
     Then evaluate aBlock passing the command-string as argument."
321c1729db5b initial checkin
penk
parents:
diff changeset
  1771
321c1729db5b initial checkin
penk
parents:
diff changeset
  1772
    |box osName|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1773
321c1729db5b initial checkin
penk
parents:
diff changeset
  1774
    osName := OperatingSystem platformName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1775
321c1729db5b initial checkin
penk
parents:
diff changeset
  1776
    box := FilenameEnterBox 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1777
		title:(resources string:'Execute %1 command:' with:osName)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1778
	       okText:(resources string:'Execute')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1779
	       action:aBlock.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1780
321c1729db5b initial checkin
penk
parents:
diff changeset
  1781
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1782
	self initialCommandFor:fileName into:box.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1783
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1784
    box directory:(self getDirWithoutFileName:fileName).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1785
    box showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1786
    box destroy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1787
321c1729db5b initial checkin
penk
parents:
diff changeset
  1788
    "Modified: / 7.9.1995 / 10:31:54 / claus"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1789
    "Modified: / 16.9.1997 / 15:35:10 / stefan"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1790
    "Modified: / 14.8.1998 / 14:12:52 / cg"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1791
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1792
321c1729db5b initial checkin
penk
parents:
diff changeset
  1793
changeFileBrowserTitleTo:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  1794
321c1729db5b initial checkin
penk
parents:
diff changeset
  1795
    self application:#FileBrowserV2
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1796
	 do:#changeFileBrowserTitleTo:                            
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1797
	 withArg:aString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1798
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1799
321c1729db5b initial checkin
penk
parents:
diff changeset
  1800
copyFileList
321c1729db5b initial checkin
penk
parents:
diff changeset
  1801
321c1729db5b initial checkin
penk
parents:
diff changeset
  1802
    | fileList stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1803
    fileList := self application:#DirectoryContentsBrowser do:#descriptions.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1804
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1805
    fileList do:[: item |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1806
	stream nextPutAll:(item fileName asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1807
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1808
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1809
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1810
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1811
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1812
321c1729db5b initial checkin
penk
parents:
diff changeset
  1813
copySelectedFilenames
321c1729db5b initial checkin
penk
parents:
diff changeset
  1814
321c1729db5b initial checkin
penk
parents:
diff changeset
  1815
    | fileList stream|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1816
    fileList := self application:#DirectoryContentsBrowser do:#selectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1817
    fileList isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1818
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1819
    fileList do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1820
	stream nextPutAll:(file asString).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1821
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1822
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1823
    self window setTextSelection:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1824
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1825
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1826
321c1729db5b initial checkin
penk
parents:
diff changeset
  1827
doAddTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  1828
321c1729db5b initial checkin
penk
parents:
diff changeset
  1829
    | item dir directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1830
321c1729db5b initial checkin
penk
parents:
diff changeset
  1831
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1832
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1833
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1834
	dir :=  Filename homeDirectory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1835
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1836
	dir :=  directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1837
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1838
    
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1839
    item := (DirectoryContentsBrowser itemClass fileName:dir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1840
    self fileApplicationDo:#openTerminalApplication: withArg:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1841
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1842
321c1729db5b initial checkin
penk
parents:
diff changeset
  1843
doExecuteCommand
321c1729db5b initial checkin
penk
parents:
diff changeset
  1844
321c1729db5b initial checkin
penk
parents:
diff changeset
  1845
    | action  fileName|
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  1846
    fileName := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1847
    action := [:command | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1848
		self addToCommandHistory:command for:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1849
		self executeCommand:command.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1850
	      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1851
    self askForCommandFor:fileName thenDo:action
321c1729db5b initial checkin
penk
parents:
diff changeset
  1852
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1853
321c1729db5b initial checkin
penk
parents:
diff changeset
  1854
doGoDirectoryUp
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1855
    | upDir directories rootInTreeView|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1856
321c1729db5b initial checkin
penk
parents:
diff changeset
  1857
    self enableDirectoryUp value ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1858
    self currentFilesAreInSameDirectory ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1859
	directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1860
	upDir := directories first directory.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1861
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1862
	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1863
	upDir := rootInTreeView value asFilename directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1864
    ].
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1865
    self currentFileNameHolder value:(OrderedCollection with:upDir).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1866
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1867
321c1729db5b initial checkin
penk
parents:
diff changeset
  1868
doGotoDefaultDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1869
    self gotoFile:(Filename defaultDirectory).
321c1729db5b initial checkin
penk
parents:
diff changeset
  1870
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1871
321c1729db5b initial checkin
penk
parents:
diff changeset
  1872
doGotoHomeDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1873
321c1729db5b initial checkin
penk
parents:
diff changeset
  1874
    | home |
321c1729db5b initial checkin
penk
parents:
diff changeset
  1875
321c1729db5b initial checkin
penk
parents:
diff changeset
  1876
    home := Filename homeDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1877
    self gotoFile:home.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1878
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1879
321c1729db5b initial checkin
penk
parents:
diff changeset
  1880
doOpenSearchFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  1881
321c1729db5b initial checkin
penk
parents:
diff changeset
  1882
    |item files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1883
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1884
    files := self currentFileNameHolder value.
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1885
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1886
	item := DirectoryContentsBrowser itemClass fileName:(files first).
4034
60b4a743012f *** empty log message ***
penk
parents: 4032
diff changeset
  1887
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1888
	item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1889
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1890
    self openSearchFileOn:item.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1891
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1893
doShowFileContents
321c1729db5b initial checkin
penk
parents:
diff changeset
  1894
321c1729db5b initial checkin
penk
parents:
diff changeset
  1895
    ^ self application:#DirectoryContentsBrowser do:#doShowFileContents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1896
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1897
321c1729db5b initial checkin
penk
parents:
diff changeset
  1898
doShowProperties
321c1729db5b initial checkin
penk
parents:
diff changeset
  1899
321c1729db5b initial checkin
penk
parents:
diff changeset
  1900
    "show long stat (file)-info"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1901
321c1729db5b initial checkin
penk
parents:
diff changeset
  1902
    self fileGetInfo:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  1903
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1904
321c1729db5b initial checkin
penk
parents:
diff changeset
  1905
fileApplicationDo:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1906
321c1729db5b initial checkin
penk
parents:
diff changeset
  1907
    ^ self application:#FileApplicationNoteBook do:selector
321c1729db5b initial checkin
penk
parents:
diff changeset
  1908
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1909
321c1729db5b initial checkin
penk
parents:
diff changeset
  1910
fileApplicationDo:selector withArg:arg
321c1729db5b initial checkin
penk
parents:
diff changeset
  1911
    ^ self application:#FileApplicationNoteBook do:selector withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1912
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1913
321c1729db5b initial checkin
penk
parents:
diff changeset
  1914
fileGetInfo:longInfo 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1915
    "get info on selected file - show it in a box"
321c1729db5b initial checkin
penk
parents:
diff changeset
  1916
321c1729db5b initial checkin
penk
parents:
diff changeset
  1917
    |string box updater|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1918
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  1919
    string := self getFileInfoStringForFirstSelectedFile:longInfo.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1920
    string notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1921
	box := InfoBox title:string.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1922
	updater := [
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1923
		    [true] whileTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1924
			Delay waitForSeconds:2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1925
			string := self getFileInfoStringForFirstSelectedFile:longInfo.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1926
			string isNil ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1927
			box title:string
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1928
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1929
		] fork.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1930
	box showAtPointer.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1931
	updater terminate.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1932
	box destroy
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1933
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  1934
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1935
321c1729db5b initial checkin
penk
parents:
diff changeset
  1936
gotoFile:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  1937
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1938
    " select only if the file is not already in selection"
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1939
    | currentSel |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1940
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1941
    currentSel := self currentFileNameHolder value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1942
    ((currentSel findFirst:[:aFile| aFile = aFilename]) == 0) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  1943
	self currentFileNameHolder value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  1944
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1945
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1946
321c1729db5b initial checkin
penk
parents:
diff changeset
  1947
openApplByFileItem:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1948
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  1949
    ^ self fileApplicationDo:#openApplByFileItem: withArg:aItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1950
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1951
321c1729db5b initial checkin
penk
parents:
diff changeset
  1952
openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1953
321c1729db5b initial checkin
penk
parents:
diff changeset
  1954
    ^ self fileApplicationDo:#openCommandResultApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  1955
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1956
321c1729db5b initial checkin
penk
parents:
diff changeset
  1957
openSearchFileOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1958
321c1729db5b initial checkin
penk
parents:
diff changeset
  1959
    ^ self fileApplicationDo:#openSearchFileOn: withArg:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1960
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1961
321c1729db5b initial checkin
penk
parents:
diff changeset
  1962
openTextEditorOn:aItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  1963
321c1729db5b initial checkin
penk
parents:
diff changeset
  1964
    ^ self fileApplicationDo:#openTextEditorOn: withArg:aItem 
321c1729db5b initial checkin
penk
parents:
diff changeset
  1965
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1966
321c1729db5b initial checkin
penk
parents:
diff changeset
  1967
updateAndSelect:aColOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  1968
321c1729db5b initial checkin
penk
parents:
diff changeset
  1969
    self application:#DirectoryContentsBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1970
    self application:#DirectoryTreeBrowser do:#doUpdate.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1971
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  1972
    aColOfFiles notNil ifTrue:[ self currentFileNameHolder value:aColOfFiles ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1973
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1974
321c1729db5b initial checkin
penk
parents:
diff changeset
  1975
updateCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  1976
321c1729db5b initial checkin
penk
parents:
diff changeset
  1977
    self updateAndSelect:nil
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1978
!
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1979
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1980
withActivityIndicationDo:aBlock
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1981
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1982
    self activityVisibilityChannel value:true.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1983
    [
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1984
        aBlock value.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1985
    ] ensure:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1986
        self activityVisibilityChannel value:false.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  1987
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  1988
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  1989
321c1729db5b initial checkin
penk
parents:
diff changeset
  1990
!AbstractFileBrowser methodsFor:'actions bookmarks'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  1991
321c1729db5b initial checkin
penk
parents:
diff changeset
  1992
addBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  1993
321c1729db5b initial checkin
penk
parents:
diff changeset
  1994
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  1995
321c1729db5b initial checkin
penk
parents:
diff changeset
  1996
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  1997
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1998
    self addBookmark:directories.
321c1729db5b initial checkin
penk
parents:
diff changeset
  1999
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2000
321c1729db5b initial checkin
penk
parents:
diff changeset
  2001
addBookmark:aColOfDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2002
    |idx bookmarks|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2003
321c1729db5b initial checkin
penk
parents:
diff changeset
  2004
    aColOfDirectories do:[ : path |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2005
	bookmarks := self class directoryBookmarks.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2006
	idx := bookmarks indexOf:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2007
	idx == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2008
	    bookmarks addLast:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2009
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2010
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2011
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2012
321c1729db5b initial checkin
penk
parents:
diff changeset
  2013
hasBookmarks
321c1729db5b initial checkin
penk
parents:
diff changeset
  2014
    ^ self class directoryBookmarks size > 0
321c1729db5b initial checkin
penk
parents:
diff changeset
  2015
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2016
321c1729db5b initial checkin
penk
parents:
diff changeset
  2017
hasBookmarksToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  2018
321c1729db5b initial checkin
penk
parents:
diff changeset
  2019
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2020
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2021
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2022
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2023
    ^ (bookmarks size > 0 and:[directories notEmpty])
321c1729db5b initial checkin
penk
parents:
diff changeset
  2024
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2025
321c1729db5b initial checkin
penk
parents:
diff changeset
  2026
removeBookmark
321c1729db5b initial checkin
penk
parents:
diff changeset
  2027
321c1729db5b initial checkin
penk
parents:
diff changeset
  2028
    |bookmarks directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2029
321c1729db5b initial checkin
penk
parents:
diff changeset
  2030
    bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2031
    bookmarks isNil ifTrue:[ ^ self].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2032
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2033
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2034
    directories do:[:dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2035
	bookmarks remove:dir ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2036
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2037
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2038
321c1729db5b initial checkin
penk
parents:
diff changeset
  2039
!AbstractFileBrowser methodsFor:'actions history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2040
321c1729db5b initial checkin
penk
parents:
diff changeset
  2041
addToCommandHistory:aCommandString for:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  2042
    |cmd suffix cmdHist|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2043
321c1729db5b initial checkin
penk
parents:
diff changeset
  2044
    cmdHist := self class commandHistory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2045
    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2046
	cmdHist notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2047
	    cmdHist addFirst:aCommandString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2048
	    cmdHist size > self class commandHistorySize ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2049
		cmdHist removeLast
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2050
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2051
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2052
	aFilename notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2053
	    cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2054
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2055
		DefaultCommandPerSuffix := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2056
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2057
	    suffix := aFilename asFilename suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2058
	    suffix notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2059
		DefaultCommandPerSuffix at:suffix put:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2060
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2061
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2062
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2063
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2064
321c1729db5b initial checkin
penk
parents:
diff changeset
  2065
doBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2066
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2067
    | fileName|
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2068
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2069
    fileName := self dirHistory goBackward.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2070
    fileName notNil ifTrue:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2071
        self gotoFile:(fileName asFilename).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2072
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2073
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2074
321c1729db5b initial checkin
penk
parents:
diff changeset
  2075
doForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2076
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2077
    | fileName|
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  2078
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2079
    fileName := self dirHistory goForward.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2080
    fileName notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2081
	self gotoFile:(fileName asFilename).
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2082
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2083
	self enableForward value:false.
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2084
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2085
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2086
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2087
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2088
!AbstractFileBrowser methodsFor:'actions-app-common'!
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2089
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2090
openApplForFile:aFilename
4148
ce9d04dc8512 return the application after open
penk
parents: 4110
diff changeset
  2091
    ^ self openApplByFileItem:(DirectoryContentsBrowser itemClass fileName:aFilename).
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2092
! !
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  2093
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2094
!AbstractFileBrowser methodsFor:'applications'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2095
321c1729db5b initial checkin
penk
parents:
diff changeset
  2096
application:aApplication do:aMethod 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2097
4191
441ab27e2c7e *** empty log message ***
penk
parents: 4190
diff changeset
  2098
    " perform a Method for a application "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2099
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2100
321c1729db5b initial checkin
penk
parents:
diff changeset
  2101
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2102
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2103
	^ appl perform:aMethod.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2104
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2105
    ^ nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2106
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2107
321c1729db5b initial checkin
penk
parents:
diff changeset
  2108
application:aApplication do:aMethod withArg:arg 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2109
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2110
321c1729db5b initial checkin
penk
parents:
diff changeset
  2111
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2112
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2113
	^ appl perform:aMethod with:arg
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2114
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2115
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2116
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2117
321c1729db5b initial checkin
penk
parents:
diff changeset
  2118
application:aApplication do:aMethod withArg:arg1 withArg:arg2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2119
    |appl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2120
321c1729db5b initial checkin
penk
parents:
diff changeset
  2121
    appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2122
    appl notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2123
	(arg1 notNil and:[arg2 notNil]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2124
	    ^ appl perform:aMethod with:arg1 with:arg2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2125
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2126
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2127
    ^ nil
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2128
!
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2129
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2130
directoryContentsBrowser
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2131
    ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2132
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2133
321c1729db5b initial checkin
penk
parents:
diff changeset
  2134
!AbstractFileBrowser methodsFor:'aspects'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2135
321c1729db5b initial checkin
penk
parents:
diff changeset
  2136
applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2137
    "returns the list of registered applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2138
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2139
    ^ aspects at:#applications
321c1729db5b initial checkin
penk
parents:
diff changeset
  2140
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2141
321c1729db5b initial checkin
penk
parents:
diff changeset
  2142
backgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2143
321c1729db5b initial checkin
penk
parents:
diff changeset
  2144
    ^ self aspectFor:#backgroundProcesses ifAbsent:[List new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2145
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2146
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2147
canMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2148
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2149
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2150
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2151
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2152
currentDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2153
321c1729db5b initial checkin
penk
parents:
diff changeset
  2154
    " returns a Ordered Collection of all directories currently selected 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2155
      if only a file is selected currentDirectories holds the directory of the file
321c1729db5b initial checkin
penk
parents:
diff changeset
  2156
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2157
321c1729db5b initial checkin
penk
parents:
diff changeset
  2158
    ^ self aspectFor:#currentDirectories ifAbsent:[ (OrderedCollection new) asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2159
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2160
321c1729db5b initial checkin
penk
parents:
diff changeset
  2161
currentFileNameHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2162
321c1729db5b initial checkin
penk
parents:
diff changeset
  2163
    " returns a OrderedCollection of all files that are selected
321c1729db5b initial checkin
penk
parents:
diff changeset
  2164
      if no file but a directory is selected it contains the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2165
      in contrast to currentDirectories wich have only the directories 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2166
    "
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2167
    ^ self aspectFor:#currentFileNameHolder ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2168
        (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
  2169
        ] notPresentDo:[:holder|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2170
            | filenames newFilenames|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2171
            filenames := holder value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2172
            newFilenames := Set new.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2173
            filenames do:[ : filename |  | fn |
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2174
                fn := filename.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2175
                [fn exists not] whileTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2176
                    fn := fn directory.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2177
                ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2178
                newFilenames add:fn.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2179
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2180
            newFilenames asOrderedCollection.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2181
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2182
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2183
321c1729db5b initial checkin
penk
parents:
diff changeset
  2184
enableDirectoryUp
321c1729db5b initial checkin
penk
parents:
diff changeset
  2185
321c1729db5b initial checkin
penk
parents:
diff changeset
  2186
    ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2187
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2188
321c1729db5b initial checkin
penk
parents:
diff changeset
  2189
enableHome
321c1729db5b initial checkin
penk
parents:
diff changeset
  2190
321c1729db5b initial checkin
penk
parents:
diff changeset
  2191
    ^ self aspectFor:#enableHome ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2192
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2193
321c1729db5b initial checkin
penk
parents:
diff changeset
  2194
enableViewNoteBookApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  2195
321c1729db5b initial checkin
penk
parents:
diff changeset
  2196
    ^ self aspectFor:#enableViewNoteBookApplication ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2197
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2198
321c1729db5b initial checkin
penk
parents:
diff changeset
  2199
hasSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  2200
321c1729db5b initial checkin
penk
parents:
diff changeset
  2201
    ^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2202
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2203
321c1729db5b initial checkin
penk
parents:
diff changeset
  2204
notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
  2205
321c1729db5b initial checkin
penk
parents:
diff changeset
  2206
    ^ self aspectFor:#notifyChannel ifAbsent:['' asValue]
4071
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2207
!
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2208
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2209
rootHolder
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2210
    "holder, which keeps the rootHolder of the treeView
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2211
    "
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2212
f923c8257818 *** empty log message ***
penk
parents: 4060
diff changeset
  2213
    ^ self aspectFor:#rootHolder ifAbsent:[ValueHolder new].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2214
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2215
321c1729db5b initial checkin
penk
parents:
diff changeset
  2216
!AbstractFileBrowser methodsFor:'aspects handling'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2217
321c1729db5b initial checkin
penk
parents:
diff changeset
  2218
aspectFor:something ifAbsent:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  2219
    "returns the model for an aspect
321c1729db5b initial checkin
penk
parents:
diff changeset
  2220
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2221
    |holder saveAspectItem aspect|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2222
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2223
    holder := aspects at:something ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2224
        saveAspectItem := self runtimeAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2225
        saveAspectItem notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2226
            saveAspectItem isHolder ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2227
                holder := ValueHolder with:saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2228
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2229
                holder := saveAspectItem value 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2230
            ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2231
        ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2232
            aspect := self userPreferencesAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2233
            aspect notNil ifTrue:[ 
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2234
                holder := aspect asValue
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2235
            ] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2236
                holder := aBlock value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2237
            ]
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2238
        ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2239
        holder notNil ifTrue:[        
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2240
            aspects at:something put:holder
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2241
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2242
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2243
    ^ holder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2244
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2245
4213
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2246
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
  2247
    "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
  2248
    "
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2249
    |holder saveAspectItem aspect|
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2250
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2251
    holder := aspects at:something ifAbsent:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2252
        saveAspectItem := self runtimeAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2253
        saveAspectItem notNil ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2254
            saveAspectItem isHolder ifTrue:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2255
                holder := ValueHolder with:saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2256
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2257
                holder := saveAspectItem value 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2258
            ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2259
        ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2260
            aspect := self userPreferencesAspectValueFor:something.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2261
            aspect notNil ifTrue:[ 
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2262
                holder := aspect asValue
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2263
            ] ifFalse:[
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2264
                holder := aBlock value.
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2265
            ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2266
        ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2267
        holder notNil ifTrue:[  
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2268
            holder value:(notPresentBlock value:holder).
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2269
            aspects at:something put:holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2270
        ]
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2271
    ].
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2272
    ^ holder
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2273
!
b8e7d4276a33 startup if old filename not present - go up to first directory in path
penk
parents: 4203
diff changeset
  2274
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2275
aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2276
    ^ aspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2277
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2278
321c1729db5b initial checkin
penk
parents:
diff changeset
  2279
runtimeAspectValueFor:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  2280
    "returns the default aspect item from the class variable RuntimeAspects
321c1729db5b initial checkin
penk
parents:
diff changeset
  2281
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2282
    ^ self class runtimeAspects at:something ifAbsent:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2283
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2284
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2285
saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2286
    |saveAspects aspectValue|
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2287
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2288
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2289
    saveAspects := self class userPreferencesAspectList.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2290
    saveAspects do:[ : aspectKey |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2291
        aspectValue := (self perform:aspectKey) value.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2292
        UserPreferences current perform:((aspectKey asString, ':') asSymbol) with:aspectValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2293
    ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2294
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2295
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2296
saveRuntimeAspectValues
321c1729db5b initial checkin
penk
parents:
diff changeset
  2297
    |savedAspects dictionary value isHolder aspect|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2298
321c1729db5b initial checkin
penk
parents:
diff changeset
  2299
    savedAspects := self class listOfRuntimeValuesToRemark.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2300
    dictionary := Dictionary new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2301
    savedAspects do:[ : aspectKey |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2302
	aspect := self perform:aspectKey.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2303
	isHolder := aspect isValueModel.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2304
	isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2305
	dictionary at:aspectKey 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2306
		   put:(SaveAspectItem withValue:value isHolder:isHolder)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2307
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2308
        
321c1729db5b initial checkin
penk
parents:
diff changeset
  2309
    RuntimeAspects := dictionary. 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2310
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2311
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2312
userPreferencesAspectValueFor:something
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2313
    "returns the default aspect from the Userpreferences
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2314
    "
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2315
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2316
    (self class userPreferencesAspectList includes:something) not ifTrue:[ ^ nil].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2317
    ^ UserPreferences current perform:something.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2318
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2319
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2320
!AbstractFileBrowser methodsFor:'aspects-filter'!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2321
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2322
filterBackgroundColor
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2323
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2324
    ^ self aspectFor:#filterBackgroundColor ifAbsent:[Color white asValue]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2325
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2326
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2327
filterBlockHolder
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2328
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2329
    ^ self aspectFor:#filterBlockHolder ifAbsent:[self getFilter asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2330
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2331
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2332
filterListModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2333
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2334
    ^ self aspectFor:#filterListModel ifAbsent:[self class defaultFilterList]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2335
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2336
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2337
filterModel
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2338
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2339
    ^ self aspectFor:#filterModel ifAbsent:[(self filterListModel at:1) asValue]
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2340
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2341
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2342
filterValueBox
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2343
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2344
    ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new]
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2345
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2346
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2347
getFilter
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2348
    | filter showHidden|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2349
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2350
    filter := self filterModel value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2351
    filter = '' ifTrue:[filter := '*'].
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2352
    showHidden := self showHiddenFiles value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2353
    showHidden ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2354
	^ [: el | filter match:el].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2355
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2356
	^ [: el | ((el asString startsWith:'.') not) and:[filter match:el]].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2357
    ]
4018
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2358
!
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2359
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2360
shownFiles
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2361
43e02c59719d *** empty log message ***
penk
parents: 4011
diff changeset
  2362
    ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2363
! !
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2364
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2365
!AbstractFileBrowser methodsFor:'aspects-history'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2366
321c1729db5b initial checkin
penk
parents:
diff changeset
  2367
dirHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2368
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  2369
    ^ self class directoryHistory
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2370
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2371
321c1729db5b initial checkin
penk
parents:
diff changeset
  2372
enableBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  2373
321c1729db5b initial checkin
penk
parents:
diff changeset
  2374
    ^ self aspectFor:#enableBack ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2375
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2376
321c1729db5b initial checkin
penk
parents:
diff changeset
  2377
enableFileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2378
321c1729db5b initial checkin
penk
parents:
diff changeset
  2379
    ^ self aspectFor:#enableFileHistory ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2380
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2381
321c1729db5b initial checkin
penk
parents:
diff changeset
  2382
enableForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  2383
321c1729db5b initial checkin
penk
parents:
diff changeset
  2384
    ^ self aspectFor:#enableForward ifAbsent:[false asValue]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2385
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2386
321c1729db5b initial checkin
penk
parents:
diff changeset
  2387
fileHistory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2388
321c1729db5b initial checkin
penk
parents:
diff changeset
  2389
    ^ self aspectFor:#fileHistory ifAbsent:[FilenameHistory new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2390
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2391
321c1729db5b initial checkin
penk
parents:
diff changeset
  2392
!AbstractFileBrowser methodsFor:'aspects-visibility'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2393
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2394
activityVisibilityChannel
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2395
    " activityVisibilityChannel switches the activity indicator on/off
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2396
    "
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2397
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2398
    ^ self aspectFor:#activityVisibilityChannel ifAbsent:[ false asValue ].
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2399
!
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  2400
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2401
openAlwaysInTextEditor
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2402
    " aspect for open every file in TextEditor dont use e.g. HtmlEditor for *.html'"
4110
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2403
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2404
    ^ self aspectFor:#openAlwaysInTextEditor ifAbsent:[ false asValue ].
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2405
!
79f87cb97704 *** empty log message ***
penk
parents: 4107
diff changeset
  2406
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2407
openMultipleApplicationsForType
321c1729db5b initial checkin
penk
parents:
diff changeset
  2408
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2409
    " 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
  2410
      open TextEditor "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2411
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2412
    ^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2413
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2414
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2415
showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2416
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2417
    ^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2418
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2419
321c1729db5b initial checkin
penk
parents:
diff changeset
  2420
showHiddenFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2421
321c1729db5b initial checkin
penk
parents:
diff changeset
  2422
    ^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2423
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2424
321c1729db5b initial checkin
penk
parents:
diff changeset
  2425
viewDescription
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2426
    "get the user preferences for show file description row in DirectoryContentsBrowser"
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2427
321c1729db5b initial checkin
penk
parents:
diff changeset
  2428
    ^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2429
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2430
321c1729db5b initial checkin
penk
parents:
diff changeset
  2431
viewDetails
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2432
    "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
  2433
    "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2434
321c1729db5b initial checkin
penk
parents:
diff changeset
  2435
    ^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2436
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2437
321c1729db5b initial checkin
penk
parents:
diff changeset
  2438
viewDirectoryDescription
321c1729db5b initial checkin
penk
parents:
diff changeset
  2439
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2440
    " 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
  2441
      on change directory "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2442
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2443
    ^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2444
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2445
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2446
viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2447
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2448
    ^ self aspectFor:#viewDirsInContentsBrowser ifAbsent:[ false asValue ].
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2449
!
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2450
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2451
viewFilesInDirectoryTree
321c1729db5b initial checkin
penk
parents:
diff changeset
  2452
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2453
    " aspect for view files in tree view (not only directories) "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2454
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2455
    ^ self aspectFor:#viewFilesInDirectoryTree ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2456
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2457
321c1729db5b initial checkin
penk
parents:
diff changeset
  2458
viewGroup
321c1729db5b initial checkin
penk
parents:
diff changeset
  2459
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2460
    " aspect for show group information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2461
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2462
    ^ self aspectFor:#viewGroup ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2463
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2464
321c1729db5b initial checkin
penk
parents:
diff changeset
  2465
viewNoteBookApplicationHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  2466
321c1729db5b initial checkin
penk
parents:
diff changeset
  2467
    ^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2468
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2469
321c1729db5b initial checkin
penk
parents:
diff changeset
  2470
viewOwner
321c1729db5b initial checkin
penk
parents:
diff changeset
  2471
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2472
    " aspect for show owner information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2473
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2474
    ^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2475
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2476
321c1729db5b initial checkin
penk
parents:
diff changeset
  2477
viewPermissions
321c1729db5b initial checkin
penk
parents:
diff changeset
  2478
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2479
    " aspect for show permission information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2480
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2481
    ^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2482
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2483
321c1729db5b initial checkin
penk
parents:
diff changeset
  2484
viewPreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  2485
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2486
    " aspect for show image previev row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2487
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2488
    ^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2489
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2490
321c1729db5b initial checkin
penk
parents:
diff changeset
  2491
viewSize
321c1729db5b initial checkin
penk
parents:
diff changeset
  2492
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2493
    " aspect for show size information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2494
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2495
    ^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2496
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2497
321c1729db5b initial checkin
penk
parents:
diff changeset
  2498
viewTime
321c1729db5b initial checkin
penk
parents:
diff changeset
  2499
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2500
    " aspect for show time information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2501
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2502
    ^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2503
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2504
321c1729db5b initial checkin
penk
parents:
diff changeset
  2505
viewType
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  2506
    " aspect for show suffix (type) information row in DirectoryContentsBrowser "
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2507
321c1729db5b initial checkin
penk
parents:
diff changeset
  2508
    ^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2509
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2510
321c1729db5b initial checkin
penk
parents:
diff changeset
  2511
!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2512
321c1729db5b initial checkin
penk
parents:
diff changeset
  2513
executeCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2514
321c1729db5b initial checkin
penk
parents:
diff changeset
  2515
    self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2516
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2517
321c1729db5b initial checkin
penk
parents:
diff changeset
  2518
executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2519
321c1729db5b initial checkin
penk
parents:
diff changeset
  2520
    | nameString executionBlock|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2521
321c1729db5b initial checkin
penk
parents:
diff changeset
  2522
    executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2523
    nameString := 'Command> ', cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2524
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2525
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2526
321c1729db5b initial checkin
penk
parents:
diff changeset
  2527
getExecutionBlockForCommand:cmd
321c1729db5b initial checkin
penk
parents:
diff changeset
  2528
321c1729db5b initial checkin
penk
parents:
diff changeset
  2529
    ^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  2530
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2531
321c1729db5b initial checkin
penk
parents:
diff changeset
  2532
getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin
penk
parents:
diff changeset
  2533
321c1729db5b initial checkin
penk
parents:
diff changeset
  2534
    | dir dirs|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2535
321c1729db5b initial checkin
penk
parents:
diff changeset
  2536
    dir := aDir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2537
    aDir isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2538
	dirs := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2539
	dirs size ~= 1 ifTrue:[ ^ self].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2540
	dir := dirs anElement.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2541
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2542
    ^ [:stream| stream notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2543
	    OperatingSystem 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2544
		executeCommand:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2545
		inputFrom:nil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2546
		outputTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2547
		errorTo:stream 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2548
		inDirectory:dir
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2549
		onError:[:status| false].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2550
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2551
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2552
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2553
321c1729db5b initial checkin
penk
parents:
diff changeset
  2554
killAllRunningBackgroundProcesses
321c1729db5b initial checkin
penk
parents:
diff changeset
  2555
321c1729db5b initial checkin
penk
parents:
diff changeset
  2556
    self backgroundProcesses do:[ : process |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2557
	self notifyChannel value:'kill ', process name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2558
	process terminate.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2559
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2560
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2561
321c1729db5b initial checkin
penk
parents:
diff changeset
  2562
makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin
penk
parents:
diff changeset
  2563
    | stream process appl nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2564
321c1729db5b initial checkin
penk
parents:
diff changeset
  2565
    appl := self openCommandResultApplication.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2566
    stream := appl resultStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2567
    nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2568
    appl changeTabTo:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2569
    process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2570
	self backgroundProcesses remove:process ifAbsent:[].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2571
	appl process value:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2572
    ]] newProcess.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2573
    process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2574
    process name:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2575
    self backgroundProcesses add:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2576
    appl process value:process.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2577
    process resume.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2578
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2579
321c1729db5b initial checkin
penk
parents:
diff changeset
  2580
!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2581
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2582
abstractCurrentFileNameHolderChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2583
    " 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
  2584
      and the things that have to be done if it runs standalone "
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2585
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2586
    | newDirectories oldDirectories size rootInTreeView holder|
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2587
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2588
    holder := self currentFileNameHolder value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2589
    self hasSelection value:(holder value notEmpty).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2590
    newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2591
    oldDirectories := self currentDirectories value.
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2592
    oldDirectories ~= newDirectories ifTrue:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2593
        self currentDirectories value:newDirectories.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2594
        size := newDirectories size.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2595
        rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2596
        rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2597
        self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]).
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2598
        newDirectories notEmpty ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2599
            self dirHistory addToHistory:(newDirectories first asString).
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2600
        ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2601
        self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2602
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  2603
    self enableForward value:self canForward.
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  2604
    self enableBack value:self canBackward.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2605
    ^ self
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2606
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2607
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2608
filterModelChanged
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2609
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2610
    self filterBlockHolder value:(self getFilter).
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2611
!
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2612
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2613
update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2614
321c1729db5b initial checkin
penk
parents:
diff changeset
  2615
    " do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin
penk
parents:
diff changeset
  2616
      and the things that have to be done if it runs standalone "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2617
321c1729db5b initial checkin
penk
parents:
diff changeset
  2618
    changedObject == self currentFileNameHolder ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2619
	self abstractCurrentFileNameHolderChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2620
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2621
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2622
    changedObject == self sortCaseless ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2623
	self sortFileListsBy:#baseName withReverse:false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2624
	^ self
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2625
    ].             
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  2626
    (changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2627
	self filterModelChanged.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2628
	^ self
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  2629
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  2630
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2631
    super update:something with:aParameter from:changedObject
321c1729db5b initial checkin
penk
parents:
diff changeset
  2632
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2633
321c1729db5b initial checkin
penk
parents:
diff changeset
  2634
!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2635
321c1729db5b initial checkin
penk
parents:
diff changeset
  2636
canPaste
321c1729db5b initial checkin
penk
parents:
diff changeset
  2637
321c1729db5b initial checkin
penk
parents:
diff changeset
  2638
    ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2639
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2640
321c1729db5b initial checkin
penk
parents:
diff changeset
  2641
clipboard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2642
321c1729db5b initial checkin
penk
parents:
diff changeset
  2643
    ^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2644
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2645
321c1729db5b initial checkin
penk
parents:
diff changeset
  2646
copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2647
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2648
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2649
    self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2650
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2651
321c1729db5b initial checkin
penk
parents:
diff changeset
  2652
cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2653
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2654
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2655
    self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2656
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2657
321c1729db5b initial checkin
penk
parents:
diff changeset
  2658
emptyClipBoard
321c1729db5b initial checkin
penk
parents:
diff changeset
  2659
321c1729db5b initial checkin
penk
parents:
diff changeset
  2660
    self clipboard files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2661
    self canPaste value:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2662
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2663
321c1729db5b initial checkin
penk
parents:
diff changeset
  2664
putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2665
321c1729db5b initial checkin
penk
parents:
diff changeset
  2666
    | stream clp|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2667
321c1729db5b initial checkin
penk
parents:
diff changeset
  2668
    colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2669
    clp := self clipboard.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2670
    clp files:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2671
    clp method:aSymbol.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2672
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2673
    stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2674
    stream nextPutAll:' <'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2675
    stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2676
    colOfFiles size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2677
	stream nextPutAll:' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2678
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2679
    stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2680
321c1729db5b initial checkin
penk
parents:
diff changeset
  2681
    self notifyChannel value:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2682
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2683
    clp files:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2684
    self canPaste value:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2685
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2686
321c1729db5b initial checkin
penk
parents:
diff changeset
  2687
!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2688
321c1729db5b initial checkin
penk
parents:
diff changeset
  2689
canDropArchiv:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2690
321c1729db5b initial checkin
penk
parents:
diff changeset
  2691
    (filename isDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2692
    and:[filename isWritable and:[dropedObjects notEmpty]])  ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2693
	^ true
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2694
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2695
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  2696
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2697
321c1729db5b initial checkin
penk
parents:
diff changeset
  2698
canDropFiles:dropedObjects for:filename 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2699
    | checkObject filenameDirString checkObjectString filenameDir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2700
321c1729db5b initial checkin
penk
parents:
diff changeset
  2701
    dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2702
    filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2703
    filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2704
    filenameDirString := filenameDir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2705
    dropedObjects do:[:aObject | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2706
	checkObject := aObject theObject.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2707
	checkObjectString := checkObject asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2708
	checkObject isDirectory ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2709
	    (self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2710
		" can not drop a directory in his parents "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2711
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2712
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2713
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2714
	    (filenameDirString = checkObject directory asString 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2715
	    or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2716
		" can not drop a file in same directory "
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2717
		^ false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2718
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2719
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2720
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2721
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  2722
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2723
321c1729db5b initial checkin
penk
parents:
diff changeset
  2724
doStartDrag:aDropSource in:aView
321c1729db5b initial checkin
penk
parents:
diff changeset
  2725
    "set the cursors before starting the drag & drop operation
321c1729db5b initial checkin
penk
parents:
diff changeset
  2726
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2727
    |hdl|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2728
321c1729db5b initial checkin
penk
parents:
diff changeset
  2729
321c1729db5b initial checkin
penk
parents:
diff changeset
  2730
    hdl := DragAndDropManager new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2731
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  2732
    hdl disabledCursor:self class disabledCursorImage.
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  2733
    hdl enabledCursor:self class enabledCursorImage.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2734
    hdl alienCursor:nil.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2735
321c1729db5b initial checkin
penk
parents:
diff changeset
  2736
    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin
penk
parents:
diff changeset
  2737
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  2738
321c1729db5b initial checkin
penk
parents:
diff changeset
  2739
!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2740
321c1729db5b initial checkin
penk
parents:
diff changeset
  2741
copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2742
    "copy to
321c1729db5b initial checkin
penk
parents:
diff changeset
  2743
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2744
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2745
321c1729db5b initial checkin
penk
parents:
diff changeset
  2746
    copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2747
    copy result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2748
	self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2749
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2750
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2751
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2752
    ^ copy result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2753
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2754
321c1729db5b initial checkin
penk
parents:
diff changeset
  2755
copyFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2756
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2757
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2758
    |copy|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2759
321c1729db5b initial checkin
penk
parents:
diff changeset
  2760
    copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2761
    copy result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2762
	self notifyChannel value:copy errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2763
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2764
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2765
    ^ copy colOfCopiedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2766
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2767
321c1729db5b initial checkin
penk
parents:
diff changeset
  2768
copyOrMoveDialog:aCol
321c1729db5b initial checkin
penk
parents:
diff changeset
  2769
321c1729db5b initial checkin
penk
parents:
diff changeset
  2770
    | size stream dialog|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2771
321c1729db5b initial checkin
penk
parents:
diff changeset
  2772
    size := aCol size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2773
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2774
    stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2775
    size == 1 ifFalse:[
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2776
        stream nextPutAll:'s'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2777
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2778
    stream nextPutAll:': '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2779
    stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2780
    size == 1 ifFalse:[
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2781
        stream nextPutAll:' ... '.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2782
        stream nextPutAll:aCol last baseName asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2783
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2784
321c1729db5b initial checkin
penk
parents:
diff changeset
  2785
    dialog := OptionBox 
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2786
                  request:stream contents 
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2787
                  label:'Move or Copy'
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2788
                  form:(WarningBox iconBitmap)
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2789
                  buttonLabels:#('Cancel' 'Move' 'Copy' 'Copy As...')
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2790
                  values:#(#cancel #move #copy #copyAs)
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2791
                  default:#copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2792
    dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2793
    ^ dialog.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2794
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2795
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2796
copyOrMoveFiles:aColOfSourceFiles to:aDestinationDirectory 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2797
   "copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2798
   "
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2799
    |dialog lastOld lastNew|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2800
321c1729db5b initial checkin
penk
parents:
diff changeset
  2801
    dialog := self copyOrMoveDialog:aColOfSourceFiles.
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2802
    dialog == #copyAs ifTrue:[
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2803
        aColOfSourceFiles do:[:eachSourceFile |
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2804
            |initial destFile srcBase dstBase|
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2805
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2806
            srcBase := eachSourceFile asFilename baseName.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2807
            lastOld isNil ifTrue:[
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2808
                initial := srcBase
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2809
            ] ifFalse:[
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2810
                initial := DoWhatIMeanSupport
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2811
                            goodRenameDefaultForFile:srcBase lastOld:lastOld lastNew:lastNew.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2812
            ].
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2813
            dstBase := Dialog request:('Copy %1 as:' bindWith:srcBase) initialAnswer:initial.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2814
            dstBase isNil ifTrue:[^ self].
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2815
            self copyFile:eachSourceFile to:(aDestinationDirectory construct:dstBase).
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2816
            lastOld := srcBase.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2817
            lastNew := dstBase.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2818
        ].
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2819
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2820
        ^ self.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2821
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2822
    dialog == #copy ifTrue:[
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2823
        self copyFiles:aColOfSourceFiles to:aDestinationDirectory.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2824
        ^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2825
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2826
    dialog == #move ifTrue:[
4354
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2827
        self moveFiles:aColOfSourceFiles to:aDestinationDirectory.
0a1239cd339d added copyAs in drag and drop
Claus Gittinger <cg@exept.de>
parents: 4347
diff changeset
  2828
        ^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2829
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2830
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2831
321c1729db5b initial checkin
penk
parents:
diff changeset
  2832
deleteFile:aFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2833
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2834
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2835
321c1729db5b initial checkin
penk
parents:
diff changeset
  2836
    ^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2837
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2838
321c1729db5b initial checkin
penk
parents:
diff changeset
  2839
deleteFiles:colOfFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2840
    "delete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2841
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2842
    |delete|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2843
321c1729db5b initial checkin
penk
parents:
diff changeset
  2844
    delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2845
    delete result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2846
	self notifyChannel value:delete errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2847
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2848
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2849
    ^ delete result.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2850
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2851
321c1729db5b initial checkin
penk
parents:
diff changeset
  2852
moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2853
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2854
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2855
321c1729db5b initial checkin
penk
parents:
diff changeset
  2856
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2857
321c1729db5b initial checkin
penk
parents:
diff changeset
  2858
    move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2859
    move result ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2860
	self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2861
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2862
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2863
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2864
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2865
    ^ move result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2866
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2867
321c1729db5b initial checkin
penk
parents:
diff changeset
  2868
moveFiles:aColOfSourceFiles to:aDirectory 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2869
   "move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2870
   "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2871
    |move|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2872
321c1729db5b initial checkin
penk
parents:
diff changeset
  2873
    move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2874
    move result ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2875
	self notifyChannel value:move errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2876
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2877
    self updateCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2878
    ^ move colOfMovedFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2879
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2880
321c1729db5b initial checkin
penk
parents:
diff changeset
  2881
newDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  2882
    "ask for and create a new directory"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2883
321c1729db5b initial checkin
penk
parents:
diff changeset
  2884
    | directories directory create newFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2885
321c1729db5b initial checkin
penk
parents:
diff changeset
  2886
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2887
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2888
    directory := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2889
    create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2890
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2891
    newFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2892
    newFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2893
	self updateCurrentDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2894
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  2895
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2896
321c1729db5b initial checkin
penk
parents:
diff changeset
  2897
newFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  2898
    "ask for and create a new file"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2899
321c1729db5b initial checkin
penk
parents:
diff changeset
  2900
    | curFile directories directory create file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2901
321c1729db5b initial checkin
penk
parents:
diff changeset
  2902
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2903
    (directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2904
    directory := directories first.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2905
    curFile := self firstSelectedFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2906
    curFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2907
	file := curFile.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2908
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2909
	file := directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2910
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2911
    create := FileOperation create createFileIn:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2912
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2913
    self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2914
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2915
321c1729db5b initial checkin
penk
parents:
diff changeset
  2916
newHardLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2917
    "ask for and create a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2918
321c1729db5b initial checkin
penk
parents:
diff changeset
  2919
    self newLink:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2920
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2921
321c1729db5b initial checkin
penk
parents:
diff changeset
  2922
newLink:symbolic
321c1729db5b initial checkin
penk
parents:
diff changeset
  2923
321c1729db5b initial checkin
penk
parents:
diff changeset
  2924
    "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2925
321c1729db5b initial checkin
penk
parents:
diff changeset
  2926
    | sel create createdFile|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2927
321c1729db5b initial checkin
penk
parents:
diff changeset
  2928
    sel := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2929
    (sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2930
    symbolic ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2931
	create := FileOperation create createSoftLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2932
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2933
	create := FileOperation create createHardLinkIn:(sel first).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2934
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2935
    create result ifFalse:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2936
    createdFile := create createdFile.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2937
    createdFile notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2938
	self updateAndSelect:(OrderedCollection with:createdFile).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2939
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2940
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2941
321c1729db5b initial checkin
penk
parents:
diff changeset
  2942
newSoftLink
321c1729db5b initial checkin
penk
parents:
diff changeset
  2943
    "ask for and create a soft link (unix only)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2944
321c1729db5b initial checkin
penk
parents:
diff changeset
  2945
    self newLink:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2946
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2947
321c1729db5b initial checkin
penk
parents:
diff changeset
  2948
pasteFiles
321c1729db5b initial checkin
penk
parents:
diff changeset
  2949
    "defete current selected files/directories
321c1729db5b initial checkin
penk
parents:
diff changeset
  2950
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  2951
    | buffer destination files directories copiedFiles|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2952
321c1729db5b initial checkin
penk
parents:
diff changeset
  2953
    files := self clipboard files.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2954
    (files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2955
    buffer := self clipboard copy.
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  2956
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2957
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2958
	|box dirStringCol|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2959
	dirStringCol := directories collect:[:aDir| aDir asString].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2960
	box := ListSelectionBox new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2961
	box title:'In which directory you want to paste ?'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2962
	box list:dirStringCol.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2963
	box okAction:[:sel | destination := sel asFilename].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2964
	box showAtPointer
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2965
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2966
	destination := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2967
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2968
    copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2969
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  2970
    (self clipboard method == #cut) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  2971
	self deleteFiles:copiedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2972
    ] 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2973
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2974
321c1729db5b initial checkin
penk
parents:
diff changeset
  2975
renameFile:aFile 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2976
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2977
321c1729db5b initial checkin
penk
parents:
diff changeset
  2978
    ^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin
penk
parents:
diff changeset
  2979
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2980
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2981
renameFile:filename to:newFileString update:aBoolean
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2982
    "rename filename to newFileString"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2983
321c1729db5b initial checkin
penk
parents:
diff changeset
  2984
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  2985
321c1729db5b initial checkin
penk
parents:
diff changeset
  2986
    rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  2987
    rename result ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2988
        aBoolean ifTrue:[
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2989
            self updateAndSelect:(rename renamedFiles).
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2990
        ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2991
    ] ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  2992
        self notifyChannel value:rename errorString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  2993
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  2994
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  2995
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  2996
321c1729db5b initial checkin
penk
parents:
diff changeset
  2997
renameFiles:aColOfFiles 
321c1729db5b initial checkin
penk
parents:
diff changeset
  2998
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  2999
321c1729db5b initial checkin
penk
parents:
diff changeset
  3000
    |rename|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3001
321c1729db5b initial checkin
penk
parents:
diff changeset
  3002
    rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3003
    rename result ifFalse:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3004
        self notifyChannel value:rename errorString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3005
    ] ifTrue:[
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3006
        "/ self updateAndSelect:(rename renamedFiles)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3007
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3008
    ^ rename result
321c1729db5b initial checkin
penk
parents:
diff changeset
  3009
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3010
321c1729db5b initial checkin
penk
parents:
diff changeset
  3011
renameSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3012
    "rename the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3013
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3014
    self renameFiles:self currentFileNameHolder value
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3015
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3016
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3017
!AbstractFileBrowser methodsFor:'menu accessing'!
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3018
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3019
bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3020
    "This resource specification was automatically generated
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3021
     by the MenuEditor of ST/X."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3022
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3023
    "Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3024
     the MenuEditor may not be able to read the specification."
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3025
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3026
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3027
     MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3028
     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3029
    "
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3030
    <resource: #programMenu>
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3031
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3032
    |menuSpec menu bookmarks|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3033
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3034
    menuSpec := self class baseBookmarksMenuSpec.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3035
    menu := menuSpec decodeAsLiteralArray.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3036
    menu findGuiResourcesIn:self.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3037
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3038
    bookmarks := self class directoryBookmarks.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3039
    "/ add the history items ...
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3040
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3041
    bookmarks size > 0 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3042
	menu addItem:(MenuItem labeled:'-').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3043
	bookmarks do:[:dirName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3044
	    menu addItem:((MenuItem label:dirName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3045
		(self currentDirectories value includes:dirName) ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3046
		    self currentFileNameHolder value:(OrderedCollection with:dirName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3047
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3048
	    ])).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3049
	].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3050
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3051
    ^ menu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3052
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3053
    "Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3054
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3055
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3056
canBackward
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3057
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3058
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3059
    ^ self dirHistory canBackward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3060
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3061
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3062
canForward
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3063
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3064
"/    | currentSelection |
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3065
"/
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3066
"/    currentSelection := self currentDirectories value.
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3067
"/    currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3068
    
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3069
    ^ self dirHistory canForward.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3070
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3071
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3072
menuDirHistory:backOrForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3073
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3074
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3075
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3076
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3077
    |menu pathList currentSel currentPath|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3078
321c1729db5b initial checkin
penk
parents:
diff changeset
  3079
    menu := Menu new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3080
    menu receiver:self.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3081
321c1729db5b initial checkin
penk
parents:
diff changeset
  3082
    self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3083
    backOrForward == #back ifTrue:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3084
        currentSel := self currentDirectories value.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3085
        currentSel size == 1 ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3086
            currentPath := currentSel first asString.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3087
        ] ifFalse:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3088
            currentPath := nil.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3089
        ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3090
        pathList := self dirHistory getBackCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3091
    ] ifFalse:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3092
        pathList := self dirHistory getForwardCollection.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3093
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  3094
    pathList isEmpty ifTrue:[ ^ nil].
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  3095
    pathList do:[:aPath| 
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3096
        | menuItem |
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3097
        menuItem := MenuItem new.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3098
        menuItem label:aPath.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3099
        menuItem value:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3100
            self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3101
        ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3102
        menu addItem:menuItem.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3103
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3104
    ^ menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3105
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3106
321c1729db5b initial checkin
penk
parents:
diff changeset
  3107
menuDirHistoryBack
321c1729db5b initial checkin
penk
parents:
diff changeset
  3108
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3109
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3110
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3111
321c1729db5b initial checkin
penk
parents:
diff changeset
  3112
    ^ self menuDirHistory:#back.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3113
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3114
321c1729db5b initial checkin
penk
parents:
diff changeset
  3115
menuDirHistoryForward
321c1729db5b initial checkin
penk
parents:
diff changeset
  3116
    "initialize the directory menu
321c1729db5b initial checkin
penk
parents:
diff changeset
  3117
    "
321c1729db5b initial checkin
penk
parents:
diff changeset
  3118
    <resource: #programMenu >
321c1729db5b initial checkin
penk
parents:
diff changeset
  3119
321c1729db5b initial checkin
penk
parents:
diff changeset
  3120
    ^ self menuDirHistory:#forward.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3121
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3122
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3123
menuFileHistory
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3124
    "initialize the file history menu
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3125
    "
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3126
    <resource: #programMenu >
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3127
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3128
    |menu hist text removeItem removeCol|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3129
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3130
    menu := Menu new.
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3131
    menu findGuiResourcesIn:self.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3132
    menu receiver:self.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3133
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3134
    hist := self fileHistory.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3135
    hist isEmpty ifTrue:[^ nil].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3136
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3137
    removeCol := OrderedCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3138
    hist do:[:aFileItem|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3139
	aFileItem fileName exists ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3140
	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3141
		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3142
		self openApplByFileItem:aFileItem
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3143
	    ]).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3144
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3145
	    removeCol add:aFileItem.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3146
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3147
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3148
    "/ remove all not existing history entries
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3149
    removeCol do:[ : el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3150
	hist remove:el.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3151
    ].
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3152
    removeItem := MenuItem new.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3153
    removeItem translateLabel:true.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3154
    removeItem label:text.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3155
    removeItem value:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3156
	self fileHistory removeAll.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3157
	self enableFileHistory value:false.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3158
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3159
    menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3160
    menu addItem:removeItem.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  3161
    ^ menu
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3162
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3163
4080
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3164
sortMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3165
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3166
    <resource: #programMenu >
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3167
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3168
    |menu|
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3169
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3170
    menu :=  Menu new fromLiteralArrayEncoding:self class sortMenu.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3171
    menu ifNil:[ ^ nil ].
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3172
    menu findGuiResourcesIn:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3173
    menu receiver:self.
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3174
    ^ menu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3175
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3176
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3177
viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3178
    ^self class viewDetailsMenuSpec
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3179
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3180
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3181
viewInContentsBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3182
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3183
    ^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3184
!
c32f68f51f47 translation to german
penk
parents: 4075
diff changeset
  3185
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3186
visitedDirectoriesMenu
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3187
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3188
    <resource: #programMenu >
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3189
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3190
    |menu histCopy text removeItem|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3191
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3192
    menu := Menu new.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3193
    menu receiver:self.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3194
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3195
    self dirHistory isEmpty ifTrue:[^ nil].
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3196
    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3197
    removeItem := MenuItem new.
4040
c880438f2554 *** empty log message ***
penk
parents: 4034
diff changeset
  3198
    removeItem translateLabel:true.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3199
    removeItem label:text.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3200
    removeItem value:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3201
        self dirHistory removeAll.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3202
        self enableForward value:self canForward.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3203
        self enableBack value:self canBackward.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3204
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3205
    histCopy := self dirHistory.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3206
    histCopy do:[:aFile| 
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3207
        menu addItem:(MenuItem label:aFile asString value:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3208
            self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  3209
        ]).
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3210
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3211
    menu addItem:(MenuItem label:'-').
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3212
    menu addItem:removeItem.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  3213
    ^ menu
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3214
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3215
321c1729db5b initial checkin
penk
parents:
diff changeset
  3216
!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3217
321c1729db5b initial checkin
penk
parents:
diff changeset
  3218
cvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3219
4046
2f096def132b commit in after add checks now only the added files in not all
penk
parents: 4040
diff changeset
  3220
    |sel log cmd dir executionBlock nameString block|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3221
321c1729db5b initial checkin
penk
parents:
diff changeset
  3222
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3223
	requestText:(resources string:'enter initial log message')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3224
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3225
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3226
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3227
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3228
    sel := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3229
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3230
	log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3231
	    sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3232
		sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3233
		    dir := self getDirWithoutFileName:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3234
		    cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3235
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3236
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3237
		    cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3238
		    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3239
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3240
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3241
	    ] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3242
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3243
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3244
    nameString := 'Command> cvs add and commit'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3245
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3246
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3247
321c1729db5b initial checkin
penk
parents:
diff changeset
  3248
cvsCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  3249
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3250
    |nSel log msg cmd selectedFiles sel executionBlock nameString|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3251
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3252
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3253
    nSel := selectedFiles size.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3254
321c1729db5b initial checkin
penk
parents:
diff changeset
  3255
    nSel == 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3256
	msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3257
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3258
	nSel > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3259
	    msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3260
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3261
	    msg := resources string:'enter log message for checkIn'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3262
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3263
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3264
321c1729db5b initial checkin
penk
parents:
diff changeset
  3265
    log := Dialog
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3266
	requestText:msg
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3267
	lines:10
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3268
	columns:70
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3269
	initialAnswer:nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3270
321c1729db5b initial checkin
penk
parents:
diff changeset
  3271
    log notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3272
	sel := self currentFileNameHolder value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3273
	sel isEmpty ifTrue:[ ^ self ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3274
	executionBlock := [ : stream |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3275
	    log notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3276
		sel size > 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3277
		    sel do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3278
			| dir block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3279
			dir := fn directory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3280
			cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3281
			block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3282
			block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3283
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3284
		] 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3285
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3286
	].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3287
    ].
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3288
    nameString := 'Command> cvs commit'.
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3289
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3290
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3291
321c1729db5b initial checkin
penk
parents:
diff changeset
  3292
cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin
penk
parents:
diff changeset
  3293
    "remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3294
321c1729db5b initial checkin
penk
parents:
diff changeset
  3295
    |msg toRemove updateRunning cmd executionBlock nameString|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3296
321c1729db5b initial checkin
penk
parents:
diff changeset
  3297
    updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3298
    self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3299
    toRemove := OrderedCollection new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3300
321c1729db5b initial checkin
penk
parents:
diff changeset
  3301
    executionBlock := [ : stream |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3302
	| block |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3303
	filesToRemove do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3304
	    OperatingSystem accessDeniedErrorSignal handle:[:ex|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3305
		"was not able to remove it"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3306
		| lastError |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3307
		lastError := OperatingSystem lastErrorString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3308
		msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3309
		lastError isNil ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3310
		    msg := msg , '\\(' , lastError , ')'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3311
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3312
		Dialog warn:msg withCRs
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3313
	    ] do:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3314
		|answer contents|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3315
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3316
		(fileName isSymbolicLink not) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3317
		    fileName remove.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3318
		    cmd := ('cvs remove -f ' , fileName baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3319
		    block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3320
		    block value:stream.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3321
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3322
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3323
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3324
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3325
	cmd := ('cvs commit -m ''removed via FileBrowser''').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3326
	block := self getExecutionBlockForCommand:cmd. 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3327
	block value:stream.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3328
    ].
4107
d158469338e5 *** empty log message ***
penk
parents: 4101
diff changeset
  3329
    nameString := 'Command> cvs remove and commit ', filesToRemove first baseName.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3330
    filesToRemove size > 1 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3331
	nameString := nameString, ' ...'.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3332
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3333
    self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3334
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3335
321c1729db5b initial checkin
penk
parents:
diff changeset
  3336
cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3337
321c1729db5b initial checkin
penk
parents:
diff changeset
  3338
    |sel question aswer|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3339
4294
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3340
    sel := self currentSelectedFiles copy.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3341
    sel size > 0 ifTrue:[
4294
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3342
        sel size > 1 ifTrue:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3343
            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
  3344
        ] ifFalse:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3345
            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
  3346
        ].
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3347
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3348
        aswer := Dialog 
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3349
                confirm:question withCRs
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3350
                yesLabel:(resources at:'Remove')
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3351
                noLabel:(resources at:'Cancel').
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3352
        aswer ifTrue:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3353
            self withCursor:(Cursor wait) do:[
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3354
                self cvsRemoveAndRemoveFromCVS:sel
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3355
            ]
864590e72d30 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4288
diff changeset
  3356
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3357
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3358
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3359
321c1729db5b initial checkin
penk
parents:
diff changeset
  3360
cvsUpdateAll
321c1729db5b initial checkin
penk
parents:
diff changeset
  3361
321c1729db5b initial checkin
penk
parents:
diff changeset
  3362
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3363
321c1729db5b initial checkin
penk
parents:
diff changeset
  3364
    cmd := 'cvs upd -l'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3365
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3366
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3367
321c1729db5b initial checkin
penk
parents:
diff changeset
  3368
cvsUpdateAllRecursive
321c1729db5b initial checkin
penk
parents:
diff changeset
  3369
321c1729db5b initial checkin
penk
parents:
diff changeset
  3370
    | cmd |
321c1729db5b initial checkin
penk
parents:
diff changeset
  3371
321c1729db5b initial checkin
penk
parents:
diff changeset
  3372
    cmd := 'cvs upd -d'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3373
    self executeCommand:cmd.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3374
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3375
321c1729db5b initial checkin
penk
parents:
diff changeset
  3376
cvsUpdateSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  3377
321c1729db5b initial checkin
penk
parents:
diff changeset
  3378
    | selectedFiles stream|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3379
321c1729db5b initial checkin
penk
parents:
diff changeset
  3380
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3381
    selectedFiles:= self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3382
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3383
    stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3384
    selectedFiles do:[: file |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3385
	stream nextPutAll:file baseName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3386
	stream space.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3387
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3388
    self executeCommand:stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3389
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3390
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3391
321c1729db5b initial checkin
penk
parents:
diff changeset
  3392
!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3393
321c1729db5b initial checkin
penk
parents:
diff changeset
  3394
copyInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3395
321c1729db5b initial checkin
penk
parents:
diff changeset
  3396
    ^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3397
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3398
321c1729db5b initial checkin
penk
parents:
diff changeset
  3399
cutInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3400
321c1729db5b initial checkin
penk
parents:
diff changeset
  3401
    ^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3402
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3403
321c1729db5b initial checkin
penk
parents:
diff changeset
  3404
deleteInDirContentsBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3405
321c1729db5b initial checkin
penk
parents:
diff changeset
  3406
    ^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3407
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  3408
321c1729db5b initial checkin
penk
parents:
diff changeset
  3409
!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3410
321c1729db5b initial checkin
penk
parents:
diff changeset
  3411
createProjectAndOpenProjectBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3412
    |nm f s directory|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3413
321c1729db5b initial checkin
penk
parents:
diff changeset
  3414
    self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3415
    directory := self currentDirectories value first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3416
    nm := directory baseName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3417
    f := (directory  construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3418
    f exists ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3419
	Dialog warn:'A file named ' , f baseName , ' already exists.'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3420
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3421
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3422
    s := f writeStream.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3423
    s nextPutAll:'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3424
name            ''' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3425
type            #classLibrary
321c1729db5b initial checkin
penk
parents:
diff changeset
  3426
package         #''private:' , nm , '''
321c1729db5b initial checkin
penk
parents:
diff changeset
  3427
prerequisites   nil
321c1729db5b initial checkin
penk
parents:
diff changeset
  3428
321c1729db5b initial checkin
penk
parents:
diff changeset
  3429
classes      #( )
321c1729db5b initial checkin
penk
parents:
diff changeset
  3430
'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3431
    s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3432
    ProjectBrowser openOnFile:f.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3433
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3434
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3435
doMake
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3436
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3437
    | cmd |
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3438
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3439
    cmd := 'make'.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3440
    self executeCommand:cmd.
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3441
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3442
4317
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3443
doOpenSettings
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3444
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3445
    | inst |
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3446
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3447
    inst := FileBrowserV2SettingsFrame new.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3448
    inst requestor:self.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3449
    inst open.
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3450
!
bf3f150809c2 settings is a new application now and will be inserted under tools in
penk
parents: 4294
diff changeset
  3451
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3452
fileFileIn
321c1729db5b initial checkin
penk
parents:
diff changeset
  3453
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3454
321c1729db5b initial checkin
penk
parents:
diff changeset
  3455
    self fileFileInLazy:false 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3456
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3457
321c1729db5b initial checkin
penk
parents:
diff changeset
  3458
fileFileInLazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3459
    "fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3460
321c1729db5b initial checkin
penk
parents:
diff changeset
  3461
    self fileFileInLazy:true 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3462
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3463
321c1729db5b initial checkin
penk
parents:
diff changeset
  3464
fileFileInLazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  3465
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3466
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3467
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3468
    [
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3469
        self withActivityIndicationDo:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3470
            | selectedFiles|
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3471
            selectedFiles:= self currentSelectedFiles.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3472
            selectedFiles do:[:fileName |
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3473
                self notifyChannel value:('File in:', fileName baseName).
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3474
                self singleFileFileIn:fileName lazy:lazy
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3475
            ].
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3476
            self notifyChannel value:''.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3477
        ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3478
    ] fork.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3479
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3480
321c1729db5b initial checkin
penk
parents:
diff changeset
  3481
fileFileInToNameSpace
321c1729db5b initial checkin
penk
parents:
diff changeset
  3482
    "fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3483
321c1729db5b initial checkin
penk
parents:
diff changeset
  3484
    |ns listOfKnownNameSpaces|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3485
321c1729db5b initial checkin
penk
parents:
diff changeset
  3486
    listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3487
    NameSpace 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3488
	allNamespaces 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3489
	    do:[:eachNameSpace | 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3490
		listOfKnownNameSpaces add:eachNameSpace name
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3491
	    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3492
    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3493
321c1729db5b initial checkin
penk
parents:
diff changeset
  3494
    ns := Dialog 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3495
		request:'During fileIn, new classes are created in nameSpace:'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3496
		initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3497
		list:listOfKnownNameSpaces.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3498
    ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3499
321c1729db5b initial checkin
penk
parents:
diff changeset
  3500
    LastEnforcedNameSpace := ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3501
    ns := NameSpace name:ns.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3502
321c1729db5b initial checkin
penk
parents:
diff changeset
  3503
    Class nameSpaceQuerySignal 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3504
	answer:ns
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3505
	do:[ 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3506
	    self fileFileInLazy:false 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3507
	] 
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3508
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3509
321c1729db5b initial checkin
penk
parents:
diff changeset
  3510
fileFindAllDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3511
    "scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3512
321c1729db5b initial checkin
penk
parents:
diff changeset
  3513
    |fileNames dir infoDir filesBySize
321c1729db5b initial checkin
penk
parents:
diff changeset
  3514
     result info dirPrefix myName stream textBox maxLength directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3515
321c1729db5b initial checkin
penk
parents:
diff changeset
  3516
321c1729db5b initial checkin
penk
parents:
diff changeset
  3517
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3518
	result := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3519
	myName := self class name asString.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3520
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3521
	directories isEmpty ifTrue:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3522
        
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3523
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3524
"/        self label: myName, '- gathering file names ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3525
	fileNames := dir recursiveDirectoryContents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3526
	fileNames := fileNames collect:[:fn | dir construct:fn].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3527
	fileNames := fileNames select:[:fn | fn isDirectory not].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3528
321c1729db5b initial checkin
penk
parents:
diff changeset
  3529
"/        self label:myName , '- gathering sizes ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3530
	infoDir := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3531
	fileNames do:[:fn |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3532
	    infoDir at:fn put:(fn fileSize)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3533
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3534
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3535
	"/ for each, get the files size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3536
	"/ in a first pass, look for files of the same size and
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3537
	"/ compare them ...
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3538
321c1729db5b initial checkin
penk
parents:
diff changeset
  3539
"/        self label:myName , '- preselect possible duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3540
	filesBySize := Dictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3541
	infoDir keysAndValuesDo:[:fn :sz |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3542
	    |entry|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3543
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3544
	    entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3545
	    entry add:fn.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3546
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3547
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3548
	"/ any of same size ?
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3549
321c1729db5b initial checkin
penk
parents:
diff changeset
  3550
"/        self label:myName , '- checking for duplicates ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3551
	filesBySize do:[:entry |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3552
	    |files|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3553
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3554
	    entry size > 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3555
		files := entry asArray.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3556
		1 to:files size-1 do:[:idx1 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3557
		    idx1+1 to:files size do:[:idx2 |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3558
			|fn1 fn2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3559
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3560
			fn1 := files at:idx1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3561
			fn2 := files at:idx2.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3562
321c1729db5b initial checkin
penk
parents:
diff changeset
  3563
"/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3564
			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3565
			    "/ compare the files
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3566
			    (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3567
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3568
				result at:fn1 put:fn2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3569
			    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3570
			]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3571
		    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3572
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3573
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3574
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3575
321c1729db5b initial checkin
penk
parents:
diff changeset
  3576
"/        self label:myName , '- sorting ...'.
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3577
	dirPrefix := dir pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3578
	result := result associations.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3579
	result := result collect:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3580
					|f1 f2|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3581
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3582
					f1 := assoc key name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3583
					f2 := assoc value name.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3584
					(f1 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3585
					    f1 := f1 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3586
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3587
					(f2 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3588
					    f2 := f2 copyFrom:dirPrefix size + 2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3589
					].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3590
					f1 < f2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3591
					    f2 -> f1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3592
					] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3593
					    f1 -> f2
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3594
					]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3595
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3596
	result sort:[:f1 :f2 | f2 value < f1 value].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3597
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3598
	info := OrderedCollection new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3599
	result do:[:assoc |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3600
	    info add:(assoc key , ' same as ' , assoc value)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3601
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3602
	info isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3603
	    info := 'No duplicate files found.'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3604
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3605
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3606
321c1729db5b initial checkin
penk
parents:
diff changeset
  3607
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3608
    info do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3609
	stream nextPutAll:el.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3610
	stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3611
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3612
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3613
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3614
    textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3615
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3616
    textBox noCancel.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3617
    textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3618
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3619
    info do:[: el |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3620
	maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3621
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3622
    textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3623
    textBox showAtPointer.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3624
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3625
"/    subView contents:info.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3626
"/    self label:myName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3627
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3628
321c1729db5b initial checkin
penk
parents:
diff changeset
  3629
fileFindDuplicates
321c1729db5b initial checkin
penk
parents:
diff changeset
  3630
    "scan directory for duplicate files"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3631
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3632
    |fileNames infoDir filesBySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3633
     result info stream textBox maxLength directories allFiles titleStream size|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3634
321c1729db5b initial checkin
penk
parents:
diff changeset
  3635
"/    (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin
penk
parents:
diff changeset
  3636
"/              yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3637
321c1729db5b initial checkin
penk
parents:
diff changeset
  3638
    self withWaitCursorDo:[
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3639
        result := Dictionary new.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3640
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3641
        directories := self currentSelectedDirectories.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3642
        directories isEmpty ifTrue:[^ self].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3643
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3644
        allFiles := OrderedCollection new.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3645
        directories do:[ : dir|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3646
            fileNames := dir directoryContents.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3647
            fileNames := fileNames collect:[:fn | dir construct:fn].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3648
            fileNames := fileNames select:[:fn | fn isDirectory not].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3649
            allFiles addAll:fileNames.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3650
        ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3651
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3652
        infoDir := Dictionary new.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3653
        allFiles do:[:fn |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3654
            infoDir at:fn put:(fn info)
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3655
        ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3656
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3657
        "/ for each, get the files size.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3658
        "/ in a first pass, look for files of the same size and
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3659
        "/ compare them ...
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3660
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3661
        filesBySize := Dictionary new.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3662
        infoDir keysAndValuesDo:[:fn :info |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3663
            |sz entry|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3664
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3665
            sz := info size.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3666
            entry := filesBySize at:sz ifAbsentPut:[Set new].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3667
            entry add:fn.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3668
        ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3669
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3670
        "/ any of same size ?
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3671
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3672
        filesBySize do:[:entry |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3673
            |files|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3674
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3675
            entry size > 1 ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3676
                files := entry asArray.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3677
                1 to:files size-1 do:[:idx1 |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3678
                    idx1+1 to:files size do:[:idx2 |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3679
                        |fn1 fn2|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3680
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3681
                        fn1 := files at:idx1.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3682
                        fn2 := files at:idx2.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3683
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3684
                        (result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3685
                            "/ compare the files
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3686
                            (fn1 sameContentsAs:fn2) ifTrue:[
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3687
"/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3688
                                result at:fn1 put:fn2.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3689
                            ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3690
                        ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3691
                    ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3692
                ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3693
            ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3694
        ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3695
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3696
        result := result associations.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3697
        result := result collect:[:assoc |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3698
                                        |f1 f2|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3699
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3700
                                        f1 := assoc key asString.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3701
                                        f2 := assoc value asString.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3702
                                        f1 < f2 ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3703
                                            f2 -> f1
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3704
                                        ] ifFalse:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3705
                                            f1 -> f2
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3706
                                        ]
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3707
                                ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3708
        result sort:[:f1 :f2 | f2 value < f1 value].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3709
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3710
        info := OrderedCollection new.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3711
        size := self getBestDirectory asString size.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3712
        result do:[:assoc |
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3713
            |fn1 fn2|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3714
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3715
            fn1 := assoc key.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3716
            fn2 := assoc value.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3717
            size > 1 ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3718
                fn1 := ('..', (fn1 copyFrom:(size + 1))).
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3719
                fn2 := ('..', (fn2 copyFrom:(size + 1))).
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3720
            ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3721
            (fn1 includes:Character space) ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3722
                fn1 := '"' , fn1 , '"'
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3723
            ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3724
            (fn2 includes:Character space) ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3725
                fn2 := '"' , fn2 , '"'
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3726
            ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3727
            info add:(fn1 , ' same as ' , fn2)
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3728
        ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3729
        info isEmpty ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3730
            info add:'No duplicate files found.'
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3731
        ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3732
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3733
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3734
    info do:[:el|
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3735
        stream nextPutAll:el.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3736
        stream cr.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3737
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3738
    titleStream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3739
    titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3740
    directories size == 1 ifTrue:[
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3741
        titleStream nextPutAll:'y: ', directories first asString.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3742
    ] ifFalse:[
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3743
        titleStream nextPutAll:'ies: '.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3744
        titleStream cr.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3745
        directories do:[:dir|
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3746
            size > 1 ifTrue:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3747
                titleStream nextPutAll:'..'.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3748
                titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3749
            ] ifFalse:[
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3750
                titleStream nextPutAll:(dir asString).
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3751
            ].
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3752
            titleStream cr.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3753
        ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3754
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3755
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  3756
    textBox := TextBox new.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3757
    textBox initialText:(stream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3758
    textBox title:(titleStream contents).
321c1729db5b initial checkin
penk
parents:
diff changeset
  3759
    textBox readOnly:true.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3760
    textBox noCancel.
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3761
    stream := WriteStream on:'Dublicates in '.
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3762
    directories do:[ :aDirectory |
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3763
        stream nextPutAll:aDirectory baseName.
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3764
        stream space.
4050
d63d33ad9c41 *** empty log message ***
penk
parents: 4046
diff changeset
  3765
    ].
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3766
    textBox label:stream contents.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3767
    maxLength := 10.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3768
    info do:[: el |
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3769
        maxLength := maxLength max:(el size).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3770
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3771
    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  3772
    textBox openModeless. "/ showAtPointer.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3773
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3774
321c1729db5b initial checkin
penk
parents:
diff changeset
  3775
fileFindFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  3776
    |filename files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3777
321c1729db5b initial checkin
penk
parents:
diff changeset
  3778
    files := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3779
    files notEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3780
	filename := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3781
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3782
	filename := (Filename homeDirectory).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3783
    ].
4101
cc9cdc23b789 select & doubleClick
Claus Gittinger <cg@exept.de>
parents: 4094
diff changeset
  3784
    FindFileApplication openOnFileName:filename for:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3785
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3786
321c1729db5b initial checkin
penk
parents:
diff changeset
  3787
installAllAsAutoloaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  3788
    "install all classes found here as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3789
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3790
    [
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3791
        self withActivityIndicationDo:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  3792
            self allItemsOfCurrentDirectory do:[:fileItem |
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  3793
                (fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3794
                    self notifyChannel value:('Install as Autoloaded:', fileItem baseName).
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  3795
                    self installAsAutoloaded:(fileItem fileName).
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  3796
                ]
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  3797
            ].
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3798
            self notifyChannel value:''.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3799
        ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  3800
    ] fork.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3801
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3802
321c1729db5b initial checkin
penk
parents:
diff changeset
  3803
installAsAutoloaded:aFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  3804
    "install aFilename as autoloaded class"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3805
321c1729db5b initial checkin
penk
parents:
diff changeset
  3806
    |chunks s|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3807
321c1729db5b initial checkin
penk
parents:
diff changeset
  3808
    chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3809
    chunks 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3810
	select:[:eachChunk | eachChunk isClassDefinitionChange]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3811
	thenDo:[:eachClassChunk | eachClassChunk installAsAutoloadedClassIfNotPrivate].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3812
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3813
321c1729db5b initial checkin
penk
parents:
diff changeset
  3814
loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  3815
321c1729db5b initial checkin
penk
parents:
diff changeset
  3816
    |img path files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3817
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3818
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3819
    files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3820
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3821
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3822
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3823
	    img := Image fromFile:(path pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3824
	    img notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3825
		aSelectorOrBlock isSymbol ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3826
		    img perform:aSelectorOrBlock
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3827
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3828
		    aSelectorOrBlock value:img
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3829
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3830
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3831
		Dialog warn:'unknown format: ' , fileName asString
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3832
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3833
	]
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
321c1729db5b initial checkin
penk
parents:
diff changeset
  3837
openASN1Browser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3838
321c1729db5b initial checkin
penk
parents:
diff changeset
  3839
    self openTool:OSI::ASN1Browser 
321c1729db5b initial checkin
penk
parents:
diff changeset
  3840
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3841
321c1729db5b initial checkin
penk
parents:
diff changeset
  3842
openAppletViewer
321c1729db5b initial checkin
penk
parents:
diff changeset
  3843
    |numItems files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3844
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3845
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3846
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3847
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3848
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3849
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3850
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3851
321c1729db5b initial checkin
penk
parents:
diff changeset
  3852
    Java startupJavaSystem.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3853
"/    Java markAllClassesUninitialized.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3854
"/    Java initAllStaticFields.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3855
"/    Java initAllClasses.
321c1729db5b initial checkin
penk
parents:
diff changeset
  3856
321c1729db5b initial checkin
penk
parents:
diff changeset
  3857
    files do:[:fileName |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3858
	|p path|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3859
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3860
	path := fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3861
	path isDirectory ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3862
	    p := Java 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3863
		    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3864
		    argumentString:path pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3865
	    p resume.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3866
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3867
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3868
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3869
321c1729db5b initial checkin
penk
parents:
diff changeset
  3870
openCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3871
321c1729db5b initial checkin
penk
parents:
diff changeset
  3872
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  3873
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3874
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3875
    directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3876
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3877
	CBrowser::Browser openIn:directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3878
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3879
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3880
4230
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3881
openChangeSetBrowser
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3882
    self
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3883
        openTool:ChangeSetBrowser 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3884
        with:#openOnFile: 
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3885
        ignoreDirectories:true
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3886
!
805e8d4b4ec7 added make.
Claus Gittinger <cg@exept.de>
parents: 4213
diff changeset
  3887
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3888
openChangesBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  3889
    "open a change browser on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3890
321c1729db5b initial checkin
penk
parents:
diff changeset
  3891
    self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin
penk
parents:
diff changeset
  3892
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3893
321c1729db5b initial checkin
penk
parents:
diff changeset
  3894
openDiffView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3895
    "open a diff-view"
321c1729db5b initial checkin
penk
parents:
diff changeset
  3896
4170
d01b3e418209 *** empty log message ***
penk
parents: 4164
diff changeset
  3897
    | name1 name2 text1 text2 d err nm l1 files title defaultName lastFile|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3898
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  3899
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3900
    files isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3901
	Dialog warn:'you have to select a file first'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3902
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3903
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3904
    (files size == 2) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3905
	name1 := files last.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3906
	name2 := files first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3907
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3908
	LastFileDiffFile notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3909
	    | directories |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3910
	    directories := self currentDirectories value.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3911
	    directories notEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3912
		lastFile := directories first asFilename construct:(LastFileDiffFile baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3913
		(lastFile exists and:[lastFile isReadable]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3914
		    name1 := lastFile.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3915
		]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3916
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3917
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3918
	name2 := files first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3919
	title := 'show difference between ', name2 baseName, ' and:'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3920
	defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3921
	name1 := DialogBox 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3922
		    requestFileName:title 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3923
		    default:defaultName 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3924
		    ok:'OK' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3925
		    abort:'Use File List' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3926
		    pattern:'*' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3927
		    fromDirectory:(name2 asFilename directory).
4060
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3928
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3929
efb0431e606d *** empty log message ***
penk
parents: 4050
diff changeset
  3930
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3931
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3932
321c1729db5b initial checkin
penk
parents:
diff changeset
  3933
    (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3934
	text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3935
	text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3936
	name1 := nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3937
	l1 := 'browser contents'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3938
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3939
	name1 := name1 asFilename.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3940
	LastFileDiffFile := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3941
	name1 asFilename isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3942
	    nm := name1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3943
	    name1 asFilename exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3944
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3945
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3946
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3947
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3948
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3949
	l1 := name1
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3950
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3951
321c1729db5b initial checkin
penk
parents:
diff changeset
  3952
    err isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3953
	name2 isReadable ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3954
	    nm := name2.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3955
	    name2 exists ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3956
		err := '%1 does not exist'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3957
	    ] ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3958
		err := '%1 is not readable'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3959
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3960
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3961
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3962
    err notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3963
	Dialog warn:(resources string:err with:nm pathName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3964
	^ self
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3965
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  3966
321c1729db5b initial checkin
penk
parents:
diff changeset
  3967
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3968
	name1 notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3969
	    text1 := name1 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3970
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3971
	text2 := name2 contents.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3972
	text1 = text2 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3973
	    self information:'same contents'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3974
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3975
	    d := DiffTextView 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3976
		    openOn:text1 label:l1
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3977
		    and:text2 label:name2 pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3978
	    d topView label:'file differences'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  3979
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  3980
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  3981
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3982
321c1729db5b initial checkin
penk
parents:
diff changeset
  3983
openEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3984
    self openTool:EditTextView
321c1729db5b initial checkin
penk
parents:
diff changeset
  3985
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3986
321c1729db5b initial checkin
penk
parents:
diff changeset
  3987
openHTMLReader
321c1729db5b initial checkin
penk
parents:
diff changeset
  3988
321c1729db5b initial checkin
penk
parents:
diff changeset
  3989
    self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin
penk
parents:
diff changeset
  3990
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3991
321c1729db5b initial checkin
penk
parents:
diff changeset
  3992
openImageEditor
321c1729db5b initial checkin
penk
parents:
diff changeset
  3993
321c1729db5b initial checkin
penk
parents:
diff changeset
  3994
    [self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3995
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  3996
321c1729db5b initial checkin
penk
parents:
diff changeset
  3997
openImageInspector
321c1729db5b initial checkin
penk
parents:
diff changeset
  3998
    [self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  3999
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4000
321c1729db5b initial checkin
penk
parents:
diff changeset
  4001
openImagePreview
321c1729db5b initial checkin
penk
parents:
diff changeset
  4002
321c1729db5b initial checkin
penk
parents:
diff changeset
  4003
    [self loadImageAndPerform:[:img |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4004
				|i top viewer|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4005
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4006
				top := StandardSystemView new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4007
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4008
				viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4009
				i := img.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4010
				top extent:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4011
				top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4012
				top openAndWait.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4013
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4014
				(i width > 200 or:[i height > 200]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4015
				    i := i magnifiedPreservingRatioTo:200@200.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4016
				].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4017
				viewer image:i.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4018
			      ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4019
    ] fork
321c1729db5b initial checkin
penk
parents:
diff changeset
  4020
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4021
321c1729db5b initial checkin
penk
parents:
diff changeset
  4022
openMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4023
    |file|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4024
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4025
    file := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4026
    (file isEmpty) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4027
	^ self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4028
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4029
    file := file first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4030
    (MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4031
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4032
321c1729db5b initial checkin
penk
parents:
diff changeset
  4033
openSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4034
321c1729db5b initial checkin
penk
parents:
diff changeset
  4035
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4036
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4037
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4038
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4039
321c1729db5b initial checkin
penk
parents:
diff changeset
  4040
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4041
    CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4042
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4043
321c1729db5b initial checkin
penk
parents:
diff changeset
  4044
openSnapshotImageBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4045
    ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4046
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4047
321c1729db5b initial checkin
penk
parents:
diff changeset
  4048
openTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4049
321c1729db5b initial checkin
penk
parents:
diff changeset
  4050
    |directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4051
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4052
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4053
    directories isEmpty ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4054
	dir := Filename homeDirectory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4055
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4056
	dir := directories first.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4057
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4058
321c1729db5b initial checkin
penk
parents:
diff changeset
  4059
    VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4060
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4061
321c1729db5b initial checkin
penk
parents:
diff changeset
  4062
openTool:aToolClass
321c1729db5b initial checkin
penk
parents:
diff changeset
  4063
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4064
321c1729db5b initial checkin
penk
parents:
diff changeset
  4065
    ^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4066
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4067
321c1729db5b initial checkin
penk
parents:
diff changeset
  4068
openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4069
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4070
321c1729db5b initial checkin
penk
parents:
diff changeset
  4071
    ^ self
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4072
	openTool:aToolClass 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4073
	with:#openOn: 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4074
	ignoreDirectories:ignoreDirs
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4075
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4076
321c1729db5b initial checkin
penk
parents:
diff changeset
  4077
openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin
penk
parents:
diff changeset
  4078
    "open a tool on the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4079
321c1729db5b initial checkin
penk
parents:
diff changeset
  4080
    |numItems path tool files|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4081
321c1729db5b initial checkin
penk
parents:
diff changeset
  4082
    aToolClass isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4083
	Dialog warn:'Sorry, that tool seems to be not available'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4084
	^ nil.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4085
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4086
    files := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4087
    
321c1729db5b initial checkin
penk
parents:
diff changeset
  4088
    (numItems := files size) > 2 ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4089
	(self 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4090
	    confirm:(resources string:'open for each of the %1 items ?' 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4091
				 with:numItems)) ifFalse:[^ self].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4092
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4093
321c1729db5b initial checkin
penk
parents:
diff changeset
  4094
    self withWaitCursorDo:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4095
	files do:[:fileName |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4096
	    (ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4097
		fileName isAbsolute ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4098
		    path := fileName getName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4099
		] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4100
		    path := fileName pathName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4101
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4102
		tool := aToolClass perform:aSelector with:path.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4103
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4104
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4105
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4106
    ^ tool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4107
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4108
321c1729db5b initial checkin
penk
parents:
diff changeset
  4109
openZipTool
321c1729db5b initial checkin
penk
parents:
diff changeset
  4110
    |zipTool directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4111
321c1729db5b initial checkin
penk
parents:
diff changeset
  4112
    (zipTool := self openTool:ZipTool) notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4113
	directories := self currentSelectedDirectories.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4114
	directories isEmpty ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4115
	    dir := directories first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4116
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4117
	    dir := Filename homeDirectory.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4118
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4119
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4120
	zipTool initialExtractDirectory:dir.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4121
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4122
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4123
321c1729db5b initial checkin
penk
parents:
diff changeset
  4124
readAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4125
    "read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4126
321c1729db5b initial checkin
penk
parents:
diff changeset
  4127
    | directories dir|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4128
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4129
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4130
    directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4131
321c1729db5b initial checkin
penk
parents:
diff changeset
  4132
    dir := directories first.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4133
    Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin
penk
parents:
diff changeset
  4134
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4135
321c1729db5b initial checkin
penk
parents:
diff changeset
  4136
singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin
penk
parents:
diff changeset
  4137
    "fileIn the selected file(s)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4138
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4139
    |aStream wasLazy notifyString|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4140
321c1729db5b initial checkin
penk
parents:
diff changeset
  4141
    fileName type == #regular ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4142
4345
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4143
        (ObjectFileLoader notNil
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4144
        and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4145
            AbortOperationRequest catch:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4146
                |p|
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4147
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4148
                "/
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4149
                "/ look if already loaded ...  then unload first
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4150
                "/
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4151
                p := fileName pathName.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4152
                (ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4153
                    (Dialog confirm:(resources 
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4154
                                        string:'%1 is already loaded; load anyway ?'
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4155
                                        with:p)) ifFalse:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4156
                        ^ self
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4157
                    ].
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4158
                    notifyString := 'unloading old ' , p , ' ...'.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4159
                    Transcript showCR:notifyString.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4160
                    self notifyChannel value:notifyString.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4161
                    ObjectFileLoader unloadObjectFile:p. 
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4162
                ].
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4163
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4164
                notifyString := 'loading ' , p , ' ...'.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4165
                Transcript showCR:notifyString.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4166
                self notifyChannel value:notifyString.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4167
                ObjectFileLoader loadObjectFile:p.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4168
                Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4169
            ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4170
        ] ifFalse:[ ((fileName hasSuffix:'cls') 
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4171
                     and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4172
            "/ loading a binary class file
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4173
            aStream := fileName readStream.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4174
            aStream notNil ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4175
                aStream fileInBinary.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4176
            ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4177
        ] ifFalse:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4178
            ((fileName hasSuffix:'class')
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4179
            or:[(fileName hasSuffix:'cla')]) ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4180
                "/ loading a java class file
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4181
                JavaClassReader notNil ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4182
                    JavaClassReader loadFile:(fileName pathName)
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4183
                ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4184
            ] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4185
                "/ loading a sif (smalltalk interchange format) file
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4186
                SmalltalkInterchangeSTXFileInManager autoload.    
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4187
                SmalltalkInterchangeFileManager newForFileIn
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4188
                    fileName: fileName pathName;
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4189
                    fileIn.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4190
            ] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4191
                Parcel isNil ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4192
                    Dialog warn:'Parcel support not loaded.'
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4193
                ] ifFalse:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4194
                    Parcel loadParcelFrom: fileName pathName
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4195
                ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4196
            ] ifFalse:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4197
                "/ loading a regular (chunk) or xml source file
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4198
                aStream := fileName readStream.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4199
                aStream notNil ifTrue:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4200
                    Error handle:[ : ex |
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4201
                        Dialog warn:'Error on file in: ', ex errorString.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4202
                    ] do:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4203
                        [
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4204
                            Class withoutUpdatingChangesDo:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4205
                                wasLazy := Compiler compileLazy:lazy.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4206
                                aStream fileIn.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4207
                            ].
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4208
                            Class addInfoRecord:('fileIn ' , fileName asString) 
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4209
                        ] ensure:[
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4210
                            Compiler compileLazy:wasLazy.
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4211
                            aStream close
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4212
                        ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4213
                    ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4214
                ]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4215
            ]]]
7094ddfde188 *** empty log message ***
penk
parents: 4343
diff changeset
  4216
        ]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4217
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4218
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4219
321c1729db5b initial checkin
penk
parents:
diff changeset
  4220
!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4221
321c1729db5b initial checkin
penk
parents:
diff changeset
  4222
canCvsAddAndCommit
321c1729db5b initial checkin
penk
parents:
diff changeset
  4223
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4224
    |selectedFiles|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4225
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4226
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4227
    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4228
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4229
321c1729db5b initial checkin
penk
parents:
diff changeset
  4230
canRemoveCVSContainer
321c1729db5b initial checkin
penk
parents:
diff changeset
  4231
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4232
    |selectedFiles dirOfFile cvsDir|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4233
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4234
    selectedFiles := self currentSelectedFiles.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4235
    selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4236
    ^ ((selectedFiles detect:[:fileName|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4237
	dirOfFile := self getDirWithoutFileName:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4238
	cvsDir := dirOfFile construct:'CVS'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4239
	(cvsDir isDirectory and:[cvsDir exists])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4240
    ] ifNone:[nil]) notNil).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4241
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4242
321c1729db5b initial checkin
penk
parents:
diff changeset
  4243
!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4244
321c1729db5b initial checkin
penk
parents:
diff changeset
  4245
anySTFilesPresent
321c1729db5b initial checkin
penk
parents:
diff changeset
  4246
321c1729db5b initial checkin
penk
parents:
diff changeset
  4247
    ^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4248
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4249
321c1729db5b initial checkin
penk
parents:
diff changeset
  4250
canCreateNewProject
321c1729db5b initial checkin
penk
parents:
diff changeset
  4251
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4252
    | selectedFiles |
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4253
321c1729db5b initial checkin
penk
parents:
diff changeset
  4254
    self currentFilesAreInSameDirectory ifFalse:[^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4255
    selectedFiles := self currentSelectedFiles.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4256
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4257
	((selectedFiles detect:[:fileName| | suffix|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4258
	    suffix := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4259
	    (suffix = 'prj' or:[suffix = 'st'])
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4260
	] ifNone:[nil]) notNil)
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4261
      ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4262
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4263
321c1729db5b initial checkin
penk
parents:
diff changeset
  4264
canDoTerminal
321c1729db5b initial checkin
penk
parents:
diff changeset
  4265
321c1729db5b initial checkin
penk
parents:
diff changeset
  4266
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4267
      or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4268
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4269
321c1729db5b initial checkin
penk
parents:
diff changeset
  4270
canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4271
321c1729db5b initial checkin
penk
parents:
diff changeset
  4272
    ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4273
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4274
321c1729db5b initial checkin
penk
parents:
diff changeset
  4275
canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4276
321c1729db5b initial checkin
penk
parents:
diff changeset
  4277
    ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4278
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4279
321c1729db5b initial checkin
penk
parents:
diff changeset
  4280
canReadAbbrevFile
321c1729db5b initial checkin
penk
parents:
diff changeset
  4281
321c1729db5b initial checkin
penk
parents:
diff changeset
  4282
321c1729db5b initial checkin
penk
parents:
diff changeset
  4283
    self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4284
    ^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin
penk
parents:
diff changeset
  4285
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4286
321c1729db5b initial checkin
penk
parents:
diff changeset
  4287
canRemoveFromSourcePath
321c1729db5b initial checkin
penk
parents:
diff changeset
  4288
321c1729db5b initial checkin
penk
parents:
diff changeset
  4289
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4290
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4291
321c1729db5b initial checkin
penk
parents:
diff changeset
  4292
hasASN1
321c1729db5b initial checkin
penk
parents:
diff changeset
  4293
    ^ [ OSI::ASN1Parser notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4294
	and:[OSI::ASN1Parser isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4295
321c1729db5b initial checkin
penk
parents:
diff changeset
  4296
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4297
321c1729db5b initial checkin
penk
parents:
diff changeset
  4298
hasASN1AndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4299
    ^ [ self hasSelection value 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4300
	and:[self currentSelectedFiles size > 0
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4301
	and:[OSI::ASN1Parser notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4302
	and:[OSI::ASN1Parser isLoaded]]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4303
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4304
321c1729db5b initial checkin
penk
parents:
diff changeset
  4305
hasCBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4306
    ^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4307
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4308
321c1729db5b initial checkin
penk
parents:
diff changeset
  4309
hasJava
321c1729db5b initial checkin
penk
parents:
diff changeset
  4310
321c1729db5b initial checkin
penk
parents:
diff changeset
  4311
    ^ [ JavaClassReader notNil 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4312
	and:[JavaClassReader isLoaded]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4313
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4314
321c1729db5b initial checkin
penk
parents:
diff changeset
  4315
hasJavaAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4316
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4317
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4318
	and:[JavaClassReader notNil 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4319
	and:[JavaClassReader isLoaded]]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4320
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4321
321c1729db5b initial checkin
penk
parents:
diff changeset
  4322
hasMP3Player
321c1729db5b initial checkin
penk
parents:
diff changeset
  4323
321c1729db5b initial checkin
penk
parents:
diff changeset
  4324
    ^ [ MP3PlayerApplication notNil
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4325
	or:[SaugFix::MP3PlayerApplication notNil ]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4326
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4327
321c1729db5b initial checkin
penk
parents:
diff changeset
  4328
hasMP3PlayerAndSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4329
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4330
    ^ [ self currentSelectedFiles size > 0
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4331
	and:[ self hasMP3Player value]]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4332
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4333
321c1729db5b initial checkin
penk
parents:
diff changeset
  4334
hasSlideShow
321c1729db5b initial checkin
penk
parents:
diff changeset
  4335
321c1729db5b initial checkin
penk
parents:
diff changeset
  4336
    ^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4337
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4338
321c1729db5b initial checkin
penk
parents:
diff changeset
  4339
hasSnapshotSelection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4340
321c1729db5b initial checkin
penk
parents:
diff changeset
  4341
    ^ [ 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4342
	| files |
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4343
	files := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4344
	((files size == 1)
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4345
	and:[ files first hasSuffix:'img' ])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4346
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4347
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4348
321c1729db5b initial checkin
penk
parents:
diff changeset
  4349
hasZipFileSelected
321c1729db5b initial checkin
penk
parents:
diff changeset
  4350
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4351
    ^ [|sel fileName fn suff|
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4352
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4353
	sel := self currentSelectedFiles.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4354
	sel size == 1 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4355
	    fileName := sel first.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4356
	    fileName notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4357
		suff := fileName suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4358
		suff = 'zip' or:[suff = 'jar']
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4359
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4360
		false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4361
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4362
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4363
	    false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4364
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4365
      ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4366
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4367
321c1729db5b initial checkin
penk
parents:
diff changeset
  4368
javaSupportLoaded
321c1729db5b initial checkin
penk
parents:
diff changeset
  4369
321c1729db5b initial checkin
penk
parents:
diff changeset
  4370
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
  4371
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4372
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4373
!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4374
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4375
getModeString:modeBits
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4376
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4377
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4378
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4379
    ^ self getModeString:modeBits 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4380
		    with:#( 'owner:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4381
			    ' group:' $r $w $x 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4382
			    ' others:' $r $w $x )
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4383
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4384
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4385
getModeString:modeBits with:texts
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4386
    "convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4387
     This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4388
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4389
    |bits modeString|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4390
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4391
    bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4392
    modeString := ''.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4393
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4394
    #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 ) 
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4395
    with: texts do:[:bitMask :access |
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4396
	|ch|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4397
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4398
	bitMask isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4399
	    modeString := modeString , access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4400
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4401
	    (bits bitAnd:bitMask) == 0 ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4402
		ch := $-
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4403
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4404
		ch := access
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4405
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4406
	    modeString := modeString copyWith:ch 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4407
	]
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4408
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4409
    ^ modeString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4410
! !
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4411
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4412
!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4413
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4414
getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4415
    "get stat info on selected file - return a string which can be
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4416
     shown in a box"
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4417
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4418
    | selFiles filename text fileOutput type modeBits modeString s ts isLink info|
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4419
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4420
    selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4421
    ((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4422
    filename := selFiles first.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4423
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4424
    text := StringCollection new.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4425
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4426
    text add:('filename: ', filename asString).
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4427
    isLink := filename isSymbolicLink.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4428
    isLink ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4429
	text add:('symbolic link to: ', (filename linkInfo path))
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4430
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4431
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4432
    info := filename info.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4433
    type := info type.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4434
    (longInfo and:[type == #regular]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4435
	fileOutput := filename fileType.
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4436
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4437
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4438
    s := ('type:   ').
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4439
    fileOutput isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4440
	s := s ,  type asString
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4441
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4442
	s := s , 'regular (' , fileOutput , ')'
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4443
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4444
    text add:s.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4445
    isLink = true ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4446
	info := filename linkInfo
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4447
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4448
	info := filename info
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4449
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4450
    
4000
31abf5426b87 #size -> #fileSize
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  4451
    text add:('size:   ', (info fileSize) printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4452
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4453
    modeBits := info mode.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4454
    modeString := self getModeString:modeBits.
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4455
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4456
	text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4457
    ] ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4458
	text add:('access: ', modeString)
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4459
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4460
    text add:('owner:  ',
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4461
	       (OperatingSystem getUserNameFromID:(info uid))).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4462
    longInfo ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4463
	text add:('group:  ',
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4464
		   (OperatingSystem getGroupNameFromID:(info gid))).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4465
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4466
	ts := info accessTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4467
	text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4468
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4469
	ts := info modificationTime.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4470
	text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
3906
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4471
    ].
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4472
    ^ text asString
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4473
!
8a76cb4f5884 next stage
penk
parents: 3892
diff changeset
  4474
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4475
initialCommandFor:fileName into:aBox
321c1729db5b initial checkin
penk
parents:
diff changeset
  4476
    "set a useful initial command for execute box."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4477
321c1729db5b initial checkin
penk
parents:
diff changeset
  4478
    |mime cmd select path suffix|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4479
321c1729db5b initial checkin
penk
parents:
diff changeset
  4480
    path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4481
    suffix := fileName asFilename suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4482
    DefaultCommandPerSuffix notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4483
	cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4484
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4485
	    aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4486
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4487
	].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4488
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4489
    mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4490
"/    mime notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
  4491
"/        cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin
penk
parents:
diff changeset
  4492
"/    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4493
321c1729db5b initial checkin
penk
parents:
diff changeset
  4494
    "/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin
penk
parents:
diff changeset
  4495
    "/ XXX or from resources.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4496
321c1729db5b initial checkin
penk
parents:
diff changeset
  4497
    (path type == #regular) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4498
	path isExecutableProgram ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4499
	    aBox initialText:(fileName , ' <arguments>').
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4500
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4501
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4502
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4503
	select := true.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4504
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4505
	"some heuristics - my personal preferences ...
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4506
	 (actually this should come from a configfile)"
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4507
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4508
	(fileName endsWith:'akefile') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4509
	    aBox initialText:'make target' selectFrom:6 to:11.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4510
	    ^ self
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4511
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4512
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4513
	cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4514
	cmd notNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4515
	    select := false
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4516
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4517
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4518
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4519
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4520
	    suffix := path suffix.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4521
	    (suffix = 'C') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4522
		cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4523
		select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4524
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4525
		suffix := suffix asLowercase.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4526
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4527
		(suffix = 'taz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4528
		    aBox initialText:'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4529
		    select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4530
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4531
		(suffix = 'tar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4532
		    cmd := 'tar tvf %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4533
		    select := 7.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4534
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4535
		(suffix = 'zoo') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4536
		    cmd := 'zoo -list %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4537
		    select := 9.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4538
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4539
		(suffix = 'zip') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4540
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4541
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4542
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4543
		(suffix = 'jar') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4544
		    cmd := 'unzip -l %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4545
		    select := 8.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4546
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4547
		(suffix = 'z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4548
		    (fileName asLowercase endsWith:'tar.z') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4549
			cmd := 'zcat %1 | tar tvf -'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4550
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4551
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4552
			cmd := 'uncompress %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4553
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4554
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4555
		(suffix = 'gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4556
		    (fileName asLowercase endsWith:'tar.gz') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4557
			cmd := ('gunzip < %1 | tar tvf -' ).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4558
			select := false.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4559
		    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4560
			cmd := 'gunzip %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4561
		    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4562
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4563
		(suffix = 'html') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4564
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4565
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4566
		(suffix = 'htm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4567
		    cmd := 'netscape %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4568
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4569
		(suffix = 'uue') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4570
		    cmd := 'uudecode %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4571
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4572
		(suffix = 'c') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4573
		    cmd := 'cc -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4574
		    select := 5.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4575
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4576
		(suffix = 'cc') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4577
		    cmd := 'g++ -c %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4578
		    select := 6.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4579
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4580
		(suffix = 'xbm') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4581
		    cmd := 'bitmap %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4582
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4583
		(suffix = 'ps') ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4584
		    cmd := 'ghostview %1'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4585
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4586
		((suffix = '1') or:[suffix = 'man']) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4587
		    cmd := 'nroff -man %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4588
		    select := 10.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4589
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4590
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4591
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4592
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4593
	cmd isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4594
	    DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4595
		cmd := '<cmd>'
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4596
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4597
		cmd := DefaultCommandPerSuffix 
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4598
			at:suffix
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4599
			ifAbsent:'<cmd>'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4600
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4601
	    cmd := cmd , ' %1'.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4602
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4603
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4604
	cmd := cmd bindWith:fileName.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4605
	select == false ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4606
	    aBox initialText:cmd
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4607
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4608
	    select class == Interval ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4609
		aBox initialText:cmd selectFrom:select start to:select stop
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4610
	    ] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4611
		select isInteger ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4612
		    select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4613
		].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4614
		aBox initialText:cmd selectFrom:1 to:select
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4615
	    ].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4616
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4617
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  4618
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4619
321c1729db5b initial checkin
penk
parents:
diff changeset
  4620
isAbstractFileBrowser
321c1729db5b initial checkin
penk
parents:
diff changeset
  4621
321c1729db5b initial checkin
penk
parents:
diff changeset
  4622
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
  4623
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4624
321c1729db5b initial checkin
penk
parents:
diff changeset
  4625
systemIsDOS
321c1729db5b initial checkin
penk
parents:
diff changeset
  4626
321c1729db5b initial checkin
penk
parents:
diff changeset
  4627
    ^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4628
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4629
321c1729db5b initial checkin
penk
parents:
diff changeset
  4630
systemIsUnix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4631
    ^ OperatingSystem isUNIXlike
321c1729db5b initial checkin
penk
parents:
diff changeset
  4632
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4633
321c1729db5b initial checkin
penk
parents:
diff changeset
  4634
!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4635
321c1729db5b initial checkin
penk
parents:
diff changeset
  4636
allItemsOfCurrentDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4637
321c1729db5b initial checkin
penk
parents:
diff changeset
  4638
    ^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4639
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4640
321c1729db5b initial checkin
penk
parents:
diff changeset
  4641
anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin
penk
parents:
diff changeset
  4642
321c1729db5b initial checkin
penk
parents:
diff changeset
  4643
    | directories |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4644
321c1729db5b initial checkin
penk
parents:
diff changeset
  4645
    directories := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4646
    directories do:[ : dir|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4647
	(dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4648
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4649
    ^ false.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4650
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4651
321c1729db5b initial checkin
penk
parents:
diff changeset
  4652
currentFilesAreInSameDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4653
321c1729db5b initial checkin
penk
parents:
diff changeset
  4654
    ^ (self currentDirectories value size == 1).
321c1729db5b initial checkin
penk
parents:
diff changeset
  4655
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4656
321c1729db5b initial checkin
penk
parents:
diff changeset
  4657
currentFilesHasDirectories
321c1729db5b initial checkin
penk
parents:
diff changeset
  4658
321c1729db5b initial checkin
penk
parents:
diff changeset
  4659
    ^ self currentDirectories value notEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4660
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4661
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4662
directoriesForFiles:aFileCol
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4663
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4664
    ^ ((aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4665
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4666
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4667
fileListIsEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4668
321c1729db5b initial checkin
penk
parents:
diff changeset
  4669
    ^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4670
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4671
321c1729db5b initial checkin
penk
parents:
diff changeset
  4672
fileListIsNotEmpty
321c1729db5b initial checkin
penk
parents:
diff changeset
  4673
321c1729db5b initial checkin
penk
parents:
diff changeset
  4674
    ^ self fileListIsEmpty not.   
321c1729db5b initial checkin
penk
parents:
diff changeset
  4675
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4676
321c1729db5b initial checkin
penk
parents:
diff changeset
  4677
fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin
penk
parents:
diff changeset
  4678
321c1729db5b initial checkin
penk
parents:
diff changeset
  4679
" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin
penk
parents:
diff changeset
  4680
321c1729db5b initial checkin
penk
parents:
diff changeset
  4681
    | file1 file2 |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4682
321c1729db5b initial checkin
penk
parents:
diff changeset
  4683
    aFilename2 isNil ifTrue:[ ^ false].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4684
    aFilename1 isNil ifTrue:[ ^ false].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4685
    file1 := aFilename1 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4686
    file2 := aFilename2 asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4687
    file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4688
    ((file1 isDirectory) 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4689
    and:[(file2 isDirectory)
321c1729db5b initial checkin
penk
parents:
diff changeset
  4690
    and:[file1 directory = file2 directory]]) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4691
	^ file1 baseName = file2 baseName
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4692
    ].
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4693
    ^ (file1 pathName) startsWith:(file2 pathName)
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4694
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4695
321c1729db5b initial checkin
penk
parents:
diff changeset
  4696
getAllFilesAsStringCollection
321c1729db5b initial checkin
penk
parents:
diff changeset
  4697
321c1729db5b initial checkin
penk
parents:
diff changeset
  4698
    ^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4699
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4700
321c1729db5b initial checkin
penk
parents:
diff changeset
  4701
getBestDirectory
321c1729db5b initial checkin
penk
parents:
diff changeset
  4702
321c1729db5b initial checkin
penk
parents:
diff changeset
  4703
    |selFiles stringCol firstPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4704
321c1729db5b initial checkin
penk
parents:
diff changeset
  4705
    selFiles := self currentDirectories value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4706
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4707
    selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4708
    stringCol := (selFiles collect:[: file| file asString]) asOrderedCollection.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4709
    firstPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4710
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4711
	 firstPre :=  firstPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4712
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4713
    (firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4714
	firstPre removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4715
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4716
    ^ firstPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4717
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4718
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4719
getCommonForCurrentFiles
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4720
321c1729db5b initial checkin
penk
parents:
diff changeset
  4721
    |selFiles stringCol firtsPre|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4722
321c1729db5b initial checkin
penk
parents:
diff changeset
  4723
    selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4724
    selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4725
    stringCol := selFiles collect:[: file| file asString].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4726
    firtsPre := stringCol at:1.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4727
    stringCol from:2 do:[:el|
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4728
	 firtsPre :=  firtsPre commonPrefixWith:el.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4729
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4730
    ^ firtsPre asFilename
321c1729db5b initial checkin
penk
parents:
diff changeset
  4731
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4732
321c1729db5b initial checkin
penk
parents:
diff changeset
  4733
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
  4734
321c1729db5b initial checkin
penk
parents:
diff changeset
  4735
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
  4736
    aFileName isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4737
	^ aFileName.    
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4738
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4739
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4740
    dir isDirectory ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4741
	dir := dir directory.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4742
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4743
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4744
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4745
321c1729db5b initial checkin
penk
parents:
diff changeset
  4746
getInfoItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  4747
    "get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin
penk
parents:
diff changeset
  4748
     This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4749
     You can add more names below if you like."
321c1729db5b initial checkin
penk
parents:
diff changeset
  4750
321c1729db5b initial checkin
penk
parents:
diff changeset
  4751
    |directories|
321c1729db5b initial checkin
penk
parents:
diff changeset
  4752
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4753
    directories := self currentSelectedDirectories.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4754
    (directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4755
321c1729db5b initial checkin
penk
parents:
diff changeset
  4756
    #( 
321c1729db5b initial checkin
penk
parents:
diff changeset
  4757
       '.dir.info'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4758
       'README'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4759
       'ReadMe'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4760
       'Readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4761
       'readme'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4762
       'read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4763
       'Read.me'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4764
       'READ.ME'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4765
       'README.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4766
       'readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4767
       'Readme.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4768
       'Info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4769
       'info.txt'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4770
       'INFO.TXT'
321c1729db5b initial checkin
penk
parents:
diff changeset
  4771
    ) do:[:f | 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4772
	|n dir|
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4773
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4774
	n := (directories first) construct:f.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4775
	(n isReadable and:[n isDirectory not]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4776
	    ^ DirectoryContentsBrowser itemClass fileName:n
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4777
	]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4778
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  4779
    ^ nil
3982
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4780
! !
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4781
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4782
!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4783
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4784
currentSelectedDirectories
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4785
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4786
    ^ self currentDirectories value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4787
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4788
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4789
currentSelectedFiles
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4790
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4791
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4792
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4793
    ^ (files select:[: file | file isDirectory not]).
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4794
!
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4795
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4796
firstSelectedFile
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4797
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4798
    | files |
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4799
    files := self currentFileNameHolder value.
fc30449d705d *** empty log message ***
penk
parents: 3980
diff changeset
  4800
    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4801
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4802
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4803
!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4804
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4805
currentSortOrder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4806
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4807
    " returns a Ordered Collection of all directories currently selected 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4808
      if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4809
    "
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4810
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4811
    ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
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
makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4815
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4816
    (self sortDirectoriesBeforeFiles value and:[self viewDirsInContentsBrowser value]) ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4817
        ^ [:a :b|
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4818
            |aIsDir bIsDir res|
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4819
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4820
            aIsDir := a isDirectory.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4821
            bIsDir := b isDirectory.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4822
            (aIsDir ~~ bIsDir) ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4823
                res := aIsDir 
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4824
            ] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4825
                res := aSortBlock value:a value:b.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4826
            ].
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4827
            res
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4828
          ].
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4829
    ] ifFalse:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4830
        ^ aSortBlock
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4831
    ].
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4832
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4833
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4834
sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4835
    |nameSortBlock|
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4836
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4837
    ^ self aspectFor:#sortBlockHolder ifAbsent:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4838
	self sortCaseless value ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4839
	    nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4840
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4841
	    nameSortBlock := [ :a :b | a asString < b asString.].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4842
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4843
	(self makeDirectorySortBlockFor:nameSortBlock) asValue.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4844
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4845
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4846
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4847
sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4848
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4849
    
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4850
    ^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4851
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4852
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4853
sortCaseless
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4854
    " aspect for sort caseless "
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4855
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4856
    ^ self aspectFor:#sortCaseless ifAbsent:[
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4857
        | holder |
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4858
        holder := (Filename isCaseSensitive not) asValue.
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4859
        holder
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4860
    ]
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4861
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4862
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4863
sortDirectoriesBeforeFiles
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4864
4201
be512c7e5ea8 save all aspects in Userpreferences now
penk
parents: 4191
diff changeset
  4865
    " aspect for sort directories always before files"
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4866
    ^ self aspectFor:#sortDirectoriesBeforeFiles ifAbsent:[ true asValue ].
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4867
!
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4868
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4869
sortFileListsBy:instanceName 
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4870
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4871
    self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4872
!
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4873
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4874
sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4875
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4876
    | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse|
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4877
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4878
    aSymbol := instanceName asSymbol.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4879
    self sortBlockProperty setValue:instanceName asSymbol.
4151
950e04fef4ba treeBrowser has his own sort now
penk
parents: 4148
diff changeset
  4880
    sortCaselessLocal := self sortCaseless value.
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4881
    currentSortOrder := self currentSortOrder value.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4882
    currentSortOrder isEmpty ifTrue:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4883
        currentSortOrder at:#column put:aSymbol.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4884
        currentSortOrder at:#reverse put:false.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4885
        currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4886
    ] ifFalse:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4887
        (currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4888
            "/ sort caseless changed
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4889
            currentSortOrder at:#sortCaseless put:sortCaselessLocal.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4890
        ] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4891
            (currentSortOrder at:#column) = aSymbol ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4892
                "/ same column like before - change sort order ifReverse is true
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4893
                aBoolean ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4894
                    | isReverse |
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4895
                    isReverse := currentSortOrder at:#reverse.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4896
                    currentSortOrder at:#reverse put:(isReverse not).
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4897
                ].
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4898
            ] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4899
                "/ another column - remark column
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4900
                currentSortOrder at:#column put:aSymbol.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4901
            ]
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4902
        ]
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4903
    ].
4027
c662c75b6bf9 *** empty log message ***
penk
parents: 4024
diff changeset
  4904
    self currentSortOrder changed.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4905
    (currentSortOrder at:#reverse) ifTrue:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4906
        cmpOp := #'>'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4907
    ] ifFalse:[
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4908
        cmpOp := #'<'
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4909
    ].
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4910
    sortReverse := currentSortOrder at:#reverse.
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4911
    instanceSortBlock := [:a :b | 
4343
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4912
        |entry1 entry2|
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4913
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4914
        entry1 := (a perform:aSymbol).
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4915
        entry2 := (b perform:aSymbol).
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4916
        ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4917
            ((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4918
                ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4919
                    sortReverse
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4920
                ] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4921
                    sortReverse not
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4922
                ]
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4923
            ]
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4924
        ] ifFalse:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4925
            ((aSymbol = #baseName) and:[sortCaselessLocal]) ifTrue:[
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4926
                entry1 := entry1 asLowercase.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4927
                entry2 := entry2 asLowercase.
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4928
            ].
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4929
            entry1 perform:cmpOp with:entry2
209810452034 checkin from browser
penk
parents: 4337
diff changeset
  4930
        ]
3989
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4931
    ].
7eec3cb5bce6 selectedFiles method name changed
penk
parents: 3982
diff changeset
  4932
    self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4933
! !
8697bad1c903 next stage for history
penk
parents: 3963
diff changeset
  4934
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4935
!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4936
321c1729db5b initial checkin
penk
parents:
diff changeset
  4937
makeDependent
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4938
    self filterModel addDependent:self.            
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4939
    self currentFileNameHolder addDependent:self.
4074
53cef1b0cdfc allow sort without directories always at first
penk
parents: 4071
diff changeset
  4940
    self sortDirectoriesBeforeFiles addDependent:self.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  4941
    self sortCaseless addDependent:self.
4011
73fa35b1963b *** empty log message ***
penk
parents: 4004
diff changeset
  4942
    self showHiddenFiles addDependent:self.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4943
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4944
321c1729db5b initial checkin
penk
parents:
diff changeset
  4945
masterApplication:anApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
  4946
321c1729db5b initial checkin
penk
parents:
diff changeset
  4947
    masterApplication isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4948
	(anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4949
	    aspects := anApplication aspects
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4950
	] ifFalse:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4951
	    aspects isNil ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4952
		aspects := IdentityDictionary new.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4953
		aspects at:#applications put:(IdentityDictionary new).
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4954
	    ]
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4955
	].
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4956
	self applications at:(self className) put:self.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4957
	self makeDependent.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4958
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  4959
    ^ super masterApplication:anApplication.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  4960
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4961
321c1729db5b initial checkin
penk
parents:
diff changeset
  4962
postOpenWith:aBuilder
321c1729db5b initial checkin
penk
parents:
diff changeset
  4963
321c1729db5b initial checkin
penk
parents:
diff changeset
  4964
    super postOpenWith:aBuilder.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4965
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4966
321c1729db5b initial checkin
penk
parents:
diff changeset
  4967
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4968
321c1729db5b initial checkin
penk
parents:
diff changeset
  4969
files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4970
    "return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4971
321c1729db5b initial checkin
penk
parents:
diff changeset
  4972
    ^ files
321c1729db5b initial checkin
penk
parents:
diff changeset
  4973
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4974
321c1729db5b initial checkin
penk
parents:
diff changeset
  4975
files:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4976
    "set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4977
321c1729db5b initial checkin
penk
parents:
diff changeset
  4978
    files := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4979
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4980
321c1729db5b initial checkin
penk
parents:
diff changeset
  4981
method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4982
    "return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4983
321c1729db5b initial checkin
penk
parents:
diff changeset
  4984
    ^ method
321c1729db5b initial checkin
penk
parents:
diff changeset
  4985
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4986
321c1729db5b initial checkin
penk
parents:
diff changeset
  4987
method:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  4988
    "set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4989
321c1729db5b initial checkin
penk
parents:
diff changeset
  4990
    method := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  4991
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  4992
321c1729db5b initial checkin
penk
parents:
diff changeset
  4993
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  4994
321c1729db5b initial checkin
penk
parents:
diff changeset
  4995
locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  4996
    "return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  4997
321c1729db5b initial checkin
penk
parents:
diff changeset
  4998
    locked isNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  4999
	locked := false.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5000
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5001
    ^ locked
321c1729db5b initial checkin
penk
parents:
diff changeset
  5002
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5003
321c1729db5b initial checkin
penk
parents:
diff changeset
  5004
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5005
321c1729db5b initial checkin
penk
parents:
diff changeset
  5006
doIfUnLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5007
321c1729db5b initial checkin
penk
parents:
diff changeset
  5008
    self locked ifFalse:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5009
	aBlock value.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5010
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
  5011
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5012
321c1729db5b initial checkin
penk
parents:
diff changeset
  5013
doLocked:aBlock
321c1729db5b initial checkin
penk
parents:
diff changeset
  5014
321c1729db5b initial checkin
penk
parents:
diff changeset
  5015
    locked  := true.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5016
    aBlock ensure:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5017
	locked := false.
4004
f97168a68093 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4000
diff changeset
  5018
    ]
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5019
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5020
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5021
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5022
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5023
historySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5024
321c1729db5b initial checkin
penk
parents:
diff changeset
  5025
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5026
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5027
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5028
!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5029
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5030
new
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5031
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5032
    ^ super new initialize.
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5033
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5034
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5035
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5036
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5037
addToHistory:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5038
    | item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5039
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5040
    item := self getItemFor:aPath.
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5041
    self backForwardListAdd:aPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5042
    item isNil ifTrue:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5043
        " not already in history"
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5044
        self size >= self class historySize ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5045
            self removeLast.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5046
        ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5047
        item := DirectoryHistoryItem path:aPath.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5048
        self addFirst:item
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5049
    ] ifFalse:[
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5050
        "already been there before; move the entry to
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5051
         the beginning, so it will fall out later."
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5052
        self remove:item.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5053
        self addFirst:item
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5054
    ].
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5055
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5056
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5057
backForwardListAdd:aPath
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5058
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5059
    |pathIndex|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5060
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5061
    pathIndex := backForwardList indexOf:aPath.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5062
    pathIndex == 0 ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5063
        " a new path comes in remove forward paths "
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5064
        (backForwardList size) > backForwardIndex ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5065
            backForwardList removeFromIndex:(backForwardIndex + 1) toIndex:(backForwardList size).    
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5066
        ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5067
    ] ifFalse:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5068
        backForwardList remove:aPath.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5069
        pathIndex <= backForwardIndex ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5070
            backForwardIndex := backForwardIndex - 1.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5071
        ]
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5072
    ].
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5073
    backForwardList add:aPath afterIndex:backForwardIndex.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5074
    backForwardIndex := backForwardIndex + 1.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5075
    backForwardIndex > self class historySize ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5076
        backForwardList removeFirst.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5077
        backForwardIndex := backForwardIndex - 1.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5078
    ].
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5079
!
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5080
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5081
goBackward
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5082
    "return the first path of the backward list;
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5083
     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
  5084
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5085
    |retPath|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5086
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5087
    self canBackward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5088
        retPath := backForwardList at:(backForwardIndex - 1).
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5089
        backForwardIndex := backForwardIndex - 1.
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5090
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5091
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5092
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5093
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5094
goForward
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5095
    "return the first path of the forward list;
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5096
     remove it from the list."
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5097
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5098
    |retPath|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5099
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5100
    self canForward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5101
        retPath := backForwardList at:backForwardIndex + 1.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5102
        backForwardIndex := backForwardIndex + 1.
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5103
    ].
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5104
    ^ retPath.
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5105
!
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5106
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5107
resetForwardBackward
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5108
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5109
    self initialize
4022
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
setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5113
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5114
    self do:[:item| 
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5115
	item path = aPath ifTrue:[
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5116
	    item position:aPosition.
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5117
	]
4022
87ab8e8c5f80 instable next try for back forward history
penk
parents: 4018
diff changeset
  5118
    ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5119
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5120
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5121
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5122
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5123
initialize
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5124
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5125
    backForwardList := OrderedCollection new.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5126
    self reverseDo:[:el|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5127
        backForwardList add:el path.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5128
    ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5129
    backForwardIndex := backForwardList size.
4032
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5130
! !
e19634385525 initialize of backList and forwardList
penk
parents: 4027
diff changeset
  5131
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5132
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5133
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5134
canBackward
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5135
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5136
    ^ backForwardIndex > 1 
4288
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5137
!
1433441aca41 history access
Claus Gittinger <cg@exept.de>
parents: 4250
diff changeset
  5138
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5139
canForward
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5140
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5141
    ^ (backForwardList size >= (backForwardIndex + 1))
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5142
!
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5143
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5144
getBackCollection
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5145
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5146
    | backCol |
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5147
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5148
    backCol := OrderedCollection new.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5149
    self canBackward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5150
        | tmpCol |
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5151
        tmpCol := backForwardList copyTo:backForwardIndex - 1.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5152
        tmpCol reverseDo:[ :el|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5153
            backCol add:el.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5154
        ]
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5155
    ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5156
    ^ backCol
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5157
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5158
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5159
getForwardCollection
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5160
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5161
    | forwCol |
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5162
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5163
    forwCol := OrderedCollection new.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5164
    self canForward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5165
        forwCol := backForwardList copyFrom:(backForwardIndex + 1)    
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5166
    ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5167
    ^ forwCol
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5168
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5169
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5170
getItemFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5171
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5172
    self do:[:item| item path = aPath ifTrue:[^ item]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5173
    ^ nil.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5174
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5175
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5176
getPositionFor:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5177
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5178
    |item|
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5179
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5180
    item := self getItemFor:aPath.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5181
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5182
    item notNil ifTrue:[
4190
4b0ea23f558e *** empty log message ***
penk
parents: 4189
diff changeset
  5183
	^ item position.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5184
    ].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5185
    ^ nil
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5186
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5187
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5188
includesPath:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5189
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5190
    self do:[:item| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5191
    ^ false.
4347
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5192
!
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5193
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5194
nextBackwardItem
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5195
    "return the first path of the backward list"
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5196
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5197
    |retPath|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5198
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5199
    self canBackward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5200
        retPath := backForwardList at:backForwardIndex.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5201
    ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5202
    ^ retPath.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5203
!
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5204
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5205
nextForwardItem
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5206
    "return the first path of the forward list"
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5207
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5208
    |retPath|
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5209
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5210
    self canForward ifTrue:[
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5211
        retPath := backForwardList at:backForwardIndex + 1.
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5212
    ].
c70ee320b68c history back forward is running now
penk
parents: 4345
diff changeset
  5213
    ^ retPath.
3952
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5214
! !
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5215
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5216
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5217
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5218
path:aPath
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5219
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5220
    ^ self new path:aPath
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
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5224
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5225
path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5226
    "return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5227
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5228
    ^ path
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5229
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5230
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5231
path:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5232
    "set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5233
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5234
    path := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5235
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5236
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5237
position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5238
    "return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5239
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5240
    ^ position
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5241
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5242
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5243
position:something
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5244
    "set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5245
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5246
    position := something.
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5247
!
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5248
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5249
printString
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5250
c04d4781a37e next stage
penk
parents: 3949
diff changeset
  5251
    ^ self path asString
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5252
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5253
321c1729db5b initial checkin
penk
parents:
diff changeset
  5254
!AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5255
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5256
filenameHistorySize
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5257
321c1729db5b initial checkin
penk
parents:
diff changeset
  5258
    ^ 20
321c1729db5b initial checkin
penk
parents:
diff changeset
  5259
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5260
321c1729db5b initial checkin
penk
parents:
diff changeset
  5261
!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5262
321c1729db5b initial checkin
penk
parents:
diff changeset
  5263
add:aApplItem
321c1729db5b initial checkin
penk
parents:
diff changeset
  5264
321c1729db5b initial checkin
penk
parents:
diff changeset
  5265
    super add:aApplItem.
4337
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5266
    (self size > self class filenameHistorySize) ifTrue:[
f2eed806e854 change first letter uppercase methods on class side to lowercase ones
penk
parents: 4317
diff changeset
  5267
        self removeLast.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5268
    ]
321c1729db5b initial checkin
penk
parents:
diff changeset
  5269
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5270
321c1729db5b initial checkin
penk
parents:
diff changeset
  5271
!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5272
321c1729db5b initial checkin
penk
parents:
diff changeset
  5273
withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin
penk
parents:
diff changeset
  5274
321c1729db5b initial checkin
penk
parents:
diff changeset
  5275
    | instance |
321c1729db5b initial checkin
penk
parents:
diff changeset
  5276
321c1729db5b initial checkin
penk
parents:
diff changeset
  5277
    instance := self basicNew.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5278
    instance value:aValue.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5279
    instance isHolder:aBoolean.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5280
    ^ instance
321c1729db5b initial checkin
penk
parents:
diff changeset
  5281
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5282
321c1729db5b initial checkin
penk
parents:
diff changeset
  5283
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5284
321c1729db5b initial checkin
penk
parents:
diff changeset
  5285
isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5286
    "return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5287
321c1729db5b initial checkin
penk
parents:
diff changeset
  5288
    ^ isHolder
321c1729db5b initial checkin
penk
parents:
diff changeset
  5289
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5290
321c1729db5b initial checkin
penk
parents:
diff changeset
  5291
isHolder:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5292
    "set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5293
321c1729db5b initial checkin
penk
parents:
diff changeset
  5294
    isHolder := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5295
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5296
321c1729db5b initial checkin
penk
parents:
diff changeset
  5297
value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5298
    "return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5299
321c1729db5b initial checkin
penk
parents:
diff changeset
  5300
    ^ value
321c1729db5b initial checkin
penk
parents:
diff changeset
  5301
!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5302
321c1729db5b initial checkin
penk
parents:
diff changeset
  5303
value:something
321c1729db5b initial checkin
penk
parents:
diff changeset
  5304
    "set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin
penk
parents:
diff changeset
  5305
321c1729db5b initial checkin
penk
parents:
diff changeset
  5306
    value := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
  5307
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
  5308
321c1729db5b initial checkin
penk
parents:
diff changeset
  5309
!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
  5310
321c1729db5b initial checkin
penk
parents:
diff changeset
  5311
version
4355
63dc8ed2e56c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4354
diff changeset
  5312
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.68 2002-12-09 12:16:48 cg Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
  5313
! !