Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
save in texteditor
authorpenk
Thu, 15 Jan 2004 12:17:06 +0100
changeset 5431 8f9d5cb9ebc7
parent 5430 e500bd438cc7
child 5432 798e9c2ceb7b
save in texteditor
FileApplicationNoteBook.st file | annotate | diff | comparison | revisions 
--- a/FileApplicationNoteBook.st	Thu Jan 15 09:48:53 2004 +0100
+++ b/FileApplicationNoteBook.st	Thu Jan 15 12:17:06 2004 +0100
@@ -13,78 +13,78 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractFileBrowser subclass:#FileApplicationNoteBook
-        instanceVariableNames:'canvasHolder selectedEditorPage listOfApplications tabMenuIndex
-                tabList selectionHistoryList privateTabList'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-Tools-File'
+	instanceVariableNames:'canvasHolder selectedEditorPage listOfApplications tabMenuIndex
+		tabList selectionHistoryList privateTabList'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Tools-File'
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#ArchiveViewApplication
-        instanceVariableNames:'archiveFileList enableStopButton fileTable currentSortOrder
-                selectionHolder tableColumns commandProcess errorListHolder
-                viewErrorList temporaryDirectory enableRemoveErrorOutput
-                errorListVisibilityHolder hasListEntriesHolder archiver process
-                terminateByMe columnDescriptors inDropMode'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'archiveFileList enableStopButton fileTable currentSortOrder
+		selectionHolder tableColumns commandProcess errorListHolder
+		viewErrorList temporaryDirectory enableRemoveErrorOutput
+		errorListVisibilityHolder hasListEntriesHolder archiver process
+		terminateByMe columnDescriptors inDropMode'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 Object subclass:#ArchivItem
-        instanceVariableNames:'fileName size dateAndTime permissions icon ownerGroup method crc
-                compressSize ratio version type isDirectory'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook::ArchiveViewApplication
+	instanceVariableNames:'fileName size dateAndTime permissions icon ownerGroup method crc
+		compressSize ratio version type isDirectory'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook::ArchiveViewApplication
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#CommandResult
-        instanceVariableNames:'resultStream enableStopButton process labelHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'resultStream enableStopButton process labelHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#HtmlViewApplication
-        instanceVariableNames:'htmlView labelHolder infoLabelHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'htmlView labelHolder infoLabelHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#ImageViewApplication
-        instanceVariableNames:'imageFile imageView image fitSize fitMode'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'imageFile imageView image fitSize fitMode'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#Terminal
-        instanceVariableNames:'terminalView'
-        classVariableNames:'DefaultLineLimit'
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'terminalView'
+	classVariableNames:'DefaultLineLimit'
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#TextEditor
-        instanceVariableNames:'fileContentsModel modifiedChannel editView enableSave
-                enableReload presentation changeItemProcess closeApplication
-                semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged
-                itemRemoved enableHexToggle md5CheckSum
-                md5HashValueComputationProcess viewModifiedChannel
-                textEditorModificationTime checkModifiedBlock'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'fileContentsModel modifiedChannel editView enableSave
+		enableReload presentation changeItemProcess closeApplication
+		semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged
+		itemRemoved enableHexToggle md5CheckSum
+		md5HashValueComputationProcess viewModifiedChannel
+		textEditorModificationTime checkModifiedBlock'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#XViewApplication
-        instanceVariableNames:'xView xFile vncServerPID vncPortNr vncConnection viewerPID
-                vncLock vncServerIsTerminated xItem ext'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:FileApplicationNoteBook
+	instanceVariableNames:'xView xFile vncServerPID vncPortNr vncConnection viewerPID
+		vncLock vncServerIsTerminated xItem ext'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:FileApplicationNoteBook
 !
 
 !FileApplicationNoteBook class methodsFor:'documentation'!
@@ -4595,6 +4595,25 @@
     super update:something with:aParameter from:changedObject
 ! !
 
+!FileApplicationNoteBook::TextEditor methodsFor:'event handling'!
+
+processEvent:anEvent
+    "filter keyboard events.
+     Return true, if I have eaten the event"
+
+    |key|
+
+    anEvent isKeyPressEvent ifFalse:[^ false].
+
+    key    := anEvent key.
+
+    (key == #Accept) ifTrue:[
+        self accept.
+        ^ true
+    ].
+    ^ false
+! !
+
 !FileApplicationNoteBook::TextEditor methodsFor:'printing'!
 
 printString
@@ -4684,6 +4703,7 @@
 "/    ].
     self setUpTextView.
     self changeInformation.
+    self windowGroup addPreEventHook:self.
     ^ super postOpenWith:aBuilder
 !
 
@@ -5214,5 +5234,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.134 2004-01-15 08:48:53 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.135 2004-01-15 11:17:06 penk Exp $'
 ! !
hg/stx-libtool