equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
13 |
|
14 |
|
15 "{ Package: 'stx:libtool2' }" |
14 |
16 |
15 SelectionBrowser subclass:#FileSelectionBrowser |
17 SelectionBrowser subclass:#FileSelectionBrowser |
16 instanceVariableNames:'selectedFileFilter directoryView listOfFileFilters directory' |
18 instanceVariableNames:'selectedFileFilter directoryView listOfFileFilters directory' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
263 #collection: #( |
265 #collection: #( |
264 #(#FileSelectionTreeSpec |
266 #(#FileSelectionTreeSpec |
265 #name: 'directoryTreeView' |
267 #name: 'directoryTreeView' |
266 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
268 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
267 #model: #selectionOfDirectory |
269 #model: #selectionOfDirectory |
|
270 #menu: #treeMenu |
268 #hasHorizontalScrollBar: true |
271 #hasHorizontalScrollBar: true |
269 #hasVerticalScrollBar: true |
272 #hasVerticalScrollBar: true |
270 #miniScrollerHorizontal: true |
273 #miniScrollerHorizontal: true |
271 #showDirectoryIndicatorForRoot: false |
274 #showDirectoryIndicatorForRoot: false |
272 #showDirectoryIndicator: true |
275 #showDirectoryIndicator: true |
323 |
326 |
324 ) |
327 ) |
325 ) |
328 ) |
326 ! ! |
329 ! ! |
327 |
330 |
|
331 !FileSelectionBrowser class methodsFor:'menu specs'! |
|
332 |
|
333 treeMenu |
|
334 "This resource specification was automatically generated |
|
335 by the MenuEditor of ST/X." |
|
336 |
|
337 "Do not manually edit this!! If it is corrupted, |
|
338 the MenuEditor may not be able to read the specification." |
|
339 |
|
340 " |
|
341 MenuEditor new openOnClass:FileSelectionBrowser andSelector:#treeMenu |
|
342 (Menu new fromLiteralArrayEncoding:(FileSelectionBrowser treeMenu)) startUp |
|
343 " |
|
344 |
|
345 <resource: #menu> |
|
346 |
|
347 ^ |
|
348 #(#Menu |
|
349 #( |
|
350 #(#MenuItem |
|
351 #label: 'Create directory...' |
|
352 #translateLabel: true |
|
353 #value: #menuCreateDirectory |
|
354 ) |
|
355 #(#MenuItem |
|
356 #label: '-' |
|
357 ) |
|
358 #(#MenuItem |
|
359 #label: 'Update' |
|
360 #translateLabel: true |
|
361 #value: #menuUpdate |
|
362 ) |
|
363 ) |
|
364 nil |
|
365 nil |
|
366 ) |
|
367 ! ! |
|
368 |
328 !FileSelectionBrowser methodsFor:'accessing'! |
369 !FileSelectionBrowser methodsFor:'accessing'! |
329 |
370 |
330 directory: aDirectory |
371 directory: aDirectory |
331 |
372 |
332 directory := (aDirectory ? Filename currentDirectory) asFilename asAbsoluteFilename pathName |
373 directory := (aDirectory ? Filename currentDirectory) asFilename asAbsoluteFilename pathName |
450 fileDoubleClicked: aFileName |
491 fileDoubleClicked: aFileName |
451 |
492 |
452 self valueOfFileName value: aFileName. |
493 self valueOfFileName value: aFileName. |
453 accept value: true. |
494 accept value: true. |
454 self closeRequest |
495 self closeRequest |
|
496 ! |
|
497 |
|
498 menuCreateDirectory |
|
499 |newSubDirName currentDir| |
|
500 |
|
501 currentDir := self selectionOfDirectory value. |
|
502 currentDir isNil ifTrue:[ |
|
503 self warn:'No directory selected.'. |
|
504 ^ self |
|
505 ]. |
|
506 newSubDirName := Dialog request:'Create new directory named:'. |
|
507 (currentDir asFilename construct:newSubDirName) makeDirectory. |
|
508 self menuUpdate |
|
509 ! |
|
510 |
|
511 menuUpdate |
|
512 (self builder componentAt:#directoryTreeView) monitorCycle. |
455 ! |
513 ! |
456 |
514 |
457 readDirectory |
515 readDirectory |
458 |
516 |
459 self directoryTreeView selection notNil |
517 self directoryTreeView selection notNil |