error on enter in ComboBoxList gets the items from the upper menues
temporary fixed to avoid errors
"{ Package: 'stx:libtool' }"
AbstractFileBrowser subclass:#FileApplicationNoteBook
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
!
Object subclass:#ArchivItem
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
!
AbstractFileApplicationNoteBookComponent subclass:#HtmlViewApplication
instanceVariableNames:'htmlView labelHolder infoLabelHolder'
classVariableNames:''
poolDictionaries:''
privateIn:FileApplicationNoteBook
!
AbstractFileApplicationNoteBookComponent subclass:#ImageViewApplication
instanceVariableNames:'imageFile imageView image fitSize fitMode'
classVariableNames:''
poolDictionaries:''
privateIn:FileApplicationNoteBook
!
AbstractFileApplicationNoteBookComponent subclass:#Terminal
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
!
AbstractFileApplicationNoteBookComponent subclass:#XViewApplication
instanceVariableNames:'xView xFile vncServerPID vncPortNr vncConnection viewerPID
vncLock vncServerIsTerminated xItem ext'
classVariableNames:''
poolDictionaries:''
privateIn:FileApplicationNoteBook
!
!FileApplicationNoteBook class methodsFor:'application list'!
applicationList
" returns a list of all applications to start by the NoteBookApplication with
#className #type
example:
#( #'FooEditor' nil )
"
^ #(
#( #'TextEditor' #file )
#( #'TextEditor' #directoryDescription )
#( #'HtmlViewApplication' nil )
#( #'FindFileApplication' nil )
#( #'Terminal' nil )
#( #'ImageViewApplication' nil )
#( #'ArchiveViewApplication' nil )
#( #'CommandResult' nil )
#( #'XViewApplication' nil )
)
!
classFor:aApplicationListItem
|rawName cls|
rawName := aApplicationListItem at:1.
(cls := self privateClassesAt:rawName) isNil ifTrue:[
cls := Smalltalk at:rawName.
].
^ cls
!
defaultApplication
" returns the application to be started if no itemQuery returns true or no supportedSuffix is supported
"
^ self applicationList detect:[: applItem|
(((self classFor:applItem) == self textEditorClass)
and:[(self typeFor:applItem) == #file])
] ifNone:[nil].
!
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
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:NoteBookApplication andSelector:#windowSpec
NoteBookApplication new openInterface:#windowSpec
NoteBookApplication open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'FileBrowserV2TextEditor'
#name: 'FileBrowserV2TextEditor'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 316 342)
)
#component:
#(#SpecCollection
#collection: #(
#(#NoteBookViewSpec
#name: 'CommandAndTextEditor'
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
#model: #selectedEditorPage
#menu: #tabList
#useIndex: true
#accessTabMenuAction: #tabMenuAt:
#canvas: #canvasHolder
#keepCanvasAlive: true
)
)
)
)
! !
!FileApplicationNoteBook class methodsFor:'menu specs'!
tabMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook andSelector:#tabMenu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook tabMenu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'New Text Editor'
#itemValue: #newTextEditor
#translateLabel: true
)
#(#MenuItem
#label: 'Select in Filelist'
#itemValue: #doSelectInList
#translateLabel: true
)
#(#MenuItem
#label: 'Close'
#itemValue: #doCloseApplication
#translateLabel: true
)
)
nil
nil
)
! !
!FileApplicationNoteBook methodsFor:'accessing'!
listOfApplications
"return the value of the instance variable 'listOfApplications' (automatically generated)"
listOfApplications isNil ifTrue:[
listOfApplications := OrderedCollection new.
].
^ listOfApplications
!
selectionHistoryList
selectionHistoryList isNil ifTrue:[
selectionHistoryList := OrderedCollection new.
].
^ selectionHistoryList
!
selectionHistoryList:aCol
selectionHistoryList := aCol
! !
!FileApplicationNoteBook methodsFor:'accessing-applications'!
getAllApplicationsByClass:aClass andType:aType
^ self listOfApplications select:[ : appl |
((appl class = aClass)
and:[appl type = aType])
].
!
getApplicationByType:aType
^ self listOfApplications detect:[ : appl |
(appl type == aType)
] ifNone:[nil].
!
getIndexFor:aApplication
| index |
index := self listOfApplications indexOf:aApplication.
index ~~ 0 ifTrue:[
^ index.
].
^ nil.
!
getSameApplicationsFor:aApplication
^ self listOfApplications select:[ : appl |
( (appl ~= aApplication)
and:[ (appl isKindOf:(aApplication class))
and:[ (appl item = (aApplication item))
and:[ (appl type == aApplication type) ]]])
].
! !
!FileApplicationNoteBook methodsFor:'actions-app-common'!
changeItem:aItem for:aAppl
| applIndex string|
applIndex := self getIndexFor:aAppl.
(aItem notNil and:[aItem isDirectory not " and:[aAppl type ~= #directoryDescription]"]) ifTrue:[
(aAppl changeItem:aItem) ifFalse:[ ^ self].
self fileHistory add:aItem.
self enableFileHistory value:true.
].
string := aAppl getTabString.
self privateTabList at:applIndex put:(Text fromString:string).
self doSelect:aAppl.
!
changeModified:aSymbol for:aAppl
| index text stream|
index := self getIndexFor:aAppl.
index isNil ifTrue:[ ^ self].
stream := WriteStream with:aAppl getTabString.
aSymbol ~~ #unchanged ifTrue:[
stream space.
stream nextPut:$[.
stream nextPutAll:aSymbol asString.
stream nextPut:$].
text := stream contents asText.
text emphasizeAllWith:UserPreferences current emphasisForModifiedBuffer.
] ifFalse:[
text := stream contents asText.
].
self privateTabList at:index put:text.
self selectedEditorPage value == index ifTrue:[
self changeFileBrowserTitleTo:text.
].
!
closeSubCanvas:aApplication
| applIndex historyList localHistoryList selectedPage|
applIndex := self getIndexFor:aApplication.
applIndex notNil ifTrue:[
"/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES
"/ self lastSelection:applIndex.
historyList := self selectionHistoryList.
historyList remove:applIndex ifAbsent:nil.
localHistoryList := OrderedCollection new.
historyList notEmpty ifTrue:[
selectedPage := historyList last.
] ifFalse:[
selectedPage := 1.
].
self selectedEditorPage value:selectedPage.
historyList do:[ : index |
index <= applIndex ifTrue:[
localHistoryList add:index
] ifFalse:[
localHistoryList add:(index - 1)
]
].
self selectionHistoryList:localHistoryList.
self listOfApplications removeIndex:applIndex.
self privateTabList removeIndex:applIndex.
self privateTabList isEmpty ifTrue:[
self viewNoteBookApplicationHolder value:false.
self enableViewNoteBookApplication value:false.
self changeFileBrowserTitleTo:'FileBrowser V2'.
] ifFalse:[
historyList notEmpty ifTrue:[
self selectedEditorPage value:(self selectionHistoryList last).
]
]
].
"/ because subCanvas was configured to keep its view,
"/ we must destroy it here.
aApplication window destroy.
!
doCloseApplication
| appl |
appl := self listOfApplications at:tabMenuIndex.
appl doClose.
!
doSelectInList
| appl fileName|
appl := self listOfApplications at:tabMenuIndex.
fileName := appl fileName.
fileName notNil ifTrue:[
self gotoFile:fileName.
].
!
openApplByFileItem:aItem
" use the default class list for open of applications by item "
| applList applItem itemClass|
aItem isNil ifTrue:[ ^ self ].
applList := self applicationList.
self openAlwaysInTextEditor value ifTrue:[
^ self openDefaultApplicationByItem:aItem.
].
applItem := applList detect:[: aApplItem|
itemClass := self class classFor:aApplItem.
(itemClass canOpenItem:aItem).
] ifNone:[nil].
applItem isNil ifTrue:[ ^ self openDefaultApplicationByItem:aItem].
applItem notNil ifTrue:[
| itemType appl|
itemType := self class typeFor:applItem.
itemClass := self class classFor:applItem.
appl := self openApplicationClass:itemClass withItem:aItem withType:itemType.
appl notNil ifTrue:[ ^ appl].
^ self openDefaultApplicationByItem:aItem.
].
!
openApplicationClass:aClass withItem:aItem withType:aType
^ self openApplicationClass:aClass withItem:aItem withType:aType checkExisting:true
!
openApplicationClass:aClass withItem:aItem withType:aType checkExisting:checkExisting
| existingAppl newAppl|
" do not open not readable items "
checkExisting ifTrue:[
(aItem notNil and:[aItem isDirectory not and:[aItem fileName isReadable not]]) ifTrue:[
Dialog warn:'Can not open unreadable file ', aItem fileName baseName.
AbortSignal raise.
].
existingAppl := self tryToGetExistingApplFor:aClass withItem:aItem withType:aType.
existingAppl notNil ifTrue:[
self doSelect:existingAppl.
^ existingAppl
].
].
newAppl := aClass new.
newAppl type:aType.
(newAppl item:aItem) ifFalse:[ ^ nil ].
(aItem notNil and:[(aItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[
self fileHistory add:aItem.
self enableFileHistory value:true.
].
self setSameFileIndexFor:newAppl.
self startApplication:newAppl.
^ newAppl
!
openDefaultApplicationByItem:aItem
" open the default application if no application for item is available or the start of the
available application failed
"
| applItem |
applItem := self class defaultApplication.
applItem notNil ifTrue:[
| itemType itemClass|
itemType := self class typeFor:applItem.
itemClass := self class classFor:applItem.
^ self openApplicationClass:itemClass withItem:aItem withType:itemType.
].
^ nil
!
setSameFileIndexFor:anAppl
|sameFiles index item|
self class openAnotherApplicationOnSameItem not ifTrue:[
anAppl sameFileIndex:nil.
^ self.
].
item := anAppl item.
item notNil ifTrue:[
| hasSameFiles |
sameFiles := self getSameApplicationsFor:anAppl.
hasSameFiles := sameFiles notEmpty.
hasSameFiles ifTrue:[
(sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[
anAppl sameFileIndex:1.
^ self
] ifFalse:[
index := (sameFiles collect:[:el | (el sameFileIndex ? 1)]) max.
anAppl sameFileIndex:index + 1.
^ self
]
].
anAppl sameFileIndex:nil.
].
!
startApplication:aApplication
| window|
aApplication masterApplication:self.
aApplication window ifNil:[
window := ApplicationSubView new.
aApplication createBuilder.
window client:aApplication.
].
self listOfApplications add:aApplication.
self privateTabList add:(Text fromString:(aApplication getTabString)).
self viewNoteBookApplicationHolder value:true.
self enableViewNoteBookApplication value:true.
self doSelect:aApplication.
"/ [
aApplication postOpenWith:aApplication builder.
"/ ] forkAt:Processor activePriority.
!
tabStringAdd:aString for:aAppl
| index text stream|
index := self getIndexFor:aAppl.
index isNil ifTrue:[ ^ self].
text := self privateTabList at:index.
stream := WriteStream on:''.
stream nextPutAll:text.
stream space.
stream nextPutAll:aString.
self privateTabList at:index put:(Text fromString:(stream contents)).
stream close.
!
tabStringChangeTo:aString for:aAppl
| index|
index := self getIndexFor:aAppl.
index isNil ifTrue:[ ^ self].
self privateTabList at:index put:(Text fromString:aString).
self selectedEditorPage value == index ifTrue:[
self changeFileBrowserTitleTo:aString.
].
!
tryToGetExistingApplFor:aClass withItem:aItem withType:aType
|sameAppl sameAppls changeAppl selAppl|
aClass wantNewApplicationAnyway ifTrue:[^ nil].
sameAppl := self getAllApplicationsByClass:aClass andType:aType.
sameAppl isEmpty ifTrue:[^ nil].
((aType == #directoryDescription) or:[aType == #commandResult]) ifTrue:[
changeAppl := sameAppl first.
] ifFalse:[
(self openMultipleApplicationsForType value) ifTrue:[
"/ open more than one application for a class and a type
(self class openAnotherApplicationOnSameItem) ifTrue:[
"/ open a new application anyway, no matters if item already open
^ nil
] ifFalse:[
"/ if item already changed select the application
selAppl := sameAppl detect:[ : appl |
(appl item = aItem)
] 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 := sameAppl select:[ : appl |
(appl isModified not)
].
].
].
sameAppls size ~~ 0 ifTrue:[
" take first all applications which have nil items
second the selected
third the first
"
| nilItemAppls |
nilItemAppls := sameAppls select:[:appl| appl item == nil ].
nilItemAppls notEmpty ifTrue:[sameAppls := nilItemAppls].
(sameAppls includes:self selectedApplication) ifTrue:[
changeAppl := self selectedApplication.
] ifFalse:[
changeAppl := sameAppls first.
].
self changeItem:aItem for:changeAppl.
selAppl := changeAppl.
].
^ selAppl.
! !
!FileApplicationNoteBook methodsFor:'actions-app-spec'!
changeDirectoryDescription
| aInfoItem|
aInfoItem := self getInfoItem.
aInfoItem isNil ifTrue:[ ^ self closeDirectoryDescription ].
self openDirectoryDescription.
!
closeDirectoryDescription
| dirContApll |
dirContApll := self getApplicationByType:#directoryDescription.
dirContApll notNil ifTrue:[
dirContApll doClose.
].
!
newTextEditor
^ self openApplicationClass:TextEditor withItem:nil withType:#file checkExisting:false
!
openArchiveViewApplication:aItem
| result |
result := self openApplicationClass:ArchiveViewApplication withItem:aItem withType:nil.
result isNil ifTrue:[
Dialog warn:'file type of ', aItem fileName baseName, ' not yet supported'.
^ self.
].
!
openCommandResultApplication
^ self openApplicationClass:CommandResult withItem:nil withType:#commandResult
!
openDirectoryDescription
| appl aInfoItem|
aInfoItem := self getInfoItem.
aInfoItem notNil ifTrue:[
appl := self openTextEditorOn:aInfoItem type:#directoryDescription.
].
!
openSearchFileOn:aItem
^ self openApplicationClass:FindFileApplication withItem:aItem withType:nil
!
openTerminalApplication:aItem
^ self openApplicationClass:Terminal withItem:aItem withType:nil
!
openTextEditor
^ self openTextEditorOn:nil
!
openTextEditorForFile:aFilename
^ self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:aFilename) type:#file
!
openTextEditorOn:aItem
^ self openTextEditorOn:aItem type:#file
!
openTextEditorOn:aItem type:aDirDescrOrFile
^ self openApplicationClass:TextEditor withItem:aItem withType:aDirDescrOrFile
! !
!FileApplicationNoteBook methodsFor:'applicationlist access'!
applicationList
^ self class applicationList
! !
!FileApplicationNoteBook methodsFor:'aspects'!
canvasHolder
canvasHolder isNil ifTrue:[
canvasHolder := ValueHolder new.
].
^ canvasHolder.
!
privateTabList
privateTabList isNil ifTrue:[
privateTabList := List new.
privateTabList addDependent:self.
].
^ privateTabList.
!
selectedEditorPage
selectedEditorPage isNil ifTrue:[
selectedEditorPage := ValueHolder new.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
selectedEditorPage addDependent:self.
"/ selectedEditorPage onChangeSend:#selectedEditorPageChanged to:self.
].
^ selectedEditorPage.
!
tabList
tabList isNil ifTrue:[
tabList := (List new) asValue.
].
^ tabList.
!
tabList:aValue
tabList := aValue.
! !
!FileApplicationNoteBook methodsFor:'change & update'!
update:something with:aParameter from:changedObject
"Invoked when an object that I depend upon sends a change notification."
"stub code automatically generated - please change as required"
| appl sel|
changedObject == self currentDirectories ifTrue:[
self viewDirectoryDescription value ifTrue:[
self changeDirectoryDescription.
].
^ self.
].
changedObject == self viewDirectoryDescription ifTrue:[
self viewDirectoryDescriptionChanged.
^ self.
].
changedObject == self privateTabList ifTrue:[
| privateListOfTabs |
privateListOfTabs := changedObject.
privateListOfTabs size > 1 ifTrue:[
self tabList value:privateListOfTabs.
self tabList changed.
] ifFalse:[
self tabList value:nil.
].
^ self
].
changedObject == self selectedEditorPage ifTrue:[
| listOfEdits indexOfLastSel list |
sel := changedObject value.
"/ dont want the tabs with one application - thats why i have to change my tablist
"/ sel goes to if - i want select the last selection
sel = 0 ifTrue:[
^ self.
].
list := self selectionHistoryList.
(list includes:sel) ifTrue:[
list remove:sel
].
list add:sel.
self selectionHistoryList:list.
appl := self listOfApplications at:sel.
self doSelect:appl.
].
^ super update:something with:aParameter from:changedObject
!
viewDirectoryDescriptionChanged
|viewDirDescr|
viewDirDescr := self viewDirectoryDescription value.
viewDirDescr ifTrue:[
self openDirectoryDescription.
] ifFalse:[
self closeDirectoryDescription.
].
^ self.
! !
!FileApplicationNoteBook methodsFor:'menu & actions'!
tabMenuAt:aTab
|menu|
menu := Menu new fromLiteralArrayEncoding:self class tabMenu.
menu ifNil:[ ^ nil ].
tabMenuIndex := aTab.
menu receiver:self.
^ menu
! !
!FileApplicationNoteBook methodsFor:'queries'!
getSameFilesModifiedFor:aAppl
| sameFileAppl colOfChanged |
sameFileAppl := self getSameApplicationsFor:aAppl.
sameFileAppl notEmpty ifTrue:[
colOfChanged := OrderedCollection new.
sameFileAppl do:[ : el |
el modifiedChannel value ifTrue:[
colOfChanged add:el.
]
]
].
^ colOfChanged
! !
!FileApplicationNoteBook methodsFor:'selection'!
doSelect:anAppl
| index fileName|
fileName := anAppl fileName.
index := self getIndexFor:anAppl.
self changeFileBrowserTitleTo:(self privateTabList at:index ifAbsent:nil).
self notify:(fileName isNil ifTrue:[nil] ifFalse:[fileName asString]).
"/ self gotoFile:fileName.
index notNil ifTrue:[
canvasHolder value:(anAppl window).
self selectedEditorPage value:index.
]
!
selectedApplication
| canvas |
canvas := self canvasHolder value.
canvas isNil ifTrue:[ ^ nil].
^ canvas application.
! !
!FileApplicationNoteBook methodsFor:'startup & release'!
closeRequest
self tryCloseApplications ifTrue:[
super closeRequest.
^ true
].
^ false.
!
makeDependent
self viewDirectoryDescription addDependent:self.
self currentDirectories addDependent:self.
!
postOpenAsSubcanvasWith:aBuilder
self viewDirectoryDescriptionChanged.
^ super postOpenAsSubcanvasWith:aBuilder.
!
postOpenWith:aBuilder
"
only invoked if the application not started from a master
"
self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
^ super postOpenWith:aBuilder
!
preBuildWith:aBuilder
self masterApplication isNil ifTrue:[
self masterApplication:nil.
].
^ super preBuildWith:aBuilder.
!
tryCloseApplications
self listOfApplications do:[:appl|
appl doClose not ifTrue:[
^ false.
].
].
^ true
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'common options'!
classSelectorFor:aItem
| class mimeType|
aItem hasMimeType ifFalse:[^nil].
mimeType := aItem mimeType.
class := self supportedFiles at:mimeType ifAbsent:nil.
(mimeType = 'application/x-gzip-compressed') ifTrue:[
(aItem lastButOneSuffix = 'tar') ifTrue:[
class := #tarGZipArchive.
].
].
^ class.
!
supportedFiles
| dict |
dict := Dictionary new.
#(
'application/x-tar-compressed' tarGZipArchive
'application/x-tar' tarArchive
'application/x-gzip-compressed' gzipArchive
'application/x-zip-compressed' zipArchive
) pairWiseDo:[ : mimeType :classSelector |
dict at:mimeType put:classSelector.
].
^ dict
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
^ 'Archive for:'
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
flyByHelpSpec
"This resource specification was automatically generated
by the UIHelpTool of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIHelpTool may not be able to read the specification."
"
UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
"
<resource: #help>
^super flyByHelpSpec addPairsFrom:#(
#closeButton
'Close Archiver'
#extractItem
'Extract...'
#removeOutputButton
'Remove Error Output'
#stopButton
'Stop'
)
!
helpSpec
"This resource specification was automatically generated
by the UIHelpTool of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIHelpTool may not be able to read the specification."
"
UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
"
<resource: #help>
^super helpSpec addPairsFrom:#(
#closeButton
'Close Archiver'
#extractItem
'Extract...'
#removeOutputButton
'Remove Error Output'
#stopButton
'Stop'
)
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
extract28x28Icon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the ImageEditor may not be able to read the specification."
"
self extract28x28Icon inspect
ImageEditor openOnClass:self andSelector:#extract28x28Icon
Icon flushCachedIcons
"
<resource: #image>
^Icon
constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class extract28x28Icon'
ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@CQDMDP0@@@@@EUUAP@@L3L3L3@@@ @PUUTA@@@4QCQDL@@BHAAUUPD@@CL3L3L"H"H"DEUU
@P@@MDP4QBH"H"H @@@A@@@3L3L3H"H"H!!DQDQD@@CQDMDP0@@H DP@@@P@@L3L3L3@@@ @Q@ETA@@@4QCQDL@@@@AD@UPD@@CL3L3L0@@@@@@@@@@@@MDP4
QC@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 129 129 129 255 0 0 255 255 255 105 133 190 194 194 194]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G?0@@A?<G? _?A?8G?1_>A?<_? _???8G???>A???? _?G?8G?1_>A?<G? _?@?0G?0@@A?<@@@_?@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
!
removeBug28x28Icon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the ImageEditor may not be able to read the specification."
"
self removeBug28x28Icon inspect
ImageEditor openOnClass:self andSelector:#removeBug28x28Icon
Icon flushCachedIcons
"
<resource: #image>
^Icon
constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeBug28x28Icon'
ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
UUUUUUUUT@@@@@@@@@@@@@@@@@@@B*@@@@@J(@J(@@@@J(@@* @@@J(@@B*@@@J(@@@J(@@J(@@@@* @J(@@@@B(@J+0@@@@J :*+@@@@B*:**,@@@O*****
0@@C:****,@@@N**@@@@@@O*****0@@@>+***<@@@B(N*?0@@@B*@J+0@@@B*@@* @@@B*@@B*@@@B*@@@J(@@B*@@@@* @B*@@@@B*@B*@@@@@J(@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 192 192 192 255 0 0 128 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@O@@C0A8@A8@O@@<@A80^@@O#O0@A>_1@@N/>@@A??0@@??>@G??? BG??8@A??>@G??? @???8@@_?<@@O/>@@G9?D@C83<@A80^@@<@
C0@^@@^@O@@C0@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
!
removeError
"This resource specification was automatically generated
by the ImageEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the ImageEditor may not be able to read the specification."
"
self removeError inspect
ImageEditor openOnClass:self andSelector:#removeError
Icon flushCachedIcons
"
<resource: #image>
^Icon
constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeError'
ifAbsentPut:[(Depth8Image new) width: 28; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@FA @@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A X@@@XF@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@FA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF
@@@FA @@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@A X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#windowSpec
FileApplicationNoteBook::ArchiveViewApplication new openInterface:#windowSpec
FileApplicationNoteBook::ArchiveViewApplication open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'Archive Application'
#name: 'Archive Application'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 692 534)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuArchive'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#menu: #menu
#textDefault: true
)
#(#'FileBrowserV2UISpecifications::PanelSpec'
#name: 'VerticalPanel'
#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
#borderWidth: 1
#whichView: #last
#orientation: #vertical
#visibility: #errorListVisibilityHolder
#component:
#(#SpecCollection
#collection: #(
#(#DataSetSpec
#name: 'Table1'
#model: #selectionHolder
#menu: #fileListMenu
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#dataList: #archiveFileList
#useIndex: false
#has3Dsepartors: false
#doubleClickSelector: #dblClick
#columnHolder: #tableColumns
#multipleSelectOk: true
#verticalSpacing: 0
#postBuildCallback: #postBuildFileTable:
#properties:
#(#PropertyListDictionary
#dropSelector: #doDrop:
#dragArgument: #archivApplication
#startDragSelector: #doStartDrag:in:
#displayObjectSelector: #getDisplayObjects:
#dropObjectSelector: #getDropObjects:
#overSelector: nil
#dropArgument: #archivApplication
#canDropSelector: #canDrop:
#leaveSelector: #dropLeave:
#enterSelector: #dropEnter:
)
)
#(#SequenceViewSpec
#name: 'ErrorList'
#initiallyDisabled: true
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#backgroundColor: #(#Color 100.0 100.0 100.0)
#isMultiSelect: true
#useIndex: false
#sequenceList: #errorListHolder
)
)
)
#handles: #(#Any 0.5 1.0)
)
)
)
)
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
fileListMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#fileListMenu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication fileListMenu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#enabled: #hasListEntriesHolder
#label: 'Select All'
#itemValue: #selectAll
#translateLabel: true
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#enabled: #hasSelectionInList
#label: 'Copy Filenames'
#itemValue: #copyFilesToClipboard
#translateLabel: true
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#enabled: #hasSelectionInList
#label: 'Extract to Directory...'
#itemValue: #extractAll
#translateLabel: true
)
#(#MenuItem
#enabled: #canDelete
#label: 'Delete from Archive'
#itemValue: #removeFilesFromArchiv
#translateLabel: true
#shortcutKey: #Delete
)
#(#MenuItem
#enabled: #canViewFile
#label: 'View Contents'
#itemValue: #viewFile
#translateLabel: true
#isVisible: #isEmbeddedApplication
)
)
nil
nil
)
!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#activeHelpKey: #stopButton
#enabled: #enableStopButton
#label: 'Stop'
#itemValue: #doStopProcess
#nameKey: #Stop
#translateLabel: true
#isButton: true
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)
)
#(#MenuItem
#activeHelpKey: #extractItem
#enabled: #hasListEntriesHolder
#label: 'Extract'
#itemValue: #extractAll
#translateLabel: true
#isButton: true
#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #extract28x28Icon)
)
#(#MenuItem
#activeHelpKey: #removeOutputButton
#enabled: #enableRemoveErrorOutput
#label: 'Remove Output'
#itemValue: #removeErrorOutput
#translateLabel: true
#isButton: true
#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #removeBug28x28Icon)
)
#(#MenuItem
#activeHelpKey: #closeButton
#label: 'Close'
#itemValue: #doClose
#translateLabel: true
#isButton: true
#startGroup: #right
#isVisible: #isEmbeddedApplication
#hideMenuOnActivated: false
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
canOpenItem:aItem
^ (aItem hasMimeType and:[(aItem mimeType isArchive) and:[OperatingSystem isUNIXlike]])
!
wantNewApplicationAnyway
^ false
! !
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
tableColumns
"This resource specification was automatically generated
by the DataSetBuilder of ST/X."
"Do not manually edit this!! If it is corrupted,
the DataSetBuilder may not be able to read the specification."
"
DataSetBuilder new openOnClass:NoteBookApplication::ArchiveViewApplication andSelector:#tableColumns
"
<resource: #tableColumns>
^#(
#(#DataSetColumnSpec
#id: 'icon'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'directory'
#width: 25
#minWidth: 20
#height: 16
#model: #icon
#canSelect: false
#isResizeable: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'File Name'
#id: 'fileName'
#labelAlignment: #left
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'fileName'
#model: #fileName
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Perm'
#id: 'permissions'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'permissions'
#usePreferredWidth: true
#width: 75
#model: #permissions
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Version'
#id: 'version'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'version'
#columnAlignment: #right
#width: 100
#minWidth: 50
#model: #version
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Type'
#id: 'type'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'type'
#columnAlignment: #right
#width: 100
#minWidth: 50
#model: #type
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Owner/Group'
#id: 'ownerGroup'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'ownerGroup'
#columnAlignment: #right
#width: 100
#minWidth: 50
#model: #ownerGroup
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Size'
#id: 'size'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'sizeAsNumber'
#columnAlignment: #right
#width: 80
#model: #size
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Date & Time'
#id: 'dateAndTime'
#labelAlignment: #right
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'dateAndTime'
#columnAlignment: #right
#usePreferredWidth: true
#width: 140
#model: #dateAndTime
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Method'
#id: 'method'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'method'
#columnAlignment: #center
#usePreferredWidth: true
#width: 140
#model: #method
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'CRC'
#id: 'crc'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'crc'
#usePreferredWidth: true
#width: 140
#model: #crc
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Compress Size'
#id: 'compressSize'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'compressSize'
#usePreferredWidth: true
#width: 140
#model: #compressSize
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
#(#DataSetColumnSpec
#label: 'Ratio'
#id: 'ratio'
#labelButtonType: #Button
#labelActionSelector: #sortFileListsBy:
#labelActionArgument: 'ratio'
#usePreferredWidth: true
#width: 140
#model: #ratio
#canSelect: false
#showRowSeparator: false
#showColSeparator: false
)
)
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
archiver
"return the value of the instance variable 'archiver' (automatically generated)"
^ archiver
!
archiver:something
"set the value of the instance variable 'archiver' (automatically generated)"
archiver := something.
!
columnDescriptors
"return the value of the instance variable 'columnDescriptors' (automatically generated)"
^ columnDescriptors
!
columnDescriptors:aListOfColumns
"set the value of the instance variable 'columnDescriptors' (automatically generated)"
columnDescriptors = aListOfColumns ifTrue:[
^ self
].
columnDescriptors := OrderedCollection new.
aListOfColumns keysAndValuesDo:[:anIndex :aDesc| |col|
col := aDesc isSequenceable ifTrue:[DataSetColumnSpec new fromLiteralArrayEncoding:aDesc]
ifFalse:[aDesc].
columnDescriptors add:col.
].
!
item:aItem
"set the value of the instance variable 'item' (automatically generated)"
| classSelector|
super item:aItem.
self removeErrorOutput.
classSelector := self class classSelectorFor:aItem.
(classSelector notNil and:[(Archiver respondsTo:classSelector) notNil]) ifTrue:[
self makeProcessFor:[
self archiver:((Archiver perform:classSelector) with:(self fileName)).
self setColumnsForArchiver.
] with:'setup archiv'.
^ true
].
^ false
!
temporaryDirectory
"return the value of the instance variable 'temporaryDirectory' (automatically generated)"
temporaryDirectory isNil ifTrue:[
temporaryDirectory := Filename newTemporary.
temporaryDirectory makeDirectory.
].
^ temporaryDirectory
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
changeItem:aItem
self item:aItem.
self emptyList.
self listAllFilesFromArchiv.
^ true
!
copyFilesToClipboard
|sel list stream|
sel := self selectionHolder value.
list := self archiveFileList.
(sel notNil and:[sel notEmpty]) ifTrue:[
stream := WriteStream on:''.
sel do:[: key |
stream nextPutAll:(key fileName asString).
stream cr.
].
self window setTextSelection:stream contents.
stream close.
].
!
dblClick
self viewFile.
!
doStopProcess
| archiver |
self stopProcess.
archiver := self archiver.
archiver notNil ifTrue:[
self archiver stopProcess.
].
self enableStopButton value:false.
!
emptyList
self archiveFileList value removeAll.
!
removeErrorOutput
self viewErrorList value:false.
self errorListHolder removeAll.
!
removeTemporaryDirectory
| tmp |
temporaryDirectory notNil ifTrue:[
tmp := self temporaryDirectory.
(FileDirectory directoryNamed:(tmp directory)) removeDirectory:tmp baseName.
temporaryDirectory := nil.
].
!
selectAll
| sel listOfFiles|
sel := OrderedCollection new.
listOfFiles := self archiveFileList value.
1 to:(listOfFiles size) do:[ : el |
sel add:el
].
self selectionHolder value:sel.
!
updateFileBrowserIfPresentWith:aDirectory
| master|
master := self masterApplication.
master notNil ifTrue:[
master updateAndSelect:(OrderedCollection with:aDirectory).
].
!
viewFile
| master item file tempDir|
self canViewFile ifFalse:[^ self].
master := self masterApplication.
self selectionHolder value size = 1 ifFalse:[
Dialog warn:'only one file have to be selected'.
^ self.
].
tempDir := self temporaryDirectory.
self extractSelectedFilesTo:tempDir askForExtractOptions:false.
process notNil ifTrue:[
process waitUntilTerminated.
].
file := tempDir construct:self selectionHolder value first fileName.
file exists ifTrue:[
item := DirectoryContentsBrowser itemClass fileName:file.
].
master notNil ifTrue:[
master openApplByFileItem:item.
].
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
archiveFileList
archiveFileList isNil ifTrue:[
archiveFileList := List new.
archiveFileList addDependent:self.
].
^ archiveFileList.
!
enableRemoveErrorOutput
"return/create the 'enableRemoveErrorOutput' value holder (automatically generated)"
enableRemoveErrorOutput isNil ifTrue:[
enableRemoveErrorOutput := false asValue.
].
^ enableRemoveErrorOutput
!
enableStopButton
enableStopButton isNil ifTrue:[
enableStopButton := false asValue.
].
^ enableStopButton
!
errorListHolder
errorListHolder isNil ifTrue:[
errorListHolder := List new.
].
^ errorListHolder.
!
errorListVisibilityHolder
errorListVisibilityHolder isNil ifTrue:[
errorListVisibilityHolder := false asValue.
].
^ errorListVisibilityHolder
!
hasSelectionInList
| sel |
sel := self selectionHolder value.
^ (sel notNil and:[sel notEmpty])
!
selectionHolder
selectionHolder isNil ifTrue:[
selectionHolder := ValueHolder new.
selectionHolder addDependent:self.
].
^ selectionHolder.
!
tableColumns
tableColumns isNil ifTrue:[
tableColumns := self class tableColumns asValue.
].
^ tableColumns.
!
viewErrorList
"return/create the 'viewErrorList' value holder (automatically generated)"
viewErrorList isNil ifTrue:[
viewErrorList := false asValue.
viewErrorList onChangeSend:#viewErrorListChanged to:self.
].
^ viewErrorList
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
update:something with:aParameter from:changedObject
"Invoked when an object that I depend upon sends a change notification."
"stub code automatically generated - please change as required"
changedObject == self archiveFileList ifTrue:[
self hasListEntriesHolder value:(changedObject notEmpty).
^ self
].
super update:something with:aParameter from:changedObject
!
viewErrorListChanged
| viewListValue|
viewListValue := self viewErrorList value.
self enableRemoveErrorOutput value:viewListValue.
self errorListVisibilityHolder value:viewListValue.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
getErrorBlock
^
[: x |
self viewErrorList value:true.
self errorListHolder value add:x.
]
!
getErrorStream
|errStream|
errStream := ActorStream new.
errStream nextPutLineBlock:(self getErrorBlock).
^ errStream
!
getOutBlock
|firstLineNotReaded key|
firstLineNotReaded := true.
^ [: line |
| words ownerGroup item archiverColumns itemWriter index itemWordCount|
(firstLineNotReaded and:[archiver class hasTitleLine]) ifTrue:[
firstLineNotReaded := false.
]ifFalse:[
words := line asCollectionOfWords.
archiverColumns := archiver class columns.
item := ArchivItem new.
index := 1.
archiverColumns do:[:colDescr |
| itemStream |
itemWordCount := colDescr second.
itemWriter := ((colDescr first) asString, ':') asSymbol.
itemStream := WriteStream on:''.
itemWordCount == #rest ifTrue:[
index to:(words size) do:[:i|
itemStream nextPutAll:(words at:i).
itemStream space.
].
] ifFalse:[
index to:(index + itemWordCount - 1) do:[:i|
itemStream nextPutAll:(words at:i).
itemStream space.
].
index := index + itemWordCount.
].
item perform:itemWriter with:(itemStream contents).
itemStream close.
].
((archiverColumns collect:[:el| el first]) includes:#permissions) ifTrue:[
(item permissions startsWith:$d) ifTrue:[
key := #directory.
item isDirectory:true.
] ifFalse:[
key := MIMETypes mimeTypeForFilename:(item fileName asFilename baseName).
item isDirectory:false.
].
] ifFalse:[
key := MIMETypes mimeTypeForFilename:(item fileName asFilename baseName).
].
item icon:(FileBrowser iconForKeyMatching:key).
self archiveFileList value add:item
].
]
!
getOutStream
|outStream|
outStream := ActorStream new.
outStream nextPutLineBlock:(self getOutBlock).
^ outStream
!
makeProcessFor:aBlock
self makeProcessFor:aBlock with:''
!
makeProcessFor:aBlock with:string
| locBlock |
process notNil ifTrue:[
process waitUntilTerminated.
terminateByMe ifTrue:[
terminateByMe := false.
^ self
].
].
locBlock := [ [
self notify:string.
aBlock value.
self notify:''.
] valueNowOrOnUnwindDo:[
process := nil.
self enableStopButton value:false.
]
].
process := locBlock newProcess.
process priority:(Processor systemBackgroundPriority).
process name:'ArchiveApplicationProcess'.
self enableStopButton value:true.
process resume.
!
setColumnsForArchiver
| newColumns archiverColumns allColumns iconColumn|
archiverColumns := archiver class columns collect:[:el| el first].
allColumns := OrderedCollection new.
newColumns := OrderedCollection new.
self class tableColumns do:[:el|
allColumns add:(DataSetColumnSpec new fromLiteralArrayEncoding:el).
].
iconColumn := allColumns detect:[: col | (col id asSymbol) = #icon] ifNone:[nil].
iconColumn notNil ifTrue:[
newColumns add:iconColumn.
].
allColumns do:[:col|
(archiverColumns includes:(col id asSymbol)) ifTrue:[
newColumns add:col.
].
].
self tableColumns value:newColumns.
self columnDescriptors:(self tableColumns value).
!
stopProcess
|task|
terminateByMe := true.
(task := process) notNil ifTrue:[
process := nil.
Object errorSignal handle:[:ex|
Dialog warn:ex description.
]do:[
task isDead ifFalse:[
task terminateWithAllSubprocessesInGroup.
task waitUntilTerminated.
]
]
].
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command helper'!
selectDirectoryDialog
| dir directory haveDirectory|
directory := self fileName directory.
haveDirectory := false.
[haveDirectory] whileFalse:[
dir := Dialog requestDirectoryName:'Which directory ?' default:dir.
dir isEmpty ifTrue:[ ^ nil].
dir := dir asFilename.
(dir isExecutable not or:[dir isWritable not]) ifTrue:[
Dialog warn:'cant write to: ', dir asString.
].
haveDirectory := true.
].
^ dir
!
selectDirectoryDialog:message
| dir directory haveDirectory answer|
directory := dir := self fileName directory.
haveDirectory := false.
[haveDirectory] whileFalse:[
dir := Dialog requestDirectoryName:message default:dir.
dir isEmpty ifTrue:[ ^ nil].
dir := dir asFilename.
dir exists ifFalse:[
answer := Dialog confirm:('Directory %1 does not exist. Create ?' bindWith:dir asString).
answer isNil ifTrue:[
^ nil
].
answer ifTrue:[
dir makeDirectory.
dir exists ifFalse:[
Dialog warn:('Cannot create directory %1' bindWith: dir asString).
]
].
].
dir exists ifTrue:[
(dir isExecutable not or:[dir isWritable not]) ifTrue:[
Dialog warn:('Cannot write into directory %1' bindWith:dir asString).
] ifFalse:[
haveDirectory := true.
].
].
].
^ dir
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
addFilesToArchiv:colOfFiles
self archiver outStream:nil errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver addFilesToArchiv:colOfFiles.
] with:'add Files to archiv'.
(self archiver class == Archiver zipArchive) ifTrue:[
self listAllFilesFromArchiv.
] ifFalse:[
self listFilesFromArchiv:colOfFiles.
].
^ true.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
extractAll
self extractSelectedFilesTo:nil withSelection:#all
!
extractSelectedFilesTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
self extractSelectedFilesTo:aDirectory withSelection:#selection askForExtractOptions:askForExtractOptionsBoolean
!
extractSelectedFilesTo:aDirectory withSelection:selectOrAll
self extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:true.
!
extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:askForExtractOptionsBoolean
| dir|
aDirectory isNil ifTrue:[
dir := self selectDirectoryDialog:'Extract into which directory ?'.
dir isNil ifTrue:[^ self].
] ifFalse:[
dir := aDirectory.
].
selectOrAll == #all ifTrue:[
self extractAllTo:dir.
].
selectOrAll == #selection ifTrue:[
self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean
].
"/ self updateFileBrowserIfPresentWith:dir.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
extractAllTo:aDirectory
self archiver outStream:nil errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver extractTo:aDirectory.
] with:'extract all files'.
^ true.
!
extractSelectionTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
| sel index extractWithDirectoryPart extractAllFilesInSelectedDirectories extractFiles|
extractWithDirectoryPart := true.
extractAllFilesInSelectedDirectories := false.
sel := self selectionHolder value.
(sel isNil or:[sel isEmpty]) ifTrue:[
sel := self archiveFileList value.
].
sel := sel do:[:item|
item fileName: item fileName
].
(askForExtractOptionsBoolean and:[self archiver class ~= Archiver zipArchive]) ifTrue:[
extractFiles := self selRemoveFilesForDirs:sel.
] ifFalse:[
extractFiles := sel.
].
askForExtractOptionsBoolean ifTrue:[
index := extractFiles findFirst:[: el | el hasDirectoryPart].
index ~= 0 ifTrue:[
extractWithDirectoryPart := (Dialog confirmWithCancel:'Extract with directory part?' default:true).
extractWithDirectoryPart isNil ifTrue:[^ false].
].
].
extractWithDirectoryPart ifTrue:[
self extractWithDirectoryPartTo:aDirectory with:extractFiles.
] ifFalse:[
self extractWithOutDirectoryPartTo:aDirectory with:extractFiles.
].
^ true
!
extractWithDirectoryPartTo:aDirectory with:extractFiles
self archiver outStream:nil errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver extractTo:aDirectory with:extractFiles.
] with:('extract Files to ', aDirectory asString).
^ true.
!
extractWithOutDirectoryPartTo:aDirectory with:extractFiles
self archiver outStream:nil errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver extractWithOutDirectoryTo:aDirectory
with:(extractFiles collect:[:item| item fileName]).
] with:('extract Files to ', aDirectory asString).
^ true.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
listAllFilesFromArchiv
self archiveFileList value removeAll.
self listFilesFromArchiv:nil
!
listFilesFromArchiv:newColOfFiles
process notNil ifTrue:[
process waitUntilTerminated.
].
self archiver outStream:(self getOutStream) errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver listFilesFromArchiv:newColOfFiles.
] with:'list Files'.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
removeFilesFromArchiv
| sel realSel list firtsPre stringCol stringRealSel|
sel := self selectionHolder value.
stringCol := sel collect:[: item| item fileName].
firtsPre := stringCol at:1.
stringCol from:2 do:[:el|
firtsPre := firtsPre commonPrefixWith:el.
].
list := self archiveFileList value.
realSel := OrderedCollection new.
list do:[:item|
((item fileName) startsWith:firtsPre) ifTrue:[
realSel add:item.
].
].
stringRealSel := realSel collect:[: item| item fileName].
self archiver outStream:nil errorStream:(self getErrorStream) synchron:true.
self makeProcessFor:[
self archiver removeFilesFromArchiv:stringCol.
] with:'remove files'.
self archiveFileList value removeAllFoundIn:realSel
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
canDrop:aContext
^ inDropMode
!
doDrop:aContext
|col source arg objects|
source := aContext dropSource.
arg := source argument.
objects := aContext dropObjects.
col := OrderedCollection new.
objects do:[:obj|
col add:(obj theObject).
].
^ self addFilesToArchiv:col.
!
doStartDrag:aDropSource in:aView
"set the cursors before starting the drag & drop operation
"
|hdl sel|
archiver class canDragnDrop ifFalse:[^ self].
sel := self selectionHolder value.
hdl := DragAndDropManager new.
hdl disabledCursor:AbstractFileBrowser disabledCursorImage.
hdl enabledCursor:AbstractFileBrowser enabledCursorImage.
hdl alienCursor:nil.
hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
!
dropEnter:aContext
| dropedObjects|
inDropMode := false.
(aContext dropSource receiver == self) ifTrue:[^ self].
dropedObjects := aContext dropObjects.
dropedObjects do:[:aObject| |checkObject checkObjectString|
aObject isFileObject ifFalse:[^ self].
checkObject := aObject theObject.
checkObject isFilename not ifTrue:[^ self].
checkObject isSpecialFile ifTrue:[^ self].
].
inDropMode := true.
!
dropLeave:aContext
inDropMode := false.
!
getDisplayObjects:anArgument
| sel string size fnName stream|
sel := self selectionHolder value.
size := sel size.
size == 0 ifTrue:[^ ''].
stream := WriteStream on:''.
stream nextPutAll:(sel first fileName asFilename baseName asString).
size == 1 ifTrue:[
fnName := 'ui_menuitem.xpm'.
] ifFalse:[
fnName := 'ui_submenu_open.xpm'.
stream nextPutAll:' ... '.
stream nextPutAll:(sel last fileName asFilename baseName asString).
].
string := stream contents.
stream close.
^ Array with:(LabelAndIcon icon:(Image fromFile:fnName)
string:(Text string:string emphasis:#bold)
)
!
getDropObjects:anArgument
| sel ret|
sel := self selectionHolder value.
ret := sel collect:[:el|
DropObject newFile:(el fileName asFilename)
].
^ ret
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
processEvent:anEvent
"filter keyboard events.
Return true, if I have eaten the event"
|focusView key rawKey|
anEvent isKeyPressEvent ifTrue:[
focusView := anEvent targetView.
key := anEvent key.
rawKey := anEvent rawKey.
(focusView isSameOrComponentOf:self window) ifTrue:[
"/ (key ~= #'Alt_L') ifTrue:[self halt.].
(key == #Delete) ifTrue:[
self removeFilesFromArchiv.
^ true
].
]
].
^ false
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
postBuildFileTable:aWidget
fileTable := aWidget scrolledView.
fileTable wantsFocusWithPointerEnter.
"/ FileBrowser icons keysAndValuesDo:[:aKey :anIcon|
"/ fileTable registerImage:anIcon key:aKey.
"/ ].
self columnDescriptors:(self class tableColumns).
!
postOpenWith:aBuilder
| currentDir contents suffix fileName file archivItem|
self windowGroup addPreEventHook:self.
self masterApplication isNil ifTrue:[
self masterApplication:nil.
currentDir := Filename homeDirectory.
contents := currentDir directoryContents.
fileName := contents detect:[: file |
suffix := file asFilename suffix asLowercase.
suffix = 'tgz'
] ifNone:[nil].
fileName isNil ifTrue:[
Dialog warn:'cant find a Zip file in ', currentDir asString.
^ self
].
file := currentDir construct:fileName.
archivItem := DirectoryContentsBrowser itemClass fileName:file.
(self item:archivItem) ifFalse:[
Dialog warn:'file type of ', item fileName asString, ' not supported'.
^ self.
].
].
self listAllFilesFromArchiv.
^ super postOpenWith:aBuilder.
!
release
self archiver release.
^ super release.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
archivType
| file firstsuffix secondsuffix|
file := self fileName.
firstsuffix := file withoutSuffix suffix.
secondsuffix := file suffix.
(secondsuffix = 'tgz' or:[firstsuffix = 'tar' and:[secondsuffix = 'gz']]) ifTrue:[
^ #tarFileCompressed
].
(secondsuffix = 'tar') ifTrue:[
^ #tarFile
].
(secondsuffix = 'gz') ifTrue:[
^ #gzipFile
].
(secondsuffix = 'zip') ifTrue:[
^ #zipFile
].
!
canDelete
^ (self hasOneSelectionInList and:[archiver class canRemoveFiles])
!
canViewFile
^ self archiver class canViewFile and:[self hasOneSelectionInList]
!
hasListEntriesHolder
"return/create the 'hasListEntriesHolder' value holder (automatically generated)"
hasListEntriesHolder isNil ifTrue:[
hasListEntriesHolder := false asValue.
].
^ hasListEntriesHolder
!
hasOneSelectionInList
| sel |
sel := self selectionHolder value.
^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
!
selRemoveFilesForDirs:aSel
|stringCol newSel string|
stringCol := (aSel collect:[: item| item fileName]).
newSel := aSel copy.
aSel do:[:item |
item isDirectory ifTrue:[
string := item fileName.
stringCol doWithIndex:[:filename : index|
(filename ~= string and:[filename startsWith:string]) ifTrue:[
newSel remove:(aSel at:index) ifAbsent:[nil].
]
]
].
].
^ newSel.
! !
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
generateSortBlock:instanceName
| aSymbol cmpOp sortCaselessLocal|
aSymbol := instanceName asSymbol.
sortCaselessLocal := self sortCaseless value.
currentSortOrder isNil ifTrue:[
currentSortOrder := aSymbol.
currentSortOrder := Dictionary new.
currentSortOrder at:#column put:aSymbol.
currentSortOrder at:#reverse put:false.
currentSortOrder at:#sortCaseless put:sortCaselessLocal.
] ifFalse:[
(currentSortOrder at:#column) = aSymbol ifTrue:[
"/ same column like before - change sort order
| isReverse |
isReverse := currentSortOrder at:#reverse.
currentSortOrder at:#reverse put:(isReverse not).
] ifFalse:[
"/ another column - remark column
currentSortOrder at:#column put:aSymbol.
]
].
(currentSortOrder at:#reverse) ifTrue:[
cmpOp := #'>'
] ifFalse:[
cmpOp := #'<'
].
^ [:a :b |
|entry1 entry2|
entry1 := (a perform:aSymbol).
entry2 := (b perform:aSymbol).
aSymbol = #fileName ifTrue:[
sortCaselessLocal ifTrue:[
entry1 := entry1 asString asLowercase.
entry2 := entry2 asString asLowercase.
] ifFalse:[
entry1 := entry1 asString.
entry2 := entry2 asString.
].
].
entry1 perform:cmpOp with:entry2
].
!
sortList:instanceName
|sortBlock fileList sortCol|
sortBlock := self generateSortBlock:instanceName.
fileList := self archiveFileList value.
sortCol := SortedCollection sortBlock:sortBlock.
sortCol addAll:fileList.
fileList removeAll.
fileList addAll:sortCol.
! !
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
compressSize
"return the value of the instance variable 'compressSize' (automatically generated)"
^ compressSize
!
compressSize:something
"set the value of the instance variable 'compressSize' (automatically generated)"
compressSize := something.
!
crc
"return the value of the instance variable 'crc' (automatically generated)"
^ crc
!
crc:something
"set the value of the instance variable 'crc' (automatically generated)"
crc := something.
!
dateAndTime
"return the value of the instance variable 'dateAndTime' (automatically generated)"
^ dateAndTime
!
dateAndTime:something
"set the value of the instance variable 'dateAndTime' (automatically generated)"
dateAndTime := something.
!
fileName
"return the value of the instance variable 'fileName' (automatically generated)"
^ fileName
!
fileName:something
"set the value of the instance variable 'fileName' (automatically generated)"
fileName := something withoutSpaces.
!
icon
"return the value of the instance variable 'icon' (automatically generated)"
^ icon
!
icon:something
"set the value of the instance variable 'icon' (automatically generated)"
icon := something.
!
isDirectory
"return the value of the instance variable 'directory' (automatically generated)"
^ isDirectory
!
isDirectory:something
"set the value of the instance variable 'isDirectory' (automatically generated)"
isDirectory := something.
!
method
"return the value of the instance variable 'method' (automatically generated)"
^ method
!
method:something
"set the value of the instance variable 'method' (automatically generated)"
method := something.
!
ownerGroup
"return the value of the instance variable 'owner' (automatically generated)"
^ ownerGroup
!
ownerGroup:something
"set the value of the instance variable 'owner' (automatically generated)"
ownerGroup := something.
!
permissions
"return the value of the instance variable 'permissions' (automatically generated)"
^ permissions
!
permissions:something
"set the value of the instance variable 'permissions' (automatically generated)"
permissions := something.
!
ratio
"return the value of the instance variable 'ratio' (automatically generated)"
^ ratio
!
ratio:something
"set the value of the instance variable 'ratio' (automatically generated)"
ratio := something.
!
size
"return the value of the instance variable 'size' (automatically generated)"
^ size
!
size:something
"set the value of the instance variable 'size' (automatically generated)"
size := something.
!
sizeAsNumber
"return the value of the instance variable 'size' (automatically generated)"
^ size asInteger
!
type
"return the value of the instance variable 'type' (automatically generated)"
^ type
!
type:something
"set the value of the instance variable 'type' (automatically generated)"
type := something.
!
version
"return the value of the instance variable 'version' (automatically generated)"
^ version
!
version:something
"set the value of the instance variable 'version' (automatically generated)"
version := something.
! !
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
printString
^ self fileName asString
! !
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
hasDirectoryPart
^ self fileName asFilename components size ~= 1
! !
!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
tabStringFor:aApplicationType
^ 'Execution result'
!
wantNewApplicationAnyway
^ false
! !
!FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#windowSpec
FileApplicationNoteBook::CommandResult new openInterface:#windowSpec
FileApplicationNoteBook::CommandResult open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'NoteBookApplication::CommandResult'
#name: 'NoteBookApplication::CommandResult'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 220 193 723 546)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'ToolBar1'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#menu: #menu
#textDefault: true
)
#(#ArbitraryComponentSpec
#name: 'ArbitraryComponent1'
#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1)
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#hasBorder: false
#component: #TextCollector
#postBuildCallback: #postBuildTextCollector:
)
#(#ProgressIndicatorSpec
#name: 'ProgressIndicator1'
#layout: #(#LayoutFrame 125 0 11 0 231 0 21 0)
#visibilityChannel: #enableStopButton
#backgroundColor: #(#Color 0.0 66.9993 66.9993)
#showPercentage: false
#isActivityIndicator: true
)
)
)
)
! !
!FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::CommandResult menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Stop'
#translateLabel: true
#isButton: true
#nameKey: #Stop
#value: #doStopProcess
#enabled: #enableStopButton
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon 'Stop')
)
#(#MenuItem
#label: 'Close'
#translateLabel: true
#isButton: true
#nameKey: #Close
#isVisible: #isEmbeddedApplication
#startGroup: #right
#value: #doClose
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
resultStream
"return the value of the instance variable 'resultStream' (automatically generated)"
^ resultStream
!
resultStream:something
"set the value of the instance variable 'resultStream' (automatically generated)"
resultStream := something.
! !
!FileApplicationNoteBook::CommandResult methodsFor:'actions'!
changeTabTo:aString
| masterApplication |
masterApplication := self masterApplication.
masterApplication isNil ifFalse:[
masterApplication tabStringChangeTo:aString for:self.
].
!
doStopProcess
| myProcess |
myProcess := self process value.
myProcess notNil ifTrue:[
self notify:('kill ', myProcess name).
myProcess terminate.
].
! !
!FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
enableStopButton
enableStopButton isNil ifTrue:[
enableStopButton := false asValue.
].
^ enableStopButton
!
process
"return/create the 'process' value holder (automatically generated)"
process isNil ifTrue:[
process := ValueHolder new.
process addDependent:self.
].
^ process
! !
!FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
update:something with:aParameter from:changedObject
"Invoked when an object that I depend upon sends a change notification."
"stub code automatically generated - please change as required"
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 resultStream:aBuilder scrolledView.
!
postBuildWith:aBuilder
"This is a hook method generated by the Browser.
It will be invoked during the initialization of your app/dialog,
after all of the visual components have been built,
but BEFORE the top window is made visible.
Add any app-specific actions here (reading files, setting up values etc.)
See also #postOpenWith:, which is invoked after opening."
"/ add any code here ...
^ super postBuildWith:aBuilder
!
postOpenWith:aBuilder
"This is a hook method generated by the Browser.
It will be invoked right after the applications window has been opened.
Add any app-specific actions here (starting background processes etc.).
See also #postBuildWith:, which is invoked before opening."
"/ add any code here ...
self masterApplication isNil ifTrue:[
self masterApplication:nil.
].
^ super postOpenWith:aBuilder
!
release
self doStopProcess.
^ super release
! !
!FileApplicationNoteBook::CommandResult methodsFor:'printing'!
printString
^ 'CommandResult Application'
! !
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
^ 'HTML View for:'
! !
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#windowSpec
FileApplicationNoteBook::HtmlViewApplication new openInterface:#windowSpec
FileApplicationNoteBook::HtmlViewApplication open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'NoteBookApplication::HtmlView'
#name: 'NoteBookApplication::HtmlView'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 692 534)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuHtml'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#visibilityChannel: #isEmbeddedApplication
#menu: #menu
#textDefault: true
)
#(#ArbitraryComponentSpec
#name: 'HTMLView'
#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1)
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#miniScrollerHorizontal: false
#miniScrollerVertical: false
#hasBorder: false
#component: #HTMLDocumentView
#postBuildCallback: #postBuildHtmlView:
)
#(#LabelSpec
#label: 'FileLabel'
#name: 'FileLabel'
#layout: #(#LayoutFrame 212 0 2 0 -73 1 30 0)
#level: -1
#translateLabel: true
#labelChannel: #labelHolder
#adjust: #left
)
)
)
)
! !
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Reload'
#translateLabel: true
#isButton: true
#value: #doReload
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #htmlReloadIcon)
)
#(#MenuItem
#label: 'Back'
#translateLabel: true
#isButton: true
#value: #doGoBack
#labelImage: #(#ResourceRetriever #Icon #leftIcon)
)
#(#MenuItem
#label: 'Print'
#translateLabel: true
#isButton: true
#value: #doPrint
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #printer22x22Icon)
)
#(#MenuItem
#label: 'Close'
#translateLabel: true
#isButton: true
#hideMenuOnActivated: false
#startGroup: #right
#value: #doClose
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
canOpenItem:aItem
^ (aItem hasMimeType and:[aItem mimeType isHtml])
!
wantNewApplicationAnyway
^ false
! !
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
htmlView
"return the value of the instance variable 'imageView' (automatically generated)"
^ htmlView
!
htmlView:something
"set the value of the instance variable 'imageView' (automatically generated)"
htmlView := something.
!
item:aItem
|retVal|
self labelHolder value:aItem fileName asString.
retVal := super item:aItem.
self setupHtmlView.
^ retVal
! !
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
doGoBack
self htmlView menu_back.
!
doGoHome
self htmlView menu_home.
!
doHelp
self htmlView menu_help.
!
doPrint
self htmlView menu_print.
!
doReload
self htmlView menu_reload.
!
setupHtmlView
| html file directory|
html := self htmlView.
html isNil ifTrue:[^ self].
file := self fileName.
directory := file directoryName.
html homeDocument:(file asString).
html setTopDirectoryName:directory.
html uriHolder:self labelHolder.
html infoHolder:self notifyChannel.
html linkButtonPanel:nil.
^ html
! !
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
labelHolder
labelHolder isNil ifTrue:[
labelHolder := '' asValue.
].
^ labelHolder.
! !
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
postBuildHtmlView:aWidget
self htmlView: aWidget scrolledView.
self htmlView wantsFocusWithPointerEnter.
!
postOpenWith:aBuilder
"
only invoked if the application not started from a master
"
|currentDir contents suffix fileName|
self masterApplication isNil ifTrue:[
self masterApplication:nil.
currentDir := Filename homeDirectory.
contents := currentDir directoryContents.
fileName := contents
detect:[:file |
suffix := file asFilename suffix asLowercase.
suffix = 'html'
]
ifNone:[nil].
fileName isNil ifTrue:[
Dialog warn:'cant find a HTML file in ' , currentDir asString.
^ self
].
self item:(DirectoryContentsBrowser itemClass fileName:('../../doc/online/english/TOP.html' asFilename asAbsoluteFilename)).
].
self setupHtmlView.
^ super postOpenWith:aBuilder
! !
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
^ 'Image for:'
! !
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
fitSize20x20Icon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the ImageEditor may not be able to read the specification."
"
self fitSize20x20Icon inspect
ImageEditor openOnClass:self andSelector:#fitSize20x20Icon
"
<resource: #image>
^Icon
constantNamed:#'FileApplicationNoteBook::ImageViewApplication class fitSize20x20Icon'
ifAbsentPut:[(Depth4Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@DQDQDQDQDP@@@PDQDQDQDQ@P@A@ADQDQDQDP@PD@@PDQDQDPD@@QDQ@ADQDQ@@DQDQD@@@@@@@@@DQDQDPQDQDQ@DQDQDQDDQUUTPADQDQDQAEUUUT@QDQ
DQDPQEUUQ@DQDQDQDDQFQDPADQDQDQADQ$QD@QDQDQDPL3X3Q@DQDQDQDCL3L3LADQDQD@@@@@@@@@DQDQD@DQDQDP@QDQ@@DADQDQDA@@DA@ADQDQDQDP@P
@@@QDQDQDQDA@@@ADQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0 0 137 0 174 218 230 0 206 0 133 60 36]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8@A00@@0(@APE@J@C@L@G?>@A?8@A?8@A?8@A?8@A?8@A?8@A?8@A?8@G?>@C@L@E@J@(@AP0@@08@A0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
! !
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#windowSpec
FileApplicationNoteBook::ImageViewApplication new openInterface:#windowSpec
FileApplicationNoteBook::ImageViewApplication open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'ImageViewer'
#name: 'ImageViewer'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 692 534)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuImage'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#visibilityChannel: #isEmbeddedApplication
#menu: #menu
#textDefault: true
)
#(#ArbitraryComponentSpec
#name: 'ImageView'
#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#miniScrollerHorizontal: false
#miniScrollerVertical: false
#hasBorder: false
#component: #ImageView
#postBuildCallback: #postBuildImageView:
)
)
)
)
! !
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Edit'
#itemValue: #editImage
#nameKey: #EditImage
#translateLabel: true
#isButton: true
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#activeHelpKey: #fitSize
#label: 'FitSize'
#translateLabel: true
#isButton: true
#triggerOnDown: true
#indication: #fitSize
#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ImageViewApplication' #fitSize20x20Icon)
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Close'
#itemValue: #doClose
#translateLabel: true
#isButton: true
#startGroup: #right
#hideMenuOnActivated: false
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
canOpenItem:aItem
^ (aItem hasMimeType and:[aItem mimeType isImage])
!
wantNewApplicationAnyway
^ false
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
image:something
"set the value of the instance variable 'image' (automatically generated)"
image := something.
self updateImageInfo.
!
imageView
"return the value of the instance variable 'imageView' (automatically generated)"
^ imageView
!
imageView:something
"set the value of the instance variable 'imageView' (automatically generated)"
imageView := something.
!
updateImageInfo
|fn msg|
image notNil ifTrue:[
fn := image fileName.
fn isNil ifTrue:[
fn := 'unnamed'
] ifFalse:[
fn := fn asFilename baseName.
].
msg := '%1 %2x%3 depth:%4'
bindWith:fn allBold
with:image width
with:image height
with:image depth.
].
self notify:msg.
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
changeItem:aItem
self item:aItem.
self setupImageView.
^ true
!
editImage
|img|
img := self image.
img notNil ifTrue:[
img edit.
].
!
image
|img fn e|
fn := self fileName.
img := Image fromFile:fn.
img isNil ifTrue:[
fn exists ifTrue:[
e := 'Unknown/unsupported image format'
] ifFalse:[
e := 'No such image'
].
Dialog warn:e.
^ nil
].
^ img.
!
setupImageView
|img oldCursor|
[
oldCursor := imageView cursor .
imageView cursor:Cursor wait.
img := self image.
img notNil ifTrue:[
self image:img.
imageView image:img
].
imageView cursor:oldCursor.
] fork.
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
fitSize
"return/create the 'fitSize' value holder (automatically generated)"
fitSize isNil ifTrue:[
fitSize := ValueHolder new.
fitSize addDependent:self.
].
^ fitSize
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
update:something with:aParameter from:changedObject
changedObject == self fitSize ifTrue:[
changedObject value ifTrue:[
imageView adjust:#fitBig.
] ifFalse:[
imageView adjust:nil.
].
^ self
].
super update:something with:aParameter from:changedObject
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'!
postBuildImageView:aWidget
self imageView: aWidget scrolledView.
self imageView wantsFocusWithPointerEnter.
!
postOpenWith:aBuilder
"
only invoked if the application not started from a master
"
|currentDir contents suffix fileName|
self masterApplication isNil ifTrue:[
self masterApplication:nil.
currentDir := Filename currentDirectory.
contents := currentDir directoryContents.
fileName := contents
detect:[:file |
suffix := file asFilename suffix asLowercase.
Image isImageFileSuffix:suffix
]
ifNone:[nil].
fileName isNil ifTrue:[
Dialog warn:'cant find a Image in ' , currentDir asString.
^ self
].
self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
].
self setupImageView.
^ super postOpenWith:aBuilder
! !
!FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
tabStringFor:aApplicationType
^ 'Terminal'
! !
!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::Terminal andSelector:#windowSpec
FileApplicationNoteBook::Terminal new openInterface:#windowSpec
FileApplicationNoteBook::Terminal open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'Terminal'
#name: 'Terminal'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 692 534)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuTerminal'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#menu: #menu
#textDefault: true
)
#(#ArbitraryComponentSpec
#name: 'TerminalView'
#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#miniScrollerHorizontal: false
#miniScrollerVertical: false
#hasBorder: false
#component: #terminalView
)
)
)
)
! !
!FileApplicationNoteBook::Terminal class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::Terminal andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::Terminal menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Save'
#translateLabel: true
#isButton: true
#nameKey: #Save
#value: #saveAs
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #saveToFile28x22Icon)
)
#(#MenuItem
#label: 'Close'
#translateLabel: true
#isButton: true
#hideMenuOnActivated: false
#isVisible: #isEmbeddedApplication
#startGroup: #right
#value: #doClose
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::Terminal methodsFor:'accessing'!
terminalView
terminalView isNil ifTrue:[
terminalView := VT100TerminalView new.
].
^ terminalView.
! !
!FileApplicationNoteBook::Terminal methodsFor:'actions'!
saveAs
self terminalView save.
! !
!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
postBuildWith:aBuilder
^ super postBuildWith:aBuilder
!
shellFinished
| master text string|
master := self masterApplication.
master notNil ifTrue:[
string := ' - closed'.
master tabStringAdd:string for:self.
].
self notify:'shell in ' , self fileName asString, ' finished'.
terminalView cr.
text := '>> shell closed' asText allBold.
text colorizeAllWith:Color red.
terminalView nextPutAll:text.
!
startShell
|vt100|
vt100 := self terminalView.
vt100 shellTerminateAction:[ self shellFinished ].
vt100 startShellIn:(self fileName).
! !
!FileApplicationNoteBook::Terminal methodsFor:'printing'!
printString
^ ('Terminal on:', self fileName baseName)
! !
!FileApplicationNoteBook::Terminal methodsFor:'queries'!
getTabStringEnd
" get the tab string from the application list on the class side "
^ ''
! !
!FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
postOpenWith:aBuilder
"
only invoked if the application not started from a master
"
self masterApplication isNil ifTrue:[
self masterApplication:nil.
self item:(DirectoryContentsBrowser itemClass fileName:(Filename currentDirectory asAbsoluteFilename)).
].
self startShell.
^ super postOpenWith:aBuilder.
! !
!FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
tabStringFor:aApplicationType
aApplicationType == #directoryDescription ifTrue:[
^ 'Directory description for:'
] ifFalse:[
^ 'Editor on:'
].
!
wantNewApplicationAnyway
^ false
! !
!FileApplicationNoteBook::TextEditor class methodsFor:'interface - specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
FileApplicationNoteBook::TextEditor open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'TextEditor'
#name: 'TextEditor'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 666 342)
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuTextEditor'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#menu: #menu
#textDefault: true
)
#(#TextEditorSpec
#name: 'TextEditor'
#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1.0)
#model: #fileContentsModel
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#modifiedChannel: #viewModifiedChannel
#acceptCallBack: #accept
#allowDoIt: true
#postBuildCallback: #postBuildTextEditor:
)
)
)
)
! !
!FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Save'
#translateLabel: true
#isButton: true
#nameKey: #Save
#value: #accept
#enabled: #enableSave
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #saveToFile28x22Icon)
)
#(#MenuItem
#label: 'Reload'
#translateLabel: true
#isButton: true
#nameKey: #Reload
#value: #reload
#enabled: #enableReload
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #reloadFromFile28x22Icon)
)
#(#MenuItem
#label: ''
)
#(#MenuItem
#label: 'Print'
#translateLabel: true
#isButton: true
#nameKey: #Print
#value: #doPrint
#enabled: #enableHexToggle
#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #printer22x22Icon)
)
#(#MenuItem
#label: ''
)
#(#MenuItem
#label: 'Hex'
#translateLabel: true
#isButton: true
#enabled: #enableHexToggle
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #hexToggle22x22Icon)
#indication: #printAsHexDump
)
#(#MenuItem
#label: ''
)
#(#MenuItem
#label: 'Diff to Current'
#translateLabel: true
#isButton: true
#value: #openDiffView
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #diffIcon)
)
#(#MenuItem
#label: 'Close'
#translateLabel: true
#isButton: true
#hideMenuOnActivated: false
#isVisible: #isEmbeddedApplication
#startGroup: #right
#value: #doClose
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
item:aDirContentsItem
self item = aDirContentsItem ifTrue:[^ true].
self stopChangeItemProcess.
super item:aDirContentsItem.
(self askForChange) isNil ifTrue:[ ^ false].
self setContents ifFalse:[ ^ false].
self startChangeItemProcess.
^ true
!
presentation
"return the value of the instance variable 'presentation' (automatically generated)"
presentation isNil ifTrue:[
presentation := #asText.
].
^ presentation
!
presentation:something
"set the value of the instance variable 'presentation' (automatically generated)"
presentation := something.
!
semaChangeItem
semaChangeItem isNil ifTrue:[
semaChangeItem := Semaphore forMutualExclusion.
].
^ semaChangeItem
! !
!FileApplicationNoteBook::TextEditor methodsFor:'actions'!
accept
| dir |
self masterApplication class openAnotherApplicationOnSameItem ifTrue:[
self updateSameFiles ifFalse:[ ^ self ].
].
dir := self fileName directory.
dir exists not ifTrue:[
dir recursiveMakeDirectory.
].
editView saveAs:(self fileName).
self notify:self fileName asString, ' saved'.
self semaChangeItem critical:[
textEditorChangeModificationTime := nil.
self itemChanged value:false.
].
self modifiedChannel value:false.
self itemRemoved value:false.
!
askForChange
"ask for save changes
"
|answer string|
answer := false.
self modifiedChannel value ifTrue:[
self itemChanged value ifTrue:[
string := self fileName asString allBold , ' was changed by someone else'
, Character cr , 'Save your changes anyway ?'
].
self itemRemoved value ifTrue:[
string := self fileName asString allBold , ' was removed by someone else'
, Character cr , 'Save your changes anyway ?'
].
string isNil ifTrue:[
string := 'Save changed file ' , self fileName asString , ' ?'
]
].
string notNil ifTrue:[
answer := (Dialog confirmWithCancel:string).
answer isNil ifTrue:[^ answer].
answer == true ifTrue:[
self accept
] ifFalse:[
self setContents.
]
].
^ answer
!
changeInformation
| stream |
stream := WriteStream with:(self getTabString).
masterApplication isNil ifTrue:[
self window label:stream contents.
] ifFalse:[
masterApplication tabStringChangeTo:stream contents for:self.
].
stream close.
!
changeInformationForModified:aSymbol
masterApplication isNil ifTrue:[ ^ self].
masterApplication changeModified:aSymbol for:self.
!
doClose
(self askForChange) isNil ifTrue:[ ^ false].
self masterApplication notNil ifTrue:[
^ super doClose
].
^ true
!
doPrint
"print the contents
"
(Dialog confirm:'Print contents of editView ?') ifTrue:[
editView doPrint.
].
!
getContents
|file contents present text string|
file := self fileName.
RecursionInterruptSignal handle:[ : ex |
Dialog warn:file asString, ' is too big to be loaded !!'.
^ nil.
] do:[
present := self presentation.
present == #asText ifTrue:[
contents := file contents.
] ifFalse:[
present == #hexDump ifTrue:[
contents := self getFileHexContents:file.
]
]
].
string := contents asString.
text := Text fromString:string.
^ text
!
getHashForContents
| hashStream string|
(self hasMD5 and:[editView notNil]) ifTrue:[
hashStream := MD5Stream new.
string := editView contents asString.
hashStream nextPut:(string string).
^ hashStream hashValue.
].
^ nil
!
openDiffView
|diffView text1 l1 text2 l2|
text1 := editView contents asText.
l1 := 'changed version'.
text2 := self getContents.
l2 := 'current version'.
diffView := DiffTextView openOn:text1 label:l1 and:text2 label:l2.
diffView topView label:'file differences of ', self fileName asString.
!
reload
self setContents.
!
searchForPattern:aContentsPattern ignoreCase:ign
| pattern |
pattern := aContentsPattern string withoutSeparators. "/ is that a good idea ?
pattern notEmpty ifTrue:[
editView rememberSearchPattern:pattern.
editView searchFwd:pattern ignoreCase:ign.
]
!
setContents
| text|
text := self getContents.
text isNil ifTrue:[ ^ false].
self fileContentsModel value:text.
self hasMD5 ifTrue:[
md5CheckSum := self getHashForContents.
].
self enableReload value:false.
self itemChanged value:false.
self modifiedChannel value:false.
^ true
!
updateSameFiles
| master modifiedApplications stream filename action|
master := self masterApplication.
master notNil ifTrue:[
modifiedApplications := master getSameFilesModifiedFor:self.
(modifiedApplications isNil or:[modifiedApplications isEmpty]) ifTrue:[^ true ].
filename := self fileName asString.
stream := WriteStream on:''.
stream nextPutAll:filename.
stream nextPutAll:' is modified in tab'.
modifiedApplications size > 1 ifTrue:[
stream nextPutAll:'s'.
].
stream cr.
modifiedApplications do:[ : el |
stream space.
stream nextPutAll:filename.
stream space.
el sameFileIndex notNil ifTrue:[
stream nextPutAll:el sameFileIndex asString.
].
stream cr.
].
stream nextPutAll:'forget changes on other tab'.
modifiedApplications size > 1 ifTrue:[
stream nextPutAll:'s'.
].
stream nextPutAll:' ?'.
action := Dialog
choose:stream contents
labels:#('cancel' 'no' 'yes')
values:#(#cancel #no #yes)
default:#cancel.
stream close.
action == #cancel ifTrue:[ ^ false ].
action == #yes ifTrue:[
"/ here force reload for other applications
modifiedApplications do:[ : el |
el reload.
]
].
].
^ true.
! !
!FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
doSaveFile
doSaveFile isNil ifTrue:[
doSaveFile := ValueHolder new.
].
^ doSaveFile.
!
enableHexToggle
enableHexToggle isNil ifTrue:[
enableHexToggle := true asValue.
].
^ enableHexToggle
!
enableReload
enableReload isNil ifTrue:[
enableReload := false asValue.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/ enableReload addDependent:self.
"/ enableReload onChangeSend:#enableReloadChanged to:self.
].
^ enableReload.
!
enableSave
enableSave isNil ifTrue:[
enableSave := false asValue.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/ enableSave addDependent:self.
"/ enableSave onChangeSend:#enableSaveChanged to:self.
].
^ enableSave.
!
fileContentsModel
fileContentsModel isNil ifTrue:[
fileContentsModel := ValueHolder new.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/ fileContentsModel addDependent:self.
"/ fileContentsModel onChangeSend:#fileContentsModelChanged to:self.
].
^ fileContentsModel.
!
itemChanged
itemChanged isNil ifTrue:[
itemChanged := false asValue.
itemChanged addDependent:self.
].
^ itemChanged
!
itemRemoved
itemRemoved isNil ifTrue:[
itemRemoved := false asValue.
itemRemoved addDependent:self.
].
^ itemRemoved
!
modifiedChannel
modifiedChannel isNil ifTrue:[
modifiedChannel := false asValue.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
modifiedChannel addDependent:self.
"/ modifiedChannel onChangeSend:#modifiedChannelChanged to:self.
].
^ modifiedChannel.
!
printAsHexDump
printAsHexDump isNil ifTrue:[
printAsHexDump := false asValue.
printAsHexDump addDependent:self.
].
^ printAsHexDump.
!
viewModifiedChannel
viewModifiedChannel isNil ifTrue:[
viewModifiedChannel := false asValue.
viewModifiedChannel addDependent:self.
].
^ viewModifiedChannel.
! !
!FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
changeTextColorForChanged
|text|
text := editView contents asText.
self itemChanged value ifTrue:[
self fileContentsModel
value:(text emphasizeAllWith:UserPreferences current emphasisForChangedCode).
[editView flash] fork.
] ifFalse:[
self fileContentsModel value:text.
].
self fileContentsModel changed:#value.
!
itemModified
| modified outDated removed|
modified := self modifiedChannel value.
outDated := self itemChanged value.
removed := self itemRemoved value.
((modified or:[outDated]) or:[removed]) ifTrue:[
modified ifTrue:[
self changeInformationForModified:#modified.
].
outDated ifTrue:[
self changeInformationForModified:#outDated.
].
removed ifTrue:[
self changeInformationForModified:#removed.
].
] ifFalse:[
self changeInformationForModified:#unchanged.
].
self enableReload value:((modified or:[outDated]) and:[removed not]).
!
update:something with:aParameter from:changedObject
"Invoked when an object that I depend upon sends a change notification."
"stub code automatically generated - please change as required"
|modified itemRem contMd5CheckSum viewModified|
changedObject == self viewModifiedChannel ifTrue:[
viewModified := changedObject value.
self hasMD5 ifTrue:[
self viewModifiedChannel value:false withoutNotifying:self.
viewModified ifTrue:[
(self itemRemoved value not and:[self itemChanged value not]) ifTrue:[
contMd5CheckSum := self getHashForContents.
contMd5CheckSum = md5CheckSum ifTrue:[
self modifiedChannel value:false.
^ self.
].
]
].
].
self modifiedChannel value:viewModified.
].
changedObject == self modifiedChannel ifTrue:[
modified := changedObject value.
self hasMD5 not ifTrue:[
self viewModifiedChannel value:modified withoutNotifying:self.
].
self enableSave value:modified.
self itemModified.
^ self
].
changedObject == self itemRemoved ifTrue:[
itemRem := changedObject value.
itemRem == true ifTrue:[
self enableSave value:true.
].
self enableHexToggle value:itemRem not.
self itemModified.
^ self
].
changedObject == self itemChanged ifTrue:[
self changeTextColorForChanged.
self itemModified.
"/ changedObject value == true ifTrue:[
"/ self enableSave value:true.
"/ ].
^ self
].
changedObject == self printAsHexDump ifTrue:[
(self askForChange) isNil ifTrue:[
self printAsHexDump value:changedObject value not withoutNotifying:self.
^ self
].
changedObject value ifTrue:[
self presentation:#hexDump.
] ifFalse:[
self presentation:#asText.
].
self changeInformation.
self setContents.
(self presentation == #hexDump) ifTrue:[
editView readOnly:true.
] ifFalse:[
editView readOnly:false.
].
^ self
].
super update:something with:aParameter from:changedObject
! !
!FileApplicationNoteBook::TextEditor methodsFor:'printing'!
printString
^ ('TextEditor for:', self fileName baseName)
! !
!FileApplicationNoteBook::TextEditor methodsFor:'privat-process'!
checkMyItemForChanges
| dir exist myItem|
dir := self fileName directory.
myItem := self item.
exist := myItem exists.
self itemRemoved value:(exist not).
exist ifTrue:[
self semaChangeItem critical:[
| time info|
info := self fileName asAbsoluteFilename info.
time := info modificationTime.
textEditorChangeModificationTime isNil ifTrue:[
textEditorChangeModificationTime := time.
].
((textEditorChangeModificationTime = time) not) ifTrue:[
"/ contents changed by someone else
textEditorChangeModificationTime := time.
self notify:item fileName asString, ' was changed by someone else'.
self itemChanged value:true.
].
]
]
!
getFileHexContents:f
|fileName stream data offs
addrDigits col line lineStream asciiLineStream lines|
fileName := f baseName.
f isDirectory ifTrue:[
^ Dialog warn:(resources string:'%1 is a directory.' with:fileName).
].
f exists ifFalse:[
Dialog warn:(resources string:'oops, ''%1'' is gone or unreadable.' with:fileName).
^ self
].
f isReadable ifFalse:[
Dialog warn:(resources string:'''%1'' is unreadable.' with:fileName).
^ self
].
f fileSize > (512*1024) ifTrue:[
(Dialog confirm:'Warning: the file is big (', (f fileSize//1024) printString , 'Kb). Show anyway ?')
ifFalse:[
^ self
]
].
stream := f readStream binary.
data := stream contents.
stream close.
"/ subView list:nil.
col := 1.
offs := 0.
lines := StringCollection new.
addrDigits := ((f fileSize + 1) log:16) truncated + 1.
lineStream := '' writeStream.
asciiLineStream := '' writeStream.
lineStream nextPutAll:(offs hexPrintString:addrDigits).
lineStream nextPutAll:': '.
data do:[:byte |
lineStream nextPutAll:(byte hexPrintString:2).
(byte between:32 and:127) ifTrue:[
asciiLineStream nextPut:(Character value:byte)
] ifFalse:[
asciiLineStream nextPut:$.
].
offs := offs + 1.
col := col + 1.
col > 16 ifTrue:[
lineStream nextPutAll:' '.
lineStream nextPutAll:asciiLineStream contents.
lines add:(lineStream contents).
(offs bitAnd:16rFF) == 0 ifTrue:[
lines add:nil
].
lineStream reset.
asciiLineStream reset.
lineStream nextPutAll:(offs hexPrintString:addrDigits).
lineStream nextPutAll:': '.
col := 1.
] ifFalse:[
lineStream space
]
].
line := lineStream contents paddedTo:(3*16 + addrDigits + 1).
lines add:(line , ' ' , asciiLineStream contents).
^ lines
!
startChangeItemProcess
changeItemProcess isNil ifTrue:[
self itemRemoved value:false.
self itemChanged value:false.
changeItemProcess := Process for:[ [ [true] whileTrue:[
self checkMyItemForChanges.
Delay waitForSeconds:5
]
] valueNowOrOnUnwindDo:[
changeItemProcess := nil.
textEditorChangeModificationTime := nil.
]
]
priority:(Processor systemBackgroundPriority).
changeItemProcess name:('TextEditorLookForModify[', self fileName baseName, ']').
changeItemProcess resume.
].
!
stopChangeItemProcess
| task |
task := changeItemProcess.
task notNil ifTrue:[
changeItemProcess := nil.
Object errorSignal handle:[:ex|
Dialog warn:ex description.
]do:[
task isDead ifFalse:[
task terminate.
task waitUntilTerminated.
]
]
].
! !
!FileApplicationNoteBook::TextEditor methodsFor:'queries'!
hasMD5
^ ( MD5Stream notNil and:[MD5Stream isLoaded])
"/ ^ false
!
isModified
^ self modifiedChannel value
!
isTextEditor
^ true
! !
!FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
closeRequest
(self doClose) ifTrue:[
^ super closeRequest.
^ self stopChangeItemProcess.
].
!
postBuildTextEditor:aWidget
editView := aWidget scrolledView.
!
postBuildWith:aBuilder
super postBuildWith:aBuilder.
!
postOpenWith:aBuilder
self masterApplication isNil ifTrue:[
self masterApplication:nil.
self item:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
].
self setUpTextView.
self changeInformation.
^ super postOpenWith:aBuilder
!
release
"release my resources
"
self stopChangeItemProcess.
super release.
!
setUpTextView
|paranthesis col|
self item notNil ifTrue:[
self item hasMimeType ifFalse:[^nil].
(self item mimeType isHtml) ifTrue:[
paranthesis := editView parenthesisSpecification copy.
((paranthesis at:#open) includes:$<) ifFalse:[
col := ((paranthesis at:#open) asOrderedCollection).
col add:$<.
paranthesis at:#open put:col.
editView parenthesisSpecification:paranthesis
].
].
]
! !
!FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
maxNumberOfVNCRestarts
^ 10
!
mimeTypeUnixApplicationMapping
" here insert the application and mime type pairs to open by XviewApplication
"
^
#(
#(#'application/postscript' #gv )
#(#'application/pdf' #acroread )
)
!
tabStringFor:aApplicationType
^ 'VNC for:'
!
unixVNCCommand
^ 'Xvnc'
!
wantNewApplicationAnyway
^ true
! !
!FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileApplicationNoteBook::XViewApplication andSelector:#windowSpec
FileApplicationNoteBook::XViewApplication new openInterface:#windowSpec
FileApplicationNoteBook::XViewApplication open
"
<resource: #canvas>
^
#(#FullSpec
#name: #windowSpec
#window:
#(#WindowSpec
#label: 'XView'
#name: 'XView'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
#bounds: #(#Rectangle 16 42 692 534)
#menu: #mainMenu
)
#component:
#(#SpecCollection
#collection: #(
#(#MenuPanelSpec
#name: 'MenuVNC'
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
#level: 0
#visibilityChannel: #isEmbeddedApplication
#menu: #menu
#textDefault: true
)
#(#ArbitraryComponentSpec
#name: 'VNCView'
#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
#hasHorizontalScrollBar: true
#hasVerticalScrollBar: true
#miniScrollerHorizontal: false
#miniScrollerVertical: false
#hasBorder: false
#component: #VNCFrameBufferView
#postBuildCallback: #postBuildXView:
)
)
)
)
! !
!FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
menu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:NoteBookApplication::ImageViewApplication andSelector:#menu
(Menu new fromLiteralArrayEncoding:(NoteBookApplication::ImageViewApplication menu)) startUp
"
<resource: #menu>
^
#(#Menu
#(
#(#MenuItem
#label: 'Close'
#translateLabel: true
#isButton: true
#hideMenuOnActivated: false
#startGroup: #right
#value: #doClose
#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
)
)
nil
nil
)
! !
!FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
canOpenItem:aItem
| keySym canOpen|
keySym := aItem mimeType asSymbol.
(OperatingSystem isUNIXlike) not ifTrue:[^ false].
canOpen := self mimeTypeUnixApplicationMapping detect:[ : el | (el at:1) == keySym ] ifNone:[nil].
canOpen isNil ifTrue:[^ false].
(OperatingSystem executeCommand:('which ', self unixVNCCommand)) ifTrue:[
^ true
] ifFalse:[
(Dialog warn:'cant start viewer for '
, aItem fileName baseName
)
].
^ false.
! !
!FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
xView
"return the value of the instance variable 'imageView' (automatically generated)"
^ xView
!
xView:something
"set the value of the instance variable 'imageView' (automatically generated)"
xView := something.
! !
!FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
changeInformation
| stream|
stream := WriteStream on:''.
stream nextPutAll:'XView on: '.
stream nextPutAll:self fileName baseName.
masterApplication isNil ifTrue:[
self window label:stream contents.
] ifFalse:[
masterApplication tabStringChangeTo:stream contents for:self.
].
stream close.
!
setupXView
|xExt yExt mainView|
self startVNCserver.
xExt := self xView width asString.
self masterApplication notNil ifTrue:[
mainView := self builder windowGroup mainView.
"/ if the mainView is a FileBrowser take them y extent because size of notebook can be changed
(mainView application class == (Smalltalk at:#FileBrowserV2 ifAbsent:nil)) notNil ifTrue:[
yExt := mainView height asString.
].
].
yExt isNil ifTrue:[
yExt := self xView height asString.
].
ext := xExt, 'x', yExt.
self startViewer.
! !
!FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
setupView
| renderer view|
view := xView.
renderer := VNCRenderer for:vncConnection targetWindow:view device:xView device.
view renderer:renderer.
view connection:vncConnection.
VNCException handle:[:ex|
self stopViewer.
] do:[
vncConnection
startMessageHandlerProcessForRenderer:renderer
errorHandler:[:ex | self stopViewer].
].
!
startVNCserver
|cmd blocked connected numberOfVncStarts|
connected := false.
numberOfVncStarts isNil ifTrue:[
numberOfVncStarts := 1.
] ifFalse:[
numberOfVncStarts := numberOfVncStarts + 1.
].
vncLock isNil ifTrue:[vncLock := Semaphore forMutualExclusion].
vncServerPID isNil ifTrue:[
cmd := ('/usr/X11R6/bin/', self class unixVNCCommand).
cmd asFilename exists ifFalse:[
cmd := self class unixVNCCommand.
].
vncPortNr isNil ifTrue:[
vncPortNr := 29
].
cmd := cmd , ' :' , vncPortNr printString , ' nologo -nevershared -localhost -depth 16 -geometry 1024x1024'.
blocked := OperatingSystem blockInterrupts.
vncServerPID := Processor
monitor:[
vncServerIsTerminated := false.
OperatingSystem
exec:'/bin/sh'
withArguments:(Array with:'sh' with:'-c' with:cmd)
fileDescriptors:#()
closeDescriptors:#()
fork:true
newPgrp:true
inDirectory:nil.
]
action:[:status |
status stillAlive ifFalse:[
OperatingSystem closePid:vncServerPID.
vncLock critical:[
vncServerPID := nil.
self vncServerTerminated.
].
].
].
blocked ifFalse:[
OperatingSystem unblockInterrupts
].
].
self waitForTerminationOfServer ifTrue:[
"/ Transcript showCR:'server has terminated really - try with next port'.
(numberOfVncStarts < self class maxNumberOfVNCRestarts) ifTrue:[
vncPortNr := vncPortNr + 1.
"/ Transcript showCR:'try next port ', vncPortNr asString.
self startVNCserver.
] ifFalse:[
Dialog warn:'have started servers from port '
, (vncPortNr - self class maxNumberOfVNCRestarts) asString
, ' to '
, vncPortNr
, ' - cant connect anyway'.
"/ Transcript showCR:'have started servers from port ', vncPortNr - self class maxNumberOfVNCRestarts, ' to ', vncPortNr.
].
] ifFalse:[
vncLock critical:[
vncServerPID isNil ifTrue:[
Dialog warn:'Cannot start Xvnc'.
] ifFalse:[
VNCAuthenticationFailure handle:[:ex |
Dialog warn:'Wrong password'.
] do:[
connected := self vncConnect.
].
connected ifTrue:[self setupView].
].
].
].
!
stopVNCServer
vncServerPID notNil ifTrue:[
OperatingSystem terminateProcess:vncServerPID.
Delay waitForSeconds:0.2.
vncServerPID notNil ifTrue:[
OperatingSystem killProcess:vncServerPID.
vncServerPID := nil.
].
].
self vncServerTerminated.
!
vncConnect
| tryConnects|
vncConnection notNil ifTrue:[
vncConnection close
].
vncConnection := VNCServerConnection new.
tryConnects := 1.
[tryConnects < 3] whileTrue:[
VNCConnectionFailure handle:[:ex |
Delay waitForSeconds:0.5.
tryConnects := tryConnects + 1.
] do:[
vncConnection connectTo:'localhost' port:vncPortNr.
^ true.
].
].
^ false
!
vncServerTerminated
"/ Transcript showCR:'vnc server has terminated'.
"/ 'vnc server has terminated' errorPrintCR.
"/ Dialog information:'vnc server has terminated'.
self stopViewer.
vncConnection notNil ifTrue:[
vncConnection close.
vncConnection := nil
].
vncServerIsTerminated := true.
!
waitForTerminationOfServer
| cycles |
cycles := 1.
[vncServerIsTerminated] whileFalse:[
(cycles > 3) ifTrue:[^ false].
cycles := cycles + 1.
Delay waitForSeconds:0.5.
].
^ true
! !
!FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
startViewer
|cmd keySym applItem |
keySym := self item mimeType asSymbol.
applItem := self class mimeTypeUnixApplicationMapping detect:[ : el | (el at:1) == keySym ] ifNone:[nil].
applItem isNil ifTrue:[ ^ self].
cmd := (applItem at:2) asString, ' -geometry ', ext, ' -display :' , vncPortNr printString , ' ' , self fileName asString.
self startViewer:cmd
!
startViewer:viewerCommand
|blocked|
viewerPID notNil ifTrue:[
^ self
].
blocked := OperatingSystem blockInterrupts.
viewerPID := Processor
monitor:[
OperatingSystem
exec:'/bin/sh'
withArguments:(Array with:'sh' with:'-c' with:viewerCommand)
fileDescriptors:#()
closeDescriptors:#()
fork:true
newPgrp:true
inDirectory:nil.
]
action:[:status |
status stillAlive ifFalse:[
OperatingSystem closePid:viewerPID.
viewerPID := nil.
self viewerTerminated.
].
].
blocked ifFalse:[
OperatingSystem unblockInterrupts
].
viewerPID isNil ifTrue:[
Dialog warn:'Cannot start ', viewerCommand.
].
!
startXterm
|cmd|
cmd := 'xterm -geometry 600x800 -display :' , vncPortNr printString.
self startViewer:cmd
!
stopViewer
viewerPID notNil ifTrue:[
OperatingSystem terminateProcess:viewerPID.
Delay waitForSeconds:0.2.
viewerPID notNil ifTrue:[
OperatingSystem killProcess:viewerPID.
viewerPID := nil.
]
].
!
viewerTerminated
"/ 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 xView wantsFocusWithPointerEnter.
aWidget autoHideScrollBars:true.
!
postOpenWith:aBuilder
"
only invoked if the application not started from a master
"
|currentDir contents suffix fileName|
self masterApplication isNil ifTrue:[
self masterApplication:nil.
currentDir := Filename homeDirectory.
contents := currentDir directoryContents.
fileName := contents
detect:[:file |
suffix := file asFilename suffix asLowercase.
suffix = 'pdf'
]
ifNone:[nil].
fileName isNil ifTrue:[
Dialog warn:'cant find a PDF File in ' , currentDir asString.
^ self
].
self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName)).
].
self changeInformation.
self setupXView.
^ super postOpenWith:aBuilder
!
release
"/Transcript showCR:'release'.
self stopViewer.
self stopVNCServer.
^ super release
! !
!FileApplicationNoteBook class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.58 2003-02-06 17:20:52 cg Exp $'
! !