hg/stx-libtool: comparison FileBrowser.st

equal deleted inserted replaced

-:9c3590232965
+:c6cce50bf135
 a keyPress in some other view ?"
 <resource: #keyboard (#GotoLine #InspectIt #CmdI #Cmdu #DoIt #Delete #BackSpace #Accept #CmdF #CmdD)>
 view == fileListView ifTrue:[
-(key == #Delete
+	(key == #Delete
-or:[key == #BackSpace
+	or:[key == #BackSpace
-or:[key == #Accept
+	or:[key == #Accept
-or:[key == #CmdI
+	or:[key == #CmdI
-or:[key == #CmdF
+	or:[key == #CmdF
-or:[key == #CmdD
+	or:[key == #CmdD
-or:[key == #Cmdu
+	or:[key == #Cmdu
-or:[key == #InspectIt
+	or:[key == #InspectIt
-or:[key == #GotoLine
+	or:[key == #GotoLine
-or:[key == #DoIt]]]]]]]]]) ifTrue:[^ true].
+	or:[key == #DoIt]]]]]]]]]) ifTrue:[^ true].
 ].
 ^ false
 "Created: / 28.1.1997 / 14:03:20 / stefan"
 "Modified: / 20.6.1997 / 16:35:01 / cg"
 "this method is reached via delegation from the fileListView"
 <resource: #keyboard (#GotoLine #InspectIt #CmdI #Cmdu #DoIt #Delete #BackSpace #Accept)>
 (key == #Delete or:[key == #BackSpace]) ifTrue:[
-self fileRemove.
+	self fileRemove.
-^ self
+	^ self
 ].
 (key == #Accept) ifTrue:[
-self fileFileIn.
+	self fileFileIn.
-^ self
+	^ self
 ].
 (key == #GotoLine) ifTrue:[
-self fileGet.
+	self fileGet.
-^ self
+	^ self
 ].
 (key == #DoIt) ifTrue:[
-self fileExecute.
+	self fileExecute.
-^ self
+	^ self
 ].
 (key == #InspectIt) ifTrue:[
-self fileGetInfo.
+	self fileGetInfo.
-^ self
+	^ self
 ].
 (key == #CmdI) ifTrue:[
-self fileGetLongInfo.
+	self fileGetLongInfo.
-^ self
+	^ self
 ].
 (key == #Cmdu) ifTrue:[
-self updateCurrentDirectory.
+	self updateCurrentDirectory.
-^ self
+	^ self
 ].
 (key == #CmdF) ifTrue:[
-self newFile.
+	self newFile.
-^ self
+	^ self
 ].
 (key == #CmdD) ifTrue:[
-self newDirectory.
+	self newDirectory.
-^ self
+	^ self
 ].
 fileListView keyPress:key x:x y:y
 "Created: / 28.1.1997 / 14:03:56 / stefan"
 "Modified: / 20.6.1997 / 16:35:08 / cg"
 <resource: #programMenu>
 |labels shorties selectors m sel ns subLabels subSelectors|
 labels := #(
-'spawn'
+		 'spawn'
-'-'
+		 '-'
-'get contents'
+		 'get contents'
-'insert contents'
+		 'insert contents'
-'show info'
+		 'show info'
-'show full info'
+		 'show full info'
-).
+	       ).
 ((ns := Project current defaultNameSpace) notNil
 and:[ns ~~ Smalltalk]) ifTrue:[
-labels := labels copyWith:'fileIn (into ''' , Project current defaultNameSpace name , ''')'
+	labels := labels copyWith:'fileIn (into ''' , Project current defaultNameSpace name , ''')'
 ] ifFalse:[
-labels := labels copyWith:'fileIn'
+	labels := labels copyWith:'fileIn'
 ].
 labels := labels , #(
-'-'
+		 '-'
-'update'
+		 'update'
-'-'
+		 '-'
-'execute unix command ...'
+		 'execute unix command ...'
-'st/x tools'
+		 'st/x tools'
-'-'
+		 '-'
-'remove'
+		 'remove'
-'rename ...'
+		 'rename ...'
-'-'
+		 '-'
-'display long list'
+		 'display long list'
-'show all files'
+		 'show all files'
-'encoding ...'
+		 'encoding ...'
-'-'
+		 '-'
-'create directory ...'
+		 'create directory ...'
-'create file ...'
+		 'create file ...'
-).
+	       ).
 selectors := #(
-fileSpawn
+		 fileSpawn
-nil
+		 nil
-fileGet
+		 fileGet
-fileInsert
+		 fileInsert
-fileGetInfo
+		 fileGetInfo
-fileGetLongInfo
+		 fileGetLongInfo
-fileFileIn
+		 fileFileIn
-nil
+		 nil
-updateCurrentDirectory
+		 updateCurrentDirectory
-nil
+		 nil
-fileExecute
+		 fileExecute
-stxTools
+		 stxTools
-nil
+		 nil
-fileRemove
+		 fileRemove
-fileRename
+		 fileRename
-nil
+		 nil
-changeDisplayMode
+		 changeDisplayMode
-changeDotFileVisibility
+		 changeDotFileVisibility
-fileEncoding
+		 fileEncoding
-nil
+		 nil
-newDirectory
+		 newDirectory
-newFile
+		 newFile
-).
+		).
 shorties := #(
-nil
+		 nil
-nil
+		 nil
-GotoLine
+		 GotoLine
-nil
+		 nil
-InspectIt
+		 InspectIt
-CmdI
+		 CmdI
-Accept
+		 Accept
-nil
+		 nil
-Cmdu
+		 Cmdu
-nil
+		 nil
-DoIt
+		 DoIt
-nil
+		 nil
-nil
+		 nil
-Delete
+		 Delete
-nil
+		 nil
-nil
+		 nil
-nil
+		 nil
-nil
+		 nil
-nil
+		 nil
-nil
+		 nil
-CmdD
+		 CmdD
-CmdF
+		 CmdF
-).
+		).
 m := PopUpMenu
-labels:(resources array:labels)
+	    labels:(resources array:labels)
-selectors:selectors
+	    selectors:selectors
-accelerators:shorties
+	    accelerators:shorties
-receiver:self.
+	    receiver:self.
 showDotFiles ifTrue:[
-m labelAt:#changeDotFileVisibility put:(resources string:'hide hidden files')
+	m labelAt:#changeDotFileVisibility put:(resources string:'hide hidden files')
 ].
 showLongList ifTrue:[
-m labelAt:#changeDisplayMode put:(resources string:'display short list')
+	m labelAt:#changeDisplayMode put:(resources string:'display short list')
 ].
 subLabels := #(
-'Changes browser'
+			      'Changes browser'
-'Editor'
+			      'Editor'
-'HTML reader'
+			      'HTML reader'
-'Image inspect'
+			      'Image inspect'
-'show file differences'
+			      'show file differences'
-).
+		  ).
 subSelectors := #(
-openChangesBrowser
+			      openChangesBrowser
-openEditor
+			      openEditor
-openHTMLReader
+			      openHTMLReader
-openImageInspector
+			      openImageInspector
-openDiffView
+			      openDiffView
-).
+		     ).
 JavaInterpreter notNil ifTrue:[
-subLabels := subLabels , #('Java Applet Viewer').
+	subLabels := subLabels , #('Java Applet Viewer').
-subSelectors := subSelectors , #(openAppletViewer).
+	subSelectors := subSelectors , #(openAppletViewer).
 ].
 m subMenuAt:#stxTools
-put:(PopUpMenu
+	    put:(PopUpMenu
-labels:(resources array:subLabels)
+		    labels:(resources array:subLabels)
-selectors:subSelectors
+		    selectors:subSelectors
-receiver:self).
+		    receiver:self).
 ((sel := fileListView selection) isNil or:[sel isEmpty]) ifTrue:[
-m disableAll:#(fileGet fileInsert
+	m disableAll:#(fileGet fileInsert
-fileGetInfo fileGetLongInfo
+		       fileGetInfo fileGetLongInfo
-fileFileIn fileFileInLazy
+		       fileFileIn fileFileInLazy
-fileRemove fileRename).
+		       fileRemove fileRename).
-(m subMenuAt:#stxTools)
+	(m subMenuAt:#stxTools)
-disableAll:#(openChangesBrowser openEditor openHTMLReader openImageInspector)
+	    disableAll:#(openChangesBrowser openEditor openHTMLReader openImageInspector)
 ] ifFalse:[
-fileListView selection size > 1 ifTrue:[
+	fileListView selection size > 1 ifTrue:[
-m disableAll:#( fileGet fileInsert fileGetInfo fileGetLongInfo fileRename )
+	    m disableAll:#( fileGet fileInsert fileGetInfo fileGetLongInfo fileRename )
-]
+	]
 ].
 ^m
 "Modified: / 15.8.1997 / 04:33:26 / cg"
 "ask for and create a new file"
 |sel queryBox|
 queryBox := FilenameEnterBox
-title:(resources at:'create new file:') withCRs
+		    title:(resources at:'create new file:') withCRs
-okText:(resources at:'create')
+		    okText:(resources at:'create')
-action:[:newName | newName isEmpty ifFalse:[self doCreateFile:newName]].
+		    action:[:newName | newName isEmpty ifFalse:[self doCreateFile:newName]].
 sel := subView selection.
 sel notNil ifTrue:[
-queryBox initialText:(sel asString)
+	queryBox initialText:(sel asString)
 ].
 queryBox showAtPointer
 "Modified: / 23.4.1997 / 13:04:38 / cg"
 "Modified: / 16.1.1998 / 16:54:00 / stefan"
 "return the sequence in which ALT-CursorRight steps focus"
 |fs|
 fs := Array
+	with:labelView
 	with:filterField
 	with:fileListView
 	with:subView.
 commandView notNil ifTrue:[
 <resource: #programMenu>
 |labels selectors args menu|
 labels := #(
-'copy path'
+		   'copy path'
-'-'
+		   '-'
-'up'
+		   'up'
-'back'
+		   'back'
-'change to home-directory'
+		   'change to home-directory'
-'change to default-directory'
+		   'change to default-directory'
-'change directory ...'
+		   'change directory ...'
-).
+	       ).
 selectors := #(
-copyPath
+		    copyPath
-nil
+		    nil
-changeToParentDirectory
+		    changeToParentDirectory
-changeToPreviousDirectory
+		    changeToPreviousDirectory
-changeToHomeDirectory
+		    changeToHomeDirectory
-changeToDefaultDirectory
+		    changeToDefaultDirectory
-changeCurrentDirectory
+		    changeCurrentDirectory
-).
+		  ).
 (JavaClassReader notNil and:[JavaClassReader isLoaded]) ifTrue:[
-labels := labels , #('-' 'add to JavaClassPath' 'add to JavaSourcePath' 'remove from JavaClassPath' 'remove from JavaSourcePath').
+	labels := labels , #('-' 'add to JavaClassPath' 'add to JavaSourcePath' 'remove from JavaClassPath' 'remove from JavaSourcePath').
-selectors := selectors , #(nil #addDirToJavaClassPath #addDirToJavaSourcePath #removeDirFromJavaClassPath #removeDirFromJavaSourcePath).
+	selectors := selectors , #(nil #addDirToJavaClassPath #addDirToJavaSourcePath #removeDirFromJavaClassPath #removeDirFromJavaSourcePath).
 ].
 args := Array new:(labels size).
 DirectoryHistory size > 0 ifTrue:[
-labels := labels copyWith:'-'.
+	labels := labels copyWith:'-'.
-selectors := selectors copyWith:nil.
+	selectors := selectors copyWith:nil.
-args := args copyWith:nil.
+	args := args copyWith:nil.
-DirectoryHistory do:[:dirName |
+	DirectoryHistory do:[:dirName |
-labels := labels copyWith:dirName.
+	    labels := labels copyWith:dirName.
-selectors := selectors copyWith:#changeDirectoryTo:.
+	    selectors := selectors copyWith:#changeDirectoryTo:.
-args := args copyWith:dirName
+	    args := args copyWith:dirName
-]
+	]
 ].
 menu := PopUpMenu
-labels:(resources array:labels)
+		labels:(resources array:labels)
-selectors:selectors
+		selectors:selectors
-args:args
+		args:args
-receiver:self.
+		receiver:self.
 previousDirectory isNil ifTrue:[
-menu disable:#changeToPreviousDirectory.
+	menu disable:#changeToPreviousDirectory.
 ].
 (JavaClassReader notNil and:[JavaClassReader isLoaded]) ifTrue:[
-(Java classPath includes:currentDirectory pathName) ifTrue:[
+	(Java classPath includes:currentDirectory pathName) ifTrue:[
-menu disable:#addDirToJavaClassPath
+	    menu disable:#addDirToJavaClassPath
-] ifFalse:[
+	] ifFalse:[
-menu disable:#removeDirFromJavaClassPath
+	    menu disable:#removeDirFromJavaClassPath
-].
+	].
-(Java sourcePath includes:currentDirectory pathName) ifTrue:[
+	(Java sourcePath includes:currentDirectory pathName) ifTrue:[
-menu disable:#addDirToJavaSourcePath
+	    menu disable:#addDirToJavaSourcePath
-] ifFalse:[
+	] ifFalse:[
-menu disable:#removeDirFromJavaSourcePath
+	    menu disable:#removeDirFromJavaSourcePath
-].
+	].
 ].
 ^menu.
 "Modified: / 17.1.1998 / 10:49:16 / cg"
 !
 |img|
 (Image isImageFileSuffix:(aFilename asFilename suffix))
 ifTrue:[
-img := Image fromFile:(currentDirectory construct:aFilename).
+	img := Image fromFile:(currentDirectory construct:aFilename).
-img notNil ifTrue:[
+	img notNil ifTrue:[
-ImageEditor openOnImage:img.
+	    ImageEditor openOnImage:img.
 "/            img inspect.
-^ true
+	    ^ true
-]
+	]
 ].
 ^ false
 "Created: 19.6.1996 / 09:43:50 / cg"
 "Modified: 18.4.1997 / 14:56:04 / cg"
 ! !
 !FileBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.215 1998-01-22 12:36:49 ca Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.216 1998-01-25 14:10:24 cg Exp $'
 ! !

changeset 1418	c6cce50bf135
parent 1410	e2af551da1d1
child 1481	71a3292de680