hg/stx-libtool: comparison FileApplicationNoteBook.st

equal deleted inserted replaced

-:0ce340e972c4
+:c9b815af5777
 "
 [Author:]
 Christian Penk
 "
 ! !
 !FileApplicationNoteBook class methodsFor:'application list'!
 applicationList
 " returns a list of all applications to start by the NoteBookApplication with
 typeFor:aApplicationListItem
 ^ aApplicationListItem at:2
 ! !
 !FileApplicationNoteBook class methodsFor:'classAccess'!
 textEditorClass
 ^ TextEditor
 ! !
 !FileApplicationNoteBook class methodsFor:'defaults'!
 openAnotherApplicationOnSameItem
 ^ false
 ! !
 !FileApplicationNoteBook class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 )
 ! !
 !FileApplicationNoteBook class methodsFor:'menu specs'!
 tabMenu
 "This resource specification was automatically generated
 )
 "Modified: / 27-03-2007 / 11:13:52 / cg"
 ! !
 !FileApplicationNoteBook methodsFor:'accessing'!
 listOfApplications
 "return the value of the instance variable 'listOfApplications' (automatically generated)"
 selectionHistoryList:aCol
 selectionHistoryList := aCol
 ! !
 !FileApplicationNoteBook methodsFor:'accessing-applications'!
 getAllApplicationsByClass:aClass andType:aType
 ^ self listOfApplications
 and:[ (appl isKindOf:(anApplication class))
 and:[ (appl item = (anApplication item))
 and:[ (appl type == anApplication type) ]]])
 ].
 ! !
 !FileApplicationNoteBook methodsFor:'actions-app-common'!
 changeItem:anItem for:anAppl
 | applIndex string isDirectory |
 "/ if item already changed select the application
 selAppl := sameAppls detect:[:appl | (appl item = anItem) ] ifNone:[nil].
 ].
 ] ifFalse:[
 "/ keep in same application change the first application of the same class and type - if item not changed otherwise open new
-sameAppls := sameAppls select:[:appl | appl isModified not ].
+sameAppls := sameAppls reject:[:appl | appl isModified ].
 ].
 ].
 sameAppls size ~~ 0 ifTrue:[
 " take first all applications which have nil items
 second the selected
 ^ selAppl.
 "Modified (format): / 29-11-2011 / 19:07:57 / cg"
 ! !
 !FileApplicationNoteBook methodsFor:'actions-app-spec'!
 addTerminalIn:aDirectory
 |item|
 withType:#file
 checkExisting:true
 preSetItem:[:aTextEditor | aTextEditor presentation:#hexDump].
 ! !
 !FileApplicationNoteBook methodsFor:'applicationlist access'!
 applicationList
 ^ self class applicationList
 ! !
 !FileApplicationNoteBook methodsFor:'aspects'!
 canvasHolder
 tabList:aValue
 tabList := aValue.
 ! !
 !FileApplicationNoteBook methodsFor:'change & update'!
 canvasChanged
 "invoked when the contentsView has been changed"
 self closeDirectoryDescription.
 ].
 ^ self.
 ! !
 !FileApplicationNoteBook methodsFor:'menu & actions'!
 destroyTabAt:idx
 |app|
 menu findGuiResourcesIn:self.
 ^ menu
 "Modified: / 27-03-2007 / 10:57:25 / cg"
 ! !
 !FileApplicationNoteBook methodsFor:'queries'!
 getSameFilesModifiedFor:aAppl
 ]
 ]
 ].
 ^ colOfChanged
 ! !
 !FileApplicationNoteBook methodsFor:'selection'!
 currentTabMenusApplication
 "only valid within menu processing"
 canvas := self canvasHolder value.
 canvas isNil ifTrue:[ ^ nil].
 ^ canvas application.
 ! !
 !FileApplicationNoteBook methodsFor:'startup & release'!
 closeRequest
 "asks for permission before closing"
 ].
 ].
 ^ true
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
 tabStringFor:aApplicationType
 "the formatString shown in a tab (language translated)"
 ^ 'Archive %1'
 "Modified: / 01-03-2007 / 21:43:13 / cg"
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
 flyByHelpSpec
 "This resource specification was automatically generated
 #stopButton
 'Stop'
 )
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
 extract28x28Icon
 "This resource specification was automatically generated
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 8 4 8 105 133 190 121 133 157 129 129 129 194 194 194 255 0 0]; mask:((Depth1Image new) width: 28; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@LC@@@A!! @@@L0@@@A8@@@@L@@@@G @@@CL@@@A!! @@@0L@@@@@@@BY=5LAIUUT S5UU8D!!UUPAFU\#@@@@@@@LR9@@D)J @A:R(@@P$*@@CIN @@@@@@@@@a') ; yourself); yourself]
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
 fileListMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 "Modified: / 12-01-2012 / 00:34:06 / cg"
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 |suffix mimeType|
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
 tableColumns
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
 archiver
 "return the value of the instance variable 'archiver' (automatically generated)"
 temporaryDirectory makeDirectory.
 ].
 ^ temporaryDirectory
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
 changeItem:anItem
 self item:anItem.
 self clearFileList.
 master notNil ifTrue:[
 master openApplByFileItem:item.
 ].
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
 archiveFileList
 archiveFileList isNil ifTrue:[
 viewErrorList onChangeSend:#viewErrorListChanged to:self.
 ].
 ^ viewErrorList
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 changedObject == self archiveFileList ifTrue:[
 self hasListEntriesHolder value:(changedObject notEmpty).
 viewListValue := self viewErrorList value.
 self enableRemoveErrorOutput value:viewListValue.
 self errorListVisibilityHolder value:viewListValue.
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
 getErrorBlock
 ]
 ]
 ].
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command helper'!
 selectDirectoryDialog
 | dir directory haveDirectory|
 ].
 ].
 ^ dir
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
 addFilesToArchive:colOfFiles
 self archiver
 outStream:nil
 self listFiles:colOfFiles
 ].
 ^ true
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
 extractAll
 self extractSelectedFilesTo:nil withSelection:#all
 selectOrAll == #selection ifTrue:[
 self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean
 ].
 "/    self updateFileBrowserIfPresentWith:dir.
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
 extractAllTo:aDirectory
 ^ true.
 "Modified (format): / 29-11-2011 / 18:58:01 / cg"
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
 listAllFiles
 self archiveFileList value removeAll.
 self listFiles:nil
 self
 makeProcessFor:[self archiver listFiles:aColOfFilesOrNil]
 with:'List files'
 ]
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
 removeFilesFromArchive
 |sel realSel list firtsPre stringCol stringRealSel|
 makeProcessFor:[ self archiver removeFilesFromArchive:stringCol ]
 with:'Remove files'.
 self archiveFileList value removeAllFoundIn:realSel
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
 canDrop:aContext
 ^ inDropMode
 |sel|
 sel := self selectionHolder value.
 ^ sel collect:[:el| DropObject newFileInArchive:(el fileName asFilename) ].
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
 processEvent:anEvent
 "filter keyboard events.
 ]
 ]
 ].
 ^ false
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
 postBuildFileTable:aWidget
 release
 self archiver release.
 ^ super release.
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
 canDelete
 ^ (self hasOneSelectionInList and:[archiver class canRemoveFiles])
 ]
 ].
 ].
 ^ newSel.
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
 generateSortBlock:instanceName
 sortCol addAll:fileList.
 fileList removeAll.
 fileList addAll:sortCol.
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
 compressSize
 "return the value of the instance variable 'compressSize' (automatically generated)"
 yearString:yearString
 self year:(Integer readFrom:yearString)
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
 printOn:aStream
 aStream nextPutAll:self fileName asString
 ! !
 !FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
 hasDirectoryPart
 ^ self fileName asFilename components size ~= 1
 ! !
 !FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
 tabStringFor:aApplicationType
 "the formatString shown in a tab (language translated)"
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 "Modified: / 12-01-2012 / 00:33:56 / cg"
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
 resultStream
 "return the value of the instance variable 'resultStream' (automatically generated)"
 resultStream:something
 "set the value of the instance variable 'resultStream' (automatically generated)"
 resultStream := something.
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'actions'!
 changeTabTo:aString
 self notify:('kill ', myProcess name).
 myProcess terminate.
 ].
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
 enableStopButton
 enableStopButton isNil ifTrue:[
 process := ValueHolder new.
 process addDependent:self.
 ].
 ^ process
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 changedObject == self process ifTrue:[
 self enableStopButton value:changedObject value notNil.
 ^ self
 ].
 super update:something with:aParameter from:changedObject
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'initialization & release'!
 postBuildTextCollector:aBuilder
 self doStopProcess.
 ^ super release
 ! !
 !FileApplicationNoteBook::CommandResult methodsFor:'printing'!
 printOn:aStream
 aStream nextPutAll:'CommandResult Application'.
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'defaults'!
 tabStringFor:anApplicationType
 "the formatString shown in a tab (language translated)"
 ^ 'Note in %1'
 "Modified: / 01-03-2007 / 21:43:23 / cg"
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'documentation'!
 documentation
 "
 a previewer-plugin for digital-notepad recordings as
 provided by the waltop (tevion) MD85276 digital ink notepad.
 "
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
 flyByHelpSpec
 "This resource specification was automatically generated
 by the UIHelpTool of ST/X."
 #'fitImageSize'
 'Shrink to Fit View'
 )
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 )
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 ^ anItem mimeType = 'application/x-waltop-digital-notepad'
 !
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'accessing'!
 imageView
 ^ imageView
 "/                with:image depth.
 "/    ].
 "/    self notify:msg.
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'actions'!
 changeItem:anItem
 self item:anItem.
 setupImageView
 imageView readFile:self fileName
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'aspects'!
 fitSize
 "return/create the 'fitSize' value holder (automatically generated)"
 fitSize := ValueHolder new.
 fitSize addDependent:self.
 ].
 ^ fitSize
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 changedObject == self fitSize ifTrue:[
 ].
 ^ self
 ].
 super update:something with:aParameter from:changedObject
 ! !
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'initialization & release'!
 postBuildImageView:aWidget
 ].
 self setupImageView.
 super postOpenWith:aBuilder
 ! !
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
 tabStringFor:aApplicationType
 "the formatString shown in a tab (language translated)"
 ^ 'HTML View for %1'
 "Modified: / 01-03-2007 / 21:43:18 / cg"
 ! !
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
 helpSpec
 "This resource specification was automatically generated
 #'Edit Source'
 ''
 )
 ! !
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
 windowSpec
 )
 )
 "Modified: / 11-08-2011 / 00:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 ^ (anItem hasMimeType and:[anItem mimeType isHtml])
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
 htmlView
 "return the value of the instance variable 'imageView' (automatically generated)"
 retVal := super item:anItem.
 self setupHtmlView.
 ^ retVal
 ! !
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing - subapps'!
 webBrowserPage
 webBrowserPage isNil ifTrue:[
 ].
 ^webBrowserPage
 "Created: / 11-08-2011 / 00:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
 doEdit
 self masterApplication
 ^ html
 "Modified: / 17-02-2011 / 14:01:35 / cg"
 ! !
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
 labelHolder
 labelHolder isNil ifTrue:[
 labelHolder := '' asValue.
 ].
 ^ labelHolder.
 ! !
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
 postBuildHtmlView:aWidget
 super postOpenWith:aBuilder
 "Modified: / 17-02-2011 / 13:27:12 / cg"
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
 tabStringFor:aApplicationType
 "the formatString shown in a tab (language translated)"
 ^ 'Image in %1'
 "Modified: / 01-03-2007 / 21:43:23 / cg"
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'documentation'!
 documentation
 "
 a previewer-plugin for bitmap images (jpg, xpm, tiff, gif, etc.)
 Offers edit and adjust-size button functions.
 "
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
 flyByHelpSpec
 "This resource specification was automatically generated
 by the UIHelpTool of ST/X."
 #'fitImageSize'
 'Shrink Image to Fit View'
 )
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
 fitSize20x20Icon
 "This resource specification was automatically generated
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 )
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 ^ (anItem hasMimeType and:[anItem mimeType isImage])
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
 image:something
 image := something.
 with:image height
 with:image depth.
 ].
 self notify:msg.
 ! !
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
 changeItem:anItem
 ] fork.
 "Modified: / 25-07-2006 / 09:09:33 / cg"
 ! !
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
 fitSize
 "return/create the 'fitSize' value holder (automatically generated)"
 fitSize := ValueHolder new.
 fitSize addDependent:self.
 ].
 ^ fitSize
 ! !
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 changedObject == self fitSize ifTrue:[
 ].
 ^ self
 ].
 super update:something with:aParameter from:changedObject
 ! !
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'!
 postBuildImageView:aWidget
 ].
 self setupImageView.
 super postOpenWith:aBuilder
 ! !
 !FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
 defaultLineLimit
 "the number of buffered lines"
 ^ 'Terminal'
 "Modified: / 01-03-2007 / 21:43:38 / cg"
 ! !
 !FileApplicationNoteBook::Terminal class methodsFor:'help specs'!
 helpSpec
 "This resource specification was automatically generated
 #closeTabButton
 ''
 )
 ! !
 !FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::Terminal class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'accessing'!
 terminalView
 terminalView isNil ifTrue:[
 ^ terminalView.
 "Modified: / 05-04-2012 / 15:58:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'actions'!
 saveAs
 self terminalView save.
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
 shellFinished
 | master text string|
 vt100 := self terminalView.
 vt100 shellTerminateAction:[ self shellFinished ].
 vt100 startShellIn:(self fileName).
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'printing'!
 printOn:aStream
 aStream nextPutAll:'Terminal on:'.
 self fileName baseName printOn:aStream.
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'queries'!
 getTabValueString
 "the item shown in a tab (not language translated)"
 ^ nil
 "Created: / 01-03-2007 / 21:39:56 / cg"
 ! !
 !FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
 postOpenWith:aBuilder
 "only invoked if the application not started from a master"
 ].
 self startShell.
 super postOpenWith:aBuilder.
 ! !
 !FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
 checkModifiedDelayTime
 ^ 30    "seconds"
 !
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::TextEditor class methodsFor:'documentation'!
 documentation
 "
 a previewer-plugin for plain text
 Offers edit, hex-display and diff functions.
 "
 ! !
 !FileApplicationNoteBook::TextEditor class methodsFor:'help specs'!
 helpSpec
 "This resource specification was automatically generated
 by the UIHelpTool of ST/X."
 #closeTabButton
 ''
 )
 ! !
 !FileApplicationNoteBook::TextEditor class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 )
 ! !
 !FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
 fileEncoding
 ^ self fileEncodingHolder value
 !
 type:aType
 super type:aType.
 self changeInformation.
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'actions'!
 accept
 self saveWithAskForFilename:false.
 editView validateFontEncodingFor:fileEncoding ask:false.
 ].
 ].
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
 cursorColLabelHolder
 ^ BlockValue
 with:[:v | v printString]
 viewModifiedChannel := false asValue.
 viewModifiedChannel addDependent:self.
 ].
 ^ viewModifiedChannel.
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'aspects-visibility'!
 closeButtonShown
 ^ false.
 ^ tagsBrowserVisibleHolder
 "Created: / 23-06-2011 / 09:19:18 / cg"
 "Modified: / 06-10-2011 / 12:46:41 / cg"
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
 changeTextColorForChanged
 |text prevCursorBehavior|
 ]
 "Created: / 23-06-2011 / 16:32:44 / cg"
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'initialization'!
 initialize
 super initialize.
 semaChangeItem := Semaphore forMutualExclusion.
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'printing'!
 printOn:aStream
 |fn|
 aStream nextPutAll:'TextEditor for:'.
 (fn := self fileName) notNil ifTrue:[
 fn baseName printOn:aStream.
 ]
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'private-process'!
 checkItemForChanges
 |exists fileModificationTime message|
 ].
 ].
 Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'queries'!
 additionalInfo
 ^ '[',editView numberOfLines printString , ' lines]'.
 isTextEditor
 ^ true
 ! !
 !FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
 closeRequest
 "asks for permission before closing"
 ]
 "Modified: / 10-04-2007 / 15:24:22 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'defaults'!
 tabStringFor:aApplicationType
 "the formatString shown in a tab (language translated)"
 ^ 'XML View for %1'
 "Modified: / 17-02-2011 / 13:28:22 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'help specs'!
 helpSpec
 "This resource specification was automatically generated
 )
 "Modified: / 17-02-2011 / 13:28:28 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 "Modified: / 17-02-2011 / 17:30:26 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 (Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ false].
 wantNewApplicationAnyway
 ^ false
 ! !
 !FileApplicationNoteBook::XMLViewApplication methodsFor:'accessing'!
 item:anItem
 |retVal|
 "Created: / 17-02-2011 / 13:39:07 / cg"
 "Modified: / 17-02-2011 / 17:39:15 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication methodsFor:'actions'!
 reload
 self updateXMLTree.
 "Created: / 17-02-2011 / 17:46:36 / cg"
 ! !
 !FileApplicationNoteBook::XMLViewApplication methodsFor:'aspects'!
 labelHolder
 labelHolder isNil ifTrue:[
 labelHolder := '' asValue.
 ].
 ^ labelHolder.
 ! !
 !FileApplicationNoteBook::XMLViewApplication methodsFor:'initialization & release'!
 postBuildXMLCanvas:aWidget
 xmlTreeApp := aWidget client.
 item notNil ifTrue:[self updateXMLTree].
 "Modified: / 17-02-2011 / 13:39:18 / cg"
 ! !
 !FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
 maxNumberOfVNCRestarts
 wantNewApplicationAnyway
 ^ true
 ! !
 !FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 nil
 nil
 )
 ! !
 !FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
 canOpenItem:anItem
 | keySym|
 ^ false.
 ].
 ^ true
 ! !
 !FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
 xView
 "return the value of the instance variable 'imageView' (automatically generated)"
 xView:something
 "set the value of the instance variable 'imageView' (automatically generated)"
 xView := something.
 ! !
 !FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
 changeInformation
 yExt := self xView height asString.
 ].
 ext := xExt, 'x', yExt.
 self startViewer.
 ! !
 !FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
 setupView
 |  renderer view|
 Delay waitForSeconds:0.5.
 ].
 ^ true
 ! !
 !FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
 startViewer
 |cmd keySym applItem |
 "/    Transcript showCR:'viewer has terminated'.
 "/    'viewer has terminated' errorPrintCR.
 "/ Dialog information:'viewer has terminated'.
 ! !
 !FileApplicationNoteBook::XViewApplication methodsFor:'initialization & release'!
 postBuildXView:aWidget
 self xView:aWidget scrolledView.
 self stopViewer.
 self stopVNCServer.
 ^ super release
 ! !
 !FileApplicationNoteBook class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.276 2013-03-19 13:53:54 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.277 2013-06-04 10:46:46 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.276 2013-03-19 13:53:54 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.277 2013-06-04 10:46:46 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 13170	c9b815af5777
parent 12517	3a904476a8d2
parent 12830	7c993d3f4519
child 13180	64a4186ddfce