"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

StandardSystemView subclass:#FileBrowser

	instanceVariableNames:'labelView filterField fileListView subView currentDirectory

		fileList checkBlock checkDelta timeOfLastCheck showLongList

		showVeryLongList showDotFiles myName killButton compressTabs

		lockUpdate previousDirectory currentFileName timeOfFileRead

		tabSpec commandView commandIndex'

	classVariableNames:'DirectoryHistory DirectoryHistoryWhere HistorySize DefaultIcon

		CommandHistory CommandHistorySize'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!FileBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this used to be a very simple demo application,

    but migrated into a quite nice tool, includes all kinds of 

    warning and information boxes, background processes for directory-

    reading and internationalized strings. A good example for beginners,

    on how to do things .... (and maybe how not to do things ;-, since some

    stuff is historic and was implemented at times when better mechanisms

    were not available)

    See additional information in 'doc/misc/fbrowser.doc'.

    WARNING: files edited with FileBrowser will have leading spaces (multiple-8)

	     being replaced by tabs. If tabs are to be preserved at other

	     positions (for example, sendmail-config files) they will be

	     corrupt after being written.

    instancevariables of interest:

	checkDelta      <Integer>       number of seconds of check interval

					(looks ever so often if shown directory

					 has changed). You may make this number

					higher, if your network-times are

					incorrect and thus, the filebrowser

					checks too often.

	compressTabs    <Boolean>       if true, leading spaces will be

					replaced by tabs when saving text

    some of the defaults (long/short list etc.) can be set by the resource file;

    see FileBrowser>>initialize for more details..

"

! !

!FileBrowser class methodsFor:'instance creation'!

openOn:aDirectoryPath

    "start a new FileBrowser in a pathname"

    ^ (self new currentDirectory:aDirectoryPath) open

    "

     FileBrowser openOn:'aDirectoryPath'

     FileBrowser openOn:'/etc'

     FileBrowser openOn:'..'

     FileBrowser openOn:'.'

    "

!

openOnFileNamed:aFilename

    "start a new FileBrowser on a file"

    |f browser|

    f := aFilename asFilename.

    browser := self new.

    browser currentDirectory:f directoryName.

    browser showFile:f baseName.

    ^ browser open

    "

     FileBrowser openOnFileNamed:'Makefile'

     FileBrowser openOnFileNamed:'../Makefile'

     FileBrowser openOnFileNamed:'/tmp/foo'

    "

! !

!FileBrowser class methodsFor:'defaults'!

defaultIcon

    DefaultIcon isNil ifTrue:[

	DefaultIcon := Form 

			fromFile:(ClassResources at:'ICON_FILE' 

					    default:'FBrowser.xbm')

			resolution:100.

    ].

    ^ DefaultIcon

! !

!FileBrowser methodsFor:'events'!

mapped 

    super mapped.

    "

     whant to know about changed history

    "

    self updateCurrentDirectory

!

visibilityChange:how

    |wasVisible|

    wasVisible := shown.

    super visibilityChange:how.

    (wasVisible not and:[shown]) ifTrue:[

	"

	 start checking again

	"

	Processor removeTimedBlock:checkBlock.

	Processor addTimedBlock:checkBlock afterSeconds:checkDelta.

    ]

! !

!FileBrowser methodsFor:'fileList user interaction'!

changeDisplayMode

    "toggle from long to short listing (and vice-versa)"

    showLongList := showLongList not.

    self updateCurrentDirectory

!

changeDotFileVisibility

    "turn on/off visibility of files whose name starts with '.'"

    showDotFiles := showDotFiles not.

    self updateCurrentDirectory

!

fileExecute

    "if text was modified show a queryBox,

     otherwise pop up execute box immediately"

    |action|

    "

     this replaces everything by the commands output ...

    "

    action := [:command| self doExecuteCommand:command replace:true].

    (self askIfModified:'contents has not been saved.\\Modifications will be lost when command is executed.'

	      yesButton:'execute') ifFalse:[^ self].

"/    "

"/     this inserts the commands output ...

"/    "

"/    action := [:command| self doExecuteCommand:command replace:false].

"/

    self askForCommandThenDo:action

!

fileFileIn

    "fileIn the selected file(s)"

    self fileFileInLazy:false 

!

fileFileInLazy

    "fileIn the selected file(s). Do a quick load (no compilation)"

    self fileFileInLazy:true 

!

fileFileInLazy:lazy

    "fileIn the selected file(s)"

    |aStream here oldPath wasLazy bos|

    self selectedFilesDo:[:fileName |

	((currentDirectory typeOf:fileName) == #regular) ifTrue:[

	    here := currentDirectory pathName.

	    ((fileName endsWith:'.o') 

	    or:[(fileName endsWith:'.so')

	    or:[fileName endsWith:'.obj']]) ifTrue:[

		Object abortSignal catch:[

		    |p|

		    p := (here , '/' ,fileName).

		    "/

		    "/ look if already loaded ...  then unload first

		    "/

		    (ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[

			(Dialog confirm:(resources 

					    string:'%1 is already loaded; load anyway ?'

					    with:p)) ifFalse:[

			    ^ self

			].

			Transcript showCr:'unloading old ' , p , ' ...'.

			ObjectFileLoader unloadObjectFile:p. 

		    ].

		    Transcript showCr:'loading ' , p , ' ...'.

		    ObjectFileLoader loadObjectFile:p.

		    Class addInfoRecord:('fileIn ' , fileName) 

		]

	    ] ifFalse:[

		(fileName endsWith:'.cls') ifTrue:[

		    aStream := FileStream readonlyFileNamed:fileName in:currentDirectory.

		    aStream notNil ifTrue:[

			bos := BinaryObjectStorage onOld:aStream.

			bos next.

			bos close

		    ]

		] ifFalse:[

		    aStream := FileStream readonlyFileNamed:fileName in:currentDirectory.

		    aStream notNil ifTrue:[

			[

			    Class withoutUpdatingChangesDo:[

				oldPath := Smalltalk systemPath.

				Smalltalk systemPath:(oldPath copy addFirst:here; yourself).

				wasLazy := Compiler compileLazy:lazy.

				aStream fileIn.

			    ].

			    Class addInfoRecord:('fileIn ' , fileName) 

			] valueNowOrOnUnwindDo:[

			    Compiler compileLazy:wasLazy.

			    Smalltalk systemPath:oldPath.

			    aStream close

			]

		    ]

		]

	    ]

	]

    ]

    "Modified: 15.11.1995 / 12:49:57 / cg"

!

fileGet

    "get contents of selected file into subView.

     If text was modified show a queryBox,

     otherwise get it immediately"

    |fileName msg label|

    (subView modified not or:[subView contentsWasSaved]) ifTrue:[^ self doFileGet].

    fileName := self getSelectedFileName.

    fileName notNil ifTrue:[

	(currentDirectory isDirectory:fileName) ifTrue:[

	    msg := 'contents has not been saved.\\Modifications will be lost when directory is changed.'.

	    label := 'change'.

	] ifFalse:[

	    msg := 'contents has not been saved.\\Modifications will be lost when new file is read.'.

	    label := 'get'.

	].

	(self ask:(resources at:msg) yesButton:label) ifTrue:[

	    self doFileGet

	]

    ]

!

fileGetInfo

    "show short file (stat)-info"

    self fileGetInfo:false

!

fileGetInfo:longInfo

    "get info on selected file - show it in a box"

    |string|

    string := self getFileInfoString:longInfo.

    string notNil ifTrue:[

	self information:string

    ]

!

fileGetLongInfo

    "show long stat (file)-info"

    self fileGetInfo:true

!

fileInsert

    "insert contents of file at cursor"

    |fileName|

    fileName := self getSelectedFileName.

    fileName notNil ifTrue:[

	self showFile:fileName insert:true

    ]

!

fileListMenu

    "return the menu to show in the fileList"

    |labels selectors m sel|

    labels := #(

		 'spawn'                   

		 '-'                               

		 'get contents'                    

		 'insert contents'                    

		 'show info'             

		 'show full info'          

		 'fileIn'                 

		 'quick fileIn (lazy)'                 

		 '-'                               

		 'update'                 

		 '-'                               

		 'execute unix command ...'                

		 'st/x tools'                

		 '-'                               

		 'remove'                 

		 'rename ...'                 

		 '-'                               

		 'display long list'           

		 'show all files'           

		 '-'                               

		 'create directory ...'         

		 'create file ...'

	       ).             

    selectors := #(

		 fileSpawn

		 nil

		 fileGet

		 fileInsert

		 fileGetInfo

		 fileGetLongInfo

		 fileFileIn

		 fileFileInLazy

		 nil

		 updateCurrentDirectory

		 nil

		 fileExecute

		 stxTools

		 nil

		 fileRemove

		 fileRename

		 nil

		 changeDisplayMode

		 changeDotFileVisibility

		 nil

		 newDirectory

		 newFile

		).

    m := PopUpMenu 

	    labels:(resources array:labels)

	    selectors:selectors

	    receiver:self.

    showDotFiles ifTrue:[

	m labelAt:#changeDotFileVisibility put:(resources string:'hide hidden files')

    ].

    showLongList ifTrue:[

	m labelAt:#changeDisplayMode put:(resources string:'display short list')

    ].

    m subMenuAt:#stxTools 

	    put:(PopUpMenu

		    labels:(resources array:

			   #(

			      'Changes browser'

			      'Editor'

			      'HTML reader'

			      'Image inspect'

			      'show file differences'

			    ))

		    selectors:#(

			      openChangesBrowser

			      openEditor

			      openHTMLReader

			      openImageInspector

			      openDiffView

			      )

		    receiver:self).

    ((sel := fileListView selection) isNil or:[sel isEmpty]) ifTrue:[

	m disableAll:#(fileGet fileInsert

		       fileGetInfo fileGetLongInfo

		       fileFileIn fileFileInLazy

		       fileRemove fileRename).

	(m subMenuAt:#stxTools)

	    disableAll:#(openChangesBrowser openEditor openHTMLReader openImageInspector)

    ].

    ^m

    "Modified: 12.12.1995 / 16:59:19 / cg"

!

filePrint

    |fileName inStream printStream line|

    self withWaitCursorDo:[

	fileName := self getSelectedFileName.

	fileName notNil ifTrue:[

	    ((currentDirectory typeOf:fileName) == #regular) ifTrue:[

		inStream := FileStream readonlyFileNamed:fileName

						      in:currentDirectory.

		inStream isNil ifFalse:[

		    printStream := PrinterStream new.

		    printStream notNil ifTrue:[

			[inStream atEnd] whileFalse:[

			    line := inStream nextLine.

			    printStream nextPutAll:line.

			    printStream cr

			].

			printStream close

		    ].

		    inStream close

		]

	    ]

	].

	0 "compiler hint"

    ]

    "Modified: 14.12.1995 / 20:59:24 / cg"

!

fileRemove

    "remove the selected file(s).

     Query if user really wants to remove the file.

     - should be enhanced, to look for a ~/.trash directory 

     and move files there if it exists (without asking in this case)."

    |sel q|

    sel := fileListView selection.

    sel notNil ifTrue:[

	sel size > 1 ifTrue:[

	    q := resources string:'remove selected files ?'

	] ifFalse:[

	    q := resources string:'remove ''%1'' ?' with:(fileList at:sel first)

	].

	(self ask:q yesButton:'remove') ifTrue:[self doRemove]

    ]

!

fileRename

    "rename the selected file(s)"

    |queryBox|

    queryBox := FilenameEnterBox new.

    queryBox okText:(resources at:'rename').

    self selectedFilesDo:[:oldName |

	queryBox title:(resources string:'rename ''%1'' to:' with:oldName).

	queryBox initialText:oldName.

	queryBox action:[:newName | self doRename:oldName to:newName].

	queryBox showAtPointer

    ]

!

fileSelect:lineNr

    "selected a file - do nothing here"

    ^ self

!

fileSpawn

    "start another FileBrowser on the selected directory or

     on the same directory if none is selected."

    |any|

    any := false.

    self selectedFilesDo:[:fileName |

	(currentDirectory isDirectory:fileName) ifTrue:[

	    self class openOn:(currentDirectory pathName , '/' , fileName).

	    any := true