*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 06 Feb 2003 18:20:52 +0100
changeset 4529 134c48ecdef5
parent 4528 a6f15ae667c3
child 4530 d44a82caf67e
*** empty log message ***
AbstractFileApplicationNoteBookComponent.st
FileApplicationNoteBook.st
--- a/AbstractFileApplicationNoteBookComponent.st	Tue Feb 04 13:28:53 2003 +0100
+++ b/AbstractFileApplicationNoteBookComponent.st	Thu Feb 06 18:20:52 2003 +0100
@@ -33,6 +33,10 @@
 
 !AbstractFileApplicationNoteBookComponent methodsFor:'accessing'!
 
+notify:msg
+    self notifyChannel value:msg
+!
+
 notifyChannel
     notifyChannel isNil ifTrue:[
         self masterApplication notNil ifTrue:[
@@ -189,5 +193,5 @@
 !AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.5 2003-02-03 11:19:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.6 2003-02-06 17:20:20 cg Exp $'
 ! !
--- a/FileApplicationNoteBook.st	Tue Feb 04 13:28:53 2003 +0100
+++ b/FileApplicationNoteBook.st	Thu Feb 06 18:20:52 2003 +0100
@@ -1,77 +1,77 @@
 "{ 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:''
-	poolDictionaries:''
-	privateIn:FileApplicationNoteBook
+        instanceVariableNames:'terminalView'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:FileApplicationNoteBook
 !
 
 AbstractFileApplicationNoteBookComponent subclass:#TextEditor
-	instanceVariableNames:'fileContentsModel doSaveFile modifiedChannel editView enableSave
-		enableReload presentation changeItemProcess closeApplication
-		semaChangeItem printAsHexDump itemChanged itemRemoved
-		enableHexToggle textEditorChangeModificationTime md5CheckSum
-		viewModifiedChannel'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:FileApplicationNoteBook
+        instanceVariableNames:'fileContentsModel doSaveFile modifiedChannel editView enableSave
+                enableReload presentation changeItemProcess closeApplication
+                semaChangeItem printAsHexDump itemChanged itemRemoved
+                enableHexToggle textEditorChangeModificationTime md5CheckSum
+                viewModifiedChannel'
+        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
 !
 
 
@@ -3806,7 +3806,8 @@
         dir recursiveMakeDirectory.
     ].
     editView saveAs:(self fileName).
-"/    self notify:self fileName asString, ' saved'.
+
+    self notify:self fileName asString, ' saved'.
     self semaChangeItem critical:[
         textEditorChangeModificationTime := nil.
         self itemChanged value:false.
@@ -4927,5 +4928,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.57 2003-02-04 12:28:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.58 2003-02-06 17:20:52 cg Exp $'
 ! !