hg/stx-libtool: FileApplicationNoteBook.st@62bac7ad7d0c (annotated)

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	6	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	11	"
3892 321c1729db5b initial checkin penk parents: diff changeset	12	"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin penk parents: diff changeset	13
321c1729db5b initial checkin penk parents: diff changeset	14	AbstractFileBrowser subclass:#FileApplicationNoteBook
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	15	instanceVariableNames:'canvasHolder selectedEditorPage listOfApplications tabMenuIndex
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	16	tabList selectionHistoryList privateTabList'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	17	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	18	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	19	category:'Interface-Tools-File'
3892 321c1729db5b initial checkin penk parents: diff changeset	20	!
321c1729db5b initial checkin penk parents: diff changeset	21
321c1729db5b initial checkin penk parents: diff changeset	22	AbstractFileApplicationNoteBookComponent subclass:#ArchiveViewApplication
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	23	instanceVariableNames:'archiveFileList enableStopButton fileTable currentSortOrder
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	24	selectionHolder tableColumns commandProcess errorListHolder
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	25	viewErrorList temporaryDirectory enableRemoveErrorOutput
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	26	errorListVisibilityHolder hasListEntriesHolder archiver process
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	27	terminateByMe columnDescriptors inDropMode'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	28	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	29	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	30	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	31	!
321c1729db5b initial checkin penk parents: diff changeset	32
321c1729db5b initial checkin penk parents: diff changeset	33	Object subclass:#ArchivItem
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	34	instanceVariableNames:'fileName size dateAndTime permissions icon ownerGroup method crc
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	35	compressSize ratio version type isDirectory'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	36	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	37	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	38	privateIn:FileApplicationNoteBook::ArchiveViewApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	39	!
321c1729db5b initial checkin penk parents: diff changeset	40
321c1729db5b initial checkin penk parents: diff changeset	41	AbstractFileApplicationNoteBookComponent subclass:#CommandResult
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	42	instanceVariableNames:'resultStream enableStopButton process labelHolder'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	43	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	44	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	45	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	46	!
321c1729db5b initial checkin penk parents: diff changeset	47
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	48	AbstractFileApplicationNoteBookComponent subclass:#DigitalNotepadFileViewApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	49	instanceVariableNames:'imageView image fitSize fitMode'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	50	classVariableNames:''
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	51	poolDictionaries:''
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	52	privateIn:FileApplicationNoteBook
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	53	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	54
3892 321c1729db5b initial checkin penk parents: diff changeset	55	AbstractFileApplicationNoteBookComponent subclass:#HtmlViewApplication
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	56	instanceVariableNames:'htmlView labelHolder infoLabelHolder'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	57	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	58	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	59	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	60	!
321c1729db5b initial checkin penk parents: diff changeset	61
321c1729db5b initial checkin penk parents: diff changeset	62	AbstractFileApplicationNoteBookComponent subclass:#ImageViewApplication
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	63	instanceVariableNames:'imageFile imageView image fitSize fitMode'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	64	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	65	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	66	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	67	!
321c1729db5b initial checkin penk parents: diff changeset	68
321c1729db5b initial checkin penk parents: diff changeset	69	AbstractFileApplicationNoteBookComponent subclass:#Terminal
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	70	instanceVariableNames:'terminalView'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	71	classVariableNames:'DefaultLineLimit'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	72	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	73	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	74	!
321c1729db5b initial checkin penk parents: diff changeset	75
321c1729db5b initial checkin penk parents: diff changeset	76	AbstractFileApplicationNoteBookComponent subclass:#TextEditor
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	77	instanceVariableNames:'fileContentsModel modifiedChannel editView enableSave
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	78	enableReload presentation changeItemProcess closeApplication
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	79	semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	80	itemRemoved enableHexToggle md5CheckSum
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	81	md5HashValueComputationProcess viewModifiedChannel
5717 f2ec29a73239 do not ask again about encoding penk parents: 5705 diff changeset	82	textEditorModificationTime checkModifiedBlock fileEncodingHolder
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	83	doNotShowFontDialog lockFileEncodingHolder enableSelectInBrowser'
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	84	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	85	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	86	privateIn:FileApplicationNoteBook
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	87	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	88
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	89	AbstractFileApplicationNoteBookComponent subclass:#XMLViewApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	90	instanceVariableNames:'xmlTreeApp labelHolder infoLabelHolder'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	91	classVariableNames:''
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	92	poolDictionaries:''
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	93	privateIn:FileApplicationNoteBook
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	94	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	95
3892 321c1729db5b initial checkin penk parents: diff changeset	96	AbstractFileApplicationNoteBookComponent subclass:#XViewApplication
5431 8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	97	instanceVariableNames:'xView xFile vncServerPID vncPortNr vncConnection viewerPID
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	98	vncLock vncServerIsTerminated xItem ext'
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	99	classVariableNames:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	100	poolDictionaries:''
8f9d5cb9ebc7 save in texteditor penk parents: 5430 diff changeset	101	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	102	!
321c1729db5b initial checkin penk parents: diff changeset	103
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	104	!FileApplicationNoteBook class methodsFor:'documentation'!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	105
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	106	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	107	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	108	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	109	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	110
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	111	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	112	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	113	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	114	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	115	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	116	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	117	"
5968 a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	118	!
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	119
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	120	documentation
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	121	"
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	122	[Author:]
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	123	Christian Penk
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	124	"
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	125	! !
3892 321c1729db5b initial checkin penk parents: diff changeset	126
321c1729db5b initial checkin penk parents: diff changeset	127	!FileApplicationNoteBook class methodsFor:'application list'!
321c1729db5b initial checkin penk parents: diff changeset	128
321c1729db5b initial checkin penk parents: diff changeset	129	applicationList
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	130	" returns a list of all applications to start by the NoteBookApplication with
3892 321c1729db5b initial checkin penk parents: diff changeset	131	#className #type
321c1729db5b initial checkin penk parents: diff changeset	132
321c1729db5b initial checkin penk parents: diff changeset	133	example:
321c1729db5b initial checkin penk parents: diff changeset	134	#( #'FooEditor' nil )
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	135	"
3892 321c1729db5b initial checkin penk parents: diff changeset	136
321c1729db5b initial checkin penk parents: diff changeset	137	^ #(
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	138	#( #'TextEditor' #file )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	139	#( #'TextEditor' #directoryDescription )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	140	#( #'HtmlViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	141	#( #'FindFileApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	142	#( #'Terminal' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	143	#( #'ImageViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	144	#( #'ArchiveViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	145	#( #'CommandResult' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	146	#( #'XViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	147	#( #'DigitalNotepadFileViewApplication' nil )
9788 675dca9b2692 changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9786 diff changeset	148	"/ #( #'XMLViewApplication' nil )
3892 321c1729db5b initial checkin penk parents: diff changeset	149	)
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	150
9788 675dca9b2692 changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9786 diff changeset	151	"Modified: / 21-02-2011 / 17:21:54 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	152	!
321c1729db5b initial checkin penk parents: diff changeset	153
321c1729db5b initial checkin penk parents: diff changeset	154	classFor:aApplicationListItem
321c1729db5b initial checkin penk parents: diff changeset	155	\|rawName cls\|
321c1729db5b initial checkin penk parents: diff changeset	156
321c1729db5b initial checkin penk parents: diff changeset	157	rawName := aApplicationListItem at:1.
321c1729db5b initial checkin penk parents: diff changeset	158	(cls := self privateClassesAt:rawName) isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	159	cls := Smalltalk at:rawName.
321c1729db5b initial checkin penk parents: diff changeset	160	].
321c1729db5b initial checkin penk parents: diff changeset	161	^ cls
321c1729db5b initial checkin penk parents: diff changeset	162	!
321c1729db5b initial checkin penk parents: diff changeset	163
321c1729db5b initial checkin penk parents: diff changeset	164	defaultApplication
321c1729db5b initial checkin penk parents: diff changeset	165	" returns the application to be started if no itemQuery returns true or no supportedSuffix is supported
321c1729db5b initial checkin penk parents: diff changeset	166	"
321c1729db5b initial checkin penk parents: diff changeset	167
321c1729db5b initial checkin penk parents: diff changeset	168	^ self applicationList detect:[: applItem\|
321c1729db5b initial checkin penk parents: diff changeset	169	(((self classFor:applItem) == self textEditorClass)
321c1729db5b initial checkin penk parents: diff changeset	170	and:[(self typeFor:applItem) == #file])
321c1729db5b initial checkin penk parents: diff changeset	171	] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	172	!
321c1729db5b initial checkin penk parents: diff changeset	173
321c1729db5b initial checkin penk parents: diff changeset	174	typeFor:aApplicationListItem
321c1729db5b initial checkin penk parents: diff changeset	175
321c1729db5b initial checkin penk parents: diff changeset	176	^ aApplicationListItem at:2
321c1729db5b initial checkin penk parents: diff changeset	177	! !
321c1729db5b initial checkin penk parents: diff changeset	178
321c1729db5b initial checkin penk parents: diff changeset	179	!FileApplicationNoteBook class methodsFor:'classAccess'!
321c1729db5b initial checkin penk parents: diff changeset	180
321c1729db5b initial checkin penk parents: diff changeset	181	textEditorClass
321c1729db5b initial checkin penk parents: diff changeset	182
321c1729db5b initial checkin penk parents: diff changeset	183	^ TextEditor
321c1729db5b initial checkin penk parents: diff changeset	184	! !
321c1729db5b initial checkin penk parents: diff changeset	185
321c1729db5b initial checkin penk parents: diff changeset	186	!FileApplicationNoteBook class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	187
321c1729db5b initial checkin penk parents: diff changeset	188	openAnotherApplicationOnSameItem
321c1729db5b initial checkin penk parents: diff changeset	189
321c1729db5b initial checkin penk parents: diff changeset	190	^ false
321c1729db5b initial checkin penk parents: diff changeset	191	! !
321c1729db5b initial checkin penk parents: diff changeset	192
321c1729db5b initial checkin penk parents: diff changeset	193	!FileApplicationNoteBook class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	194
321c1729db5b initial checkin penk parents: diff changeset	195	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	196	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	197	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	198
321c1729db5b initial checkin penk parents: diff changeset	199	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	200	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	201
321c1729db5b initial checkin penk parents: diff changeset	202	"
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	203	UIPainter new openOnClass:FileApplicationNoteBook andSelector:#windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	204	FileApplicationNoteBook new openInterface:#windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	205	FileApplicationNoteBook open
3892 321c1729db5b initial checkin penk parents: diff changeset	206	"
321c1729db5b initial checkin penk parents: diff changeset	207
321c1729db5b initial checkin penk parents: diff changeset	208	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	209
321c1729db5b initial checkin penk parents: diff changeset	210	^
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	211	#(FullSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	212	name: windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	213	window:
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	214	(WindowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	215	label: 'FileBrowserV2TextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	216	name: 'FileBrowserV2TextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	217	min: (Point 10 10)
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	218	bounds: (Rectangle 0 0 300 300)
3892 321c1729db5b initial checkin penk parents: diff changeset	219	)
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	220	component:
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	221	(SpecCollection
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	222	collection: (
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	223	(NoteBookViewSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	224	name: 'CommandAndTextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	225	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	226	model: selectedEditorPage
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	227	menu: tabList
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	228	useIndex: true
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	229	accessTabMenuAction: tabMenuAt:
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	230	"/ destroyTabAction: destroyTab:
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	231	canvas: canvasHolder
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	232	keepCanvasAlive: true
3892 321c1729db5b initial checkin penk parents: diff changeset	233	)
321c1729db5b initial checkin penk parents: diff changeset	234	)
321c1729db5b initial checkin penk parents: diff changeset	235
321c1729db5b initial checkin penk parents: diff changeset	236	)
321c1729db5b initial checkin penk parents: diff changeset	237	)
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	238
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	239	"Modified: / 01-03-2007 / 21:30:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	240	! !
321c1729db5b initial checkin penk parents: diff changeset	241
321c1729db5b initial checkin penk parents: diff changeset	242	!FileApplicationNoteBook class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	243
321c1729db5b initial checkin penk parents: diff changeset	244	tabMenu
321c1729db5b initial checkin penk parents: diff changeset	245	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	246	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	247
321c1729db5b initial checkin penk parents: diff changeset	248	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	249	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	250
321c1729db5b initial checkin penk parents: diff changeset	251	"
321c1729db5b initial checkin penk parents: diff changeset	252	MenuEditor new openOnClass:FileApplicationNoteBook andSelector:#tabMenu
321c1729db5b initial checkin penk parents: diff changeset	253	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook tabMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	254	"
321c1729db5b initial checkin penk parents: diff changeset	255
321c1729db5b initial checkin penk parents: diff changeset	256	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	257
321c1729db5b initial checkin penk parents: diff changeset	258	^
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	259	#(Menu
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	260	(
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	261	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	262	label: 'Add Text Editor'
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	263	itemValue: newTextEditor
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	264	translateLabel: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	265	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	266	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	267	label: '-'
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	268	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	269	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	270	label: 'Select in Filelist'
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	271	itemValue: doSelectInList
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	272	translateLabel: true
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	273	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	274	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	275	label: '-'
5186 040b261bb5d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5160 diff changeset	276	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	277	(MenuItem
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	278	label: 'Rename Tab...'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	279	itemValue: doRenameTab
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	280	translateLabel: true
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	281	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	282	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	283	label: '-'
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	284	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	285	(MenuItem
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	286	label: 'Close Tab'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	287	itemValue: doCloseApplication
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	288	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	289	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	290	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	291	enabled: closeAllApplicationsEnabled
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	292	label: 'Close all Tabs'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	293	itemValue: doCloseAllApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	294	translateLabel: true
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	295	)
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	296	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	297	enabled: closeAllApplicationsEnabled
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	298	label: 'Close all but this Tab'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	299	itemValue: doCloseAllOtherApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	300	translateLabel: true
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	301	)
3892 321c1729db5b initial checkin penk parents: diff changeset	302	)
321c1729db5b initial checkin penk parents: diff changeset	303	nil
321c1729db5b initial checkin penk parents: diff changeset	304	nil
321c1729db5b initial checkin penk parents: diff changeset	305	)
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	306
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	307	"Modified: / 27-03-2007 / 11:13:52 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	308	! !
321c1729db5b initial checkin penk parents: diff changeset	309
321c1729db5b initial checkin penk parents: diff changeset	310	!FileApplicationNoteBook methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	311
321c1729db5b initial checkin penk parents: diff changeset	312	listOfApplications
321c1729db5b initial checkin penk parents: diff changeset	313	"return the value of the instance variable 'listOfApplications' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	314
321c1729db5b initial checkin penk parents: diff changeset	315	listOfApplications isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	316	listOfApplications := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	317	].
321c1729db5b initial checkin penk parents: diff changeset	318	^ listOfApplications
321c1729db5b initial checkin penk parents: diff changeset	319	!
321c1729db5b initial checkin penk parents: diff changeset	320
321c1729db5b initial checkin penk parents: diff changeset	321	selectionHistoryList
321c1729db5b initial checkin penk parents: diff changeset	322
321c1729db5b initial checkin penk parents: diff changeset	323	selectionHistoryList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	324	selectionHistoryList := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	325	].
321c1729db5b initial checkin penk parents: diff changeset	326	^ selectionHistoryList
321c1729db5b initial checkin penk parents: diff changeset	327	!
321c1729db5b initial checkin penk parents: diff changeset	328
321c1729db5b initial checkin penk parents: diff changeset	329	selectionHistoryList:aCol
321c1729db5b initial checkin penk parents: diff changeset	330
321c1729db5b initial checkin penk parents: diff changeset	331	selectionHistoryList := aCol
321c1729db5b initial checkin penk parents: diff changeset	332	! !
321c1729db5b initial checkin penk parents: diff changeset	333
4360 959719f86629 category change Claus Gittinger <cg@exept.de> parents: 4353 diff changeset	334	!FileApplicationNoteBook methodsFor:'accessing-applications'!
3892 321c1729db5b initial checkin penk parents: diff changeset	335
321c1729db5b initial checkin penk parents: diff changeset	336	getAllApplicationsByClass:aClass andType:aType
321c1729db5b initial checkin penk parents: diff changeset	337
321c1729db5b initial checkin penk parents: diff changeset	338	^ self listOfApplications select:[ : appl \|
321c1729db5b initial checkin penk parents: diff changeset	339	((appl class = aClass)
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	340	"and:[appl type = aType]")
3892 321c1729db5b initial checkin penk parents: diff changeset	341	].
321c1729db5b initial checkin penk parents: diff changeset	342	!
321c1729db5b initial checkin penk parents: diff changeset	343
321c1729db5b initial checkin penk parents: diff changeset	344	getApplicationByType:aType
321c1729db5b initial checkin penk parents: diff changeset	345
321c1729db5b initial checkin penk parents: diff changeset	346	^ self listOfApplications detect:[ : appl \|
321c1729db5b initial checkin penk parents: diff changeset	347	(appl type == aType)
321c1729db5b initial checkin penk parents: diff changeset	348	] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	349	!
321c1729db5b initial checkin penk parents: diff changeset	350
321c1729db5b initial checkin penk parents: diff changeset	351	getIndexFor:aApplication
321c1729db5b initial checkin penk parents: diff changeset	352
321c1729db5b initial checkin penk parents: diff changeset	353	\| index \|
321c1729db5b initial checkin penk parents: diff changeset	354
321c1729db5b initial checkin penk parents: diff changeset	355	index := self listOfApplications indexOf:aApplication.
321c1729db5b initial checkin penk parents: diff changeset	356	index ~~ 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	357	^ index.
321c1729db5b initial checkin penk parents: diff changeset	358	].
321c1729db5b initial checkin penk parents: diff changeset	359	^ nil.
321c1729db5b initial checkin penk parents: diff changeset	360	!
321c1729db5b initial checkin penk parents: diff changeset	361
8513 f2e2e360cff4 * empty log message * Claus Gittinger <cg@exept.de> parents: 8471 diff changeset	362	getSameApplicationsFor:anApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	363
8514 72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	364	^ self listOfApplications
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	365	select:[:appl \|
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	366	( (appl ~= anApplication)
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	367	and:[ (appl isKindOf:(anApplication class))
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	368	and:[ (appl item = (anApplication item))
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	369	and:[ (appl type == anApplication type) ]]])
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	370	].
3892 321c1729db5b initial checkin penk parents: diff changeset	371	! !
321c1729db5b initial checkin penk parents: diff changeset	372
321c1729db5b initial checkin penk parents: diff changeset	373	!FileApplicationNoteBook methodsFor:'actions-app-common'!
321c1729db5b initial checkin penk parents: diff changeset	374
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	375	changeItem:anItem for:anAppl
4988 34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	376	\| applIndex string isDirectory \|
3892 321c1729db5b initial checkin penk parents: diff changeset	377
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	378	applIndex := self getIndexFor:anAppl.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	379	anItem notNil ifTrue:[
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	380	isDirectory := anItem isDirectory or:[anItem linkTargetIsDirectory ].
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	381
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	382	isDirectory ifFalse:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	383	(anAppl changeItem:anItem) ifFalse:[ ^ self].
2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	384	self fileHistory addFirst:anItem.
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	385	self enableFileHistory value:true.
a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	386	].
3892 321c1729db5b initial checkin penk parents: diff changeset	387	].
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	388	string := anAppl getTabString.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	389	self privateTabList at:applIndex put:(Text fromString:string).
9882 5956cfea28a8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9819 diff changeset	390	"/ self doSelect:anAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	391	!
321c1729db5b initial checkin penk parents: diff changeset	392
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	393	changeModified:aSymbol for:aAppl
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	394
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	395	\| index text stream\|
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	396
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	397	index := self getIndexFor:aAppl.
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	398	index isNil ifTrue:[ ^ self].
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	399	stream := WriteStream with:aAppl getTabString.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	400	aSymbol ~~ #unchanged ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	401	stream space.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	402	stream nextPut:$[.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	403	stream nextPutAll:aSymbol asString.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	404	stream nextPut:$].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	405	text := stream contents asText.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	406	text emphasizeAllWith:UserPreferences current emphasisForModifiedBuffer.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	407	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	408	text := stream contents asText.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	409	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	410	self privateTabList at:index put:text.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	411	self selectedEditorPage value == index ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	412	self changeFileBrowserTitleTo:text.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	413	].
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	414	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	415
3892 321c1729db5b initial checkin penk parents: diff changeset	416	closeSubCanvas:aApplication
321c1729db5b initial checkin penk parents: diff changeset	417
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	418	\| applIndex historyList localHistoryList selectedPage\|
3892 321c1729db5b initial checkin penk parents: diff changeset	419
321c1729db5b initial checkin penk parents: diff changeset	420	applIndex := self getIndexFor:aApplication.
321c1729db5b initial checkin penk parents: diff changeset	421	applIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	422	"/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES
321c1729db5b initial checkin penk parents: diff changeset	423	"/ self lastSelection:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	424
321c1729db5b initial checkin penk parents: diff changeset	425	historyList := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	426	historyList remove:applIndex ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	427	localHistoryList := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	428	historyList notEmpty ifTrue:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	429	selectedPage := historyList last.
3892 321c1729db5b initial checkin penk parents: diff changeset	430	] ifFalse:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	431	selectedPage := 1.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	432	].
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	433	self selectedEditorPage value:selectedPage.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	434
3892 321c1729db5b initial checkin penk parents: diff changeset	435	historyList do:[ : index \|
321c1729db5b initial checkin penk parents: diff changeset	436	index <= applIndex ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	437	localHistoryList add:index
321c1729db5b initial checkin penk parents: diff changeset	438	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	439	localHistoryList add:(index - 1)
321c1729db5b initial checkin penk parents: diff changeset	440	]
321c1729db5b initial checkin penk parents: diff changeset	441	].
321c1729db5b initial checkin penk parents: diff changeset	442	self selectionHistoryList:localHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	443	self listOfApplications removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	444	self privateTabList removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	445	self privateTabList isEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	446	self viewNoteBookApplicationHolder value:false.
321c1729db5b initial checkin penk parents: diff changeset	447	self enableViewNoteBookApplication value:false.
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	448	self changeFileBrowserTitleTo:'FileBrowser V2'.
05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	449
3892 321c1729db5b initial checkin penk parents: diff changeset	450	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	451	historyList notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	452	self selectedEditorPage value:(self selectionHistoryList last).
321c1729db5b initial checkin penk parents: diff changeset	453	]
321c1729db5b initial checkin penk parents: diff changeset	454	]
321c1729db5b initial checkin penk parents: diff changeset	455	].
321c1729db5b initial checkin penk parents: diff changeset	456
321c1729db5b initial checkin penk parents: diff changeset	457	"/ because subCanvas was configured to keep its view,
321c1729db5b initial checkin penk parents: diff changeset	458	"/ we must destroy it here.
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	459	aApplication window destroy.
3892 321c1729db5b initial checkin penk parents: diff changeset	460	!
321c1729db5b initial checkin penk parents: diff changeset	461
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	462	destroyTab:tabIndex
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	463	(self listOfApplications at:tabIndex) doClose
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	464	!
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	465
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	466	doCloseAllApplications
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	467	\| appl \|
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	468
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	469	(Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	470
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	471	appl := self listOfApplications copy do:[:eachApp \| eachApp doClose.].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	472	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	473
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	474	doCloseAllOtherApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	475	\| appl currentApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	476
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	477	"/ (Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	478
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	479	currentApp := self currentTabMenusApplication.
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	480	appl := self listOfApplications copy do:
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	481	[:eachApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	482	eachApp ~~ currentApp ifTrue:[
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	483	eachApp doClose.
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	484	].
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	485	]
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	486	!
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	487
3892 321c1729db5b initial checkin penk parents: diff changeset	488	doCloseApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	489	self currentTabMenusApplication doClose.
3892 321c1729db5b initial checkin penk parents: diff changeset	490	!
321c1729db5b initial checkin penk parents: diff changeset	491
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	492	doRenameTab
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	493	\| newLabel \|
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	494
5335 c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	495	newLabel := Dialog
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	496	request:'New Tab Label:'
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	497	initialAnswer:(self privateTabList at:tabMenuIndex).
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	498	newLabel size == 0 ifTrue:[^ self ].
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	499	self privateTabList at:tabMenuIndex put:newLabel
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	500	!
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	501
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	502	doSelectInList
5323 407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	503	\| fileName\|
407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	504
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	505	fileName := self currentTabMenusApplication fileName.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	506	fileName notNil ifTrue:[
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	507	self gotoFile:fileName.
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	508	].
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	509	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	510
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	511	openApplByFileItem:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	512
321c1729db5b initial checkin penk parents: diff changeset	513	" use the default class list for open of applications by item "
321c1729db5b initial checkin penk parents: diff changeset	514
5290 8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	515	\| applList applItem itemClass itemType appl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	516
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	517	anItem isNil ifTrue:[ ^ self ].
5279 165a7b841a86 open directories found penk parents: 5265 diff changeset	518	anItem isDirectory ifTrue:[
165a7b841a86 open directories found penk parents: 5265 diff changeset	519	self warn:'No Application to open for directory:', anItem fileName asString, ' found'.
165a7b841a86 open directories found penk parents: 5265 diff changeset	520	^ nil.
165a7b841a86 open directories found penk parents: 5265 diff changeset	521	].
3892 321c1729db5b initial checkin penk parents: diff changeset	522	applList := self applicationList.
4110 79f87cb97704 * empty log message * penk parents: 4105 diff changeset	523	self openAlwaysInTextEditor value ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	524	^ self openDefaultApplicationByItem:anItem.
4110 79f87cb97704 * empty log message * penk parents: 4105 diff changeset	525	].
5290 8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	526	applItem := applList
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	527	detect:[: aApplItem\|
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	528	itemClass := self class classFor:aApplItem.
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	529	(itemClass canOpenItem:anItem).
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	530	] ifNone:[nil].
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	531	applItem isNil ifTrue:[
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	532	^ self openDefaultApplicationByItem:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	533	].
5290 8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	534	itemType := self class typeFor:applItem.
8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	535	itemClass := self class classFor:applItem.
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	536	Error handle:[:ex \|
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	537	"/ catching the error, so we can still show text
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	538	] do:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	539	appl := self openApplicationClass:itemClass withItem:anItem withType:itemType.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	540	appl notNil ifTrue:[ ^ appl].
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	541	].
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	542	^ self openDefaultApplicationByItem:anItem.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	543
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	544	"Modified: / 17-02-2011 / 17:37:38 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	545	!
321c1729db5b initial checkin penk parents: diff changeset	546
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	547	openApplicationClass:aClass withItem:anItem withType:aType
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	548
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	549	^ self openApplicationClass:aClass withItem:anItem withType:aType checkExisting:true
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	550	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	551
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	552	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	553
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	554	^ self openApplicationClass:aClass
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	555	withItem:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	556	withType:aType
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	557	checkExisting:checkExisting
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	558	preSetItem:nil
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	559	!
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	560
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	561	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting preSetItem:aBlock
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	562	\|existingAppl newAppl\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	563
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	564	"do not open unreadable items"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	565	checkExisting ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	566	(anItem notNil and:[anItem isDirectory not and:[anItem fileName isReadable not]]) ifTrue:[
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	567	Dialog warn:'Can not open unreadable file ', anItem fileName baseName.
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	568	AbortOperationRequest raise.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	569	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	570	existingAppl := self tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	571	existingAppl notNil ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	572	self doSelect:existingAppl.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	573	^ existingAppl
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	574	].
3892 321c1729db5b initial checkin penk parents: diff changeset	575	].
321c1729db5b initial checkin penk parents: diff changeset	576	newAppl := aClass new.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	577	newAppl masterApplication:self.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	578	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	579	aBlock value:newAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	580	].
3892 321c1729db5b initial checkin penk parents: diff changeset	581	newAppl type:aType.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	582
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	583	newAppl isTextEditor ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	584	newAppl fileEncoding:(self fileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	585	newAppl lockFileEncoding:(self lockFileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	586	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	587	(newAppl item:anItem) ifFalse:[ ^ nil ].
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	588	(anItem notNil and:[(anItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	589	self fileHistory addFirst:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	590	self enableFileHistory value:true.
321c1729db5b initial checkin penk parents: diff changeset	591	].
321c1729db5b initial checkin penk parents: diff changeset	592	self setSameFileIndexFor:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	593	self startApplication:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	594	^ newAppl
321c1729db5b initial checkin penk parents: diff changeset	595	!
321c1729db5b initial checkin penk parents: diff changeset	596
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	597	openDefaultApplicationByItem:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	598	" open the default application if no application for item is available or the start of the
321c1729db5b initial checkin penk parents: diff changeset	599	available application failed
321c1729db5b initial checkin penk parents: diff changeset	600	"
321c1729db5b initial checkin penk parents: diff changeset	601	\| applItem \|
321c1729db5b initial checkin penk parents: diff changeset	602
321c1729db5b initial checkin penk parents: diff changeset	603	applItem := self class defaultApplication.
321c1729db5b initial checkin penk parents: diff changeset	604	applItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	605	\| itemType itemClass\|
321c1729db5b initial checkin penk parents: diff changeset	606	itemType := self class typeFor:applItem.
321c1729db5b initial checkin penk parents: diff changeset	607	itemClass := self class classFor:applItem.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	608	^ self openApplicationClass:itemClass withItem:anItem withType:itemType.
3892 321c1729db5b initial checkin penk parents: diff changeset	609	].
321c1729db5b initial checkin penk parents: diff changeset	610	^ nil
321c1729db5b initial checkin penk parents: diff changeset	611	!
321c1729db5b initial checkin penk parents: diff changeset	612
321c1729db5b initial checkin penk parents: diff changeset	613	setSameFileIndexFor:anAppl
321c1729db5b initial checkin penk parents: diff changeset	614
321c1729db5b initial checkin penk parents: diff changeset	615	\|sameFiles index item\|
321c1729db5b initial checkin penk parents: diff changeset	616
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	617	self class openAnotherApplicationOnSameItem ifFalse:[
3892 321c1729db5b initial checkin penk parents: diff changeset	618	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	619	^ self.
321c1729db5b initial checkin penk parents: diff changeset	620	].
321c1729db5b initial checkin penk parents: diff changeset	621	item := anAppl item.
321c1729db5b initial checkin penk parents: diff changeset	622	item notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	623	\| hasSameFiles \|
321c1729db5b initial checkin penk parents: diff changeset	624	sameFiles := self getSameApplicationsFor:anAppl.
321c1729db5b initial checkin penk parents: diff changeset	625	hasSameFiles := sameFiles notEmpty.
321c1729db5b initial checkin penk parents: diff changeset	626	hasSameFiles ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	627	(sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	628	anAppl sameFileIndex:1.
321c1729db5b initial checkin penk parents: diff changeset	629	^ self
321c1729db5b initial checkin penk parents: diff changeset	630	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	631	index := (sameFiles collect:[:el \| (el sameFileIndex ? 1)]) max.
321c1729db5b initial checkin penk parents: diff changeset	632	anAppl sameFileIndex:index + 1.
321c1729db5b initial checkin penk parents: diff changeset	633	^ self
321c1729db5b initial checkin penk parents: diff changeset	634	]
321c1729db5b initial checkin penk parents: diff changeset	635	].
321c1729db5b initial checkin penk parents: diff changeset	636	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	637	].
321c1729db5b initial checkin penk parents: diff changeset	638	!
321c1729db5b initial checkin penk parents: diff changeset	639
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	640	startApplication:anApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	641	\| window\|
321c1729db5b initial checkin penk parents: diff changeset	642
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	643	"/ anApplication masterApplication:self.
7582 ee57ad4bee5c * empty log message * Claus Gittinger <cg@exept.de> parents: 7540 diff changeset	644	anApplication window isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	645	window := ApplicationSubView new.
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	646	anApplication createBuilder.
82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	647	window client:anApplication.
3892 321c1729db5b initial checkin penk parents: diff changeset	648	].
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	649	self listOfApplications add:anApplication.
82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	650	self privateTabList add:(Text fromString:(anApplication getTabString)).
3892 321c1729db5b initial checkin penk parents: diff changeset	651	self viewNoteBookApplicationHolder value:true.
321c1729db5b initial checkin penk parents: diff changeset	652	self enableViewNoteBookApplication value:true.
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	653	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	654	self doSelect:anApplication.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	655	].
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	656	"/ [
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	657	anApplication postOpenWith:anApplication builder.
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	658	"/ ] forkAt:Processor activePriority.
3892 321c1729db5b initial checkin penk parents: diff changeset	659	!
321c1729db5b initial checkin penk parents: diff changeset	660
321c1729db5b initial checkin penk parents: diff changeset	661	tabStringAdd:aString for:aAppl
321c1729db5b initial checkin penk parents: diff changeset	662
321c1729db5b initial checkin penk parents: diff changeset	663	\| index text stream\|
321c1729db5b initial checkin penk parents: diff changeset	664
321c1729db5b initial checkin penk parents: diff changeset	665	index := self getIndexFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	666	index isNil ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	667	text := self privateTabList at:index.
321c1729db5b initial checkin penk parents: diff changeset	668	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	669	stream nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	670	stream space.
321c1729db5b initial checkin penk parents: diff changeset	671	stream nextPutAll:aString.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	672	self privateTabList at:index put:(Text fromString:(stream contents)).
3892 321c1729db5b initial checkin penk parents: diff changeset	673	stream close.
321c1729db5b initial checkin penk parents: diff changeset	674	!
321c1729db5b initial checkin penk parents: diff changeset	675
321c1729db5b initial checkin penk parents: diff changeset	676	tabStringChangeTo:aString for:aAppl
321c1729db5b initial checkin penk parents: diff changeset	677
321c1729db5b initial checkin penk parents: diff changeset	678	\| index\|
321c1729db5b initial checkin penk parents: diff changeset	679
321c1729db5b initial checkin penk parents: diff changeset	680	index := self getIndexFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	681	index isNil ifTrue:[ ^ self].
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	682	self privateTabList at:index put:(Text fromString:aString).
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	683	self selectedEditorPage value == index ifTrue:[
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	684	self changeFileBrowserTitleTo:aString.
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	685	].
3892 321c1729db5b initial checkin penk parents: diff changeset	686	!
321c1729db5b initial checkin penk parents: diff changeset	687
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	688	tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock
3892 321c1729db5b initial checkin penk parents: diff changeset	689
321c1729db5b initial checkin penk parents: diff changeset	690
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	691	\| sameAppls changeAppl selAppl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	692
321c1729db5b initial checkin penk parents: diff changeset	693	aClass wantNewApplicationAnyway ifTrue:[^ nil].
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	694	sameAppls := self getAllApplicationsByClass:aClass andType:aType.
79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	695	sameAppls isEmpty ifTrue:[^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	696	((aType == #directoryDescription) or:[aType == #commandResult]) ifTrue:[
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	697	"/ sameAppls := sameAppl first.
3892 321c1729db5b initial checkin penk parents: diff changeset	698	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	699	(self openMultipleApplicationsForType value) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	700	"/ open more than one application for a class and a type
321c1729db5b initial checkin penk parents: diff changeset	701	(self class openAnotherApplicationOnSameItem) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	702	"/ open a new application anyway, no matters if item already open
321c1729db5b initial checkin penk parents: diff changeset	703	^ nil
321c1729db5b initial checkin penk parents: diff changeset	704	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	705	"/ if item already changed select the application
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	706	selAppl := sameAppls detect:[ : appl \|
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	707	(appl item = anItem)
3892 321c1729db5b initial checkin penk parents: diff changeset	708	] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	709	].
321c1729db5b initial checkin penk parents: diff changeset	710	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	711	"/ keep in same application change the first application of the same class and type - if item not changed otherwise open new
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	712	sameAppls := sameAppls select:[ : appl \|
5456 91c198c1c3e9 add new item if it is modified penk parents: 5447 diff changeset	713	(appl isModified not)
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	714	].
3892 321c1729db5b initial checkin penk parents: diff changeset	715	].
321c1729db5b initial checkin penk parents: diff changeset	716	].
4393 194816f3a6ea Care for nil Stefan Vogel <sv@exept.de> parents: 4392 diff changeset	717	sameAppls size ~~ 0 ifTrue:[
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	718	" take first all applications which have nil items
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	719	second the selected
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	720	third the first
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	721	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	722	\| nilItemAppls \|
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	723	nilItemAppls := sameAppls select:[:appl\| appl item == nil ].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	724	nilItemAppls notEmpty ifTrue:[sameAppls := nilItemAppls].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	725	(sameAppls includes:self selectedApplication) ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	726	changeAppl := self selectedApplication.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	727	] ifFalse:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	728	changeAppl := sameAppls first.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	729	].
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	730	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	731	aBlock value:changeAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	732	].
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	733	changeAppl type:aType.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	734	self changeItem:anItem for:changeAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	735	selAppl := changeAppl.
321c1729db5b initial checkin penk parents: diff changeset	736	].
321c1729db5b initial checkin penk parents: diff changeset	737	^ selAppl.
321c1729db5b initial checkin penk parents: diff changeset	738	! !
321c1729db5b initial checkin penk parents: diff changeset	739
321c1729db5b initial checkin penk parents: diff changeset	740	!FileApplicationNoteBook methodsFor:'actions-app-spec'!
321c1729db5b initial checkin penk parents: diff changeset	741
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	742	addTerminalIn:aDirectory
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	743	\|item\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	744
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	745	item := DirectoryContentsBrowser itemClass fileName:aDirectory.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	746	self openTerminalApplication:item.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	747	!
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	748
3892 321c1729db5b initial checkin penk parents: diff changeset	749	changeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	750
321c1729db5b initial checkin penk parents: diff changeset	751	\| aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	752
321c1729db5b initial checkin penk parents: diff changeset	753	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	754	aInfoItem isNil ifTrue:[ ^ self closeDirectoryDescription ].
321c1729db5b initial checkin penk parents: diff changeset	755	self openDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	756	!
321c1729db5b initial checkin penk parents: diff changeset	757
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	758	closeAllApplicationsEnabled
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	759	^ tabList value size > 1
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	760	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	761
3892 321c1729db5b initial checkin penk parents: diff changeset	762	closeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	763
321c1729db5b initial checkin penk parents: diff changeset	764	\| dirContApll \|
321c1729db5b initial checkin penk parents: diff changeset	765
321c1729db5b initial checkin penk parents: diff changeset	766	dirContApll := self getApplicationByType:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	767	dirContApll notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	768	dirContApll doClose.
321c1729db5b initial checkin penk parents: diff changeset	769	].
321c1729db5b initial checkin penk parents: diff changeset	770	!
321c1729db5b initial checkin penk parents: diff changeset	771
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	772	newTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	773
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	774	^ self openApplicationClass:TextEditor withItem:nil withType:#file checkExisting:false
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	775	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	776
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	777	openArchiveViewApplication:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	778
321c1729db5b initial checkin penk parents: diff changeset	779	\| result \|
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	780	result := self openApplicationClass:ArchiveViewApplication withItem:anItem withType:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	781	result isNil ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	782	Dialog warn:'file type of ', anItem fileName baseName, ' not yet supported'.
3892 321c1729db5b initial checkin penk parents: diff changeset	783	^ self.
321c1729db5b initial checkin penk parents: diff changeset	784	].
321c1729db5b initial checkin penk parents: diff changeset	785	!
321c1729db5b initial checkin penk parents: diff changeset	786
321c1729db5b initial checkin penk parents: diff changeset	787	openCommandResultApplication
321c1729db5b initial checkin penk parents: diff changeset	788
321c1729db5b initial checkin penk parents: diff changeset	789
321c1729db5b initial checkin penk parents: diff changeset	790	^ self openApplicationClass:CommandResult withItem:nil withType:#commandResult
321c1729db5b initial checkin penk parents: diff changeset	791	!
321c1729db5b initial checkin penk parents: diff changeset	792
321c1729db5b initial checkin penk parents: diff changeset	793	openDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	794
321c1729db5b initial checkin penk parents: diff changeset	795	\| appl aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	796
321c1729db5b initial checkin penk parents: diff changeset	797	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	798	aInfoItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	799	appl := self openTextEditorOn:aInfoItem type:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	800	].
321c1729db5b initial checkin penk parents: diff changeset	801	!
321c1729db5b initial checkin penk parents: diff changeset	802
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	803	openNewTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	804
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	805	^ self openApplicationClass:TextEditor withItem:anItem withType:#file checkExisting:false.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	806	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	807
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	808	openSearchFileOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	809
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5910 diff changeset	810	^ self openApplicationClass:FindFileApplication withItem:anItem withType:nil checkExisting:false
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	811	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	812
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	813	openTerminalApplication:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	814
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	815	^ self openApplicationClass:Terminal withItem:anItem withType:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	816	!
321c1729db5b initial checkin penk parents: diff changeset	817
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	818	openTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	819
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	820	^ self openTextEditorOn:nil
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	821	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	822
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	823	openTextEditorForFile:aFilename
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	824
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	825	^ self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:aFilename) type:#file
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	826	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	827
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	828	openTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	829
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	830	^ self openTextEditorOn:anItem type:#file
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	831	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	832
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	833	openTextEditorOn:anItem type:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	834
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	835	^ self openApplicationClass:TextEditor withItem:anItem withType:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	836	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	837
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	838	openTextEditorWithHexPresentationOn:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	839
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	840	^ self openApplicationClass:TextEditor
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	841	withItem:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	842	withType:#file
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	843	checkExisting:true
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	844	preSetItem:[:aTextEditor \| aTextEditor presentation:#hexDump].
3892 321c1729db5b initial checkin penk parents: diff changeset	845	! !
321c1729db5b initial checkin penk parents: diff changeset	846
321c1729db5b initial checkin penk parents: diff changeset	847	!FileApplicationNoteBook methodsFor:'applicationlist access'!
321c1729db5b initial checkin penk parents: diff changeset	848
321c1729db5b initial checkin penk parents: diff changeset	849	applicationList
321c1729db5b initial checkin penk parents: diff changeset	850	^ self class applicationList
321c1729db5b initial checkin penk parents: diff changeset	851	! !
321c1729db5b initial checkin penk parents: diff changeset	852
321c1729db5b initial checkin penk parents: diff changeset	853	!FileApplicationNoteBook methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	854
321c1729db5b initial checkin penk parents: diff changeset	855	canvasHolder
321c1729db5b initial checkin penk parents: diff changeset	856
321c1729db5b initial checkin penk parents: diff changeset	857	canvasHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	858	canvasHolder := ValueHolder new.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	859	canvasHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	860	].
321c1729db5b initial checkin penk parents: diff changeset	861	^ canvasHolder.
321c1729db5b initial checkin penk parents: diff changeset	862	!
321c1729db5b initial checkin penk parents: diff changeset	863
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	864	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	865	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	866	aspectFor:#cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	867	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	868	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	869	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	870	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	871
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	872	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	873	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	874	aspectFor:#cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	875	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	876	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	877	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	878	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	879
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	880	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	881	^ self
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	882	aspectFor:#fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	883	ifAbsent:[
5567 3e00d2d4db6d * empty log message * Claus Gittinger <cg@exept.de> parents: 5550 diff changeset	884	IndirectValue for:('iso8859-1' asValue)
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	885	]
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	886	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	887
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	888	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	889	^ self
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	890	aspectFor:#lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	891	ifAbsent:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	892	IndirectValue for:(false asValue)
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	893	]
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	894	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	895
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	896	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	897	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	898	aspectFor:#modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	899	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	900	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	901	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	902	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	903
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	904	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	905	\|app\|
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	906
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	907	(app := self selectedApplication) notNil ifTrue:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	908	^ app modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	909	].
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	910	^ nil
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	911
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	912	"Created: / 11-09-2006 / 12:33:27 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	913	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	914
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	915	modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	916	^ self
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	917	aspectFor:#modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	918	ifAbsent:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	919	IndirectValue for:(nil asValue)
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	920	]
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	921
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	922	"Created: / 11-09-2006 / 12:28:08 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	923	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	924
3892 321c1729db5b initial checkin penk parents: diff changeset	925	privateTabList
321c1729db5b initial checkin penk parents: diff changeset	926
321c1729db5b initial checkin penk parents: diff changeset	927	privateTabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	928	privateTabList := List new.
321c1729db5b initial checkin penk parents: diff changeset	929	privateTabList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	930	].
321c1729db5b initial checkin penk parents: diff changeset	931	^ privateTabList.
321c1729db5b initial checkin penk parents: diff changeset	932	!
321c1729db5b initial checkin penk parents: diff changeset	933
321c1729db5b initial checkin penk parents: diff changeset	934	selectedEditorPage
321c1729db5b initial checkin penk parents: diff changeset	935
321c1729db5b initial checkin penk parents: diff changeset	936	selectedEditorPage isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	937	selectedEditorPage := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	938	"/ if your app needs to be notified of changes, uncomment one of the lines below:
321c1729db5b initial checkin penk parents: diff changeset	939	selectedEditorPage addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	940	"/ selectedEditorPage onChangeSend:#selectedEditorPageChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	941	].
321c1729db5b initial checkin penk parents: diff changeset	942	^ selectedEditorPage.
321c1729db5b initial checkin penk parents: diff changeset	943	!
321c1729db5b initial checkin penk parents: diff changeset	944
321c1729db5b initial checkin penk parents: diff changeset	945	tabList
321c1729db5b initial checkin penk parents: diff changeset	946
321c1729db5b initial checkin penk parents: diff changeset	947	tabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	948	tabList := (List new) asValue.
321c1729db5b initial checkin penk parents: diff changeset	949	].
321c1729db5b initial checkin penk parents: diff changeset	950	^ tabList.
321c1729db5b initial checkin penk parents: diff changeset	951	!
321c1729db5b initial checkin penk parents: diff changeset	952
321c1729db5b initial checkin penk parents: diff changeset	953	tabList:aValue
321c1729db5b initial checkin penk parents: diff changeset	954
321c1729db5b initial checkin penk parents: diff changeset	955	tabList := aValue.
321c1729db5b initial checkin penk parents: diff changeset	956	! !
321c1729db5b initial checkin penk parents: diff changeset	957
321c1729db5b initial checkin penk parents: diff changeset	958	!FileApplicationNoteBook methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	959
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	960	canvasChanged
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	961	"invoked when the contentsView has been changed"
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	962
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	963	\|app\|
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	964
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	965	app := self selectedApplication.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	966
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	967	self cursorLineLabelHolder valueHolder: (app cursorLineLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	968	self cursorColLabelHolder valueHolder: (app cursorColLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	969	self modeLabelHolder valueHolder: (app modeLabelHolder).
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	970	self fileEncodingHolder valueHolder: (app fileEncodingHolder).
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	971
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	972	app lockFileEncodingHolder isBoolean ifTrue:[
8366 6e6842bd8b1e * empty log message * Claus Gittinger <cg@exept.de> parents: 8228 diff changeset	973	self breakPoint:#cg
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	974	] ifFalse:[
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	975	self lockFileEncodingHolder valueHolder: (app lockFileEncodingHolder).
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	976	].
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	977
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	978	"Modified: / 11-09-2006 / 12:44:07 / cg"
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	979	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	980
3892 321c1729db5b initial checkin penk parents: diff changeset	981	update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	982	\| appl sel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	983
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	984	changedObject == canvasHolder ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	985	self canvasChanged.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	986	^ self.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	987	].
3892 321c1729db5b initial checkin penk parents: diff changeset	988	changedObject == self currentDirectories ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	989	self viewDirectoryDescription value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	990	self changeDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	991	].
321c1729db5b initial checkin penk parents: diff changeset	992	^ self.
321c1729db5b initial checkin penk parents: diff changeset	993	].
321c1729db5b initial checkin penk parents: diff changeset	994	changedObject == self viewDirectoryDescription ifTrue:[
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	995	self viewDirectoryDescriptionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	996	^ self.
321c1729db5b initial checkin penk parents: diff changeset	997	].
321c1729db5b initial checkin penk parents: diff changeset	998	changedObject == self privateTabList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	999	\| privateListOfTabs \|
321c1729db5b initial checkin penk parents: diff changeset	1000	privateListOfTabs := changedObject.
321c1729db5b initial checkin penk parents: diff changeset	1001	privateListOfTabs size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1002	self tabList value:privateListOfTabs.
321c1729db5b initial checkin penk parents: diff changeset	1003	self tabList changed.
321c1729db5b initial checkin penk parents: diff changeset	1004	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1005	self tabList value:nil.
321c1729db5b initial checkin penk parents: diff changeset	1006	].
321c1729db5b initial checkin penk parents: diff changeset	1007	^ self
321c1729db5b initial checkin penk parents: diff changeset	1008	].
321c1729db5b initial checkin penk parents: diff changeset	1009	changedObject == self selectedEditorPage ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1010	\| listOfEdits indexOfLastSel list \|
321c1729db5b initial checkin penk parents: diff changeset	1011
321c1729db5b initial checkin penk parents: diff changeset	1012	sel := changedObject value.
321c1729db5b initial checkin penk parents: diff changeset	1013	"/ dont want the tabs with one application - thats why i have to change my tablist
321c1729db5b initial checkin penk parents: diff changeset	1014	"/ sel goes to if - i want select the last selection
321c1729db5b initial checkin penk parents: diff changeset	1015	sel = 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1016	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1017	].
321c1729db5b initial checkin penk parents: diff changeset	1018	list := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	1019	(list includes:sel) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1020	list remove:sel
321c1729db5b initial checkin penk parents: diff changeset	1021	].
321c1729db5b initial checkin penk parents: diff changeset	1022	list add:sel.
321c1729db5b initial checkin penk parents: diff changeset	1023	self selectionHistoryList:list.
321c1729db5b initial checkin penk parents: diff changeset	1024	appl := self listOfApplications at:sel.
321c1729db5b initial checkin penk parents: diff changeset	1025	self doSelect:appl.
321c1729db5b initial checkin penk parents: diff changeset	1026	].
321c1729db5b initial checkin penk parents: diff changeset	1027
321c1729db5b initial checkin penk parents: diff changeset	1028	^ super update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1029	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1030
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1031	viewDirectoryDescriptionChanged
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1032
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1033
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1034	\|viewDirDescr\|
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1035
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1036	viewDirDescr := self viewDirectoryDescription value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1037	viewDirDescr ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1038	self openDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1039	] ifFalse:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1040	self closeDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1041	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1042	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1043	! !
321c1729db5b initial checkin penk parents: diff changeset	1044
321c1729db5b initial checkin penk parents: diff changeset	1045	!FileApplicationNoteBook methodsFor:'menu & actions'!
321c1729db5b initial checkin penk parents: diff changeset	1046
321c1729db5b initial checkin penk parents: diff changeset	1047	tabMenuAt:aTab
321c1729db5b initial checkin penk parents: diff changeset	1048	\|menu\|
321c1729db5b initial checkin penk parents: diff changeset	1049
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1050	menu := Menu decodeFromLiteralArray:self class tabMenu.
3892 321c1729db5b initial checkin penk parents: diff changeset	1051	tabMenuIndex := aTab.
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1052	menu findGuiResourcesIn:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1053	^ menu
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1054
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1055	"Modified: / 27-03-2007 / 10:57:25 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1056	! !
321c1729db5b initial checkin penk parents: diff changeset	1057
321c1729db5b initial checkin penk parents: diff changeset	1058	!FileApplicationNoteBook methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1059
321c1729db5b initial checkin penk parents: diff changeset	1060	getSameFilesModifiedFor:aAppl
321c1729db5b initial checkin penk parents: diff changeset	1061
321c1729db5b initial checkin penk parents: diff changeset	1062	\| sameFileAppl colOfChanged \|
321c1729db5b initial checkin penk parents: diff changeset	1063
321c1729db5b initial checkin penk parents: diff changeset	1064	sameFileAppl := self getSameApplicationsFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	1065	sameFileAppl notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1066	colOfChanged := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1067	sameFileAppl do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	1068	el modifiedChannel value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1069	colOfChanged add:el.
321c1729db5b initial checkin penk parents: diff changeset	1070	]
321c1729db5b initial checkin penk parents: diff changeset	1071	]
321c1729db5b initial checkin penk parents: diff changeset	1072	].
321c1729db5b initial checkin penk parents: diff changeset	1073	^ colOfChanged
321c1729db5b initial checkin penk parents: diff changeset	1074	! !
321c1729db5b initial checkin penk parents: diff changeset	1075
321c1729db5b initial checkin penk parents: diff changeset	1076	!FileApplicationNoteBook methodsFor:'selection'!
321c1729db5b initial checkin penk parents: diff changeset	1077
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1078	currentTabMenusApplication
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1079	"only valid within menu processing"
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1080
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1081	^ self listOfApplications at:tabMenuIndex
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1082	!
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1083
3892 321c1729db5b initial checkin penk parents: diff changeset	1084	doSelect:anAppl
321c1729db5b initial checkin penk parents: diff changeset	1085
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1086	\| index fileName additionalInfo\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1087
321c1729db5b initial checkin penk parents: diff changeset	1088	fileName := anAppl fileName.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	1089	index := self getIndexFor:anAppl.
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	1090	self changeFileBrowserTitleTo:(self privateTabList at:index ifAbsent:nil).
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	1091
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1092	additionalInfo := anAppl additionalInfo.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1093	self notify:(fileName isNil
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1094	ifTrue:[additionalInfo]
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1095	ifFalse:[(fileName asString contractAtBeginningTo:80),' ',additionalInfo]).
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1096	"/ self gotoFile:fileName.
3892 321c1729db5b initial checkin penk parents: diff changeset	1097	index notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1098	canvasHolder value:(anAppl window).
321c1729db5b initial checkin penk parents: diff changeset	1099	self selectedEditorPage value:index.
321c1729db5b initial checkin penk parents: diff changeset	1100	]
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1101
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1102	"Modified: / 24-10-2006 / 12:32:53 / cg"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1103	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1104
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1105	selectedApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1106	\| canvas \|
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1107
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1108	canvas := self canvasHolder value.
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1109	canvas isNil ifTrue:[ ^ nil].
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1110	^ canvas application.
3892 321c1729db5b initial checkin penk parents: diff changeset	1111	! !
321c1729db5b initial checkin penk parents: diff changeset	1112
321c1729db5b initial checkin penk parents: diff changeset	1113	!FileApplicationNoteBook methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1114
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1115	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1116	"asks for permission before closing"
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1117
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1118	self tryCloseApplications ifTrue:[
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1119	super closeRequest.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1120	^ true
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1121	].
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1122	^ false.
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1123	!
78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1124
3892 321c1729db5b initial checkin penk parents: diff changeset	1125	makeDependent
321c1729db5b initial checkin penk parents: diff changeset	1126
321c1729db5b initial checkin penk parents: diff changeset	1127	self viewDirectoryDescription addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1128	self currentDirectories addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1129	!
321c1729db5b initial checkin penk parents: diff changeset	1130
321c1729db5b initial checkin penk parents: diff changeset	1131	postOpenAsSubcanvasWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1132
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1133	self viewDirectoryDescriptionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	1134	^ super postOpenAsSubcanvasWith:aBuilder.
321c1729db5b initial checkin penk parents: diff changeset	1135	!
321c1729db5b initial checkin penk parents: diff changeset	1136
321c1729db5b initial checkin penk parents: diff changeset	1137	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1138	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1139
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1140	self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1141	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	1142	!
321c1729db5b initial checkin penk parents: diff changeset	1143
321c1729db5b initial checkin penk parents: diff changeset	1144	preBuildWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1145
321c1729db5b initial checkin penk parents: diff changeset	1146	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1147	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	1148	].
321c1729db5b initial checkin penk parents: diff changeset	1149	^ super preBuildWith:aBuilder.
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1150	!
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1151
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1152	tryCloseApplications
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1153
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1154	self listOfApplications do:[:appl\|
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	1155	appl doClose ifFalse:[
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1156	^ false.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1157	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1158	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1159	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	1160	! !
321c1729db5b initial checkin penk parents: diff changeset	1161
321c1729db5b initial checkin penk parents: diff changeset	1162	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	1163
321c1729db5b initial checkin penk parents: diff changeset	1164	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1165	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1166
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1167	^ 'Archive %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1168
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1169	"Modified: / 01-03-2007 / 21:43:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1170	! !
321c1729db5b initial checkin penk parents: diff changeset	1171
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1172	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1173
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1174	flyByHelpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1175	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1176	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1177
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1178	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1179	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1180
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1181	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1182	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1183	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1184
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1185	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1186
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1187	^super flyByHelpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1188
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1189	#closeTabButton
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1190	'Close Archiver Tab'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1191
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1192	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1193	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1194
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1195	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1196	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1197
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1198	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1199	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1200
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1201	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1202	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1203
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1204	helpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1205	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1206	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1207
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1208	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1209	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1210
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1211	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1212	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1213	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1214
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1215	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1216
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1217	^super helpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1218
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1219	#closeButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1220	'Close Archiver'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1221
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1222	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1223	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1224
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1225	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1226	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1227
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1228	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1229	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1230
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1231	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1232	! !
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1233
3892 321c1729db5b initial checkin penk parents: diff changeset	1234	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	1235
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1236	extract28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1237	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1238	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1239
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1240	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1241	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1242
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1243	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1244	self extract28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1245	ImageEditor openOnClass:self andSelector:#extract28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1246	Icon flushCachedIcons
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1247	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1248
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1249	<resource: #image>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1250
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1251	^Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1252	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class extract28x28Icon'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1253	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1254	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1255	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@CQDMDP0@@@@@EUUAP@@L3L3L3@@@ @PUUTA@@@4QCQDL@@BHAAUUPD@@CL3L3L"H"H"DEUU
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1256	@P@@MDP4QBH"H"H @@@A@@@3L3L3H"H"H!!DQDQD@@CQDMDP0@@H DP@@@P@@L3L3L3@@@ @Q@ETA@@@4QCQDL@@@@AD@UPD@@CL3L3L0@@@@@@@@@@@@MDP4
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1257	QC@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1258	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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:'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1259	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G?0@@A?<G? _?A?8G?1_>A?<_? _???8G???>A???? _?G?8G?1_>A?<G? _?@?0G?0@@A?<@@@_?@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1260	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1261	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1262
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1263	removeBug28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1264	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1265	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1266
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1267	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1268	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1269
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1270	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1271	self removeBug28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1272	ImageEditor openOnClass:self andSelector:#removeBug28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1273	Icon flushCachedIcons
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1274	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1275
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1276	<resource: #image>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1277
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1278	^Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1279	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeBug28x28Icon'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1280	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1281	UUUUUUUUT@@@@@@@@@@@@@@@@@@@B@@@@@J(@J(@@@@J(@@ @@@J(@@B@@@J(@@@J(@@J(@@@@ @J(@@@@B(@J+0@@@@J :+@@@@B:,@@@O***
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1282	0@@C:**,@@@N@@@@@@O***0@@@>+<@@@B(N?0@@@B@J+0@@@B@@* @@@B@@B@@@B@@@J(@@B@@@@* @B@@@@B@B*@@@@@J(@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1283	@@@@@@@@@@@@@@@@@@@@@@@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:'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1284	@@@@@@@@@@@@@@@@O@@C0A8@A8@O@@<@A80^@@O#O0@A>_1@@N/>@@A??0@@??>@G??? BG??8@A??>@G??? @???8@@_?<@@O/>@@G9?D@C83<@A80^@@<@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1285	C0@^@@^@O@@C0@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1286	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1287
3892 321c1729db5b initial checkin penk parents: diff changeset	1288	removeError
321c1729db5b initial checkin penk parents: diff changeset	1289	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1290	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1291
321c1729db5b initial checkin penk parents: diff changeset	1292	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1293	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1294
321c1729db5b initial checkin penk parents: diff changeset	1295	"
321c1729db5b initial checkin penk parents: diff changeset	1296	self removeError inspect
321c1729db5b initial checkin penk parents: diff changeset	1297	ImageEditor openOnClass:self andSelector:#removeError
321c1729db5b initial checkin penk parents: diff changeset	1298	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	1299	"
321c1729db5b initial checkin penk parents: diff changeset	1300
321c1729db5b initial checkin penk parents: diff changeset	1301	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	1302
321c1729db5b initial checkin penk parents: diff changeset	1303	^Icon
321c1729db5b initial checkin penk parents: diff changeset	1304	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeError'
321c1729db5b initial checkin penk parents: diff changeset	1305	ifAbsentPut:[(Depth8Image new) width: 28; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	1306	@@@@@@@@@@@FA @@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A X@@@XF@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1307	@@@@@@@FA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF
321c1729db5b initial checkin penk parents: diff changeset	1308	@@@FA @@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@A X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1309	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1310	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1311	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1312	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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]
321c1729db5b initial checkin penk parents: diff changeset	1313	! !
321c1729db5b initial checkin penk parents: diff changeset	1314
321c1729db5b initial checkin penk parents: diff changeset	1315	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	1316
321c1729db5b initial checkin penk parents: diff changeset	1317	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1318	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1319	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1320
321c1729db5b initial checkin penk parents: diff changeset	1321	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1322	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1323
321c1729db5b initial checkin penk parents: diff changeset	1324	"
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1325	UIPainter new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1326	FileApplicationNoteBook::ArchiveViewApplication new openInterface:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1327	FileApplicationNoteBook::ArchiveViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	1328	"
321c1729db5b initial checkin penk parents: diff changeset	1329
321c1729db5b initial checkin penk parents: diff changeset	1330	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	1331
321c1729db5b initial checkin penk parents: diff changeset	1332	^
321c1729db5b initial checkin penk parents: diff changeset	1333	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	1334	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1335	#window:
321c1729db5b initial checkin penk parents: diff changeset	1336	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	1337	#label: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1338	#name: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1339	#min: #(#Point 10 10)
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1340	#bounds: #(#Rectangle 16 46 692 538)
3892 321c1729db5b initial checkin penk parents: diff changeset	1341	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	1342	)
321c1729db5b initial checkin penk parents: diff changeset	1343	#component:
321c1729db5b initial checkin penk parents: diff changeset	1344	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1345	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1346	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	1347	#name: 'MenuArchive'
3892 321c1729db5b initial checkin penk parents: diff changeset	1348	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	1349	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1350	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	1351	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	1352	)
321c1729db5b initial checkin penk parents: diff changeset	1353	#(#'FileBrowserV2UISpecifications::PanelSpec'
321c1729db5b initial checkin penk parents: diff changeset	1354	#name: 'VerticalPanel'
321c1729db5b initial checkin penk parents: diff changeset	1355	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1356	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1357	#whichView: #last
321c1729db5b initial checkin penk parents: diff changeset	1358	#orientation: #vertical
321c1729db5b initial checkin penk parents: diff changeset	1359	#visibility: #errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	1360	#component:
321c1729db5b initial checkin penk parents: diff changeset	1361	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1362	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1363	#(#DataSetSpec
321c1729db5b initial checkin penk parents: diff changeset	1364	#name: 'Table1'
321c1729db5b initial checkin penk parents: diff changeset	1365	#model: #selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	1366	#menu: #fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1367	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1368	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1369	#dataList: #archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	1370	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1371	#has3Dsepartors: false
321c1729db5b initial checkin penk parents: diff changeset	1372	#doubleClickSelector: #dblClick
321c1729db5b initial checkin penk parents: diff changeset	1373	#columnHolder: #tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1374	#multipleSelectOk: true
321c1729db5b initial checkin penk parents: diff changeset	1375	#verticalSpacing: 0
321c1729db5b initial checkin penk parents: diff changeset	1376	#postBuildCallback: #postBuildFileTable:
321c1729db5b initial checkin penk parents: diff changeset	1377	#properties:
321c1729db5b initial checkin penk parents: diff changeset	1378	#(#PropertyListDictionary
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1379	#enterSelector: #dropEnter:
3892 321c1729db5b initial checkin penk parents: diff changeset	1380	#dragArgument: #archivApplication
321c1729db5b initial checkin penk parents: diff changeset	1381	#startDragSelector: #doStartDrag:in:
321c1729db5b initial checkin penk parents: diff changeset	1382	#displayObjectSelector: #getDisplayObjects:
321c1729db5b initial checkin penk parents: diff changeset	1383	#dropObjectSelector: #getDropObjects:
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1384	#overSelector: nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1385	#dropArgument: #archivApplication
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1386	#canDropSelector: #canDrop:
af8ef74cb43b next stage penk parents: 3950 diff changeset	1387	#leaveSelector: #dropLeave:
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1388	#dropSelector: #doDrop:
3892 321c1729db5b initial checkin penk parents: diff changeset	1389	)
321c1729db5b initial checkin penk parents: diff changeset	1390	)
321c1729db5b initial checkin penk parents: diff changeset	1391	#(#SequenceViewSpec
321c1729db5b initial checkin penk parents: diff changeset	1392	#name: 'ErrorList'
321c1729db5b initial checkin penk parents: diff changeset	1393	#initiallyDisabled: true
321c1729db5b initial checkin penk parents: diff changeset	1394	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1395	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1396	#backgroundColor: #(#Color 100.0 100.0 100.0)
321c1729db5b initial checkin penk parents: diff changeset	1397	#isMultiSelect: true
321c1729db5b initial checkin penk parents: diff changeset	1398	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1399	#sequenceList: #errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	1400	)
321c1729db5b initial checkin penk parents: diff changeset	1401	)
321c1729db5b initial checkin penk parents: diff changeset	1402
321c1729db5b initial checkin penk parents: diff changeset	1403	)
321c1729db5b initial checkin penk parents: diff changeset	1404	#handles: #(#Any 0.5 1.0)
321c1729db5b initial checkin penk parents: diff changeset	1405	)
321c1729db5b initial checkin penk parents: diff changeset	1406	)
321c1729db5b initial checkin penk parents: diff changeset	1407
321c1729db5b initial checkin penk parents: diff changeset	1408	)
321c1729db5b initial checkin penk parents: diff changeset	1409	)
321c1729db5b initial checkin penk parents: diff changeset	1410	! !
321c1729db5b initial checkin penk parents: diff changeset	1411
321c1729db5b initial checkin penk parents: diff changeset	1412	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	1413
321c1729db5b initial checkin penk parents: diff changeset	1414	fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1415	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1416	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1417
321c1729db5b initial checkin penk parents: diff changeset	1418	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1419	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1420
321c1729db5b initial checkin penk parents: diff changeset	1421	"
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1422	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#fileListMenu
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1423	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication fileListMenu)) startUp
3892 321c1729db5b initial checkin penk parents: diff changeset	1424	"
321c1729db5b initial checkin penk parents: diff changeset	1425
321c1729db5b initial checkin penk parents: diff changeset	1426	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1427
321c1729db5b initial checkin penk parents: diff changeset	1428	^
321c1729db5b initial checkin penk parents: diff changeset	1429	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1430	#(
321c1729db5b initial checkin penk parents: diff changeset	1431	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1432	#enabled: #hasListEntriesHolder
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1433	#label: 'Select All'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1434	#itemValue: #selectAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1435	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1436	)
321c1729db5b initial checkin penk parents: diff changeset	1437	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1438	#label: '-'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1439	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1440	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1441	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1442	#label: 'Copy Filenames'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1443	#itemValue: #copyFilesToClipboard
3892 321c1729db5b initial checkin penk parents: diff changeset	1444	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1445	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1446	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1447	#label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	1448	)
321c1729db5b initial checkin penk parents: diff changeset	1449	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1450	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1451	#label: 'Extract to Directory...'
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1452	#itemValue: #extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1453	#translateLabel: true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1454	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1455	#(#MenuItem
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1456	#label: 'Extract All to Directory...'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1457	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1458	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1459	)
321c1729db5b initial checkin penk parents: diff changeset	1460	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1461	#enabled: #canDelete
4476 e4d58ec911c8 menu item Claus Gittinger <cg@exept.de> parents: 4475 diff changeset	1462	#label: 'Delete from Archive'
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	1463	#itemValue: #removeFilesFromArchive
3892 321c1729db5b initial checkin penk parents: diff changeset	1464	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1465	#shortcutKey: #Delete
3892 321c1729db5b initial checkin penk parents: diff changeset	1466	)
321c1729db5b initial checkin penk parents: diff changeset	1467	#(#MenuItem
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1468	#label: '-'
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1469	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1470	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1471	#enabled: #canViewFile
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1472	#label: 'Show Contents'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1473	#itemValue: #viewFile
3892 321c1729db5b initial checkin penk parents: diff changeset	1474	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1475	#isVisible: #isEmbeddedApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	1476	)
321c1729db5b initial checkin penk parents: diff changeset	1477	)
321c1729db5b initial checkin penk parents: diff changeset	1478	nil
321c1729db5b initial checkin penk parents: diff changeset	1479	nil
321c1729db5b initial checkin penk parents: diff changeset	1480	)
321c1729db5b initial checkin penk parents: diff changeset	1481	!
321c1729db5b initial checkin penk parents: diff changeset	1482
321c1729db5b initial checkin penk parents: diff changeset	1483	menu
321c1729db5b initial checkin penk parents: diff changeset	1484	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1485	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1486
321c1729db5b initial checkin penk parents: diff changeset	1487	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1488	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1489
321c1729db5b initial checkin penk parents: diff changeset	1490	"
321c1729db5b initial checkin penk parents: diff changeset	1491	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	1492	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1493	"
321c1729db5b initial checkin penk parents: diff changeset	1494
321c1729db5b initial checkin penk parents: diff changeset	1495	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1496
321c1729db5b initial checkin penk parents: diff changeset	1497	^
321c1729db5b initial checkin penk parents: diff changeset	1498	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1499	#(
321c1729db5b initial checkin penk parents: diff changeset	1500	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1501	#activeHelpKey: #stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1502	#enabled: #enableStopButton
3892 321c1729db5b initial checkin penk parents: diff changeset	1503	#label: 'Stop'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1504	#itemValue: #doStopProcess
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1505	#nameKey: #Stop
3892 321c1729db5b initial checkin penk parents: diff changeset	1506	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1507	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	1508	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)
321c1729db5b initial checkin penk parents: diff changeset	1509	)
321c1729db5b initial checkin penk parents: diff changeset	1510	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1511	#activeHelpKey: #extractItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1512	#enabled: #hasListEntriesHolder
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1513	#label: 'Extract'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1514	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1515	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1516	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1517	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #extract28x28Icon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1518	)
321c1729db5b initial checkin penk parents: diff changeset	1519	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1520	#activeHelpKey: #removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1521	#enabled: #enableRemoveErrorOutput
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1522	#label: 'Remove Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1523	#itemValue: #removeErrorOutput
3892 321c1729db5b initial checkin penk parents: diff changeset	1524	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1525	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1526	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #removeBug28x28Icon)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1527	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1528	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1529	#activeHelpKey: #closeTabButton
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1530	#label: 'Close'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1531	#itemValue: #doClose
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1532	#translateLabel: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1533	#isButton: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1534	#startGroup: #right
3892 321c1729db5b initial checkin penk parents: diff changeset	1535	#isVisible: #isEmbeddedApplication
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1536	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	1537	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1538	)
321c1729db5b initial checkin penk parents: diff changeset	1539	)
321c1729db5b initial checkin penk parents: diff changeset	1540	nil
321c1729db5b initial checkin penk parents: diff changeset	1541	nil
321c1729db5b initial checkin penk parents: diff changeset	1542	)
321c1729db5b initial checkin penk parents: diff changeset	1543	! !
321c1729db5b initial checkin penk parents: diff changeset	1544
321c1729db5b initial checkin penk parents: diff changeset	1545	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1546
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1547	canOpenItem:anItem
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1548	\|suffix mimeType\|
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1549
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1550	"avoid autoloading the archiver if its definitely not an archive"
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1551	OperatingSystem isUNIXlike ifFalse:[
cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1552	"until Archiver supports windows archives..."
cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1553	^ false.
cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1554	].
cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1555
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1556	suffix := anItem fileName suffix asLowercase.
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1557	( #('c' 'h' 'bat' 'sh') includes:suffix) ifTrue:[^ false].
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1558
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1559	mimeType := anItem mimeType.
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1560	( #('application/x-make') includes:mimeType) ifTrue:[^ false].
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1561
5315 7384fe48ec1e * empty log message * Claus Gittinger <cg@exept.de> parents: 5307 diff changeset	1562	Archiver isNil ifTrue:[^ false].
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1563	^ (Archiver classForMimeType:mimeType fileName:anItem fileName) notNil
3892 321c1729db5b initial checkin penk parents: diff changeset	1564	!
321c1729db5b initial checkin penk parents: diff changeset	1565
321c1729db5b initial checkin penk parents: diff changeset	1566	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	1567
321c1729db5b initial checkin penk parents: diff changeset	1568	^ false
321c1729db5b initial checkin penk parents: diff changeset	1569	! !
321c1729db5b initial checkin penk parents: diff changeset	1570
321c1729db5b initial checkin penk parents: diff changeset	1571	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
321c1729db5b initial checkin penk parents: diff changeset	1572
321c1729db5b initial checkin penk parents: diff changeset	1573	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1574	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1575	by the DataSetBuilder of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1576
321c1729db5b initial checkin penk parents: diff changeset	1577	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1578	the DataSetBuilder may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1579
321c1729db5b initial checkin penk parents: diff changeset	1580	"
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1581	DataSetBuilder new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#tableColumns
3892 321c1729db5b initial checkin penk parents: diff changeset	1582	"
321c1729db5b initial checkin penk parents: diff changeset	1583
321c1729db5b initial checkin penk parents: diff changeset	1584	<resource: #tableColumns>
321c1729db5b initial checkin penk parents: diff changeset	1585
321c1729db5b initial checkin penk parents: diff changeset	1586	^#(
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1587	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1588	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1589	labelActionSelector: sortFileListsBy:
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1590	labelActionArgument: 'directory'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1591	width: 25
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1592	minWidth: 20
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1593	height: 16
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1594	model: icon
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1595	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1596	isResizeable: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1597	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1598	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1599	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1600	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1601	label: 'File Name'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1602	id: 'fileName'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1603	labelAlignment: left
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1604	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1605	model: fileName
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1606	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1607	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1608	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1609	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1610	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1611	label: 'Perm'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1612	id: 'permissions'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1613	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1614	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1615	width: 75
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1616	model: permissions
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1617	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1618	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1619	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1620	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1621	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1622	label: 'Version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1623	id: 'version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1624	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1625	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1626	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1627	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1628	model: version
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1629	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1630	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1631	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1632	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1633	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1634	label: 'Type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1635	id: 'type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1636	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1637	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1638	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1639	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1640	model: type
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1641	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1642	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1643	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1644	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1645	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1646	label: 'Owner/Group'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1647	id: 'ownerGroup'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1648	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1649	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1650	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1651	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1652	model: ownerGroup
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1653	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1654	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1655	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1656	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1657	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1658	label: 'Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1659	id: 'size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1660	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1661	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1662	width: 80
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1663	model: size
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1664	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1665	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1666	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1667	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1668	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1669	label: 'Date & Time'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1670	id: 'dateAndTime'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1671	labelAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1672	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1673	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1674	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1675	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1676	model: dateAndTime
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1677	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1678	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1679	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1680	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1681	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1682	label: 'Method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1683	id: 'method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1684	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1685	columnAlignment: center
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1686	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1687	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1688	model: method
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1689	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1690	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1691	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1692	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1693	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1694	label: 'CRC'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1695	id: 'crc'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1696	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1697	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1698	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1699	model: crc
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1700	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1701	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1702	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1703	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1704	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1705	label: 'Compress Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1706	id: 'compressSize'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1707	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1708	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1709	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1710	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1711	model: compressSize
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1712	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1713	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1714	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1715	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1716	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1717	label: 'Ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1718	id: 'ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1719	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1720	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1721	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1722	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1723	model: ratio
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1724	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1725	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1726	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1727	)
321c1729db5b initial checkin penk parents: diff changeset	1728	)
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1729
3892 321c1729db5b initial checkin penk parents: diff changeset	1730	! !
321c1729db5b initial checkin penk parents: diff changeset	1731
321c1729db5b initial checkin penk parents: diff changeset	1732	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	1733
321c1729db5b initial checkin penk parents: diff changeset	1734	archiver
321c1729db5b initial checkin penk parents: diff changeset	1735	"return the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1736
321c1729db5b initial checkin penk parents: diff changeset	1737	^ archiver
321c1729db5b initial checkin penk parents: diff changeset	1738	!
321c1729db5b initial checkin penk parents: diff changeset	1739
321c1729db5b initial checkin penk parents: diff changeset	1740	archiver:something
321c1729db5b initial checkin penk parents: diff changeset	1741	"set the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1742
321c1729db5b initial checkin penk parents: diff changeset	1743	archiver := something.
321c1729db5b initial checkin penk parents: diff changeset	1744	!
321c1729db5b initial checkin penk parents: diff changeset	1745
321c1729db5b initial checkin penk parents: diff changeset	1746	columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1747	"return the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1748
321c1729db5b initial checkin penk parents: diff changeset	1749	^ columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1750	!
321c1729db5b initial checkin penk parents: diff changeset	1751
321c1729db5b initial checkin penk parents: diff changeset	1752	columnDescriptors:aListOfColumns
321c1729db5b initial checkin penk parents: diff changeset	1753	"set the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1754
321c1729db5b initial checkin penk parents: diff changeset	1755	columnDescriptors = aListOfColumns ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1756	^ self
321c1729db5b initial checkin penk parents: diff changeset	1757	].
321c1729db5b initial checkin penk parents: diff changeset	1758
321c1729db5b initial checkin penk parents: diff changeset	1759	columnDescriptors := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1760
321c1729db5b initial checkin penk parents: diff changeset	1761	aListOfColumns keysAndValuesDo:[:anIndex :aDesc\| \|col\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1762	col := aDesc isSequenceable ifTrue:[DataSetColumnSpec decodeFromLiteralArray:aDesc]
3892 321c1729db5b initial checkin penk parents: diff changeset	1763	ifFalse:[aDesc].
321c1729db5b initial checkin penk parents: diff changeset	1764	columnDescriptors add:col.
321c1729db5b initial checkin penk parents: diff changeset	1765	].
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1766
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1767	"Modified: / 27-03-2007 / 08:46:06 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1768	!
321c1729db5b initial checkin penk parents: diff changeset	1769
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1770	item:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1771	super item:anItem.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1772
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	1773	self removeErrorOutput.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1774	archiver := Archiver newFor:self fileName.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1775
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1776	archiver notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1777	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1778	makeProcessFor:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1779	self archiver:archiver.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1780	self setColumnsForArchiver.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1781	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1782	with:'Setup archive'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1783	^ true
321c1729db5b initial checkin penk parents: diff changeset	1784	].
321c1729db5b initial checkin penk parents: diff changeset	1785	^ false
321c1729db5b initial checkin penk parents: diff changeset	1786	!
321c1729db5b initial checkin penk parents: diff changeset	1787
321c1729db5b initial checkin penk parents: diff changeset	1788	temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1789	"return the value of the instance variable 'temporaryDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1790
321c1729db5b initial checkin penk parents: diff changeset	1791	temporaryDirectory isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1792	temporaryDirectory := Filename newTemporary.
321c1729db5b initial checkin penk parents: diff changeset	1793	temporaryDirectory makeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	1794	].
321c1729db5b initial checkin penk parents: diff changeset	1795	^ temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1796	! !
321c1729db5b initial checkin penk parents: diff changeset	1797
321c1729db5b initial checkin penk parents: diff changeset	1798	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	1799
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1800	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1801	self item:anItem.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1802	self clearFileList.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1803	self listAllFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	1804	^ true
321c1729db5b initial checkin penk parents: diff changeset	1805	!
321c1729db5b initial checkin penk parents: diff changeset	1806
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1807	clearFileList
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1808
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1809	self archiveFileList value removeAll.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1810	!
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1811
3892 321c1729db5b initial checkin penk parents: diff changeset	1812	copyFilesToClipboard
321c1729db5b initial checkin penk parents: diff changeset	1813
321c1729db5b initial checkin penk parents: diff changeset	1814
321c1729db5b initial checkin penk parents: diff changeset	1815	\|sel list stream\|
321c1729db5b initial checkin penk parents: diff changeset	1816
321c1729db5b initial checkin penk parents: diff changeset	1817	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1818	list := self archiveFileList.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	1819	(sel notEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1820	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	1821	sel do:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	1822	stream nextPutAll:(key fileName asString).
321c1729db5b initial checkin penk parents: diff changeset	1823	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	1824	].
6033 9393b570b70a * empty log message * ca parents: 5968 diff changeset	1825	self window setClipboardText:stream contents.
3892 321c1729db5b initial checkin penk parents: diff changeset	1826	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1827	].
321c1729db5b initial checkin penk parents: diff changeset	1828	!
321c1729db5b initial checkin penk parents: diff changeset	1829
321c1729db5b initial checkin penk parents: diff changeset	1830	dblClick
321c1729db5b initial checkin penk parents: diff changeset	1831
321c1729db5b initial checkin penk parents: diff changeset	1832	self viewFile.
321c1729db5b initial checkin penk parents: diff changeset	1833	!
321c1729db5b initial checkin penk parents: diff changeset	1834
321c1729db5b initial checkin penk parents: diff changeset	1835	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	1836
321c1729db5b initial checkin penk parents: diff changeset	1837	\| archiver \|
321c1729db5b initial checkin penk parents: diff changeset	1838	self stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1839	archiver := self archiver.
321c1729db5b initial checkin penk parents: diff changeset	1840	archiver notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1841	self archiver stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1842	].
321c1729db5b initial checkin penk parents: diff changeset	1843	self enableStopButton value:false.
321c1729db5b initial checkin penk parents: diff changeset	1844	!
321c1729db5b initial checkin penk parents: diff changeset	1845
321c1729db5b initial checkin penk parents: diff changeset	1846	removeErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1847
321c1729db5b initial checkin penk parents: diff changeset	1848	self viewErrorList value:false.
321c1729db5b initial checkin penk parents: diff changeset	1849	self errorListHolder removeAll.
321c1729db5b initial checkin penk parents: diff changeset	1850	!
321c1729db5b initial checkin penk parents: diff changeset	1851
321c1729db5b initial checkin penk parents: diff changeset	1852	removeTemporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1853
321c1729db5b initial checkin penk parents: diff changeset	1854	temporaryDirectory notNil ifTrue:[
4923 1aced17a14a7 Do not use obsolete FileDirectory Stefan Vogel <sv@exept.de> parents: 4913 diff changeset	1855	temporaryDirectory removeDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1856	temporaryDirectory := nil.
321c1729db5b initial checkin penk parents: diff changeset	1857	].
321c1729db5b initial checkin penk parents: diff changeset	1858	!
321c1729db5b initial checkin penk parents: diff changeset	1859
321c1729db5b initial checkin penk parents: diff changeset	1860	selectAll
321c1729db5b initial checkin penk parents: diff changeset	1861
321c1729db5b initial checkin penk parents: diff changeset	1862	\| sel listOfFiles\|
321c1729db5b initial checkin penk parents: diff changeset	1863
321c1729db5b initial checkin penk parents: diff changeset	1864	sel := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1865	listOfFiles := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	1866	1 to:(listOfFiles size) do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	1867	sel add:el
321c1729db5b initial checkin penk parents: diff changeset	1868	].
321c1729db5b initial checkin penk parents: diff changeset	1869	self selectionHolder value:sel.
321c1729db5b initial checkin penk parents: diff changeset	1870	!
321c1729db5b initial checkin penk parents: diff changeset	1871
321c1729db5b initial checkin penk parents: diff changeset	1872	updateFileBrowserIfPresentWith:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	1873
321c1729db5b initial checkin penk parents: diff changeset	1874	\| master\|
321c1729db5b initial checkin penk parents: diff changeset	1875
321c1729db5b initial checkin penk parents: diff changeset	1876	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	1877	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1878	master updateAndSelect:(OrderedCollection with:aDirectory).
321c1729db5b initial checkin penk parents: diff changeset	1879	].
321c1729db5b initial checkin penk parents: diff changeset	1880	!
321c1729db5b initial checkin penk parents: diff changeset	1881
321c1729db5b initial checkin penk parents: diff changeset	1882	viewFile
321c1729db5b initial checkin penk parents: diff changeset	1883
321c1729db5b initial checkin penk parents: diff changeset	1884	\| master item file tempDir\|
321c1729db5b initial checkin penk parents: diff changeset	1885
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	1886	self canViewFile ifFalse:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	1887	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	1888	self selectionHolder value size = 1 ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1889	Dialog warn:'only one file have to be selected'.
321c1729db5b initial checkin penk parents: diff changeset	1890	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1891	].
321c1729db5b initial checkin penk parents: diff changeset	1892	tempDir := self temporaryDirectory.
321c1729db5b initial checkin penk parents: diff changeset	1893	self extractSelectedFilesTo:tempDir askForExtractOptions:false.
321c1729db5b initial checkin penk parents: diff changeset	1894	process notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1895	process waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	1896	].
321c1729db5b initial checkin penk parents: diff changeset	1897	file := tempDir construct:self selectionHolder value first fileName.
321c1729db5b initial checkin penk parents: diff changeset	1898	file exists ifTrue:[
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1899	item := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	1900	].
321c1729db5b initial checkin penk parents: diff changeset	1901	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1902	master openApplByFileItem:item.
321c1729db5b initial checkin penk parents: diff changeset	1903	].
321c1729db5b initial checkin penk parents: diff changeset	1904	! !
321c1729db5b initial checkin penk parents: diff changeset	1905
321c1729db5b initial checkin penk parents: diff changeset	1906	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	1907
321c1729db5b initial checkin penk parents: diff changeset	1908	archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	1909
321c1729db5b initial checkin penk parents: diff changeset	1910	archiveFileList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1911	archiveFileList := List new.
321c1729db5b initial checkin penk parents: diff changeset	1912	archiveFileList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1913	].
321c1729db5b initial checkin penk parents: diff changeset	1914	^ archiveFileList.
321c1729db5b initial checkin penk parents: diff changeset	1915	!
321c1729db5b initial checkin penk parents: diff changeset	1916
321c1729db5b initial checkin penk parents: diff changeset	1917	enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1918	"return/create the 'enableRemoveErrorOutput' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1919
321c1729db5b initial checkin penk parents: diff changeset	1920	enableRemoveErrorOutput isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1921	enableRemoveErrorOutput := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	1922	].
321c1729db5b initial checkin penk parents: diff changeset	1923	^ enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1924	!
321c1729db5b initial checkin penk parents: diff changeset	1925
321c1729db5b initial checkin penk parents: diff changeset	1926	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	1927
321c1729db5b initial checkin penk parents: diff changeset	1928	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1929	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	1930	].
321c1729db5b initial checkin penk parents: diff changeset	1931	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	1932	!
321c1729db5b initial checkin penk parents: diff changeset	1933
321c1729db5b initial checkin penk parents: diff changeset	1934	errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	1935
321c1729db5b initial checkin penk parents: diff changeset	1936	errorListHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1937	errorListHolder := List new.
321c1729db5b initial checkin penk parents: diff changeset	1938	].
321c1729db5b initial checkin penk parents: diff changeset	1939	^ errorListHolder.
321c1729db5b initial checkin penk parents: diff changeset	1940	!
321c1729db5b initial checkin penk parents: diff changeset	1941
321c1729db5b initial checkin penk parents: diff changeset	1942	errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	1943
321c1729db5b initial checkin penk parents: diff changeset	1944	errorListVisibilityHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1945	errorListVisibilityHolder := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	1946	].
321c1729db5b initial checkin penk parents: diff changeset	1947	^ errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	1948	!
321c1729db5b initial checkin penk parents: diff changeset	1949
321c1729db5b initial checkin penk parents: diff changeset	1950	hasSelectionInList
321c1729db5b initial checkin penk parents: diff changeset	1951	\| sel \|
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	1952
3892 321c1729db5b initial checkin penk parents: diff changeset	1953	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	1954	^ sel notEmptyOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	1955	!
321c1729db5b initial checkin penk parents: diff changeset	1956
321c1729db5b initial checkin penk parents: diff changeset	1957	selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	1958	selectionHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1959	selectionHolder := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	1960	selectionHolder addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1961	].
321c1729db5b initial checkin penk parents: diff changeset	1962	^ selectionHolder.
321c1729db5b initial checkin penk parents: diff changeset	1963	!
321c1729db5b initial checkin penk parents: diff changeset	1964
321c1729db5b initial checkin penk parents: diff changeset	1965	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1966
321c1729db5b initial checkin penk parents: diff changeset	1967	tableColumns isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1968	tableColumns := self class tableColumns asValue.
321c1729db5b initial checkin penk parents: diff changeset	1969	].
321c1729db5b initial checkin penk parents: diff changeset	1970	^ tableColumns.
321c1729db5b initial checkin penk parents: diff changeset	1971	!
321c1729db5b initial checkin penk parents: diff changeset	1972
321c1729db5b initial checkin penk parents: diff changeset	1973	viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	1974	"return/create the 'viewErrorList' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1975
321c1729db5b initial checkin penk parents: diff changeset	1976	viewErrorList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1977	viewErrorList := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	1978	viewErrorList onChangeSend:#viewErrorListChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	1979	].
321c1729db5b initial checkin penk parents: diff changeset	1980	^ viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	1981	! !
321c1729db5b initial checkin penk parents: diff changeset	1982
321c1729db5b initial checkin penk parents: diff changeset	1983	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	1984
321c1729db5b initial checkin penk parents: diff changeset	1985	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	1986	changedObject == self archiveFileList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1987	self hasListEntriesHolder value:(changedObject notEmpty).
321c1729db5b initial checkin penk parents: diff changeset	1988	^ self
321c1729db5b initial checkin penk parents: diff changeset	1989	].
321c1729db5b initial checkin penk parents: diff changeset	1990	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	1991	!
321c1729db5b initial checkin penk parents: diff changeset	1992
321c1729db5b initial checkin penk parents: diff changeset	1993	viewErrorListChanged
321c1729db5b initial checkin penk parents: diff changeset	1994
321c1729db5b initial checkin penk parents: diff changeset	1995	\| viewListValue\|
321c1729db5b initial checkin penk parents: diff changeset	1996
321c1729db5b initial checkin penk parents: diff changeset	1997	viewListValue := self viewErrorList value.
321c1729db5b initial checkin penk parents: diff changeset	1998	self enableRemoveErrorOutput value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	1999	self errorListVisibilityHolder value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	2000	! !
321c1729db5b initial checkin penk parents: diff changeset	2001
321c1729db5b initial checkin penk parents: diff changeset	2002	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
321c1729db5b initial checkin penk parents: diff changeset	2003
321c1729db5b initial checkin penk parents: diff changeset	2004	getErrorBlock
321c1729db5b initial checkin penk parents: diff changeset	2005
321c1729db5b initial checkin penk parents: diff changeset	2006	^
321c1729db5b initial checkin penk parents: diff changeset	2007	[: x \|
321c1729db5b initial checkin penk parents: diff changeset	2008	self viewErrorList value:true.
321c1729db5b initial checkin penk parents: diff changeset	2009	self errorListHolder value add:x.
321c1729db5b initial checkin penk parents: diff changeset	2010	]
321c1729db5b initial checkin penk parents: diff changeset	2011	!
321c1729db5b initial checkin penk parents: diff changeset	2012
321c1729db5b initial checkin penk parents: diff changeset	2013	getErrorStream
321c1729db5b initial checkin penk parents: diff changeset	2014
321c1729db5b initial checkin penk parents: diff changeset	2015	\|errStream\|
321c1729db5b initial checkin penk parents: diff changeset	2016
321c1729db5b initial checkin penk parents: diff changeset	2017	errStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2018	errStream nextPutLineBlock:(self getErrorBlock).
321c1729db5b initial checkin penk parents: diff changeset	2019	^ errStream
321c1729db5b initial checkin penk parents: diff changeset	2020	!
321c1729db5b initial checkin penk parents: diff changeset	2021
321c1729db5b initial checkin penk parents: diff changeset	2022	getOutBlock
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2023	\|archiveOutputParser\|
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2024
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2025	archiveOutputParser := archiver listFilesReader.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2026
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2027	^ [: line \| \|item\|
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2028	item := archiveOutputParser parseLine:line forItemClass:ArchivItem.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2029	item notNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2030	self archiveFileList value add:item
321c1729db5b initial checkin penk parents: diff changeset	2031	].
321c1729db5b initial checkin penk parents: diff changeset	2032	]
321c1729db5b initial checkin penk parents: diff changeset	2033	!
321c1729db5b initial checkin penk parents: diff changeset	2034
321c1729db5b initial checkin penk parents: diff changeset	2035	getOutStream
321c1729db5b initial checkin penk parents: diff changeset	2036
321c1729db5b initial checkin penk parents: diff changeset	2037	\|outStream\|
321c1729db5b initial checkin penk parents: diff changeset	2038
321c1729db5b initial checkin penk parents: diff changeset	2039	outStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2040	outStream nextPutLineBlock:(self getOutBlock).
321c1729db5b initial checkin penk parents: diff changeset	2041	^ outStream
321c1729db5b initial checkin penk parents: diff changeset	2042	!
321c1729db5b initial checkin penk parents: diff changeset	2043
321c1729db5b initial checkin penk parents: diff changeset	2044	makeProcessFor:aBlock
321c1729db5b initial checkin penk parents: diff changeset	2045	self makeProcessFor:aBlock with:''
321c1729db5b initial checkin penk parents: diff changeset	2046	!
321c1729db5b initial checkin penk parents: diff changeset	2047
321c1729db5b initial checkin penk parents: diff changeset	2048	makeProcessFor:aBlock with:string
321c1729db5b initial checkin penk parents: diff changeset	2049	process notNil ifTrue:[
6054 ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2050	(process waitUntilTerminatedWithTimeout:10) ifTrue:[
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2051	(Dialog confirm:'Terminate the current active archive operation ?') ifFalse:[^ self].
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2052	process terminate.
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2053	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2054	terminateByMe ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2055	terminateByMe := false.
321c1729db5b initial checkin penk parents: diff changeset	2056	^ self
321c1729db5b initial checkin penk parents: diff changeset	2057	].
321c1729db5b initial checkin penk parents: diff changeset	2058	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2059
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2060	process := [ [
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2061	self notify:string.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2062	aBlock value.
6190 b3ab1d955319 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	2063	self notify:nil.
4890 b3f7edcf4981 Stream streamErrorSignal -> StreamError Stefan Vogel <sv@exept.de> parents: 4880 diff changeset	2064	] ensure:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2065	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2066	self enableStopButton value:false.
321c1729db5b initial checkin penk parents: diff changeset	2067	]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2068	] newProcess.
3892 321c1729db5b initial checkin penk parents: diff changeset	2069	process priority:(Processor systemBackgroundPriority).
321c1729db5b initial checkin penk parents: diff changeset	2070	process name:'ArchiveApplicationProcess'.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2071	process resume.
3892 321c1729db5b initial checkin penk parents: diff changeset	2072	self enableStopButton value:true.
321c1729db5b initial checkin penk parents: diff changeset	2073	!
321c1729db5b initial checkin penk parents: diff changeset	2074
321c1729db5b initial checkin penk parents: diff changeset	2075	setColumnsForArchiver
321c1729db5b initial checkin penk parents: diff changeset	2076
321c1729db5b initial checkin penk parents: diff changeset	2077	\| newColumns archiverColumns allColumns iconColumn\|
321c1729db5b initial checkin penk parents: diff changeset	2078
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2079	archiverColumns := archiver columns collect:[:el\| el first].
3892 321c1729db5b initial checkin penk parents: diff changeset	2080	allColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2081	newColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2082	self class tableColumns do:[:el\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2083	allColumns add:(DataSetColumnSpec decodeFromLiteralArray:el).
3892 321c1729db5b initial checkin penk parents: diff changeset	2084	].
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2085	iconColumn := allColumns detect:[: col \| (col readSelector asSymbol) = #icon] ifNone:[nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2086	iconColumn notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2087	newColumns add:iconColumn.
321c1729db5b initial checkin penk parents: diff changeset	2088	].
321c1729db5b initial checkin penk parents: diff changeset	2089	allColumns do:[:col\|
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2090	(archiverColumns includes:(col readSelector asSymbol)) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2091	newColumns add:col.
321c1729db5b initial checkin penk parents: diff changeset	2092	].
321c1729db5b initial checkin penk parents: diff changeset	2093	].
321c1729db5b initial checkin penk parents: diff changeset	2094	self tableColumns value:newColumns.
321c1729db5b initial checkin penk parents: diff changeset	2095	self columnDescriptors:(self tableColumns value).
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2096
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2097	"Modified: / 27-03-2007 / 08:46:03 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2098	!
321c1729db5b initial checkin penk parents: diff changeset	2099
321c1729db5b initial checkin penk parents: diff changeset	2100	stopProcess
321c1729db5b initial checkin penk parents: diff changeset	2101
321c1729db5b initial checkin penk parents: diff changeset	2102	\|task\|
321c1729db5b initial checkin penk parents: diff changeset	2103
321c1729db5b initial checkin penk parents: diff changeset	2104	terminateByMe := true.
321c1729db5b initial checkin penk parents: diff changeset	2105	(task := process) notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2106	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2107
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2108	Error handle:[:ex\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2109	Dialog warn:ex description.
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2110	] do:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2111	task isDead ifFalse:[
3919 c3cb2ca2f2c8 next stage penk parents: 3906 diff changeset	2112	task terminateWithAllSubprocessesInGroup.
3892 321c1729db5b initial checkin penk parents: diff changeset	2113	task waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	2114	]
321c1729db5b initial checkin penk parents: diff changeset	2115	]
321c1729db5b initial checkin penk parents: diff changeset	2116	].
321c1729db5b initial checkin penk parents: diff changeset	2117	! !
321c1729db5b initial checkin penk parents: diff changeset	2118
321c1729db5b initial checkin penk parents: diff changeset	2119	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command helper'!
321c1729db5b initial checkin penk parents: diff changeset	2120
321c1729db5b initial checkin penk parents: diff changeset	2121	selectDirectoryDialog
321c1729db5b initial checkin penk parents: diff changeset	2122
321c1729db5b initial checkin penk parents: diff changeset	2123	\| dir directory haveDirectory\|
321c1729db5b initial checkin penk parents: diff changeset	2124
321c1729db5b initial checkin penk parents: diff changeset	2125	directory := self fileName directory.
321c1729db5b initial checkin penk parents: diff changeset	2126	haveDirectory := false.
321c1729db5b initial checkin penk parents: diff changeset	2127	[haveDirectory] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2128	dir := Dialog requestDirectoryName:'Which directory ?' default:dir.
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2129	dir isEmpty ifTrue:[ ^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2130	dir := dir asFilename.
321c1729db5b initial checkin penk parents: diff changeset	2131	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2132	Dialog warn:'cant write to: ', dir asString.
321c1729db5b initial checkin penk parents: diff changeset	2133	].
321c1729db5b initial checkin penk parents: diff changeset	2134	haveDirectory := true.
321c1729db5b initial checkin penk parents: diff changeset	2135	].
321c1729db5b initial checkin penk parents: diff changeset	2136	^ dir
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2137	!
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2138
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2139	selectDirectoryDialog:message
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2140	\|dir haveDirectory answer\|
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2141
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2142	dir := self masterApplication currentDirectory.
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2143	dir isNil ifTrue:[
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2144	dir := archiver fileName withoutSuffix.
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2145	"/ (fn exists and:[fn isDirectory]) ifTrue:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2146	"/ dir := fn
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2147	"/ ] ifFalse:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2148	"/ dir := fn directory
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2149	"/ ].
4981 0476a3d2d4ef archiver fix in SelectDirectoryDialog (nil fileName) Claus Gittinger <cg@exept.de> parents: 4977 diff changeset	2150	].
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2151
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2152	haveDirectory := false.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2153	[haveDirectory] whileFalse:[
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2154	dir := Dialog requestDirectoryName:message default:dir.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2155	dir isEmpty ifTrue:[ ^ nil].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2156
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2157	dir := dir asFilename.
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2158	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2159	answer := Dialog confirm:(resources stringWithCRs:'Directory %1 does not exist.\\Create ?' with:(dir asString allBold)).
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2160	answer isNil ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2161	^ nil
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2162	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2163	answer ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2164	dir makeDirectory.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2165	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2166	Dialog warn:(resources stringWithCRs:'Cannot create directory %1 !!' with:(dir asString allBold)).
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2167	]
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2168	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2169	].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2170	dir exists ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2171	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2172	Dialog warn:(resources stringWithCRs:'Cannot write into directory %1 !!' with:dir asString allBold).
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2173	] ifFalse:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2174	haveDirectory := true.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2175	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2176	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2177	].
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2178	^ dir
3892 321c1729db5b initial checkin penk parents: diff changeset	2179	! !
321c1729db5b initial checkin penk parents: diff changeset	2180
321c1729db5b initial checkin penk parents: diff changeset	2181	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
321c1729db5b initial checkin penk parents: diff changeset	2182
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2183	addFilesToArchive:colOfFiles
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2184	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2185	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2186	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2187	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2188
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2189	"/ self
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2190	"/ makeProcessFor:[
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2191	"/ self archiver addFilesToArchive:colOfFiles.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2192	"/ ]
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2193	"/ with:'Adding files to archive'.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2194	"/ synchronous - otherwise list below fails
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2195	self archiver addFilesToArchive:colOfFiles.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2196
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2197	"/ ugly code alarm.
3892 321c1729db5b initial checkin penk parents: diff changeset	2198	(self archiver class == Archiver zipArchive) ifTrue:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2199	self listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2200	] ifFalse:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2201	self listFiles:colOfFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2202	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2203	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	2204	! !
321c1729db5b initial checkin penk parents: diff changeset	2205
321c1729db5b initial checkin penk parents: diff changeset	2206	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
321c1729db5b initial checkin penk parents: diff changeset	2207
321c1729db5b initial checkin penk parents: diff changeset	2208	extractAll
321c1729db5b initial checkin penk parents: diff changeset	2209
321c1729db5b initial checkin penk parents: diff changeset	2210	self extractSelectedFilesTo:nil withSelection:#all
321c1729db5b initial checkin penk parents: diff changeset	2211	!
321c1729db5b initial checkin penk parents: diff changeset	2212
321c1729db5b initial checkin penk parents: diff changeset	2213	extractSelectedFilesTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2214
321c1729db5b initial checkin penk parents: diff changeset	2215	self extractSelectedFilesTo:aDirectory withSelection:#selection askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2216	!
321c1729db5b initial checkin penk parents: diff changeset	2217
321c1729db5b initial checkin penk parents: diff changeset	2218	extractSelectedFilesTo:aDirectory withSelection:selectOrAll
321c1729db5b initial checkin penk parents: diff changeset	2219
321c1729db5b initial checkin penk parents: diff changeset	2220	self extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:true.
321c1729db5b initial checkin penk parents: diff changeset	2221	!
321c1729db5b initial checkin penk parents: diff changeset	2222
321c1729db5b initial checkin penk parents: diff changeset	2223	extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2224
321c1729db5b initial checkin penk parents: diff changeset	2225	\| dir\|
321c1729db5b initial checkin penk parents: diff changeset	2226
321c1729db5b initial checkin penk parents: diff changeset	2227	aDirectory isNil ifTrue:[
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2228	dir := self selectDirectoryDialog:'Extract into Directory?'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2229	dir isNil ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2230	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2231	dir := aDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2232	].
321c1729db5b initial checkin penk parents: diff changeset	2233	selectOrAll == #all ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2234	self extractAllTo:dir.
321c1729db5b initial checkin penk parents: diff changeset	2235	].
321c1729db5b initial checkin penk parents: diff changeset	2236	selectOrAll == #selection ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2237	self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2238	].
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2239	"/ self updateFileBrowserIfPresentWith:dir.
3892 321c1729db5b initial checkin penk parents: diff changeset	2240	! !
321c1729db5b initial checkin penk parents: diff changeset	2241
321c1729db5b initial checkin penk parents: diff changeset	2242	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
321c1729db5b initial checkin penk parents: diff changeset	2243
321c1729db5b initial checkin penk parents: diff changeset	2244	extractAllTo:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2245
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2246	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2247	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2248	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2249	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2250	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2251	makeProcessFor:[ self archiver extractFilesTo:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2252	with:'Extracting all files'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2253	^ true.
321c1729db5b initial checkin penk parents: diff changeset	2254	!
321c1729db5b initial checkin penk parents: diff changeset	2255
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2256	extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2257	self extractSelectedFilesTo:nil withSelection:#selection askForExtractOptions:true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2258	!
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2259
3892 321c1729db5b initial checkin penk parents: diff changeset	2260	extractSelectionTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2261
321c1729db5b initial checkin penk parents: diff changeset	2262	\| sel index extractWithDirectoryPart extractAllFilesInSelectedDirectories extractFiles\|
321c1729db5b initial checkin penk parents: diff changeset	2263
321c1729db5b initial checkin penk parents: diff changeset	2264	extractWithDirectoryPart := true.
321c1729db5b initial checkin penk parents: diff changeset	2265	extractAllFilesInSelectedDirectories := false.
321c1729db5b initial checkin penk parents: diff changeset	2266	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2267	(sel isEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2268	sel := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2269	].
321c1729db5b initial checkin penk parents: diff changeset	2270	sel := sel do:[:item\|
321c1729db5b initial checkin penk parents: diff changeset	2271	item fileName: item fileName
321c1729db5b initial checkin penk parents: diff changeset	2272	].
321c1729db5b initial checkin penk parents: diff changeset	2273	(askForExtractOptionsBoolean and:[self archiver class ~= Archiver zipArchive]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2274	extractFiles := self selRemoveFilesForDirs:sel.
321c1729db5b initial checkin penk parents: diff changeset	2275	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2276	extractFiles := sel.
321c1729db5b initial checkin penk parents: diff changeset	2277	].
321c1729db5b initial checkin penk parents: diff changeset	2278
321c1729db5b initial checkin penk parents: diff changeset	2279	askForExtractOptionsBoolean ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2280	index := extractFiles findFirst:[: el \| el hasDirectoryPart].
321c1729db5b initial checkin penk parents: diff changeset	2281	index ~= 0 ifTrue:[
4964 911fb209dcfc output parsing refactored; Claus Gittinger <cg@exept.de> parents: 4961 diff changeset	2282	extractWithDirectoryPart := (Dialog confirmWithCancel:'Extract with directory part ?\\(I.e. create empty directories as required to preserve relative path)' withCRs default:true).
3892 321c1729db5b initial checkin penk parents: diff changeset	2283	extractWithDirectoryPart isNil ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	2284	].
321c1729db5b initial checkin penk parents: diff changeset	2285	].
321c1729db5b initial checkin penk parents: diff changeset	2286	extractWithDirectoryPart ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2287	self extractWithDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2288	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2289	self extractWithOutDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2290	].
321c1729db5b initial checkin penk parents: diff changeset	2291	^ true
321c1729db5b initial checkin penk parents: diff changeset	2292	!
321c1729db5b initial checkin penk parents: diff changeset	2293
321c1729db5b initial checkin penk parents: diff changeset	2294	extractWithDirectoryPartTo:aDirectory with:extractFiles
321c1729db5b initial checkin penk parents: diff changeset	2295
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2296	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2297	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2298	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2299	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2300	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2301	makeProcessFor:[ self archiver extractFiles:extractFiles to:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2302	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2303	^ true.
321c1729db5b initial checkin penk parents: diff changeset	2304	!
321c1729db5b initial checkin penk parents: diff changeset	2305
321c1729db5b initial checkin penk parents: diff changeset	2306	extractWithOutDirectoryPartTo:aDirectory with:extractFiles
321c1729db5b initial checkin penk parents: diff changeset	2307
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2308	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2309	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2310	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2311	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2312	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2313	makeProcessFor:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2314	self archiver
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2315	extractFiles:(extractFiles collect:[:item\| item fileName])
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2316	withoutDirectoryTo:aDirectory.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2317	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2318	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2319	^ true.
321c1729db5b initial checkin penk parents: diff changeset	2320	! !
321c1729db5b initial checkin penk parents: diff changeset	2321
321c1729db5b initial checkin penk parents: diff changeset	2322	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
321c1729db5b initial checkin penk parents: diff changeset	2323
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2324	listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2325	self archiveFileList value removeAll.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2326	self listFiles:nil
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2327	!
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2328
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2329	listFiles:aColOfFilesOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	2330	process notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2331	process waitUntilTerminated
3892 321c1729db5b initial checkin penk parents: diff changeset	2332	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2333
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2334	archiver notNil ifTrue:[
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2335	self archiver
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2336	outStream:(self getOutStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2337	errorStream:(self getErrorStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2338	synchron:true.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2339
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2340	self
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2341	makeProcessFor:[self archiver listFiles:aColOfFilesOrNil]
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2342	with:'List files'
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2343	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2344	! !
321c1729db5b initial checkin penk parents: diff changeset	2345
321c1729db5b initial checkin penk parents: diff changeset	2346	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
321c1729db5b initial checkin penk parents: diff changeset	2347
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2348	removeFilesFromArchive
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2349	\|sel realSel list firtsPre stringCol stringRealSel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2350
321c1729db5b initial checkin penk parents: diff changeset	2351	sel := self selectionHolder value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2352	stringCol := sel collect:[:item \| item fileName].
3892 321c1729db5b initial checkin penk parents: diff changeset	2353	firtsPre := stringCol at:1.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2354	stringCol from:2 do:[:el \| firtsPre := firtsPre commonPrefixWith:el].
3892 321c1729db5b initial checkin penk parents: diff changeset	2355	list := self archiveFileList value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2356	"/ realSel := OrderedCollection new.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2357	"/ list do:[:item \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2358	"/ ((item fileName) startsWith:firtsPre) ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2359	"/ realSel add:item
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2360	"/ ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2361	"/ ].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2362	realSel := list select:[:item \| (item fileName) startsWith:firtsPre].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2363	stringRealSel := realSel collect:[:item \| item fileName].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2364
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2365	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2366	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2367	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2368	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2369	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2370	makeProcessFor:[ self archiver removeFilesFromArchive:stringCol ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2371	with:'Remove files'.
4462 b14fcc67ff8e removeAll: changed to removeAllFoundIn: Michael Beyl <mb@exept.de> parents: 4417 diff changeset	2372	self archiveFileList value removeAllFoundIn:realSel
3892 321c1729db5b initial checkin penk parents: diff changeset	2373	! !
321c1729db5b initial checkin penk parents: diff changeset	2374
321c1729db5b initial checkin penk parents: diff changeset	2375	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
321c1729db5b initial checkin penk parents: diff changeset	2376
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2377	canDrop:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2378
af8ef74cb43b next stage penk parents: 3950 diff changeset	2379	^ inDropMode
3892 321c1729db5b initial checkin penk parents: diff changeset	2380	!
321c1729db5b initial checkin penk parents: diff changeset	2381
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2382	doDrop:aContext
3892 321c1729db5b initial checkin penk parents: diff changeset	2383	\|col source arg objects\|
321c1729db5b initial checkin penk parents: diff changeset	2384
321c1729db5b initial checkin penk parents: diff changeset	2385	source := aContext dropSource.
321c1729db5b initial checkin penk parents: diff changeset	2386	arg := source argument.
321c1729db5b initial checkin penk parents: diff changeset	2387	objects := aContext dropObjects.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2388	col := objects collect:[:dropObject \| dropObject theObject].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2389	^ self addFilesToArchive:col
3892 321c1729db5b initial checkin penk parents: diff changeset	2390	!
321c1729db5b initial checkin penk parents: diff changeset	2391
321c1729db5b initial checkin penk parents: diff changeset	2392	doStartDrag:aDropSource in:aView
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2393	"set the cursors before starting the drag & drop operation"
3892 321c1729db5b initial checkin penk parents: diff changeset	2394
4018 43e02c59719d * empty log message * penk parents: 4001 diff changeset	2395	archiver class canDragnDrop ifFalse:[^ self].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2396	super doStartDrag:aDropSource in:aView
3892 321c1729db5b initial checkin penk parents: diff changeset	2397	!
321c1729db5b initial checkin penk parents: diff changeset	2398
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2399	dropEnter:aContext
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2400	\| dropObjects\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2401
af8ef74cb43b next stage penk parents: 3950 diff changeset	2402	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2403	(aContext dropSource receiver == self) ifTrue:[^ self].
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2404	dropObjects := aContext dropObjects.
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2405
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2406	dropObjects do:[:aObject\| \|checkObject checkObjectString\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2407	aObject isFileObject ifFalse:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2408	checkObject := aObject theObject.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	2409	checkObject isFilename ifFalse:[^ self].
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2410	checkObject isSpecialFile ifTrue:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2411	].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2412	inDropMode := true.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2413	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2414
af8ef74cb43b next stage penk parents: 3950 diff changeset	2415	dropLeave:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2416
af8ef74cb43b next stage penk parents: 3950 diff changeset	2417	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2418	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2419
3892 321c1729db5b initial checkin penk parents: diff changeset	2420	getDisplayObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2421	"retrieve the objects displayed during a drag"
3892 321c1729db5b initial checkin penk parents: diff changeset	2422
321c1729db5b initial checkin penk parents: diff changeset	2423	\| sel string size fnName stream\|
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2424
3892 321c1729db5b initial checkin penk parents: diff changeset	2425	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	2426	size := sel size.
321c1729db5b initial checkin penk parents: diff changeset	2427	size == 0 ifTrue:[^ ''].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2428
3892 321c1729db5b initial checkin penk parents: diff changeset	2429	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	2430	stream nextPutAll:(sel first fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2431	size == 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2432	fnName := 'ui_menuitem.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2433	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2434	fnName := 'ui_submenu_open.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2435	stream nextPutAll:' ... '.
321c1729db5b initial checkin penk parents: diff changeset	2436	stream nextPutAll:(sel last fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2437	].
321c1729db5b initial checkin penk parents: diff changeset	2438	string := stream contents.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2439
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2440	^ Array with:(LabelAndIcon
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2441	icon:(Image fromFile:fnName)
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2442	string:(Text string:string emphasis:#bold))
3892 321c1729db5b initial checkin penk parents: diff changeset	2443	!
321c1729db5b initial checkin penk parents: diff changeset	2444
321c1729db5b initial checkin penk parents: diff changeset	2445	getDropObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2446	"common code, used in subclasses"
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2447
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2448	\|sel\|
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2449
3892 321c1729db5b initial checkin penk parents: diff changeset	2450	sel := self selectionHolder value.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2451	^ sel collect:[:el\| DropObject newFileInArchive:(el fileName asFilename) ].
3892 321c1729db5b initial checkin penk parents: diff changeset	2452	! !
321c1729db5b initial checkin penk parents: diff changeset	2453
321c1729db5b initial checkin penk parents: diff changeset	2454	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	2455
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2456	processEvent:anEvent
3892 321c1729db5b initial checkin penk parents: diff changeset	2457	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	2458	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	2459
321c1729db5b initial checkin penk parents: diff changeset	2460	\|focusView key rawKey\|
321c1729db5b initial checkin penk parents: diff changeset	2461
321c1729db5b initial checkin penk parents: diff changeset	2462	anEvent isKeyPressEvent ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2463	focusView := anEvent targetView.
321c1729db5b initial checkin penk parents: diff changeset	2464	key := anEvent key.
321c1729db5b initial checkin penk parents: diff changeset	2465	rawKey := anEvent rawKey.
321c1729db5b initial checkin penk parents: diff changeset	2466	(focusView isSameOrComponentOf:self window) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2467	(key == #Delete) ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2468	self removeFilesFromArchive.
3892 321c1729db5b initial checkin penk parents: diff changeset	2469	^ true
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2470	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2471	]
321c1729db5b initial checkin penk parents: diff changeset	2472	].
321c1729db5b initial checkin penk parents: diff changeset	2473	^ false
321c1729db5b initial checkin penk parents: diff changeset	2474	! !
321c1729db5b initial checkin penk parents: diff changeset	2475
321c1729db5b initial checkin penk parents: diff changeset	2476	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	2477
321c1729db5b initial checkin penk parents: diff changeset	2478	postBuildFileTable:aWidget
321c1729db5b initial checkin penk parents: diff changeset	2479
321c1729db5b initial checkin penk parents: diff changeset	2480	fileTable := aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	2481	fileTable wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	2482	"/ FileBrowser icons keysAndValuesDo:[:aKey :anIcon\|
321c1729db5b initial checkin penk parents: diff changeset	2483	"/ fileTable registerImage:anIcon key:aKey.
321c1729db5b initial checkin penk parents: diff changeset	2484	"/ ].
321c1729db5b initial checkin penk parents: diff changeset	2485	self columnDescriptors:(self class tableColumns).
321c1729db5b initial checkin penk parents: diff changeset	2486	!
321c1729db5b initial checkin penk parents: diff changeset	2487
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2488	postOpenWith:aBuilder
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2489	\|currentDir contents suffix fileName file archivItem\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2490
321c1729db5b initial checkin penk parents: diff changeset	2491	self windowGroup addPreEventHook:self.
321c1729db5b initial checkin penk parents: diff changeset	2492	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2493	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	2494	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2495	contents := currentDir directoryContents.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2496	fileName := contents
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2497	detect:[:file \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2498	suffix := file asFilename suffix asLowercase.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2499	suffix = 'tgz'
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2500	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2501	ifNone:[nil].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2502	fileName isNil ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2503	Dialog warn:'cant find a Zip file in ' , currentDir asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2504	^ self
321c1729db5b initial checkin penk parents: diff changeset	2505	].
321c1729db5b initial checkin penk parents: diff changeset	2506	file := currentDir construct:fileName.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	2507	archivItem := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	2508	(self item:archivItem) ifFalse:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2509	Dialog warn:'file type of ' , item fileName asString , ' not supported'.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2510	^ self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2511	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2512	].
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2513	self listAllFiles.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	2514	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	2515	!
321c1729db5b initial checkin penk parents: diff changeset	2516
321c1729db5b initial checkin penk parents: diff changeset	2517	release
321c1729db5b initial checkin penk parents: diff changeset	2518	self archiver release.
321c1729db5b initial checkin penk parents: diff changeset	2519	^ super release.
321c1729db5b initial checkin penk parents: diff changeset	2520	! !
321c1729db5b initial checkin penk parents: diff changeset	2521
321c1729db5b initial checkin penk parents: diff changeset	2522	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	2523
321c1729db5b initial checkin penk parents: diff changeset	2524	canDelete
321c1729db5b initial checkin penk parents: diff changeset	2525
321c1729db5b initial checkin penk parents: diff changeset	2526	^ (self hasOneSelectionInList and:[archiver class canRemoveFiles])
321c1729db5b initial checkin penk parents: diff changeset	2527	!
321c1729db5b initial checkin penk parents: diff changeset	2528
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2529	canViewFile
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2530
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2531	^ self archiver class canViewFile and:[self hasOneSelectionInList]
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2532	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2533
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2534	hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2535	"return/create the 'hasListEntriesHolder' value holder (automatically generated)"
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2536
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2537	hasListEntriesHolder isNil ifTrue:[
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2538	hasListEntriesHolder := false asValue.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2539	].
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2540	^ hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2541	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2542
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2543	hasOneSelectionInList
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2544
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2545	\| sel \|
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2546	sel := self selectionHolder value.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2547	^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2548	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2549
3892 321c1729db5b initial checkin penk parents: diff changeset	2550	selRemoveFilesForDirs:aSel
321c1729db5b initial checkin penk parents: diff changeset	2551
321c1729db5b initial checkin penk parents: diff changeset	2552	\|stringCol newSel string\|
321c1729db5b initial checkin penk parents: diff changeset	2553
321c1729db5b initial checkin penk parents: diff changeset	2554	stringCol := (aSel collect:[: item\| item fileName]).
321c1729db5b initial checkin penk parents: diff changeset	2555	newSel := aSel copy.
321c1729db5b initial checkin penk parents: diff changeset	2556	aSel do:[:item \|
321c1729db5b initial checkin penk parents: diff changeset	2557	item isDirectory ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2558	string := item fileName.
321c1729db5b initial checkin penk parents: diff changeset	2559	stringCol doWithIndex:[:filename : index\|
321c1729db5b initial checkin penk parents: diff changeset	2560	(filename ~= string and:[filename startsWith:string]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2561	newSel remove:(aSel at:index) ifAbsent:[nil].
321c1729db5b initial checkin penk parents: diff changeset	2562	]
321c1729db5b initial checkin penk parents: diff changeset	2563	]
321c1729db5b initial checkin penk parents: diff changeset	2564	].
321c1729db5b initial checkin penk parents: diff changeset	2565	].
321c1729db5b initial checkin penk parents: diff changeset	2566	^ newSel.
321c1729db5b initial checkin penk parents: diff changeset	2567	! !
321c1729db5b initial checkin penk parents: diff changeset	2568
321c1729db5b initial checkin penk parents: diff changeset	2569	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
321c1729db5b initial checkin penk parents: diff changeset	2570
321c1729db5b initial checkin penk parents: diff changeset	2571	generateSortBlock:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2572
321c1729db5b initial checkin penk parents: diff changeset	2573	\| aSymbol cmpOp sortCaselessLocal\|
321c1729db5b initial checkin penk parents: diff changeset	2574
321c1729db5b initial checkin penk parents: diff changeset	2575	aSymbol := instanceName asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2576	sortCaselessLocal := self sortCaseless value.
321c1729db5b initial checkin penk parents: diff changeset	2577	currentSortOrder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2578	currentSortOrder := aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2579	currentSortOrder := Dictionary new.
321c1729db5b initial checkin penk parents: diff changeset	2580	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2581	currentSortOrder at:#reverse put:false.
321c1729db5b initial checkin penk parents: diff changeset	2582	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
321c1729db5b initial checkin penk parents: diff changeset	2583	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2584	(currentSortOrder at:#column) = aSymbol ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2585	"/ same column like before - change sort order
321c1729db5b initial checkin penk parents: diff changeset	2586	\| isReverse \|
321c1729db5b initial checkin penk parents: diff changeset	2587	isReverse := currentSortOrder at:#reverse.
321c1729db5b initial checkin penk parents: diff changeset	2588	currentSortOrder at:#reverse put:(isReverse not).
321c1729db5b initial checkin penk parents: diff changeset	2589	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2590	"/ another column - remark column
321c1729db5b initial checkin penk parents: diff changeset	2591	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2592	]
321c1729db5b initial checkin penk parents: diff changeset	2593	].
321c1729db5b initial checkin penk parents: diff changeset	2594	(currentSortOrder at:#reverse) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2595	cmpOp := #'>'
321c1729db5b initial checkin penk parents: diff changeset	2596	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2597	cmpOp := #'<'
321c1729db5b initial checkin penk parents: diff changeset	2598	].
321c1729db5b initial checkin penk parents: diff changeset	2599	^ [:a :b \|
321c1729db5b initial checkin penk parents: diff changeset	2600	\|entry1 entry2\|
321c1729db5b initial checkin penk parents: diff changeset	2601
321c1729db5b initial checkin penk parents: diff changeset	2602	entry1 := (a perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2603	entry2 := (b perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2604	aSymbol = #fileName ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2605	sortCaselessLocal ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2606	entry1 := entry1 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2607	entry2 := entry2 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2608	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2609	entry1 := entry1 asString.
321c1729db5b initial checkin penk parents: diff changeset	2610	entry2 := entry2 asString.
321c1729db5b initial checkin penk parents: diff changeset	2611	].
321c1729db5b initial checkin penk parents: diff changeset	2612	].
321c1729db5b initial checkin penk parents: diff changeset	2613	entry1 perform:cmpOp with:entry2
321c1729db5b initial checkin penk parents: diff changeset	2614	].
321c1729db5b initial checkin penk parents: diff changeset	2615	!
321c1729db5b initial checkin penk parents: diff changeset	2616
321c1729db5b initial checkin penk parents: diff changeset	2617	sortList:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2618
321c1729db5b initial checkin penk parents: diff changeset	2619
321c1729db5b initial checkin penk parents: diff changeset	2620	\|sortBlock fileList sortCol\|
321c1729db5b initial checkin penk parents: diff changeset	2621
321c1729db5b initial checkin penk parents: diff changeset	2622	sortBlock := self generateSortBlock:instanceName.
321c1729db5b initial checkin penk parents: diff changeset	2623	fileList := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2624	sortCol := SortedCollection sortBlock:sortBlock.
321c1729db5b initial checkin penk parents: diff changeset	2625	sortCol addAll:fileList.
321c1729db5b initial checkin penk parents: diff changeset	2626	fileList removeAll.
321c1729db5b initial checkin penk parents: diff changeset	2627	fileList addAll:sortCol.
321c1729db5b initial checkin penk parents: diff changeset	2628	! !
321c1729db5b initial checkin penk parents: diff changeset	2629
321c1729db5b initial checkin penk parents: diff changeset	2630	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	2631
321c1729db5b initial checkin penk parents: diff changeset	2632	compressSize
321c1729db5b initial checkin penk parents: diff changeset	2633	"return the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2634
321c1729db5b initial checkin penk parents: diff changeset	2635	^ compressSize
321c1729db5b initial checkin penk parents: diff changeset	2636	!
321c1729db5b initial checkin penk parents: diff changeset	2637
321c1729db5b initial checkin penk parents: diff changeset	2638	compressSize:something
321c1729db5b initial checkin penk parents: diff changeset	2639	"set the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2640
321c1729db5b initial checkin penk parents: diff changeset	2641	compressSize := something.
321c1729db5b initial checkin penk parents: diff changeset	2642	!
321c1729db5b initial checkin penk parents: diff changeset	2643
321c1729db5b initial checkin penk parents: diff changeset	2644	crc
321c1729db5b initial checkin penk parents: diff changeset	2645	"return the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2646
321c1729db5b initial checkin penk parents: diff changeset	2647	^ crc
321c1729db5b initial checkin penk parents: diff changeset	2648	!
321c1729db5b initial checkin penk parents: diff changeset	2649
321c1729db5b initial checkin penk parents: diff changeset	2650	crc:something
321c1729db5b initial checkin penk parents: diff changeset	2651	"set the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2652
321c1729db5b initial checkin penk parents: diff changeset	2653	crc := something.
321c1729db5b initial checkin penk parents: diff changeset	2654	!
321c1729db5b initial checkin penk parents: diff changeset	2655
321c1729db5b initial checkin penk parents: diff changeset	2656	dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2657	"return the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2658
321c1729db5b initial checkin penk parents: diff changeset	2659	^ dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2660	!
321c1729db5b initial checkin penk parents: diff changeset	2661
321c1729db5b initial checkin penk parents: diff changeset	2662	dateAndTime:something
321c1729db5b initial checkin penk parents: diff changeset	2663	"set the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2664
321c1729db5b initial checkin penk parents: diff changeset	2665	dateAndTime := something.
321c1729db5b initial checkin penk parents: diff changeset	2666	!
321c1729db5b initial checkin penk parents: diff changeset	2667
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2668	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2669	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2670
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2671	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2672	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2673	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2674	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2675	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2676
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2677	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2678	year:ts year
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2679	month:ts month
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2680	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2681	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2682	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2683	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2684	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2685
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2686	dayString:dayString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2687	self day:(Integer readFrom:dayString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2688	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2689
3892 321c1729db5b initial checkin penk parents: diff changeset	2690	fileName
321c1729db5b initial checkin penk parents: diff changeset	2691	"return the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2692
321c1729db5b initial checkin penk parents: diff changeset	2693	^ fileName
321c1729db5b initial checkin penk parents: diff changeset	2694	!
321c1729db5b initial checkin penk parents: diff changeset	2695
321c1729db5b initial checkin penk parents: diff changeset	2696	fileName:something
321c1729db5b initial checkin penk parents: diff changeset	2697	"set the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2698
321c1729db5b initial checkin penk parents: diff changeset	2699	fileName := something withoutSpaces.
321c1729db5b initial checkin penk parents: diff changeset	2700	!
321c1729db5b initial checkin penk parents: diff changeset	2701
321c1729db5b initial checkin penk parents: diff changeset	2702	icon
321c1729db5b initial checkin penk parents: diff changeset	2703	"return the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2704
321c1729db5b initial checkin penk parents: diff changeset	2705	^ icon
321c1729db5b initial checkin penk parents: diff changeset	2706	!
321c1729db5b initial checkin penk parents: diff changeset	2707
321c1729db5b initial checkin penk parents: diff changeset	2708	icon:something
321c1729db5b initial checkin penk parents: diff changeset	2709	"set the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2710
321c1729db5b initial checkin penk parents: diff changeset	2711	icon := something.
321c1729db5b initial checkin penk parents: diff changeset	2712	!
321c1729db5b initial checkin penk parents: diff changeset	2713
321c1729db5b initial checkin penk parents: diff changeset	2714	isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2715	"return the value of the instance variable 'directory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2716
321c1729db5b initial checkin penk parents: diff changeset	2717	^ isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2718	!
321c1729db5b initial checkin penk parents: diff changeset	2719
321c1729db5b initial checkin penk parents: diff changeset	2720	isDirectory:something
321c1729db5b initial checkin penk parents: diff changeset	2721	"set the value of the instance variable 'isDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2722
321c1729db5b initial checkin penk parents: diff changeset	2723	isDirectory := something.
321c1729db5b initial checkin penk parents: diff changeset	2724	!
321c1729db5b initial checkin penk parents: diff changeset	2725
321c1729db5b initial checkin penk parents: diff changeset	2726	method
321c1729db5b initial checkin penk parents: diff changeset	2727	"return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2728
321c1729db5b initial checkin penk parents: diff changeset	2729	^ method
321c1729db5b initial checkin penk parents: diff changeset	2730	!
321c1729db5b initial checkin penk parents: diff changeset	2731
321c1729db5b initial checkin penk parents: diff changeset	2732	method:something
321c1729db5b initial checkin penk parents: diff changeset	2733	"set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2734
321c1729db5b initial checkin penk parents: diff changeset	2735	method := something.
321c1729db5b initial checkin penk parents: diff changeset	2736	!
321c1729db5b initial checkin penk parents: diff changeset	2737
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2738	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2739	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2740
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2741	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2742	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2743	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2744	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2745	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2746
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2747	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2748	year:ts year
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2749	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2750	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2751	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2752	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2753	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2754	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2755
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2756	monthName:monthName
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2757	self month:(Date indexOfMonth:monthName)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2758	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2759
3892 321c1729db5b initial checkin penk parents: diff changeset	2760	ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2761	"return the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2762
321c1729db5b initial checkin penk parents: diff changeset	2763	^ ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2764	!
321c1729db5b initial checkin penk parents: diff changeset	2765
321c1729db5b initial checkin penk parents: diff changeset	2766	ownerGroup:something
321c1729db5b initial checkin penk parents: diff changeset	2767	"set the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2768
321c1729db5b initial checkin penk parents: diff changeset	2769	ownerGroup := something.
321c1729db5b initial checkin penk parents: diff changeset	2770	!
321c1729db5b initial checkin penk parents: diff changeset	2771
321c1729db5b initial checkin penk parents: diff changeset	2772	permissions
321c1729db5b initial checkin penk parents: diff changeset	2773	"return the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2774
321c1729db5b initial checkin penk parents: diff changeset	2775	^ permissions
321c1729db5b initial checkin penk parents: diff changeset	2776	!
321c1729db5b initial checkin penk parents: diff changeset	2777
321c1729db5b initial checkin penk parents: diff changeset	2778	permissions:something
321c1729db5b initial checkin penk parents: diff changeset	2779	"set the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2780
321c1729db5b initial checkin penk parents: diff changeset	2781	permissions := something.
321c1729db5b initial checkin penk parents: diff changeset	2782	!
321c1729db5b initial checkin penk parents: diff changeset	2783
321c1729db5b initial checkin penk parents: diff changeset	2784	ratio
321c1729db5b initial checkin penk parents: diff changeset	2785	"return the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2786
321c1729db5b initial checkin penk parents: diff changeset	2787	^ ratio
321c1729db5b initial checkin penk parents: diff changeset	2788	!
321c1729db5b initial checkin penk parents: diff changeset	2789
321c1729db5b initial checkin penk parents: diff changeset	2790	ratio:something
321c1729db5b initial checkin penk parents: diff changeset	2791	"set the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2792
321c1729db5b initial checkin penk parents: diff changeset	2793	ratio := something.
321c1729db5b initial checkin penk parents: diff changeset	2794	!
321c1729db5b initial checkin penk parents: diff changeset	2795
321c1729db5b initial checkin penk parents: diff changeset	2796	size
321c1729db5b initial checkin penk parents: diff changeset	2797	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2798
321c1729db5b initial checkin penk parents: diff changeset	2799	^ size
321c1729db5b initial checkin penk parents: diff changeset	2800	!
321c1729db5b initial checkin penk parents: diff changeset	2801
321c1729db5b initial checkin penk parents: diff changeset	2802	size:something
321c1729db5b initial checkin penk parents: diff changeset	2803	"set the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2804
321c1729db5b initial checkin penk parents: diff changeset	2805	size := something.
321c1729db5b initial checkin penk parents: diff changeset	2806	!
321c1729db5b initial checkin penk parents: diff changeset	2807
321c1729db5b initial checkin penk parents: diff changeset	2808	sizeAsNumber
321c1729db5b initial checkin penk parents: diff changeset	2809	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2810
321c1729db5b initial checkin penk parents: diff changeset	2811	^ size asInteger
321c1729db5b initial checkin penk parents: diff changeset	2812	!
321c1729db5b initial checkin penk parents: diff changeset	2813
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2814	time:time
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2815	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2816
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2817	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2818	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2819	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2820	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2821	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2822
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2823	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2824	year:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2825	month:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2826	day:ts day
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2827	hour:time hours
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2828	minute:time minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2829	second:time seconds
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2830	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2831
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2832	timeString:timeString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2833	self time:(Time readFrom:timeString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2834	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2835
3892 321c1729db5b initial checkin penk parents: diff changeset	2836	type
321c1729db5b initial checkin penk parents: diff changeset	2837	"return the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2838
321c1729db5b initial checkin penk parents: diff changeset	2839	^ type
321c1729db5b initial checkin penk parents: diff changeset	2840	!
321c1729db5b initial checkin penk parents: diff changeset	2841
321c1729db5b initial checkin penk parents: diff changeset	2842	type:something
321c1729db5b initial checkin penk parents: diff changeset	2843	"set the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2844
321c1729db5b initial checkin penk parents: diff changeset	2845	type := something.
321c1729db5b initial checkin penk parents: diff changeset	2846	!
321c1729db5b initial checkin penk parents: diff changeset	2847
321c1729db5b initial checkin penk parents: diff changeset	2848	version
321c1729db5b initial checkin penk parents: diff changeset	2849	"return the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2850
321c1729db5b initial checkin penk parents: diff changeset	2851	^ version
321c1729db5b initial checkin penk parents: diff changeset	2852	!
321c1729db5b initial checkin penk parents: diff changeset	2853
321c1729db5b initial checkin penk parents: diff changeset	2854	version:something
321c1729db5b initial checkin penk parents: diff changeset	2855	"set the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2856
321c1729db5b initial checkin penk parents: diff changeset	2857	version := something.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2858	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2859
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2860	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2861	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2862
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2863	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2864	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2865	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2866	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2867	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2868
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2869	dateAndTime := Timestamp
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2870	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2871	month:ts month
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2872	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2873	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2874	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2875	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2876	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2877
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2878	yearString:yearString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2879	self year:(Integer readFrom:yearString)
3892 321c1729db5b initial checkin penk parents: diff changeset	2880	! !
321c1729db5b initial checkin penk parents: diff changeset	2881
321c1729db5b initial checkin penk parents: diff changeset	2882	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	2883
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	2884	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	2885	aStream nextPutAll:self fileName asString
3892 321c1729db5b initial checkin penk parents: diff changeset	2886	! !
321c1729db5b initial checkin penk parents: diff changeset	2887
321c1729db5b initial checkin penk parents: diff changeset	2888	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	2889
321c1729db5b initial checkin penk parents: diff changeset	2890	hasDirectoryPart
321c1729db5b initial checkin penk parents: diff changeset	2891
321c1729db5b initial checkin penk parents: diff changeset	2892	^ self fileName asFilename components size ~= 1
321c1729db5b initial checkin penk parents: diff changeset	2893	! !
321c1729db5b initial checkin penk parents: diff changeset	2894
321c1729db5b initial checkin penk parents: diff changeset	2895	!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	2896
321c1729db5b initial checkin penk parents: diff changeset	2897	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2898	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2899
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2900	^ 'Command Output'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2901
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2902	"Modified: / 01-03-2007 / 21:43:31 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2903	!
321c1729db5b initial checkin penk parents: diff changeset	2904
321c1729db5b initial checkin penk parents: diff changeset	2905	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	2906
321c1729db5b initial checkin penk parents: diff changeset	2907	^ false
321c1729db5b initial checkin penk parents: diff changeset	2908	! !
321c1729db5b initial checkin penk parents: diff changeset	2909
321c1729db5b initial checkin penk parents: diff changeset	2910	!FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	2911
321c1729db5b initial checkin penk parents: diff changeset	2912	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	2913	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	2914	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	2915
321c1729db5b initial checkin penk parents: diff changeset	2916	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	2917	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	2918
321c1729db5b initial checkin penk parents: diff changeset	2919	"
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2920	UIPainter new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2921	FileApplicationNoteBook::CommandResult new openInterface:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2922	FileApplicationNoteBook::CommandResult open
3892 321c1729db5b initial checkin penk parents: diff changeset	2923	"
321c1729db5b initial checkin penk parents: diff changeset	2924
321c1729db5b initial checkin penk parents: diff changeset	2925	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	2926
321c1729db5b initial checkin penk parents: diff changeset	2927	^
321c1729db5b initial checkin penk parents: diff changeset	2928	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	2929	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	2930	#window:
321c1729db5b initial checkin penk parents: diff changeset	2931	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	2932	#label: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	2933	#name: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	2934	#min: #(#Point 10 10)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	2935	#bounds: #(#Rectangle 220 193 723 546)
3892 321c1729db5b initial checkin penk parents: diff changeset	2936	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	2937	)
321c1729db5b initial checkin penk parents: diff changeset	2938	#component:
321c1729db5b initial checkin penk parents: diff changeset	2939	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	2940	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	2941	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	2942	#name: 'ToolBar1'
321c1729db5b initial checkin penk parents: diff changeset	2943	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	2944	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	2945	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	2946	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	2947	)
321c1729db5b initial checkin penk parents: diff changeset	2948	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	2949	#name: 'ArbitraryComponent1'
321c1729db5b initial checkin penk parents: diff changeset	2950	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	2951	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	2952	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	2953	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	2954	#component: #TextCollector
321c1729db5b initial checkin penk parents: diff changeset	2955	#postBuildCallback: #postBuildTextCollector:
321c1729db5b initial checkin penk parents: diff changeset	2956	)
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2957	#(#ProgressIndicatorSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2958	#name: 'ProgressIndicator1'
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2959	#layout: #(#LayoutFrame 125 0 11 0 231 0 21 0)
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	2960	#visibilityChannel: #enableStopButton
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2961	#backgroundColor: #(#Color 0.0 66.9993 66.9993)
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2962	#showPercentage: false
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	2963	#isActivityIndicator: true
3892 321c1729db5b initial checkin penk parents: diff changeset	2964	)
321c1729db5b initial checkin penk parents: diff changeset	2965	)
321c1729db5b initial checkin penk parents: diff changeset	2966
321c1729db5b initial checkin penk parents: diff changeset	2967	)
321c1729db5b initial checkin penk parents: diff changeset	2968	)
321c1729db5b initial checkin penk parents: diff changeset	2969	! !
321c1729db5b initial checkin penk parents: diff changeset	2970
321c1729db5b initial checkin penk parents: diff changeset	2971	!FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	2972
321c1729db5b initial checkin penk parents: diff changeset	2973	menu
321c1729db5b initial checkin penk parents: diff changeset	2974	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	2975	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	2976
321c1729db5b initial checkin penk parents: diff changeset	2977	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	2978	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	2979
321c1729db5b initial checkin penk parents: diff changeset	2980	"
321c1729db5b initial checkin penk parents: diff changeset	2981	MenuEditor new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	2982	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::CommandResult menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	2983	"
321c1729db5b initial checkin penk parents: diff changeset	2984
321c1729db5b initial checkin penk parents: diff changeset	2985	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	2986
321c1729db5b initial checkin penk parents: diff changeset	2987	^
321c1729db5b initial checkin penk parents: diff changeset	2988	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	2989	#(
321c1729db5b initial checkin penk parents: diff changeset	2990	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	2991	#label: 'Stop'
321c1729db5b initial checkin penk parents: diff changeset	2992	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	2993	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	2994	#nameKey: #Stop
321c1729db5b initial checkin penk parents: diff changeset	2995	#value: #doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	2996	#enabled: #enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	2997	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon 'Stop')
321c1729db5b initial checkin penk parents: diff changeset	2998	)
321c1729db5b initial checkin penk parents: diff changeset	2999	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3000	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	3001	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	3002	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3003	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3004	#nameKey: #Close
321c1729db5b initial checkin penk parents: diff changeset	3005	#isVisible: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	3006	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	3007	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3008	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3009	)
321c1729db5b initial checkin penk parents: diff changeset	3010	)
321c1729db5b initial checkin penk parents: diff changeset	3011	nil
321c1729db5b initial checkin penk parents: diff changeset	3012	nil
321c1729db5b initial checkin penk parents: diff changeset	3013	)
321c1729db5b initial checkin penk parents: diff changeset	3014	! !
321c1729db5b initial checkin penk parents: diff changeset	3015
321c1729db5b initial checkin penk parents: diff changeset	3016	!FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3017
321c1729db5b initial checkin penk parents: diff changeset	3018	resultStream
321c1729db5b initial checkin penk parents: diff changeset	3019	"return the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3020
321c1729db5b initial checkin penk parents: diff changeset	3021	^ resultStream
321c1729db5b initial checkin penk parents: diff changeset	3022	!
321c1729db5b initial checkin penk parents: diff changeset	3023
321c1729db5b initial checkin penk parents: diff changeset	3024	resultStream:something
321c1729db5b initial checkin penk parents: diff changeset	3025	"set the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3026
321c1729db5b initial checkin penk parents: diff changeset	3027	resultStream := something.
321c1729db5b initial checkin penk parents: diff changeset	3028	! !
321c1729db5b initial checkin penk parents: diff changeset	3029
321c1729db5b initial checkin penk parents: diff changeset	3030	!FileApplicationNoteBook::CommandResult methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3031
321c1729db5b initial checkin penk parents: diff changeset	3032	changeTabTo:aString
321c1729db5b initial checkin penk parents: diff changeset	3033
321c1729db5b initial checkin penk parents: diff changeset	3034	\| masterApplication \|
321c1729db5b initial checkin penk parents: diff changeset	3035
321c1729db5b initial checkin penk parents: diff changeset	3036	masterApplication := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	3037	masterApplication isNil ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	3038	masterApplication tabStringChangeTo:aString for:self.
321c1729db5b initial checkin penk parents: diff changeset	3039	].
321c1729db5b initial checkin penk parents: diff changeset	3040	!
321c1729db5b initial checkin penk parents: diff changeset	3041
321c1729db5b initial checkin penk parents: diff changeset	3042	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	3043
321c1729db5b initial checkin penk parents: diff changeset	3044	\| myProcess \|
321c1729db5b initial checkin penk parents: diff changeset	3045
321c1729db5b initial checkin penk parents: diff changeset	3046	myProcess := self process value.
321c1729db5b initial checkin penk parents: diff changeset	3047	myProcess notNil ifTrue:[
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	3048	self notify:('kill ', myProcess name).
3892 321c1729db5b initial checkin penk parents: diff changeset	3049	myProcess terminate.
321c1729db5b initial checkin penk parents: diff changeset	3050	].
321c1729db5b initial checkin penk parents: diff changeset	3051	! !
321c1729db5b initial checkin penk parents: diff changeset	3052
321c1729db5b initial checkin penk parents: diff changeset	3053	!FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3054
321c1729db5b initial checkin penk parents: diff changeset	3055	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3056
321c1729db5b initial checkin penk parents: diff changeset	3057	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3058	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	3059	].
321c1729db5b initial checkin penk parents: diff changeset	3060	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3061	!
321c1729db5b initial checkin penk parents: diff changeset	3062
321c1729db5b initial checkin penk parents: diff changeset	3063	process
321c1729db5b initial checkin penk parents: diff changeset	3064	"return/create the 'process' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3065
321c1729db5b initial checkin penk parents: diff changeset	3066	process isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3067	process := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	3068	process addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	3069	].
321c1729db5b initial checkin penk parents: diff changeset	3070	^ process
321c1729db5b initial checkin penk parents: diff changeset	3071	! !
321c1729db5b initial checkin penk parents: diff changeset	3072
321c1729db5b initial checkin penk parents: diff changeset	3073	!FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	3074
321c1729db5b initial checkin penk parents: diff changeset	3075	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3076	changedObject == self process ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3077	self enableStopButton value:changedObject value notNil.
321c1729db5b initial checkin penk parents: diff changeset	3078	^ self
321c1729db5b initial checkin penk parents: diff changeset	3079	].
321c1729db5b initial checkin penk parents: diff changeset	3080	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3081	! !
321c1729db5b initial checkin penk parents: diff changeset	3082
321c1729db5b initial checkin penk parents: diff changeset	3083	!FileApplicationNoteBook::CommandResult methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3084
321c1729db5b initial checkin penk parents: diff changeset	3085	postBuildTextCollector:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3086
321c1729db5b initial checkin penk parents: diff changeset	3087	self resultStream:aBuilder scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3088	!
321c1729db5b initial checkin penk parents: diff changeset	3089
321c1729db5b initial checkin penk parents: diff changeset	3090	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3091	"This is a hook method generated by the Browser.
321c1729db5b initial checkin penk parents: diff changeset	3092	It will be invoked right after the applications window has been opened.
321c1729db5b initial checkin penk parents: diff changeset	3093	Add any app-specific actions here (starting background processes etc.).
321c1729db5b initial checkin penk parents: diff changeset	3094	See also #postBuildWith:, which is invoked before opening."
321c1729db5b initial checkin penk parents: diff changeset	3095
321c1729db5b initial checkin penk parents: diff changeset	3096	"/ add any code here ...
321c1729db5b initial checkin penk parents: diff changeset	3097
321c1729db5b initial checkin penk parents: diff changeset	3098	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3099	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3100	].
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3101	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	3102	!
321c1729db5b initial checkin penk parents: diff changeset	3103
321c1729db5b initial checkin penk parents: diff changeset	3104	release
321c1729db5b initial checkin penk parents: diff changeset	3105
321c1729db5b initial checkin penk parents: diff changeset	3106	self doStopProcess.
321c1729db5b initial checkin penk parents: diff changeset	3107	^ super release
321c1729db5b initial checkin penk parents: diff changeset	3108	! !
321c1729db5b initial checkin penk parents: diff changeset	3109
321c1729db5b initial checkin penk parents: diff changeset	3110	!FileApplicationNoteBook::CommandResult methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	3111
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3112	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3113	aStream nextPutAll:'CommandResult Application'.
3892 321c1729db5b initial checkin penk parents: diff changeset	3114	! !
321c1729db5b initial checkin penk parents: diff changeset	3115
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3116	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'defaults'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3117
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3118	tabStringFor:anApplicationType
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3119	"the formatString shown in a tab (language translated)"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3120
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3121	^ 'Note in %1'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3122
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3123	"Modified: / 01-03-2007 / 21:43:23 / cg"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3124	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3125
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3126	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3127
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3128	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3129	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3130	a previewer-plugin for digital-notepad recordings as
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3131	provided by the waltop (tevion) MD85276 digital ink notepad.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3132	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3133	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3134
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3135	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3136
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3137	flyByHelpSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3138	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3139	by the UIHelpTool of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3140
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3141	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3142	the UIHelpTool may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3143
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3144	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3145	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3146	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3147
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3148	<resource: #help>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3149
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3150	^ super flyByHelpSpec addPairsFrom:#(
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3151
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3152	#'fitImageSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3153	'Shrink to Fit View'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3154
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3155	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3156	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3157
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3158	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'interface specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3159
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3160	windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3161	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3162	by the UIPainter of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3163
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3164	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3165	the UIPainter may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3166
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3167	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3168	UIPainter new openOnClass:FileApplicationNoteBook::DigitalNotepadFileViewApplication andSelector:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3169	FileApplicationNoteBook::DigitalNotepadFileViewApplication new openInterface:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3170	FileApplicationNoteBook::DigitalNotepadFileViewApplication open
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3171	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3172
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3173	<resource: #canvas>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3174
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3175	^
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3176	#(FullSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3177	name: windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3178	window:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3179	(WindowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3180	label: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3181	name: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3182	min: (Point 10 10)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3183	bounds: (Rectangle 0 0 676 492)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3184	menu: mainMenu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3185	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3186	component:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3187	(SpecCollection
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3188	collection: (
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3189	(MenuPanelSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3190	name: 'Menu'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3191	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3192	level: 0
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3193	visibilityChannel: isEmbeddedApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3194	menu: menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3195	textDefault: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3196	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3197	(ArbitraryComponentSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3198	name: 'TOPFileView'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3199	layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3200	hasHorizontalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3201	hasVerticalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3202	miniScrollerHorizontal: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3203	miniScrollerVertical: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3204	hasBorder: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3205	component: TOPFileViewer
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3206	postBuildCallback: postBuildImageView:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3207	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3208	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3209
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3210	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3211	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3212	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3213
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3214	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'menu specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3215
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3216	menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3217	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3218	by the MenuEditor of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3219
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3220	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3221	the MenuEditor may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3222
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3223	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3224	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3225	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3226	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3227
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3228	<resource: #menu>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3229
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3230	^
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3231	#(#Menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3232	#(
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3233	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3234	"/ #label: 'Edit'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3235	"/ #itemValue: #editImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3236	"/ #nameKey: #EditImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3237	"/ #translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3238	"/ #isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3239	"/ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3240	"/ )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3241	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3242	"/ #label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3243	"/ )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3244	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3245	#activeHelpKey: #fitImageSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3246	#label: 'FitSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3247	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3248	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3249	#triggerOnDown: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3250	#indication: #fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3251	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3252	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3253	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3254	#label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3255	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3256	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3257	#activeHelpKey: #closeTabButton
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3258	#label: 'Close'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3259	#itemValue: #doClose
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3260	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3261	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3262	#startGroup: #right
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3263	#hideMenuOnActivated: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3264	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3265	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3266	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3267	nil
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3268	nil
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3269	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3270	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3271
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3272	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'queries'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3273
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3274	canOpenItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3275	^ anItem mimeType = 'application/x-waltop-digital-notepad'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3276	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3277
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3278	wantNewApplicationAnyway
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3279
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3280	^ false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3281	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3282
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3283	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'accessing'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3284
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3285	imageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3286	^ imageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3287	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3288
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3289	imageView:something
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3290	imageView := something.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3291	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3292
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3293	updateImageInfo
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3294	"/ \|fn msg\|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3295	"/
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3296	"/ image notNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3297	"/ fn := image fileName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3298	"/ fn isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3299	"/ fn := 'unnamed'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3300	"/ ] ifFalse:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3301	"/ fn := fn asFilename baseName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3302	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3303	"/ msg := '%1 %2x%3 depth:%4'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3304	"/ bindWith:fn allBold
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3305	"/ with:image width
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3306	"/ with:image height
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3307	"/ with:image depth.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3308	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3309	"/ self notify:msg.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3310	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3311
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3312	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'actions'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3313
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3314	changeItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3315
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3316	self item:anItem.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3317	self setupImageView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3318	^ true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3319	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3320
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3321	setupImageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3322	imageView readFile:self fileName
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3323	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3324
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3325	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'aspects'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3326
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3327	fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3328	"return/create the 'fitSize' value holder (automatically generated)"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3329
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3330	fitSize isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3331	fitSize := ValueHolder new.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3332	fitSize addDependent:self.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3333	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3334	^ fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3335	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3336
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3337	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'change & update'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3338
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3339	update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3340	changedObject == self fitSize ifTrue:[
7910 cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3341	changedObject value ifTrue:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3342	imageView adjust:#fit.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3343	] ifFalse:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3344	imageView adjust:nil.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3345	].
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3346	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3347	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3348	super update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3349	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3350
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3351	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'initialization & release'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3352
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3353	postBuildImageView:aWidget
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3354
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3355	self imageView: aWidget scrolledView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3356	"/ self imageView wantsFocusWithPointerEnter.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3357	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3358
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3359	postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3360	"only invoked if the application is not started from a master"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3361
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3362	\|currentDir contents fileName\|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3363
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3364	self masterApplication isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3365	self masterApplication:nil.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3366	currentDir := Filename currentDirectory.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3367	contents := currentDir directoryContents.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3368	fileName := contents
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3369	detect:[:file \|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3370	file asFilename mimeTypeOfContents = 'application/x-waltop-digital-notepad'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3371	]
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3372	ifNone:[nil].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3373	fileName isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3374	Dialog warn:'Cant find a TOP-file in ' , currentDir asString.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3375	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3376	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3377	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3378	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3379	self setupImageView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3380	super postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3381	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3382
3892 321c1729db5b initial checkin penk parents: diff changeset	3383	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3384
321c1729db5b initial checkin penk parents: diff changeset	3385	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3386	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3387
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3388	^ 'HTML View for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3389
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3390	"Modified: / 01-03-2007 / 21:43:18 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3391	! !
321c1729db5b initial checkin penk parents: diff changeset	3392
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3393	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3394
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3395	helpSpec
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3396	"This resource specification was automatically generated
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3397	by the UIHelpTool of ST/X."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3398
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3399	"Do not manually edit this!! If it is corrupted,
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3400	the UIHelpTool may not be able to read the specification."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3401
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3402	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3403	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3404	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3405
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3406	<resource: #help>
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3407
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3408	^ super helpSpec addPairsFrom:#(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3409
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3410	#'Edit Source'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3411	''
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3412
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3413	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3414	! !
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3415
3892 321c1729db5b initial checkin penk parents: diff changeset	3416	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3417
321c1729db5b initial checkin penk parents: diff changeset	3418	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3419	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3420	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3421
321c1729db5b initial checkin penk parents: diff changeset	3422	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3423	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3424
321c1729db5b initial checkin penk parents: diff changeset	3425	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3426	UIPainter new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3427	FileApplicationNoteBook::HtmlViewApplication new openInterface:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3428	FileApplicationNoteBook::HtmlViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	3429	"
321c1729db5b initial checkin penk parents: diff changeset	3430
321c1729db5b initial checkin penk parents: diff changeset	3431	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3432
321c1729db5b initial checkin penk parents: diff changeset	3433	^
321c1729db5b initial checkin penk parents: diff changeset	3434	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3435	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3436	#window:
321c1729db5b initial checkin penk parents: diff changeset	3437	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3438	#label: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3439	#name: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3440	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	3441	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	3442	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3443	)
321c1729db5b initial checkin penk parents: diff changeset	3444	#component:
321c1729db5b initial checkin penk parents: diff changeset	3445	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3446	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3447	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	3448	#name: 'MenuHtml'
321c1729db5b initial checkin penk parents: diff changeset	3449	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3450	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3451	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	3452	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3453	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3454	)
321c1729db5b initial checkin penk parents: diff changeset	3455	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	3456	#name: 'HTMLView'
321c1729db5b initial checkin penk parents: diff changeset	3457	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	3458	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3459	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3460	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	3461	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	3462	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3463	#component: #HTMLDocumentView
321c1729db5b initial checkin penk parents: diff changeset	3464	#postBuildCallback: #postBuildHtmlView:
321c1729db5b initial checkin penk parents: diff changeset	3465	)
321c1729db5b initial checkin penk parents: diff changeset	3466	#(#LabelSpec
321c1729db5b initial checkin penk parents: diff changeset	3467	#label: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3468	#name: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3469	#layout: #(#LayoutFrame 212 0 2 0 -73 1 30 0)
321c1729db5b initial checkin penk parents: diff changeset	3470	#level: -1
321c1729db5b initial checkin penk parents: diff changeset	3471	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3472	#labelChannel: #labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3473	#adjust: #left
321c1729db5b initial checkin penk parents: diff changeset	3474	)
321c1729db5b initial checkin penk parents: diff changeset	3475	)
321c1729db5b initial checkin penk parents: diff changeset	3476
321c1729db5b initial checkin penk parents: diff changeset	3477	)
321c1729db5b initial checkin penk parents: diff changeset	3478	)
321c1729db5b initial checkin penk parents: diff changeset	3479	! !
321c1729db5b initial checkin penk parents: diff changeset	3480
321c1729db5b initial checkin penk parents: diff changeset	3481	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3482
321c1729db5b initial checkin penk parents: diff changeset	3483	menu
321c1729db5b initial checkin penk parents: diff changeset	3484	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3485	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3486
321c1729db5b initial checkin penk parents: diff changeset	3487	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3488	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3489
321c1729db5b initial checkin penk parents: diff changeset	3490	"
321c1729db5b initial checkin penk parents: diff changeset	3491	MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3492	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3493	"
321c1729db5b initial checkin penk parents: diff changeset	3494
321c1729db5b initial checkin penk parents: diff changeset	3495	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3496
321c1729db5b initial checkin penk parents: diff changeset	3497	^
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3498	#(Menu
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3499	(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3500	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3501	label: 'Reload'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3502	itemValue: doReload
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3503	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3504	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3505	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3506	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3507	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3508	label: 'Back'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3509	itemValue: doGoBack
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3510	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3511	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3512	labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3513	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3514	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3515	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3516	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3517	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3518	label: 'Print'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3519	itemValue: doPrint
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3520	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3521	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3522	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3523	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3524	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3525	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3526	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3527	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3528	activeHelpKey: #'Edit Source'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3529	label: 'Edit'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3530	itemValue: doEdit
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3531	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3532	isButton: true
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3533	labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3534	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3535	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3536	activeHelpKey: closeTabButton
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3537	label: 'Close'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3538	itemValue: doClose
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3539	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3540	isButton: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3541	startGroup: right
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3542	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3543	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3544	)
321c1729db5b initial checkin penk parents: diff changeset	3545	)
321c1729db5b initial checkin penk parents: diff changeset	3546	nil
321c1729db5b initial checkin penk parents: diff changeset	3547	nil
321c1729db5b initial checkin penk parents: diff changeset	3548	)
321c1729db5b initial checkin penk parents: diff changeset	3549	! !
321c1729db5b initial checkin penk parents: diff changeset	3550
321c1729db5b initial checkin penk parents: diff changeset	3551	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	3552
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3553	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3554
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3555	^ (anItem hasMimeType and:[anItem mimeType isHtml])
3892 321c1729db5b initial checkin penk parents: diff changeset	3556	!
321c1729db5b initial checkin penk parents: diff changeset	3557
321c1729db5b initial checkin penk parents: diff changeset	3558	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	3559
321c1729db5b initial checkin penk parents: diff changeset	3560	^ false
321c1729db5b initial checkin penk parents: diff changeset	3561	! !
321c1729db5b initial checkin penk parents: diff changeset	3562
321c1729db5b initial checkin penk parents: diff changeset	3563	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3564
321c1729db5b initial checkin penk parents: diff changeset	3565	htmlView
321c1729db5b initial checkin penk parents: diff changeset	3566	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3567
321c1729db5b initial checkin penk parents: diff changeset	3568	^ htmlView
321c1729db5b initial checkin penk parents: diff changeset	3569	!
321c1729db5b initial checkin penk parents: diff changeset	3570
321c1729db5b initial checkin penk parents: diff changeset	3571	htmlView:something
321c1729db5b initial checkin penk parents: diff changeset	3572	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3573
321c1729db5b initial checkin penk parents: diff changeset	3574	htmlView := something.
321c1729db5b initial checkin penk parents: diff changeset	3575	!
321c1729db5b initial checkin penk parents: diff changeset	3576
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3577	item:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	3578
321c1729db5b initial checkin penk parents: diff changeset	3579	\|retVal\|
321c1729db5b initial checkin penk parents: diff changeset	3580
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3581	self labelHolder value:anItem fileName asString.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3582	retVal := super item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	3583	self setupHtmlView.
321c1729db5b initial checkin penk parents: diff changeset	3584	^ retVal
321c1729db5b initial checkin penk parents: diff changeset	3585	! !
321c1729db5b initial checkin penk parents: diff changeset	3586
321c1729db5b initial checkin penk parents: diff changeset	3587	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3588
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3589	doEdit
7540 69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3590	self masterApplication
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3591	openTextEditorForFile:(htmlView currentDocument)
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3592	"/ openTextEditorOn:item.
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3593
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3594	"Modified: / 24-11-2006 / 11:14:51 / cg"
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3595	!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3596
3892 321c1729db5b initial checkin penk parents: diff changeset	3597	doGoBack
321c1729db5b initial checkin penk parents: diff changeset	3598
321c1729db5b initial checkin penk parents: diff changeset	3599	self htmlView menu_back.
321c1729db5b initial checkin penk parents: diff changeset	3600	!
321c1729db5b initial checkin penk parents: diff changeset	3601
321c1729db5b initial checkin penk parents: diff changeset	3602	doGoHome
321c1729db5b initial checkin penk parents: diff changeset	3603
321c1729db5b initial checkin penk parents: diff changeset	3604	self htmlView menu_home.
321c1729db5b initial checkin penk parents: diff changeset	3605	!
321c1729db5b initial checkin penk parents: diff changeset	3606
321c1729db5b initial checkin penk parents: diff changeset	3607	doHelp
321c1729db5b initial checkin penk parents: diff changeset	3608
321c1729db5b initial checkin penk parents: diff changeset	3609	self htmlView menu_help.
321c1729db5b initial checkin penk parents: diff changeset	3610	!
321c1729db5b initial checkin penk parents: diff changeset	3611
321c1729db5b initial checkin penk parents: diff changeset	3612	doPrint
321c1729db5b initial checkin penk parents: diff changeset	3613
321c1729db5b initial checkin penk parents: diff changeset	3614	self htmlView menu_print.
321c1729db5b initial checkin penk parents: diff changeset	3615	!
321c1729db5b initial checkin penk parents: diff changeset	3616
321c1729db5b initial checkin penk parents: diff changeset	3617	doReload
321c1729db5b initial checkin penk parents: diff changeset	3618
321c1729db5b initial checkin penk parents: diff changeset	3619	self htmlView menu_reload.
321c1729db5b initial checkin penk parents: diff changeset	3620	!
321c1729db5b initial checkin penk parents: diff changeset	3621
321c1729db5b initial checkin penk parents: diff changeset	3622	setupHtmlView
321c1729db5b initial checkin penk parents: diff changeset	3623
321c1729db5b initial checkin penk parents: diff changeset	3624	\| html file directory\|
321c1729db5b initial checkin penk parents: diff changeset	3625
321c1729db5b initial checkin penk parents: diff changeset	3626	html := self htmlView.
321c1729db5b initial checkin penk parents: diff changeset	3627	html isNil ifTrue:[^ self].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3628
3892 321c1729db5b initial checkin penk parents: diff changeset	3629	file := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	3630	directory := file directoryName.
321c1729db5b initial checkin penk parents: diff changeset	3631	html homeDocument:(file asString).
321c1729db5b initial checkin penk parents: diff changeset	3632	html setTopDirectoryName:directory.
321c1729db5b initial checkin penk parents: diff changeset	3633	html uriHolder:self labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3634	html infoHolder:self notifyChannel.
321c1729db5b initial checkin penk parents: diff changeset	3635	html linkButtonPanel:nil.
321c1729db5b initial checkin penk parents: diff changeset	3636	^ html
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3637
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3638	"Modified: / 17-02-2011 / 14:01:35 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3639	! !
321c1729db5b initial checkin penk parents: diff changeset	3640
321c1729db5b initial checkin penk parents: diff changeset	3641	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3642
321c1729db5b initial checkin penk parents: diff changeset	3643	labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3644
321c1729db5b initial checkin penk parents: diff changeset	3645	labelHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3646	labelHolder := '' asValue.
321c1729db5b initial checkin penk parents: diff changeset	3647	].
321c1729db5b initial checkin penk parents: diff changeset	3648	^ labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3649	! !
321c1729db5b initial checkin penk parents: diff changeset	3650
321c1729db5b initial checkin penk parents: diff changeset	3651	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3652
321c1729db5b initial checkin penk parents: diff changeset	3653	postBuildHtmlView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	3654
321c1729db5b initial checkin penk parents: diff changeset	3655	self htmlView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3656	self htmlView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	3657	!
321c1729db5b initial checkin penk parents: diff changeset	3658
321c1729db5b initial checkin penk parents: diff changeset	3659	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3660	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	3661
321c1729db5b initial checkin penk parents: diff changeset	3662	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	3663
321c1729db5b initial checkin penk parents: diff changeset	3664	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3665	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3666	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	3667
321c1729db5b initial checkin penk parents: diff changeset	3668	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	3669	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	3670	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	3671	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	3672	suffix = 'html'
321c1729db5b initial checkin penk parents: diff changeset	3673	]
321c1729db5b initial checkin penk parents: diff changeset	3674	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	3675	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3676	Dialog warn:'cant find a HTML file in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	3677	^ self
321c1729db5b initial checkin penk parents: diff changeset	3678	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3679	self item:(DirectoryContentsBrowser itemClass
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3680	fileName:('../../doc/online/english/TOP.html') asFilename asAbsoluteFilename).
3892 321c1729db5b initial checkin penk parents: diff changeset	3681	].
321c1729db5b initial checkin penk parents: diff changeset	3682	self setupHtmlView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3683	super postOpenWith:aBuilder
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3684
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3685	"Modified: / 17-02-2011 / 13:27:12 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3686	! !
321c1729db5b initial checkin penk parents: diff changeset	3687
321c1729db5b initial checkin penk parents: diff changeset	3688	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3689
321c1729db5b initial checkin penk parents: diff changeset	3690	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3691	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3692
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3693	^ 'Image in %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3694
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3695	"Modified: / 01-03-2007 / 21:43:23 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3696	! !
321c1729db5b initial checkin penk parents: diff changeset	3697
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3698	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3699
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3700	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3701	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3702	a previewer-plugin for bitmap images (jpg, xpm, tiff, gif, etc.)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3703	Offers edit and adjust-size button functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3704	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3705	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3706
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3707	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3708
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3709	flyByHelpSpec
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3710	"This resource specification was automatically generated
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3711	by the UIHelpTool of ST/X."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3712
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3713	"Do not manually edit this!! If it is corrupted,
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3714	the UIHelpTool may not be able to read the specification."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3715
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3716	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3717	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3718	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3719
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3720	<resource: #help>
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3721
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3722	^ super flyByHelpSpec addPairsFrom:#(
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3723
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3724	#'fitImageSize'
6310 75c523340406 * empty log message * Claus Gittinger <cg@exept.de> parents: 6295 diff changeset	3725	'Shrink Image to Fit View'
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3726
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3727	)
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3728	! !
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3729
3892 321c1729db5b initial checkin penk parents: diff changeset	3730	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	3731
321c1729db5b initial checkin penk parents: diff changeset	3732	fitSize20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	3733	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3734	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3735
321c1729db5b initial checkin penk parents: diff changeset	3736	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3737	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3738
321c1729db5b initial checkin penk parents: diff changeset	3739	"
321c1729db5b initial checkin penk parents: diff changeset	3740	self fitSize20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	3741	ImageEditor openOnClass:self andSelector:#fitSize20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	3742	"
321c1729db5b initial checkin penk parents: diff changeset	3743
321c1729db5b initial checkin penk parents: diff changeset	3744	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	3745
321c1729db5b initial checkin penk parents: diff changeset	3746	^Icon
321c1729db5b initial checkin penk parents: diff changeset	3747	constantNamed:#'FileApplicationNoteBook::ImageViewApplication class fitSize20x20Icon'
321c1729db5b initial checkin penk parents: diff changeset	3748	ifAbsentPut:[(Depth4Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	3749	@@DQDQDQDQDP@@@PDQDQDQDQ@P@A@ADQDQDQDP@PD@@PDQDQDPD@@QDQ@ADQDQ@@DQDQD@@@@@@@@@DQDQDPQDQDQ@DQDQDQDDQUUTPADQDQDQAEUUUT@QDQ
321c1729db5b initial checkin penk parents: diff changeset	3750	DQDPQEUUQ@DQDQDQDDQFQDPADQDQDQADQ$QD@QDQDQDPL3X3Q@DQDQDQDCL3L3LADQDQD@@@@@@@@@DQDQD@DQDQDP@QDQ@@DADQDQDA@@DA@ADQDQDQDP@P
321c1729db5b initial checkin penk parents: diff changeset	3751	@@@QDQDQDQDA@@@ADQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3752	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3753	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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:'
321c1729db5b initial checkin penk parents: diff changeset	3754	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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3755	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3756	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3757	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3758	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	3759	! !
321c1729db5b initial checkin penk parents: diff changeset	3760
321c1729db5b initial checkin penk parents: diff changeset	3761	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3762
321c1729db5b initial checkin penk parents: diff changeset	3763	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3764	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3765	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3766
321c1729db5b initial checkin penk parents: diff changeset	3767	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3768	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3769
321c1729db5b initial checkin penk parents: diff changeset	3770	"
321c1729db5b initial checkin penk parents: diff changeset	3771	UIPainter new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3772	FileApplicationNoteBook::ImageViewApplication new openInterface:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3773	FileApplicationNoteBook::ImageViewApplication open
321c1729db5b initial checkin penk parents: diff changeset	3774	"
321c1729db5b initial checkin penk parents: diff changeset	3775
321c1729db5b initial checkin penk parents: diff changeset	3776	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3777
321c1729db5b initial checkin penk parents: diff changeset	3778	^
321c1729db5b initial checkin penk parents: diff changeset	3779	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3780	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3781	#window:
321c1729db5b initial checkin penk parents: diff changeset	3782	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3783	#label: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	3784	#name: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	3785	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	3786	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	3787	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3788	)
321c1729db5b initial checkin penk parents: diff changeset	3789	#component:
321c1729db5b initial checkin penk parents: diff changeset	3790	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3791	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3792	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	3793	#name: 'MenuImage'
3892 321c1729db5b initial checkin penk parents: diff changeset	3794	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3795	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3796	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	3797	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3798	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3799	)
321c1729db5b initial checkin penk parents: diff changeset	3800	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	3801	#name: 'ImageView'
3892 321c1729db5b initial checkin penk parents: diff changeset	3802	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	3803	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3804	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3805	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	3806	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	3807	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3808	#component: #ImageView
321c1729db5b initial checkin penk parents: diff changeset	3809	#postBuildCallback: #postBuildImageView:
321c1729db5b initial checkin penk parents: diff changeset	3810	)
321c1729db5b initial checkin penk parents: diff changeset	3811	)
321c1729db5b initial checkin penk parents: diff changeset	3812
321c1729db5b initial checkin penk parents: diff changeset	3813	)
321c1729db5b initial checkin penk parents: diff changeset	3814	)
321c1729db5b initial checkin penk parents: diff changeset	3815	! !
321c1729db5b initial checkin penk parents: diff changeset	3816
321c1729db5b initial checkin penk parents: diff changeset	3817	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3818
321c1729db5b initial checkin penk parents: diff changeset	3819	menu
321c1729db5b initial checkin penk parents: diff changeset	3820	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3821	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3822
321c1729db5b initial checkin penk parents: diff changeset	3823	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3824	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3825
321c1729db5b initial checkin penk parents: diff changeset	3826	"
321c1729db5b initial checkin penk parents: diff changeset	3827	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3828	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3829	"
321c1729db5b initial checkin penk parents: diff changeset	3830
321c1729db5b initial checkin penk parents: diff changeset	3831	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3832
321c1729db5b initial checkin penk parents: diff changeset	3833	^
321c1729db5b initial checkin penk parents: diff changeset	3834	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	3835	#(
321c1729db5b initial checkin penk parents: diff changeset	3836	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	3837	#label: 'Edit'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3838	#itemValue: #editImage
fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3839	#nameKey: #EditImage
3892 321c1729db5b initial checkin penk parents: diff changeset	3840	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3841	#isButton: true
6106 b9f7c407542d * empty log message * Claus Gittinger <cg@exept.de> parents: 6100 diff changeset	3842	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3843	)
321c1729db5b initial checkin penk parents: diff changeset	3844	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	3845	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	3846	)
321c1729db5b initial checkin penk parents: diff changeset	3847	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3848	#activeHelpKey: #fitImageSize
3892 321c1729db5b initial checkin penk parents: diff changeset	3849	#label: 'FitSize'
321c1729db5b initial checkin penk parents: diff changeset	3850	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3851	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3852	#triggerOnDown: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3853	#indication: #fitSize
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3854	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3855	)
321c1729db5b initial checkin penk parents: diff changeset	3856	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	3857	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	3858	)
321c1729db5b initial checkin penk parents: diff changeset	3859	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3860	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	3861	#label: 'Close'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3862	#itemValue: #doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	3863	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3864	#isButton: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3865	#startGroup: #right
3892 321c1729db5b initial checkin penk parents: diff changeset	3866	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3867	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3868	)
321c1729db5b initial checkin penk parents: diff changeset	3869	)
321c1729db5b initial checkin penk parents: diff changeset	3870	nil
321c1729db5b initial checkin penk parents: diff changeset	3871	nil
321c1729db5b initial checkin penk parents: diff changeset	3872	)
321c1729db5b initial checkin penk parents: diff changeset	3873	! !
321c1729db5b initial checkin penk parents: diff changeset	3874
321c1729db5b initial checkin penk parents: diff changeset	3875	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	3876
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3877	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3878
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3879	^ (anItem hasMimeType and:[anItem mimeType isImage])
3892 321c1729db5b initial checkin penk parents: diff changeset	3880	!
321c1729db5b initial checkin penk parents: diff changeset	3881
321c1729db5b initial checkin penk parents: diff changeset	3882	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	3883
321c1729db5b initial checkin penk parents: diff changeset	3884	^ false
321c1729db5b initial checkin penk parents: diff changeset	3885	! !
321c1729db5b initial checkin penk parents: diff changeset	3886
321c1729db5b initial checkin penk parents: diff changeset	3887	!FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3888
321c1729db5b initial checkin penk parents: diff changeset	3889	image:something
321c1729db5b initial checkin penk parents: diff changeset	3890	image := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3891	self updateImageInfo.
3892 321c1729db5b initial checkin penk parents: diff changeset	3892	!
321c1729db5b initial checkin penk parents: diff changeset	3893
321c1729db5b initial checkin penk parents: diff changeset	3894	imageView
321c1729db5b initial checkin penk parents: diff changeset	3895	^ imageView
321c1729db5b initial checkin penk parents: diff changeset	3896	!
321c1729db5b initial checkin penk parents: diff changeset	3897
321c1729db5b initial checkin penk parents: diff changeset	3898	imageView:something
321c1729db5b initial checkin penk parents: diff changeset	3899	imageView := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3900	!
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3901
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3902	updateImageInfo
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3903	\|fn msg\|
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3904
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3905	image notNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3906	fn := image fileName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3907	fn isNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3908	fn := 'unnamed'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3909	] ifFalse:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3910	fn := fn asFilename baseName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3911	].
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3912	msg := '%1 %2x%3 depth:%4'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3913	bindWith:fn allBold
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3914	with:image width
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3915	with:image height
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3916	with:image depth.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3917	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	3918	self notify:msg.
3892 321c1729db5b initial checkin penk parents: diff changeset	3919	! !
321c1729db5b initial checkin penk parents: diff changeset	3920
321c1729db5b initial checkin penk parents: diff changeset	3921	!FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3922
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3923	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3924
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3925	self item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	3926	self setupImageView.
321c1729db5b initial checkin penk parents: diff changeset	3927	^ true
321c1729db5b initial checkin penk parents: diff changeset	3928	!
321c1729db5b initial checkin penk parents: diff changeset	3929
321c1729db5b initial checkin penk parents: diff changeset	3930	editImage
321c1729db5b initial checkin penk parents: diff changeset	3931	\|img\|
321c1729db5b initial checkin penk parents: diff changeset	3932
321c1729db5b initial checkin penk parents: diff changeset	3933	img := self image.
321c1729db5b initial checkin penk parents: diff changeset	3934	img notNil ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3935	"/ self withWaitCursorDo:[
4855 c113852ec9ba waitCursor Claus Gittinger <cg@exept.de> parents: 4803 diff changeset	3936	img edit.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3937	"/ ]
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3938	].
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3939
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3940	"Modified: / 25-07-2006 / 09:09:20 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3941	!
321c1729db5b initial checkin penk parents: diff changeset	3942
321c1729db5b initial checkin penk parents: diff changeset	3943	image
321c1729db5b initial checkin penk parents: diff changeset	3944	\|img fn e\|
321c1729db5b initial checkin penk parents: diff changeset	3945
321c1729db5b initial checkin penk parents: diff changeset	3946	fn := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	3947	img := Image fromFile:fn.
321c1729db5b initial checkin penk parents: diff changeset	3948	img isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3949	fn exists ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3950	e := 'Unknown/unsupported image format'
321c1729db5b initial checkin penk parents: diff changeset	3951	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	3952	e := 'No such image'
321c1729db5b initial checkin penk parents: diff changeset	3953	].
321c1729db5b initial checkin penk parents: diff changeset	3954	Dialog warn:e.
321c1729db5b initial checkin penk parents: diff changeset	3955	^ nil
321c1729db5b initial checkin penk parents: diff changeset	3956	].
321c1729db5b initial checkin penk parents: diff changeset	3957	^ img.
321c1729db5b initial checkin penk parents: diff changeset	3958	!
321c1729db5b initial checkin penk parents: diff changeset	3959
321c1729db5b initial checkin penk parents: diff changeset	3960	setupImageView
4020 d1cfbddb1e5d * empty log message * penk parents: 4018 diff changeset	3961	[
4744 36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3962	\|img\|
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3963
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3964	"/ imageView withCursor:(Cursor wait) do:[
4744 36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3965	img := self image.
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3966	img notNil ifTrue:[
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3967	self image:img.
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3968	imageView image:img
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	3969	].
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3970	"/ ].
4174 868e973add35 * empty log message * penk parents: 4169 diff changeset	3971	] fork.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3972
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	3973	"Modified: / 25-07-2006 / 09:09:33 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3974	! !
321c1729db5b initial checkin penk parents: diff changeset	3975
321c1729db5b initial checkin penk parents: diff changeset	3976	!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3977
321c1729db5b initial checkin penk parents: diff changeset	3978	fitSize
321c1729db5b initial checkin penk parents: diff changeset	3979	"return/create the 'fitSize' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3980
321c1729db5b initial checkin penk parents: diff changeset	3981	fitSize isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3982	fitSize := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	3983	fitSize addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	3984	].
321c1729db5b initial checkin penk parents: diff changeset	3985	^ fitSize
321c1729db5b initial checkin penk parents: diff changeset	3986	! !
321c1729db5b initial checkin penk parents: diff changeset	3987
321c1729db5b initial checkin penk parents: diff changeset	3988	!FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	3989
321c1729db5b initial checkin penk parents: diff changeset	3990	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3991	changedObject == self fitSize ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3992	changedObject value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3993	imageView adjust:#fitBig.
321c1729db5b initial checkin penk parents: diff changeset	3994	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	3995	imageView adjust:nil.
321c1729db5b initial checkin penk parents: diff changeset	3996	].
321c1729db5b initial checkin penk parents: diff changeset	3997	^ self
321c1729db5b initial checkin penk parents: diff changeset	3998	].
321c1729db5b initial checkin penk parents: diff changeset	3999	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	4000	! !
321c1729db5b initial checkin penk parents: diff changeset	4001
321c1729db5b initial checkin penk parents: diff changeset	4002	!FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4003
321c1729db5b initial checkin penk parents: diff changeset	4004	postBuildImageView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	4005
321c1729db5b initial checkin penk parents: diff changeset	4006	self imageView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	4007	self imageView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	4008	!
321c1729db5b initial checkin penk parents: diff changeset	4009
321c1729db5b initial checkin penk parents: diff changeset	4010	postOpenWith:aBuilder
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4011	"only invoked if the application is not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	4012
321c1729db5b initial checkin penk parents: diff changeset	4013	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	4014
321c1729db5b initial checkin penk parents: diff changeset	4015	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4016	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	4017	currentDir := Filename currentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	4018	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	4019	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	4020	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	4021	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	4022	Image isImageFileSuffix:suffix
321c1729db5b initial checkin penk parents: diff changeset	4023	]
321c1729db5b initial checkin penk parents: diff changeset	4024	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	4025	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4026	Dialog warn:'cant find a Image in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	4027	^ self
321c1729db5b initial checkin penk parents: diff changeset	4028	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4029	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
3892 321c1729db5b initial checkin penk parents: diff changeset	4030	].
321c1729db5b initial checkin penk parents: diff changeset	4031	self setupImageView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4032	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	4033	! !
321c1729db5b initial checkin penk parents: diff changeset	4034
321c1729db5b initial checkin penk parents: diff changeset	4035	!FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4036
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4037	defaultLineLimit
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4038	"the number of buffered lines"
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4039
4759 cdc53b0b3e52 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4758 diff changeset	4040	^ DefaultLineLimit ? TextCollector defaultLineLimit
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4041
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4042	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4043	DefaultLineLimit := 30000
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4044	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4045
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4046	"Modified: / 05-04-2007 / 17:03:11 / cg"
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4047	!
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4048
3892 321c1729db5b initial checkin penk parents: diff changeset	4049	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4050	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4051
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4052	^ 'Terminal'
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4053
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4054	"Modified: / 01-03-2007 / 21:43:38 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4055	! !
321c1729db5b initial checkin penk parents: diff changeset	4056
321c1729db5b initial checkin penk parents: diff changeset	4057	!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	4058
321c1729db5b initial checkin penk parents: diff changeset	4059	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4060	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4061	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4062
321c1729db5b initial checkin penk parents: diff changeset	4063	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4064	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4065
321c1729db5b initial checkin penk parents: diff changeset	4066	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4067	UIPainter new openOnClass:FileApplicationNoteBook::Terminal andSelector:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4068	FileApplicationNoteBook::Terminal new openInterface:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4069	FileApplicationNoteBook::Terminal open
3892 321c1729db5b initial checkin penk parents: diff changeset	4070	"
321c1729db5b initial checkin penk parents: diff changeset	4071
321c1729db5b initial checkin penk parents: diff changeset	4072	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4073
321c1729db5b initial checkin penk parents: diff changeset	4074	^
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4075	#(FullSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4076	name: windowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4077	window:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4078	(WindowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4079	label: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4080	name: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4081	min: (Point 10 10)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4082	bounds: (Rectangle 0 0 692 537)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4083	menu: mainMenu
3892 321c1729db5b initial checkin penk parents: diff changeset	4084	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4085	component:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4086	(SpecCollection
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4087	collection: (
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4088	(MenuPanelSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4089	name: 'MenuTerminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4090	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4091	level: 0
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4092	menu: menu
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4093	textDefault: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4094	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4095	(ArbitraryComponentSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4096	name: 'TerminalView'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4097	layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4098	hasHorizontalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4099	hasVerticalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4100	miniScrollerHorizontal: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4101	miniScrollerVertical: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4102	autoHideScrollBars: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4103	hasBorder: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4104	component: terminalView
3892 321c1729db5b initial checkin penk parents: diff changeset	4105	)
321c1729db5b initial checkin penk parents: diff changeset	4106	)
321c1729db5b initial checkin penk parents: diff changeset	4107
321c1729db5b initial checkin penk parents: diff changeset	4108	)
321c1729db5b initial checkin penk parents: diff changeset	4109	)
321c1729db5b initial checkin penk parents: diff changeset	4110	! !
321c1729db5b initial checkin penk parents: diff changeset	4111
321c1729db5b initial checkin penk parents: diff changeset	4112	!FileApplicationNoteBook::Terminal class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4113
321c1729db5b initial checkin penk parents: diff changeset	4114	menu
321c1729db5b initial checkin penk parents: diff changeset	4115	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4116	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4117
321c1729db5b initial checkin penk parents: diff changeset	4118	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4119	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4120
321c1729db5b initial checkin penk parents: diff changeset	4121	"
321c1729db5b initial checkin penk parents: diff changeset	4122	MenuEditor new openOnClass:FileApplicationNoteBook::Terminal andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4123	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::Terminal menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4124	"
321c1729db5b initial checkin penk parents: diff changeset	4125
321c1729db5b initial checkin penk parents: diff changeset	4126	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4127
321c1729db5b initial checkin penk parents: diff changeset	4128	^
321c1729db5b initial checkin penk parents: diff changeset	4129	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	4130	#(
321c1729db5b initial checkin penk parents: diff changeset	4131	#(#MenuItem
6120 d7371843b882 * empty log message * Claus Gittinger <cg@exept.de> parents: 6117 diff changeset	4132	#label: 'Save As...'
3892 321c1729db5b initial checkin penk parents: diff changeset	4133	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4134	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	4135	#nameKey: #Save
321c1729db5b initial checkin penk parents: diff changeset	4136	#value: #saveAs
6120 d7371843b882 * empty log message * Claus Gittinger <cg@exept.de> parents: 6117 diff changeset	4137	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary saveToFileAsIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4138	)
321c1729db5b initial checkin penk parents: diff changeset	4139	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4140	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	4141	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	4142	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4143	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	4144	#hideMenuOnActivated: false
321c1729db5b initial checkin penk parents: diff changeset	4145	#isVisible: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	4146	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	4147	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	4148	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4149	)
321c1729db5b initial checkin penk parents: diff changeset	4150	)
321c1729db5b initial checkin penk parents: diff changeset	4151	nil
321c1729db5b initial checkin penk parents: diff changeset	4152	nil
321c1729db5b initial checkin penk parents: diff changeset	4153	)
321c1729db5b initial checkin penk parents: diff changeset	4154	! !
321c1729db5b initial checkin penk parents: diff changeset	4155
321c1729db5b initial checkin penk parents: diff changeset	4156	!FileApplicationNoteBook::Terminal methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4157
321c1729db5b initial checkin penk parents: diff changeset	4158	terminalView
321c1729db5b initial checkin penk parents: diff changeset	4159
321c1729db5b initial checkin penk parents: diff changeset	4160	terminalView isNil ifTrue:[
6435 a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4161	VT100TerminalView isNil ifTrue:[
a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4162	Dialog warn:('Missing class: ' , 'VT100TerminalView' allBold).
a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4163	AbortOperationRequest raise
a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4164	].
a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4165
3892 321c1729db5b initial checkin penk parents: diff changeset	4166	terminalView := VT100TerminalView new.
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4167	terminalView lineLimit:(self class defaultLineLimit).
3892 321c1729db5b initial checkin penk parents: diff changeset	4168	].
321c1729db5b initial checkin penk parents: diff changeset	4169	^ terminalView.
321c1729db5b initial checkin penk parents: diff changeset	4170	! !
321c1729db5b initial checkin penk parents: diff changeset	4171
321c1729db5b initial checkin penk parents: diff changeset	4172	!FileApplicationNoteBook::Terminal methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4173
321c1729db5b initial checkin penk parents: diff changeset	4174	saveAs
321c1729db5b initial checkin penk parents: diff changeset	4175
321c1729db5b initial checkin penk parents: diff changeset	4176	self terminalView save.
321c1729db5b initial checkin penk parents: diff changeset	4177	! !
321c1729db5b initial checkin penk parents: diff changeset	4178
321c1729db5b initial checkin penk parents: diff changeset	4179	!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4180
321c1729db5b initial checkin penk parents: diff changeset	4181	shellFinished
321c1729db5b initial checkin penk parents: diff changeset	4182	\| master text string\|
321c1729db5b initial checkin penk parents: diff changeset	4183
321c1729db5b initial checkin penk parents: diff changeset	4184	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	4185	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4186	string := ' - closed'.
321c1729db5b initial checkin penk parents: diff changeset	4187	master tabStringAdd:string for:self.
321c1729db5b initial checkin penk parents: diff changeset	4188	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	4189	self notify:'shell in ' , self fileName asString, ' finished'.
3892 321c1729db5b initial checkin penk parents: diff changeset	4190	terminalView cr.
4515 5345a8da0455 * empty log message * Claus Gittinger <cg@exept.de> parents: 4508 diff changeset	4191
5305 5e3c955b7c4d * empty log message * Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4192	text := '>> shell terminated.' allBold.
3892 321c1729db5b initial checkin penk parents: diff changeset	4193	text colorizeAllWith:Color red.
321c1729db5b initial checkin penk parents: diff changeset	4194	terminalView nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	4195	!
321c1729db5b initial checkin penk parents: diff changeset	4196
321c1729db5b initial checkin penk parents: diff changeset	4197	startShell
321c1729db5b initial checkin penk parents: diff changeset	4198	\|vt100\|
321c1729db5b initial checkin penk parents: diff changeset	4199
321c1729db5b initial checkin penk parents: diff changeset	4200	vt100 := self terminalView.
321c1729db5b initial checkin penk parents: diff changeset	4201	vt100 shellTerminateAction:[ self shellFinished ].
321c1729db5b initial checkin penk parents: diff changeset	4202	vt100 startShellIn:(self fileName).
321c1729db5b initial checkin penk parents: diff changeset	4203	! !
321c1729db5b initial checkin penk parents: diff changeset	4204
321c1729db5b initial checkin penk parents: diff changeset	4205	!FileApplicationNoteBook::Terminal methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	4206
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4207	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4208	aStream nextPutAll:'Terminal on:'.
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4209	self fileName baseName printOn:aStream.
3892 321c1729db5b initial checkin penk parents: diff changeset	4210	! !
321c1729db5b initial checkin penk parents: diff changeset	4211
321c1729db5b initial checkin penk parents: diff changeset	4212	!FileApplicationNoteBook::Terminal methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4213
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4214	getTabValueString
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4215	"the item shown in a tab (not language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4216
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4217	^ nil
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4218
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4219	"Created: / 01-03-2007 / 21:39:56 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4220	! !
321c1729db5b initial checkin penk parents: diff changeset	4221
321c1729db5b initial checkin penk parents: diff changeset	4222	!FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	4223
321c1729db5b initial checkin penk parents: diff changeset	4224	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4225	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4226
3892 321c1729db5b initial checkin penk parents: diff changeset	4227	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4228	self masterApplication:nil.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4229	self item:(DirectoryContentsBrowser itemClass fileName:(Filename currentDirectory asAbsoluteFilename)).
3892 321c1729db5b initial checkin penk parents: diff changeset	4230	].
321c1729db5b initial checkin penk parents: diff changeset	4231	self startShell.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4232	super postOpenWith:aBuilder.
3892 321c1729db5b initial checkin penk parents: diff changeset	4233	! !
321c1729db5b initial checkin penk parents: diff changeset	4234
321c1729db5b initial checkin penk parents: diff changeset	4235	!FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4236
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4237	checkModifiedDelayTime
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	4238	^ 30 "seconds"
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4239	!
acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4240
3892 321c1729db5b initial checkin penk parents: diff changeset	4241	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4242	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4243
321c1729db5b initial checkin penk parents: diff changeset	4244	aApplicationType == #directoryDescription ifTrue:[
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4245	^ 'Directory Description of %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4246	].
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4247	^ '%1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4248
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4249	"Modified: / 01-03-2007 / 21:46:24 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4250	!
321c1729db5b initial checkin penk parents: diff changeset	4251
321c1729db5b initial checkin penk parents: diff changeset	4252	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	4253
321c1729db5b initial checkin penk parents: diff changeset	4254	^ false
321c1729db5b initial checkin penk parents: diff changeset	4255	! !
321c1729db5b initial checkin penk parents: diff changeset	4256
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4257	!FileApplicationNoteBook::TextEditor class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4258
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4259	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4260	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4261	a previewer-plugin for plain text
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4262	Offers edit, hex-display and diff functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4263	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4264	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4265
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	4266	!FileApplicationNoteBook::TextEditor class methodsFor:'interface specs'!
3892 321c1729db5b initial checkin penk parents: diff changeset	4267
321c1729db5b initial checkin penk parents: diff changeset	4268	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4269	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4270	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4271
321c1729db5b initial checkin penk parents: diff changeset	4272	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4273	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4274
321c1729db5b initial checkin penk parents: diff changeset	4275	"
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4276	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4277	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4278	FileApplicationNoteBook::TextEditor open
3892 321c1729db5b initial checkin penk parents: diff changeset	4279	"
321c1729db5b initial checkin penk parents: diff changeset	4280
321c1729db5b initial checkin penk parents: diff changeset	4281	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4282
321c1729db5b initial checkin penk parents: diff changeset	4283	^
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4284	#(FullSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4285	name: windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4286	window:
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4287	(WindowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4288	label: 'TextEditor'
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4289	name: 'TextEditor'
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4290	min: (Point 10 10)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4291	bounds: (Rectangle 16 42 666 342)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4292	)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4293	component:
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4294	(SpecCollection
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4295	collection: (
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4296	(MenuPanelSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4297	name: 'MenuTextEditor'
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4298	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4299	level: 0
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4300	menu: menu
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4301	textDefault: true
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4302	)
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	4303	(TextEditorSpec
e500bd438cc7 save as changed penk parents: 5429 diff changeset	4304	name: 'TextEditor'
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4305	layout: (LayoutFrame 0 0.0 32 0 0 1.0 0 1.0)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4306	model: fileContentsModel
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4307	hasHorizontalScrollBar: true
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4308	hasVerticalScrollBar: true
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	4309	modifiedChannel: viewModifiedChannel
e500bd438cc7 save as changed penk parents: 5429 diff changeset	4310	acceptCallBack: accept
e500bd438cc7 save as changed penk parents: 5429 diff changeset	4311	allowDoIt: true
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4312	postBuildCallback: postBuildTextEditor:
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4313	)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4314	)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4315
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4316	)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4317	)
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4318	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4319
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4320	xwindowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4321	"This resource specification was automatically generated
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4322	by the UIPainter of ST/X."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4323
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4324	"Do not manually edit this!! If it is corrupted,
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4325	the UIPainter may not be able to read the specification."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4326
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4327	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4328	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4329	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4330	FileApplicationNoteBook::TextEditor open
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4331	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4332
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4333	<resource: #canvas>
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4334
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4335	^
3892 321c1729db5b initial checkin penk parents: diff changeset	4336	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	4337	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4338	#window:
321c1729db5b initial checkin penk parents: diff changeset	4339	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	4340	#label: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4341	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4342	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	4343	#max: #(#Point 1024 768)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4344	#bounds: #(#Rectangle 16 42 666 342)
3892 321c1729db5b initial checkin penk parents: diff changeset	4345	)
321c1729db5b initial checkin penk parents: diff changeset	4346	#component:
321c1729db5b initial checkin penk parents: diff changeset	4347	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	4348	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	4349	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	4350	#name: 'MenuTextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4351	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4352	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	4353	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	4354	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	4355	)
321c1729db5b initial checkin penk parents: diff changeset	4356	#(#TextEditorSpec
321c1729db5b initial checkin penk parents: diff changeset	4357	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4358	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	4359	#model: #fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	4360	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4361	#hasVerticalScrollBar: true
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	4362	#modifiedChannel: #viewModifiedChannel
3892 321c1729db5b initial checkin penk parents: diff changeset	4363	#acceptCallBack: #accept
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4364	#allowDoIt: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4365	#postBuildCallback: #postBuildTextEditor:
321c1729db5b initial checkin penk parents: diff changeset	4366	)
321c1729db5b initial checkin penk parents: diff changeset	4367	)
321c1729db5b initial checkin penk parents: diff changeset	4368
321c1729db5b initial checkin penk parents: diff changeset	4369	)
321c1729db5b initial checkin penk parents: diff changeset	4370	)
321c1729db5b initial checkin penk parents: diff changeset	4371	! !
321c1729db5b initial checkin penk parents: diff changeset	4372
321c1729db5b initial checkin penk parents: diff changeset	4373	!FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4374
321c1729db5b initial checkin penk parents: diff changeset	4375	menu
321c1729db5b initial checkin penk parents: diff changeset	4376	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4377	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4378
321c1729db5b initial checkin penk parents: diff changeset	4379	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4380	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4381
321c1729db5b initial checkin penk parents: diff changeset	4382	"
321c1729db5b initial checkin penk parents: diff changeset	4383	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4384	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4385	"
321c1729db5b initial checkin penk parents: diff changeset	4386
321c1729db5b initial checkin penk parents: diff changeset	4387	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4388
321c1729db5b initial checkin penk parents: diff changeset	4389	^
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4390	#(Menu
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4391	(
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4392	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4393	activeHelpKey: saveFile
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4394	enabled: enableSave
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4395	isVisible: saveButtonVisible
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4396	label: 'Save'
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4397	itemValue: accept
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4398	nameKey: Save
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4399	translateLabel: true
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4400	isButton: true
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4401	labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon)
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4402	)
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4403	(MenuItem
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4404	activeHelpKey: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4405	enabled: enableSaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4406	isVisible: saveAsButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4407	label: 'Save As...'
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4408	itemValue: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4409	nameKey: SaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4410	translateLabel: true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4411	isButton: true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4412	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4413	)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4414	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4415	activeHelpKey: reloadFile
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4416	isVisible: reloadButtonVisible
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4417	enabled: enableReload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4418	label: 'Reload'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4419	itemValue: reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4420	nameKey: Reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4421	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4422	isButton: true
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4423	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4424	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4425	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4426	activeHelpKey: findInBrowser
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4427	isVisible: selectInBrowserButtonVisible
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4428	enabled: enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4429	label: 'Select in Browser'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4430	itemValue: selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4431	nameKey: SelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4432	translateLabel: true
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4433	isButton: true
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4434	labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4435	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4436	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4437	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	4438	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4439	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4440	activeHelpKey: print
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4441	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4442	label: 'Print'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4443	itemValue: doPrint
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4444	nameKey: Print
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4445	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4446	isButton: true
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4447	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4448	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4449	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4450	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	4451	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4452	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4453	activeHelpKey: toggleHexDisplay
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4454	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4455	label: 'Hex'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4456	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4457	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4458	indication: printAsHexDump
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	4459	labelImage: (ResourceRetriever ToolbarIconLibrary hexToggleIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4460	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4461	(MenuItem
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4462	label: ''
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4463	isVisible: diffTextButtonVisible
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4464	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4465	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4466	activeHelpKey: showDifferences
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4467	isVisible: diffTextButtonVisible
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4468	label: 'Diff to Current'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4469	itemValue: openDiffView
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4470	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4471	isButton: true
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	4472	labelImage: (ResourceRetriever ToolbarIconLibrary diffIcon)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4473	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4474	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4475	activeHelpKey: closeTabButton
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4476	label: 'Close'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4477	itemValue: doClose
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4478	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4479	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4480	startGroup: right
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4481	isVisible: isEmbeddedApplication
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4482	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	4483	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4484	)
321c1729db5b initial checkin penk parents: diff changeset	4485	)
321c1729db5b initial checkin penk parents: diff changeset	4486	nil
321c1729db5b initial checkin penk parents: diff changeset	4487	nil
321c1729db5b initial checkin penk parents: diff changeset	4488	)
321c1729db5b initial checkin penk parents: diff changeset	4489	! !
321c1729db5b initial checkin penk parents: diff changeset	4490
321c1729db5b initial checkin penk parents: diff changeset	4491	!FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4492
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4493	fileEncoding
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4494	^ self fileEncodingHolder value
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4495	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4496
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4497	fileEncoding:newEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4498	self fileEncodingHolder value:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4499
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4500	editView notNil ifTrue:[
5705 e7559e531af5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5693 diff changeset	4501	self enableReload value:true.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4502	editView externalEncoding:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4503	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4504	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4505
3892 321c1729db5b initial checkin penk parents: diff changeset	4506	item:aDirContentsItem
321c1729db5b initial checkin penk parents: diff changeset	4507
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	4508	self releaseCheckModify.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	4509	(self item = aDirContentsItem and:[(self presentation == #hexDump) == self printAsHexDump value]) ifTrue:[^ true].
7947 32baaebb4943 * empty log message * Claus Gittinger <cg@exept.de> parents: 7910 diff changeset	4510
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4511	self askForChangeWithReload:false "true".
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4512
3892 321c1729db5b initial checkin penk parents: diff changeset	4513	super item:aDirContentsItem.
4698 14a71be57ecf dont load twice on startup TextEditor penk parents: 4677 diff changeset	4514	self printAsHexDump value:(self presentation == #hexDump) withoutNotifying:self.
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	4515	self setContents ifFalse:[ ^ false].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4516
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4517	self setUpTextView.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4518
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	4519	textEditorModificationTime := self fileName modificationTime.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4520	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	4521	self setupCheckModify.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4522	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	4523	^ true
321c1729db5b initial checkin penk parents: diff changeset	4524	!
321c1729db5b initial checkin penk parents: diff changeset	4525
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4526	lockFileEncoding:aBoolean
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4527	self lockFileEncodingHolder value:aBoolean.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4528	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4529
3892 321c1729db5b initial checkin penk parents: diff changeset	4530	presentation
321c1729db5b initial checkin penk parents: diff changeset	4531	"return the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4532
321c1729db5b initial checkin penk parents: diff changeset	4533	presentation isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4534	presentation := #asText.
321c1729db5b initial checkin penk parents: diff changeset	4535	].
321c1729db5b initial checkin penk parents: diff changeset	4536	^ presentation
321c1729db5b initial checkin penk parents: diff changeset	4537	!
321c1729db5b initial checkin penk parents: diff changeset	4538
321c1729db5b initial checkin penk parents: diff changeset	4539	presentation:something
321c1729db5b initial checkin penk parents: diff changeset	4540	"set the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4541
321c1729db5b initial checkin penk parents: diff changeset	4542	presentation := something.
321c1729db5b initial checkin penk parents: diff changeset	4543	!
321c1729db5b initial checkin penk parents: diff changeset	4544
321c1729db5b initial checkin penk parents: diff changeset	4545	semaChangeItem
321c1729db5b initial checkin penk parents: diff changeset	4546	^ semaChangeItem
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4547	!
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4548
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4549	type:aType
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4550
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4551	super type:aType.
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	4552	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	4553	! !
321c1729db5b initial checkin penk parents: diff changeset	4554
321c1729db5b initial checkin penk parents: diff changeset	4555	!FileApplicationNoteBook::TextEditor methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4556
321c1729db5b initial checkin penk parents: diff changeset	4557	accept
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4558	self saveWithAskForFilename:false.
3892 321c1729db5b initial checkin penk parents: diff changeset	4559	!
321c1729db5b initial checkin penk parents: diff changeset	4560
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	4561	askForChangeWithReload:doReload
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4562	"ask for save changes;
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4563	if modified and answered true, the current contents is written back (accepted)
3892 321c1729db5b initial checkin penk parents: diff changeset	4564	"
321c1729db5b initial checkin penk parents: diff changeset	4565
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4566	self askForChangeWithReload:doReload forClose:false
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4567	!
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4568
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4569	askForChangeWithReload:doReload forClose:forClose
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4570	"ask for save changes;
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4571	if modified and answered true, the current contents is written back (accepted)
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4572	"
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4573
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4574	\|fn answer string arg\|
3892 321c1729db5b initial checkin penk parents: diff changeset	4575
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4576	self modifiedChannel value ifFalse:[ ^ false].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4577
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4578	fn := self fileName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4579	fn isNil ifTrue:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4580	fn := 'unknown'
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4581	] ifFalse:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4582	fn := fn baseName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4583	].
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4584	arg := fn allBold.
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4585
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4586	string := 'Save changed file "%1" ?'.
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4587
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4588	forClose ifTrue:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4589	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	4590	string := 'Modified %1 was changed by someone else.\\Save your changes (overwrite someone''s changes) ?'
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4591	] ifFalse:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4592	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	4593	string := 'Modified %1 was removed by someone else.\\Save your changes (recreate the removed file) ?'
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4594	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4595	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4596	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4597	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	4598	string := '%1 was changed by someone else.\\Save your changes anyway (overwrite someon''es changes) ?'
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4599	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4600	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	4601	string := '%1 was removed by someone else.\\Save your changes anyway (recreate the removed file) ?'
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4602	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4603	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4604	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4605
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4606	answer := OptionBox
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	4607	request:(resources stringWithCRs:string with:arg)
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4608	buttonLabels:(resources array:#('Cancel' 'Show Diffs' 'No' 'Yes'))
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4609	values:#(nil showDiffs false true)
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4610	default:nil.
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4611
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4612	answer isNil ifTrue:[^ AbortOperationRequest raise ].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4613
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4614	answer == #showDiffs ifTrue:[
5201 979c36ed9a22 * empty log message * Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	4615	self openDiffView.
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4616	AbortOperationRequest raise
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4617	].
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	4618
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4619	answer ifTrue:[
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4620	self accept
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4621	] ifFalse:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	4622	doReload ifTrue:[
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	4623	self setContents.
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	4624	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4625	].
321c1729db5b initial checkin penk parents: diff changeset	4626	^ answer
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	4627
24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	4628	"Modified: / 11-09-2010 / 13:07:37 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4629	!
321c1729db5b initial checkin penk parents: diff changeset	4630
321c1729db5b initial checkin penk parents: diff changeset	4631	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	4632
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	4633	\| stream win\|
3892 321c1729db5b initial checkin penk parents: diff changeset	4634
321c1729db5b initial checkin penk parents: diff changeset	4635	stream := WriteStream with:(self getTabString).
321c1729db5b initial checkin penk parents: diff changeset	4636	masterApplication isNil ifTrue:[
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	4637	win := self window.
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	4638	win notNil ifTrue:[
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	4639	self window label:stream contents.
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	4640	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4641	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	4642	masterApplication tabStringChangeTo:stream contents for:self.
321c1729db5b initial checkin penk parents: diff changeset	4643	].
321c1729db5b initial checkin penk parents: diff changeset	4644	stream close.
321c1729db5b initial checkin penk parents: diff changeset	4645	!
321c1729db5b initial checkin penk parents: diff changeset	4646
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	4647	changeInformationForModified:aSymbol
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	4648	masterApplication isNil ifTrue:[ ^ self].
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	4649	masterApplication changeModified:aSymbol for:self.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	4650	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	4651
3892 321c1729db5b initial checkin penk parents: diff changeset	4652	doClose
321c1729db5b initial checkin penk parents: diff changeset	4653
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	4654	self askForChangeWithReload:false forClose:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	4655	self masterApplication notNil ifTrue:[
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	4656	^ super doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	4657	].
321c1729db5b initial checkin penk parents: diff changeset	4658	^ true
321c1729db5b initial checkin penk parents: diff changeset	4659	!
321c1729db5b initial checkin penk parents: diff changeset	4660
321c1729db5b initial checkin penk parents: diff changeset	4661	doPrint
321c1729db5b initial checkin penk parents: diff changeset	4662	"print the contents
321c1729db5b initial checkin penk parents: diff changeset	4663	"
4473 a0ab7a61208e * empty log message * Claus Gittinger <cg@exept.de> parents: 4462 diff changeset	4664	(Dialog confirm:'Print contents of editView ?') ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	4665	editView doPrint.
321c1729db5b initial checkin penk parents: diff changeset	4666	].
321c1729db5b initial checkin penk parents: diff changeset	4667	!
321c1729db5b initial checkin penk parents: diff changeset	4668
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4669	doSaveAs
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4670	self saveWithAskForFilename:true.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4671	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4672
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4673	getContents
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4674	\|file fileSize contents presentation alreadyConfirmed answer sizeLimit showLastPart\|
3892 321c1729db5b initial checkin penk parents: diff changeset	4675
321c1729db5b initial checkin penk parents: diff changeset	4676	file := self fileName.
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	4677	file isNil ifTrue:[
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	4678	^ nil
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	4679	].
7487 d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	4680	fileSize := file fileSize.
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	4681	fileSize isNil ifTrue:[
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	4682	^ nil
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	4683	].
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	4684
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4685	self enableSelectInBrowser value:true.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4686
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4687	presentation := self presentation.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4688	presentation == #asText ifTrue:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4689	fileSize > (8 * 1024 * 1024) ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4690	answer := OptionBox
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4691	request:(resources
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4692	stringWithCRs:'%1 is very large (%2).\\Show all or only the first 8 Mb ?'
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4693	with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4694	with:(UnitConverter fileSizeStringFor:fileSize))
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4695	label:(resources string:'Large File')
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4696	buttonLabels:(resources array:#('Cancel' 'Show All' 'Show Last Part' 'Show First Part' ))
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4697	values:#(#abort #all #last #first)
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4698	default:#abort.
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4699	"/ answer := Dialog
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4700	"/ confirmWithCancel:(resources
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4701	"/ stringWithCRs:'%1 is very large (%2).\\Show all or only the first 4 Mb ?'
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4702	"/ with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4703	"/ with:(UnitConverter fileSizeStringFor:fileSize))
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4704	"/ labels:#('Cancel' 'Show All' 'Show First Part' ).
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4705	"/ answer isNil ifTrue:[^ nil].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4706	"/ answer ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4707	"/ sizeLimit := 4 * 1024 * 1024
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4708	"/ ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4709	answer == #abort ifTrue:[^ nil ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4710	answer ~~ #all ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4711	sizeLimit := 4 * 1024 * 1024.
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4712	showLastPart := (answer == #last).
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4713	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4714	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4715	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4716
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4717	ExternalStream readErrorSignal handle:[:ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4718	(Dialog confirm:('Read Error.\\Retry ?' withCRs))
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	4719	ifTrue:[
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4720	^ ex restart
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	4721	].
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4722	] do:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4723	ExternalStream lineTooLongErrorSignal handle:[ :ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4724	(alreadyConfirmed==true
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4725	or:[ Dialog confirm:(file asString, ' contains very long line(s).\\Load anyway ?' withCRs)])
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4726	ifTrue:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4727	alreadyConfirmed := true.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4728	^ ex parameter second , ex parameter first nextLine
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4729	].
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4730	^ nil.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4731	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4732	presentation == #asText ifTrue:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4733	contents := self getContentsAsTextWithSizeLimit:sizeLimit lastPart:showLastPart.
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4734	] ifFalse:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4735	presentation == #hexDump ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4736	"/ self withWaitCursorDo:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4737	contents := AbstractFileBrowser
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4738	contentsOfFileAsHexDump:file
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4739	withLimit:sizeLimit
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4740	lastPart:showLastPart.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4741	"/ ]
4677 549c732836f6 wait cursor Claus Gittinger <cg@exept.de> parents: 4645 diff changeset	4742	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4743	]
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	4744	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4745	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4746	^ contents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4747
7769 6cd2993fa017 * empty log message * Claus Gittinger <cg@exept.de> parents: 7765 diff changeset	4748	"Modified: / 27-03-2007 / 13:41:35 / cg"
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4749	!
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4750
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4751	getContentsAsTextWithSizeLimit:sizeLimitOrNil
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4752	"returns the contents as unicode"
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4753
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4754	^ self getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:false
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4755	!
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4756
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4757	getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:showLastPartOrNil
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4758	"returns the contents as unicode"
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4759
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4760	\|text guessedEncoding s\|
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4761
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4762	(self lockFileEncodingHolder value ? false) ifFalse:[
6173 4ba4589e4952 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 6120 diff changeset	4763	guessedEncoding := CharacterEncoder guessEncodingOfFile:item fileName asFilename.
6793 8304054fd1e5 do not assume utf-8 encoding Claus Gittinger <cg@exept.de> parents: 6681 diff changeset	4764	guessedEncoding := guessedEncoding ? 'iso8859-1' "(self fileEncoding)".
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4765	self fileEncoding:(guessedEncoding asSymbol).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	4766	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4767
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4768	editView notNil ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4769	"/ self validateEditViewsFontEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4770	editView externalEncoding:self fileEncoding.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4771	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4772
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4773	s := self fileName readStream.
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4774	[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4775	showLastPartOrNil == true ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4776	s position:(self fileName fileSize - sizeLimitOrNil).
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4777	].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	4778
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4779	text := self
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4780	readStream:s
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4781	lineDelimiter:(Character cr)
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4782	sizeLimit:sizeLimitOrNil
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4783	encoding:self fileEncoding.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4784	] ensure:[
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4785	s close.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	4786	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4787	^ text
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4788	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4789
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4790	getHashForContents:contents
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4791	\| hashStream\|
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4792
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4793	self hasMD5 ifFalse:[^ nil].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4794
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4795	hashStream := MD5Stream new.
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4796	contents isStringCollection ifTrue:[
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4797	contents do:[:eachLine \|
4616 e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	4798	eachLine notNil ifTrue:[
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	4799	hashStream nextPutAll:(eachLine string withTabs).
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	4800	].
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	4801	hashStream nextPut:Character cr.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4802	].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4803	] ifFalse:[
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4804	hashStream nextPutAll:(contents string).
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	4805	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	4806	^ hashStream hashValue.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	4807	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	4808
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4809	openDiffView
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4810	\|fn diffView text1 l1 text2 l2\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4811
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4812	(fn := self fileName) notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4813	text1 := editView contents asText.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4814	l1 := 'Editor'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4815	text2 := self getContents.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4816	l2 := 'File: ' , fn baseName.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4817	diffView := DiffTextView openOn:text1 label:l1 and:text2 label:l2.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4818	diffView topView label:'File ' , fn baseName , ' vs. Editor Contents'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4819	].
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4820	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4821
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4822	readStream:aStream lineDelimiter:aCharacter encoding:fileEncodingArg
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4823	"read from aStream, answer its contents as StringCollection.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4824	The files lines are delimited by aCharacter.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4825	If encoding is nonNil, the file is assumed to be coded according to
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4826	that symbol, and #decodeString: should be able to convert it into unicode.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4827	Always returns a unicode string."
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4828
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4829	^ self readStream:aStream lineDelimiter:aCharacter sizeLimit:nil encoding:fileEncodingArg
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4830	!
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4831
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	4832	readStream:aStream lineDelimiter:lineDelimiter sizeLimit:sizeLimitOrNil encoding:fileEncodingArg
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4833	"read from aStream, answer its contents as StringCollection.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4834	The files lines are delimited by aCharacter.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4835	If encoding is nonNil, the file is assumed to be coded according to
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4836	that symbol, and #decodeString: should be able to convert it into unicode.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4837	Always returns a unicode string."
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4838
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4839	\|text fileEncoding decoder firstDecoderError line lineNr\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	4840
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4841	fileEncoding := fileEncodingArg ? #'iso8859-1'.
5718 a16c274a18ef * empty log message * ca parents: 5717 diff changeset	4842	decoder := CharacterEncoder encoderFor:fileEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4843
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4844	text := StringCollection new.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4845
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4846	firstDecoderError := true.
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4847	lineNr := 1.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4848
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4849	DecodingError handle:[:ex \|
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4850	\|msg answer\|
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4851
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4852	firstDecoderError ifTrue:[
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4853	msg := resources stringWithCRs:'Error in decoder: %1\In Line: %2\\%3' with:ex errorString with:lineNr with:line.
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4854	answer := Dialog
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4855	confirmWithCancel:msg
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4856	labels:(resources array:#('Cancel' 'Ignore' 'Ignore All' 'Inspect Line'))
f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4857	values:#(nil #ignore #ignoreAll #inspectLine)
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4858	default:2
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	4859	title:'Error during decode'.
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4860	answer isNil ifTrue:[ AbortOperationRequest raise ].
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	4861	answer == #ignoreAll ifTrue:[ firstDecoderError := false ].
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	4862	answer == #inspectLine ifTrue:[ line inspect. AbortOperationRequest raise ].
8389 0c1050ff7f88 encoding error handling Claus Gittinger <cg@exept.de> parents: 8366 diff changeset	4863	ex proceedWith:(ex defaultValue).
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4864	].
8389 0c1050ff7f88 encoding error handling Claus Gittinger <cg@exept.de> parents: 8366 diff changeset	4865	ex proceedWith:(ex defaultValue).
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4866	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4867	FileStream lineTooLongErrorSignal handle:[:ex \|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4868	\|s partialLine\|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4869
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4870	s := ex parameter at:1.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4871	partialLine := ex parameter at:2.
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	4872	ex proceedWith:(partialLine , (s upTo:lineDelimiter))
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4873	] do:[
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4874	(decoder characterSize:0) == 2 ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4875	\|buffer\|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4876
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4877	buffer := aStream upToEnd.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4878	buffer := decoder decodeString:buffer.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4879	buffer asCollectionOfLines do:[:line \|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4880	text add:line withTabsExpanded.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	4881	].
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4882	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4883	[aStream atEnd] whileFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4884	lineDelimiter == Character cr ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4885	line := aStream nextLine.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4886	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4887	line := aStream upTo:lineDelimiter.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4888	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4889
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4890	line := line withTabsExpanded.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4891	text add:(decoder decodeString:line).
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4892	sizeLimitOrNil notNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4893	aStream position > sizeLimitOrNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4894	^ text
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4895	]
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4896	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4897	lineNr := lineNr + 1.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4898	]
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4899	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4900	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4901	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4902	^ text
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	4903
d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	4904	"Modified: / 02-03-2007 / 15:09:30 / cg"
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4905	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4906
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4907	reload
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4908
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	4909	textEditorModificationTime := self fileName modificationTime.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4910	"/ self withWaitCursorDo:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	4911	self setContents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4912	"/ ].
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4913
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4914	"Modified: / 25-07-2006 / 09:09:55 / cg"
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4915	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4916
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4917	saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4918	self saveWithAskForFilename:true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4919	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4920
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4921	saveWithAskForFilename:ask
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4922
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4923	\|answer fn master defaultDir dir base fnDir\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4924
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4925	master := self masterApplication.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4926	self fileName notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4927	dir := self fileName directory.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4928	base := self fileName baseName.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4929	].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4930
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4931	ask ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4932	defaultDir := master notNil ifTrue:[ master currentDirectory ] ifFalse:[ nil ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4933	defaultDir isNil ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4934	self fileName notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4935	defaultDir := dir.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4936	]
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4937	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4938	answer := Dialog
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	4939	requestFileNameForSave:(resources string:'Save contents in:')
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4940	default:base
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4941	fromDirectory:defaultDir.
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	4942	answer isEmptyOrNil ifTrue:[^ self].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4943	fn := answer asFilename.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4944	] ifFalse:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4945	fn := self fileName
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4946	].
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4947
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4948	(master notNil and:[master class openAnotherApplicationOnSameItem]) ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4949	(self updateSameFilesFor:fn) ifFalse:[ ^ self ].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4950	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4951
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4952	fnDir := fn directory.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	4953	fnDir exists ifFalse:[
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4954	fnDir recursiveMakeDirectory.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4955	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4956	(editView saveAs:fn) ifFalse:[^ self].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4957
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4958	textEditorModificationTime := self fileName modificationTime.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4959
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4960	self hasMD5 ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4961	md5CheckSum := self getHashForContents:self fileContentsModel value.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4962	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	4963
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4964	self enableReload value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4965	self itemChanged value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4966	self itemRemoved value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4967	self modifiedChannel value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4968	self notify:self fileName asString, ' saved'.
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	4969
095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	4970	"Modified: / 27-10-2010 / 10:41:29 / cg"
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4971	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4972
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4973	searchForPattern:aContentsPattern ignoreCase:ign
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4974
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4975	\| pattern \|
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4976
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4977	pattern := aContentsPattern string withoutSeparators. "/ is that a good idea ?
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4978	pattern notEmpty ifTrue:[
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4979	editView rememberSearchPattern:pattern.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4980	editView searchFwd:pattern ignoreCase:ign.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4981	]
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4982	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	4983
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4984	selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4985	\|application\|
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4986
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4987	application := self masterApplication.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4988	application notNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4989	application gotoFile:(self fileName).
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4990	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4991	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4992
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4993	setContents
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	4994	\|text\|
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4995
7970 337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	4996	self withReadCursorDo:[
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	4997	text := self getContents.
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	4998	].
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	4999	text isNil ifTrue:[ ^ false].
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5000	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5001	self setContentsFor:text.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5002	].
4953 d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5003	^ true
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5004	!
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5005
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5006	setContentsFor:aUnicodeText
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5007	self itemChanged value:false.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5008
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5009	self validateEditViewsFontEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5010
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5011	self fileContentsModel value:aUnicodeText.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5012
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5013	self hasMD5 ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5014	md5CheckSum := self getHashForContents:aUnicodeText.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5015	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5016	self enableReload value:false.
321c1729db5b initial checkin penk parents: diff changeset	5017	self itemChanged value:false.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5018	self modifiedChannel value:false.
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5019	self notify:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	5020	^ true
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5021
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5022
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5023	"/
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5024	"/ oldEncoding := editView characterEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5025	"/ oldEncoding ~= newEncoding ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5026	"/self halt.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5027	"/ (lines := editView contents) size > 0 ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5028	"/ (Dialog
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5029	"/ confirm:('Re-Encode contents (from %1 to %2) ?'
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5030	"/ bindWith:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5031	"/ with:newEncoding)
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5032	"/ ) ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5033	"/ recoder := CharacterEncoder
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5034	"/ encoderToEncodeFrom:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5035	"/ into:newEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5036	"/ lines keysAndValuesDo:[:lineNr :line \|
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5037	"/ line notNil ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5038	"/ editView at:lineNr put:(recoder encodeString:line).
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5039	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5040	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5041	"/ ]
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5042	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5043	"/ ].
3892 321c1729db5b initial checkin penk parents: diff changeset	5044	!
321c1729db5b initial checkin penk parents: diff changeset	5045
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5046	updateSameFilesFor:aFilename
3892 321c1729db5b initial checkin penk parents: diff changeset	5047
321c1729db5b initial checkin penk parents: diff changeset	5048	\| master modifiedApplications stream filename action\|
321c1729db5b initial checkin penk parents: diff changeset	5049
321c1729db5b initial checkin penk parents: diff changeset	5050	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	5051	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5052	modifiedApplications := master getSameFilesModifiedFor:self.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	5053	(modifiedApplications isEmptyOrNil) ifTrue:[^ true ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5054	filename := aFilename asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	5055	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	5056	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5057	stream nextPutAll:' is modified in tab'.
321c1729db5b initial checkin penk parents: diff changeset	5058	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5059	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	5060	].
321c1729db5b initial checkin penk parents: diff changeset	5061	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	5062	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	5063	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5064	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5065	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5066	el sameFileIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5067	stream nextPutAll:el sameFileIndex asString.
321c1729db5b initial checkin penk parents: diff changeset	5068	].
321c1729db5b initial checkin penk parents: diff changeset	5069	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	5070	].
321c1729db5b initial checkin penk parents: diff changeset	5071	stream nextPutAll:'forget changes on other tab'.
321c1729db5b initial checkin penk parents: diff changeset	5072	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5073	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	5074	].
321c1729db5b initial checkin penk parents: diff changeset	5075	stream nextPutAll:' ?'.
321c1729db5b initial checkin penk parents: diff changeset	5076	action := Dialog
321c1729db5b initial checkin penk parents: diff changeset	5077	choose:stream contents
321c1729db5b initial checkin penk parents: diff changeset	5078	labels:#('cancel' 'no' 'yes')
321c1729db5b initial checkin penk parents: diff changeset	5079	values:#(#cancel #no #yes)
321c1729db5b initial checkin penk parents: diff changeset	5080	default:#cancel.
321c1729db5b initial checkin penk parents: diff changeset	5081
321c1729db5b initial checkin penk parents: diff changeset	5082	stream close.
321c1729db5b initial checkin penk parents: diff changeset	5083	action == #cancel ifTrue:[ ^ false ].
321c1729db5b initial checkin penk parents: diff changeset	5084	action == #yes ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5085	"/ here force reload for other applications
321c1729db5b initial checkin penk parents: diff changeset	5086	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	5087	el reload.
321c1729db5b initial checkin penk parents: diff changeset	5088	]
321c1729db5b initial checkin penk parents: diff changeset	5089	].
321c1729db5b initial checkin penk parents: diff changeset	5090	].
321c1729db5b initial checkin penk parents: diff changeset	5091	^ true.
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5092	!
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5093
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5094	validateEditViewsFontEncoding
5717 f2ec29a73239 do not ask again about encoding penk parents: 5705 diff changeset	5095	\|fileEncoding preferredFontEncoding fontsEncoding action\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5096
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5097	editView isNil ifTrue:[^ self].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5098
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5099	fileEncoding := self fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5100
5586 aba072239d9a default encoding Claus Gittinger <cg@exept.de> parents: 5584 diff changeset	5101	fontsEncoding := editView font encoding ? 'iso8859-1'.
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5102
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5103	preferredFontEncoding := FontDescription preferredFontEncodingFor:fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5104	(CharacterEncoder isEncoding:preferredFontEncoding subSetOf:fontsEncoding) ifFalse:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5105	doNotShowFontDialog == true ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5106	action := #show
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5107	] ifFalse:[
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	5108	action := Dialog choose:(resources string:'''%1'' seems to require a %2 (or unicode) font (file encoding is %3).'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5109	with:self fileName baseName
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5110	with:preferredFontEncoding allBold
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5111	with:fileEncoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5112	labels:(resources array:#('Cancel' 'Show' 'Don''t Ask Again' 'Change Font'))
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5113	values:#(nil #show #showAlways #encoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5114	default:#encoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5115	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5116	action == #showAlways ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5117	doNotShowFontDialog := true.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5118	action := #show.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5119	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5120	action isNil ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5121	AbortSignal raise
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5122	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5123	action == #encoding ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5124	editView validateFontEncodingFor:fileEncoding ask:false.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5125	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5126	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5127	! !
321c1729db5b initial checkin penk parents: diff changeset	5128
321c1729db5b initial checkin penk parents: diff changeset	5129	!FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	5130
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5131	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5132	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5133	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5134	argument:editView cursorColHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5135	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5136
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5137	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5138	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5139	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5140	argument:editView cursorLineHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5141	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5142
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5143	editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5144	editView editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5145
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5146	"Created: / 11-09-2006 / 12:46:50 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5147	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5148
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5149	editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5150	editView editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5151
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5152	"Created: / 11-09-2006 / 12:47:01 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5153	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5154
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5155	editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5156	editView editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5157
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5158	"Created: / 11-09-2006 / 12:46:47 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5159	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5160
7596 6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5161	editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5162	^ editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5163	!
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5164
3892 321c1729db5b initial checkin penk parents: diff changeset	5165	enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	5166	enableHexToggle isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5167	enableHexToggle := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	5168	].
321c1729db5b initial checkin penk parents: diff changeset	5169	^ enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	5170	!
321c1729db5b initial checkin penk parents: diff changeset	5171
321c1729db5b initial checkin penk parents: diff changeset	5172	enableReload
321c1729db5b initial checkin penk parents: diff changeset	5173	enableReload isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5174	enableReload := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5175	].
321c1729db5b initial checkin penk parents: diff changeset	5176	^ enableReload.
321c1729db5b initial checkin penk parents: diff changeset	5177	!
321c1729db5b initial checkin penk parents: diff changeset	5178
321c1729db5b initial checkin penk parents: diff changeset	5179	enableSave
321c1729db5b initial checkin penk parents: diff changeset	5180	enableSave isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5181	enableSave := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5182	].
321c1729db5b initial checkin penk parents: diff changeset	5183	^ enableSave.
321c1729db5b initial checkin penk parents: diff changeset	5184	!
321c1729db5b initial checkin penk parents: diff changeset	5185
8783 5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5186	enableSaveAs
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5187	^ true.
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5188	!
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5189
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5190	enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5191	enableSelectInBrowser isNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5192	enableSelectInBrowser := false asValue.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5193	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5194	^ enableSelectInBrowser.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5195	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5196
3892 321c1729db5b initial checkin penk parents: diff changeset	5197	fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	5198	fileContentsModel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5199	fileContentsModel := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	5200	].
321c1729db5b initial checkin penk parents: diff changeset	5201	^ fileContentsModel.
321c1729db5b initial checkin penk parents: diff changeset	5202	!
321c1729db5b initial checkin penk parents: diff changeset	5203
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5204	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5205	fileEncodingHolder isNil ifTrue:[
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5206	fileEncodingHolder := #'iso8859-1' asValue
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5207	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5208	^ fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5209	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5210
3892 321c1729db5b initial checkin penk parents: diff changeset	5211	itemChanged
321c1729db5b initial checkin penk parents: diff changeset	5212	itemChanged isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5213	itemChanged := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5214	itemChanged addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5215	].
321c1729db5b initial checkin penk parents: diff changeset	5216	^ itemChanged
321c1729db5b initial checkin penk parents: diff changeset	5217	!
321c1729db5b initial checkin penk parents: diff changeset	5218
321c1729db5b initial checkin penk parents: diff changeset	5219	itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	5220	itemRemoved isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5221	itemRemoved := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5222	itemRemoved addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5223	].
321c1729db5b initial checkin penk parents: diff changeset	5224	^ itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	5225	!
321c1729db5b initial checkin penk parents: diff changeset	5226
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5227	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5228	lockFileEncodingHolder isNil ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5229	lockFileEncodingHolder := false asValue.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5230	].
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5231	^ lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5232	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5233
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5234	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5235	^ editView modeLabelHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5236	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5237
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5238	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5239	^ FileBrowserV2 editModeInfoLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5240
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5241	"Created: / 11-09-2006 / 12:36:26 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5242	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5243
3892 321c1729db5b initial checkin penk parents: diff changeset	5244	modifiedChannel
321c1729db5b initial checkin penk parents: diff changeset	5245	modifiedChannel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5246	modifiedChannel := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5247	modifiedChannel addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5248	].
321c1729db5b initial checkin penk parents: diff changeset	5249	^ modifiedChannel.
321c1729db5b initial checkin penk parents: diff changeset	5250	!
321c1729db5b initial checkin penk parents: diff changeset	5251
321c1729db5b initial checkin penk parents: diff changeset	5252	printAsHexDump
321c1729db5b initial checkin penk parents: diff changeset	5253	printAsHexDump isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5254	printAsHexDump := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5255	printAsHexDump addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5256	].
321c1729db5b initial checkin penk parents: diff changeset	5257	^ printAsHexDump.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5258	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5259
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5260	viewModifiedChannel
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5261	viewModifiedChannel isNil ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5262	viewModifiedChannel := false asValue.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5263	viewModifiedChannel addDependent:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5264	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5265	^ viewModifiedChannel.
3892 321c1729db5b initial checkin penk parents: diff changeset	5266	! !
321c1729db5b initial checkin penk parents: diff changeset	5267
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5268	!FileApplicationNoteBook::TextEditor methodsFor:'aspects-visibility'!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5269
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5270	diffTextButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5271	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5272	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5273
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5274	reloadButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5275	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5276	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5277
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5278	saveAsButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5279	^ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5280	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5281
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5282	saveButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5283	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5284	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5285
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5286	selectInBrowserButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5287	^ self masterApplication notNil
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5288	! !
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5289
3892 321c1729db5b initial checkin penk parents: diff changeset	5290	!FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	5291
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5292	changeTextColorForChanged
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5293	\|text prevCursorBehavior\|
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5294
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5295	prevCursorBehavior := editView cursorMovementWhenUpdating.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5296	editView cursorMovementWhenUpdating:nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5297
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5298	self itemChanged value ifTrue:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	5299	text := editView contents.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	5300	self fileContentsModel
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5301	value:(text asText emphasizeAllWith:UserPreferences current emphasisForChangedCode).
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5302	[editView flash] fork.
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5303	] ifFalse:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	5304	"/ self fileContentsModel value:text string.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5305	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5306	editView cursorMovementWhenUpdating:prevCursorBehavior.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5307	"/ self fileContentsModel changed:#value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5308	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5309
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5310	itemModified
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5311
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5312	\| modified outDated removed\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5313
321c1729db5b initial checkin penk parents: diff changeset	5314	modified := self modifiedChannel value.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5315	outDated := self itemChanged value.
3892 321c1729db5b initial checkin penk parents: diff changeset	5316	removed := self itemRemoved value.
321c1729db5b initial checkin penk parents: diff changeset	5317
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5318	((modified or:[outDated]) or:[removed]) ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5319	modified ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5320	self changeInformationForModified:#modified.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5321	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5322	outDated ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5323	self changeInformationForModified:#outDated.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5324	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5325	removed ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5326	self changeInformationForModified:#removed.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5327	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5328	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5329	self changeInformationForModified:#unchanged.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5330	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5331
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5332	self enableReload value:((modified or:[outDated]) and:[removed not]).
3892 321c1729db5b initial checkin penk parents: diff changeset	5333	!
321c1729db5b initial checkin penk parents: diff changeset	5334
321c1729db5b initial checkin penk parents: diff changeset	5335	update:something with:aParameter from:changedObject
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5336	\|itemRem contMd5CheckSum viewModified p\|
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5337
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5338	changedObject == self viewModifiedChannel ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5339	viewModified := changedObject value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5340	self hasMD5 ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5341	self viewModifiedChannel value:false withoutNotifying:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5342	viewModified ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5343	(p := md5HashValueComputationProcess) notNil ifTrue:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5344	p terminate.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5345	].
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5346	md5HashValueComputationProcess :=
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5347	[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5348	contMd5CheckSum := self getHashForContents:(editView list).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5349	self modifiedChannel value:(contMd5CheckSum ~= md5CheckSum).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5350	md5HashValueComputationProcess := nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5351	] newProcess.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5352	md5HashValueComputationProcess priority:(Processor userBackgroundPriority).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5353	md5HashValueComputationProcess resume.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5354	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5355	] ifFalse:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5356	self modifiedChannel value:viewModified.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5357	]
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5358	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5359	changedObject == self modifiedChannel ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5360	self enableSave value:changedObject value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5361	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	5362	^ self
321c1729db5b initial checkin penk parents: diff changeset	5363	].
321c1729db5b initial checkin penk parents: diff changeset	5364	changedObject == self itemRemoved ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5365	itemRem := changedObject value.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5366	self enableSave value:(itemRem ? false).
3892 321c1729db5b initial checkin penk parents: diff changeset	5367	self enableHexToggle value:itemRem not.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5368	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	5369	^ self
321c1729db5b initial checkin penk parents: diff changeset	5370	].
321c1729db5b initial checkin penk parents: diff changeset	5371	changedObject == self itemChanged ifTrue:[
8228 6be70d6b485c * empty log message * Claus Gittinger <cg@exept.de> parents: 8176 diff changeset	5372	self enqueueMessage:#changeTextColorForChanged for:self arguments:#().
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5373	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	5374	^ self
321c1729db5b initial checkin penk parents: diff changeset	5375	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5376
3892 321c1729db5b initial checkin penk parents: diff changeset	5377	changedObject == self printAsHexDump ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5378	AbortOperationRequest handle:[:ex \|
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5379	self printAsHexDump value:false withoutNotifying:self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5380	^ self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5381	] do:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5382	self askForChangeWithReload:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	5383	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5384	self presentation:(changedObject value ifTrue:[#hexDump] ifFalse:[#asText]).
3892 321c1729db5b initial checkin penk parents: diff changeset	5385	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	5386	self setContents.
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5387	editView notNil ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5388	editView readOnly:(self presentation == #hexDump).
3892 321c1729db5b initial checkin penk parents: diff changeset	5389	].
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5390	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	5391	].
321c1729db5b initial checkin penk parents: diff changeset	5392
321c1729db5b initial checkin penk parents: diff changeset	5393	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	5394	! !
321c1729db5b initial checkin penk parents: diff changeset	5395
9399 dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5396	!FileApplicationNoteBook::TextEditor methodsFor:'initialization'!
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5397
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5398	initialize
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5399	super initialize.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5400	semaChangeItem := Semaphore forMutualExclusion.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5401	! !
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	5402
3892 321c1729db5b initial checkin penk parents: diff changeset	5403	!FileApplicationNoteBook::TextEditor methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	5404
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	5405	printOn:aStream
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5406	\|fn\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5407
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	5408	aStream nextPutAll:'TextEditor for:'.
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5409	(fn := self fileName) notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5410	fn baseName printOn:aStream.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5411	]
3892 321c1729db5b initial checkin penk parents: diff changeset	5412	! !
321c1729db5b initial checkin penk parents: diff changeset	5413
6481 fd4f39c392fb * empty log message * Claus Gittinger <cg@exept.de> parents: 6477 diff changeset	5414	!FileApplicationNoteBook::TextEditor methodsFor:'private-process'!
3892 321c1729db5b initial checkin penk parents: diff changeset	5415
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5416	checkItemForChanges
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5417	\|exists fileModificationTime message\|
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5418
5612 7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	5419	item isNil ifTrue:[
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	5420	^ self
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	5421	].
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	5422
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5423	exists := self item exists.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5424	self itemRemoved value:(exists not).
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5425	exists ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5426	fileModificationTime := self fileName modificationTime.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5427	textEditorModificationTime isNil ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5428	textEditorModificationTime := fileModificationTime.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5429	].
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5430	message := '%1 was changed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5431	] ifFalse:[
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5432	message := '%1 was removed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5433	].
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	5434
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5435	(textEditorModificationTime ~= fileModificationTime) ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5436	"file contents has been changed by someone else"
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5437	message := (resources string:message with:item fileName baseName) allBold
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5438	emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer).
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5439	message = self notifyChannel value ifFalse:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5440	self notify:message.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5441	self itemChanged value:true.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5442	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5443	].
5457 204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	5444	!
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	5445
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	5446	checkItemForChangesWithNewSetup
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	5447	self checkItemForChanges.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5448	self setupCheckModify.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5449	!
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5450
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5451	releaseCheckModify
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5452	checkModifiedBlock notNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5453	Processor removeTimedBlock:checkModifiedBlock.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5454	].
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5455	!
621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5456
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5457	setupCheckModify
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5458
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5459	checkModifiedBlock isNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5460	checkModifiedBlock := [
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5461	self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5462	enqueueMessage:#checkItemForChangesWithNewSetup
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5463	for:self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5464	arguments:#().
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5465	].
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5466	].
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	5467	Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
3892 321c1729db5b initial checkin penk parents: diff changeset	5468	! !
321c1729db5b initial checkin penk parents: diff changeset	5469
321c1729db5b initial checkin penk parents: diff changeset	5470	!FileApplicationNoteBook::TextEditor methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	5471
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5472	additionalInfo
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5473	^ '[',editView numberOfLines printString , ' lines]'.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5474
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5475	"Created: / 24-10-2006 / 12:27:07 / cg"
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5476	!
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	5477
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5478	hasMD5
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5479	^ ( MD5Stream notNil and:[MD5Stream isLoaded])
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5480	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5481
3892 321c1729db5b initial checkin penk parents: diff changeset	5482	isModified
5456 91c198c1c3e9 add new item if it is modified penk parents: 5447 diff changeset	5483	self checkItemForChanges.
5317 8f813402542f item modified penk parents: 5315 diff changeset	5484	^ self modifiedChannel value
8f813402542f item modified penk parents: 5315 diff changeset	5485	or:[ self itemChanged value or:[ self itemRemoved value ] ]
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5486	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5487
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5488	isTextEditor
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5489
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5490	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	5491	! !
321c1729db5b initial checkin penk parents: diff changeset	5492
321c1729db5b initial checkin penk parents: diff changeset	5493	!FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	5494
321c1729db5b initial checkin penk parents: diff changeset	5495	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	5496	"asks for permission before closing"
3892 321c1729db5b initial checkin penk parents: diff changeset	5497
321c1729db5b initial checkin penk parents: diff changeset	5498	(self doClose) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5499	^ super closeRequest.
321c1729db5b initial checkin penk parents: diff changeset	5500	].
321c1729db5b initial checkin penk parents: diff changeset	5501	!
321c1729db5b initial checkin penk parents: diff changeset	5502
321c1729db5b initial checkin penk parents: diff changeset	5503	postBuildTextEditor:aWidget
321c1729db5b initial checkin penk parents: diff changeset	5504	editView := aWidget scrolledView.
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	5505	editView saveAction:[ self doSaveAs ].
e500bd438cc7 save as changed penk parents: 5429 diff changeset	5506
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5507	aWidget modifiedChannel:self viewModifiedChannel.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5508
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5509	editView externalEncoding:self fileEncoding.
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	5510	"/ editView characterEncoding:'unicode'. - thats the default anyway
3892 321c1729db5b initial checkin penk parents: diff changeset	5511	!
321c1729db5b initial checkin penk parents: diff changeset	5512
321c1729db5b initial checkin penk parents: diff changeset	5513	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	5514
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5515	"/ self item isNil ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5516	"/ self item:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5517	"/ ].
3892 321c1729db5b initial checkin penk parents: diff changeset	5518	self setUpTextView.
321c1729db5b initial checkin penk parents: diff changeset	5519	self changeInformation.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	5520	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	5521	!
321c1729db5b initial checkin penk parents: diff changeset	5522
321c1729db5b initial checkin penk parents: diff changeset	5523	release
321c1729db5b initial checkin penk parents: diff changeset	5524	"release my resources
321c1729db5b initial checkin penk parents: diff changeset	5525	"
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5526	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5527	checkModifiedBlock := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	5528	super release.
321c1729db5b initial checkin penk parents: diff changeset	5529	!
321c1729db5b initial checkin penk parents: diff changeset	5530
321c1729db5b initial checkin penk parents: diff changeset	5531	setUpTextView
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	5532	"change the parenthesis-spec of the editor to include $< .. $> if the
f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	5533	shown document is an html- or xml document"
f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	5534
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5535	\|item mimeType parenthesis commentStrings parentesisSpec col\|
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	5536
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5537	editView notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5538	item := self item.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5539	item notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5540	item hasMimeType ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5541	mimeType := item mimeType.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5542
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5543	(mimeType isHtml or:[mimeType isXml]) ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5544	parenthesis := editView parenthesisSpecification copy.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5545	((parenthesis at:#open) includes:$<) ifFalse:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5546	col := ((parenthesis at:#open) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5547	col add:$<.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5548	parenthesis at:#open put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5549
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5550	col := ((parenthesis at:#close) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5551	col add:$>.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5552	parenthesis at:#close put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5553
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5554	editView parenthesisSpecification:parenthesis
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5555	].
5548 7449b01c95b1 checkin from browser Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	5556	].
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5557
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5558	commentStrings := MIMETypes
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	5559	commentStringsForMimeType:mimeType
bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	5560	suffix:(self fileName asFilename suffix)
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5561	ifUnknown:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5562	"/ st:
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5563	#('"/' ('"' '"'))
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5564	].
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	5565
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5566	commentStrings notNil ifTrue:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5567	editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5568	].
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	5569
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5570	parentesisSpec := MIMETypes
8176 64c5b7c41f3d fix spelling of MIMETypes>>#parenthesis* methods Stefan Vogel <sv@exept.de> parents: 8087 diff changeset	5571	parenthesisSpecForMimeType:mimeType
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5572	suffix:(self fileName asFilename suffix)
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5573	ifUnknown:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5574	\|spec\|
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5575	spec := IdentityDictionary new.
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5576	spec at:#open put:#( $( $[ ${) .
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5577	spec at:#close put:#( $) $] $}).
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5578	spec
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5579	].
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5580
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5581	parentesisSpec notNil ifTrue:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5582	editView perform:#parenthesisSpecification: with:parentesisSpec ifNotUnderstood:nil
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5583	].
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5584
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5585
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	5586	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5587	].
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5588	editView externalEncoding:self fileEncoding.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	5589	]
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5590
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	5591	"Modified: / 10-04-2007 / 15:24:22 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5592	! !
321c1729db5b initial checkin penk parents: diff changeset	5593
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5594	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'defaults'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5595
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5596	tabStringFor:aApplicationType
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5597	"the formatString shown in a tab (language translated)"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5598
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5599	^ 'XML View for %1'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5600
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5601	"Modified: / 17-02-2011 / 13:28:22 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5602	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5603
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5604	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'help specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5605
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5606	helpSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5607	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5608	by the UIHelpTool of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5609
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5610	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5611	the UIHelpTool may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5612
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5613	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5614	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5615	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5616
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5617	<resource: #help>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5618
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5619	^ super helpSpec addPairsFrom:#(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5620
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5621
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5622	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5623
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5624	"Modified: / 17-02-2011 / 13:28:28 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5625	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5626
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5627	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'interface specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5628
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5629	windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5630	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5631	by the UIPainter of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5632
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5633	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5634	the UIPainter may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5635
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5636	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5637	UIPainter new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5638	FileApplicationNoteBook::XMLViewApplication new openInterface:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5639	FileApplicationNoteBook::XMLViewApplication open
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5640	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5641
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5642	<resource: #canvas>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5643
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5644	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5645	#(FullSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5646	name: windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5647	window:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5648	(WindowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5649	label: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5650	name: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5651	min: (Point 10 10)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5652	bounds: (Rectangle 0 0 676 492)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5653	menu: mainMenu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5654	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5655	component:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5656	(SpecCollection
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5657	collection: (
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5658	(MenuPanelSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5659	name: 'MenuXml'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5660	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5661	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5662	visibilityChannel: isEmbeddedApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5663	menu: menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5664	textDefault: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5665	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5666	(SubCanvasSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5667	name: 'XMLCanvas'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5668	layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5669	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5670	hasHorizontalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5671	hasVerticalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5672	majorKey: #'XML::XMLInspector'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5673	createNewApplication: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5674	createNewBuilder: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5675	postBuildCallback: postBuildXMLCanvas:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5676	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5677	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5678
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5679	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5680	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5681	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5682
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5683	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'menu specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5684
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5685	menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5686	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5687	by the MenuEditor of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5688
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5689	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5690	the MenuEditor may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5691
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5692	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5693	MenuEditor new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5694	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::XMLViewApplication menu)) startUp
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5695	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5696
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5697	<resource: #menu>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5698
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5699	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5700	#(Menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5701	(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5702	(MenuItem
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5703	activeHelpKey: reloadFile
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5704	isVisible: reloadButtonVisible
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5705	enabled: enableReload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5706	label: 'Reload'
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5707	itemValue: reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5708	nameKey: Reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5709	translateLabel: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5710	isButton: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5711	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5712	)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5713	(MenuItem
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5714	activeHelpKey: closeTabButton
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5715	label: 'Close'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5716	itemValue: doClose
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5717	translateLabel: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5718	isButton: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5719	startGroup: right
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5720	hideMenuOnActivated: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5721	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5722	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5723	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5724	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5725	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5726	)
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5727
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5728	"Modified: / 17-02-2011 / 17:30:26 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5729	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5730
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5731	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5732
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5733	canOpenItem:anItem
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5734
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5735	^ (anItem hasMimeType and:[anItem mimeType isXml])
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5736
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5737	"Modified: / 17-02-2011 / 13:34:08 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5738	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5739
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5740	wantNewApplicationAnyway
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5741
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5742	^ false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5743	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5744
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5745	!FileApplicationNoteBook::XMLViewApplication methodsFor:'accessing'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5746
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5747	item:anItem
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5748	\|retVal\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5749
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5750	self labelHolder value:anItem fileName asString.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5751	retVal := super item:anItem.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5752	xmlTreeApp notNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5753	self updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5754	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5755	^ retVal
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5756
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5757	"Modified: / 17-02-2011 / 13:38:53 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5758	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5759
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5760	updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5761	\|inStream dom\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5762
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5763	self withWaitCursorDo:[
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5764	XML::XMLSignal handle:[:ex \|
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5765	Dialog
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5766	information:
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5767	(resources
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5768	stringWithCRs:'Error reported by XML-Parser in line %1:\\%2\\Showing as regular text.'
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5769	with:inStream lineNumber
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5770	with:ex description).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5771	Error raise.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5772	] do:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5773	inStream := LineNumberReadStream on:(self fileName readStream).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5774	[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5775	dom := XML::XMLParser
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5776	processDocumentStream:inStream
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5777	beforeScanDo:[:parser \| parser validate:false. ].
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5778	xmlTreeApp model:dom.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5779	] ensure:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5780	inStream close
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5781	]
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5782	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5783	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5784
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5785	"Created: / 17-02-2011 / 13:39:07 / cg"
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5786	"Modified: / 17-02-2011 / 17:39:15 / cg"
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5787	! !
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5788
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5789	!FileApplicationNoteBook::XMLViewApplication methodsFor:'actions'!
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5790
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5791	reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5792	self updateXMLTree.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5793
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	5794	"Created: / 17-02-2011 / 17:46:36 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5795	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5796
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5797	!FileApplicationNoteBook::XMLViewApplication methodsFor:'aspects'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5798
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5799	labelHolder
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5800
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5801	labelHolder isNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5802	labelHolder := '' asValue.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5803	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5804	^ labelHolder.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5805	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5806
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5807	!FileApplicationNoteBook::XMLViewApplication methodsFor:'initialization & release'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5808
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5809	postBuildXMLCanvas:aWidget
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5810	xmlTreeApp := aWidget client.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5811	item notNil ifTrue:[self updateXMLTree].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5812
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5813	"Modified: / 17-02-2011 / 13:39:18 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5814	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	5815
3892 321c1729db5b initial checkin penk parents: diff changeset	5816	!FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	5817
321c1729db5b initial checkin penk parents: diff changeset	5818	maxNumberOfVNCRestarts
321c1729db5b initial checkin penk parents: diff changeset	5819
321c1729db5b initial checkin penk parents: diff changeset	5820	^ 10
321c1729db5b initial checkin penk parents: diff changeset	5821	!
321c1729db5b initial checkin penk parents: diff changeset	5822
321c1729db5b initial checkin penk parents: diff changeset	5823	mimeTypeUnixApplicationMapping
321c1729db5b initial checkin penk parents: diff changeset	5824
321c1729db5b initial checkin penk parents: diff changeset	5825	" here insert the application and mime type pairs to open by XviewApplication
321c1729db5b initial checkin penk parents: diff changeset	5826	"
321c1729db5b initial checkin penk parents: diff changeset	5827
321c1729db5b initial checkin penk parents: diff changeset	5828	^
321c1729db5b initial checkin penk parents: diff changeset	5829	#(
321c1729db5b initial checkin penk parents: diff changeset	5830	#(#'application/postscript' #gv )
321c1729db5b initial checkin penk parents: diff changeset	5831	#(#'application/pdf' #acroread )
321c1729db5b initial checkin penk parents: diff changeset	5832	)
321c1729db5b initial checkin penk parents: diff changeset	5833	!
321c1729db5b initial checkin penk parents: diff changeset	5834
321c1729db5b initial checkin penk parents: diff changeset	5835	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	5836	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	5837
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	5838	^ 'VNC for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	5839
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	5840	"Modified: / 01-03-2007 / 21:43:43 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5841	!
321c1729db5b initial checkin penk parents: diff changeset	5842
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5843	unixVNCCommand
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5844
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5845	^ 'Xvnc'
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5846	!
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5847
3892 321c1729db5b initial checkin penk parents: diff changeset	5848	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	5849
4500 9f0b8d6ae2be make a new XView for a new item if an XView already open penk parents: 4499 diff changeset	5850	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	5851	! !
321c1729db5b initial checkin penk parents: diff changeset	5852
321c1729db5b initial checkin penk parents: diff changeset	5853	!FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	5854
321c1729db5b initial checkin penk parents: diff changeset	5855	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	5856	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	5857	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	5858
321c1729db5b initial checkin penk parents: diff changeset	5859	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	5860	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	5861
321c1729db5b initial checkin penk parents: diff changeset	5862	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5863	UIPainter new openOnClass:FileApplicationNoteBook::XViewApplication andSelector:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5864	FileApplicationNoteBook::XViewApplication new openInterface:#windowSpec
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5865	FileApplicationNoteBook::XViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	5866	"
321c1729db5b initial checkin penk parents: diff changeset	5867
321c1729db5b initial checkin penk parents: diff changeset	5868	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	5869
321c1729db5b initial checkin penk parents: diff changeset	5870	^
321c1729db5b initial checkin penk parents: diff changeset	5871	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	5872	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	5873	#window:
321c1729db5b initial checkin penk parents: diff changeset	5874	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	5875	#label: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	5876	#name: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	5877	#min: #(#Point 10 10)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5878	#bounds: #(#Rectangle 16 42 692 534)
3892 321c1729db5b initial checkin penk parents: diff changeset	5879	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	5880	)
321c1729db5b initial checkin penk parents: diff changeset	5881	#component:
321c1729db5b initial checkin penk parents: diff changeset	5882	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	5883	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	5884	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	5885	#name: 'MenuVNC'
3892 321c1729db5b initial checkin penk parents: diff changeset	5886	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	5887	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	5888	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	5889	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	5890	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	5891	)
321c1729db5b initial checkin penk parents: diff changeset	5892	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	5893	#name: 'VNCView'
3892 321c1729db5b initial checkin penk parents: diff changeset	5894	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	5895	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	5896	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	5897	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	5898	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	5899	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	5900	#component: #VNCFrameBufferView
321c1729db5b initial checkin penk parents: diff changeset	5901	#postBuildCallback: #postBuildXView:
321c1729db5b initial checkin penk parents: diff changeset	5902	)
321c1729db5b initial checkin penk parents: diff changeset	5903	)
321c1729db5b initial checkin penk parents: diff changeset	5904
321c1729db5b initial checkin penk parents: diff changeset	5905	)
321c1729db5b initial checkin penk parents: diff changeset	5906	)
321c1729db5b initial checkin penk parents: diff changeset	5907	! !
321c1729db5b initial checkin penk parents: diff changeset	5908
321c1729db5b initial checkin penk parents: diff changeset	5909	!FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	5910
321c1729db5b initial checkin penk parents: diff changeset	5911	menu
321c1729db5b initial checkin penk parents: diff changeset	5912	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	5913	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	5914
321c1729db5b initial checkin penk parents: diff changeset	5915	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	5916	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	5917
321c1729db5b initial checkin penk parents: diff changeset	5918	"
321c1729db5b initial checkin penk parents: diff changeset	5919	MenuEditor new openOnClass:NoteBookApplication::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	5920	(Menu new fromLiteralArrayEncoding:(NoteBookApplication::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	5921	"
321c1729db5b initial checkin penk parents: diff changeset	5922
321c1729db5b initial checkin penk parents: diff changeset	5923	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	5924
321c1729db5b initial checkin penk parents: diff changeset	5925	^
321c1729db5b initial checkin penk parents: diff changeset	5926	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	5927	#(
321c1729db5b initial checkin penk parents: diff changeset	5928	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	5929	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	5930	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	5931	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	5932	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	5933	#hideMenuOnActivated: false
321c1729db5b initial checkin penk parents: diff changeset	5934	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	5935	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	5936	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	5937	)
321c1729db5b initial checkin penk parents: diff changeset	5938	)
321c1729db5b initial checkin penk parents: diff changeset	5939	nil
321c1729db5b initial checkin penk parents: diff changeset	5940	nil
321c1729db5b initial checkin penk parents: diff changeset	5941	)
321c1729db5b initial checkin penk parents: diff changeset	5942	! !
321c1729db5b initial checkin penk parents: diff changeset	5943
321c1729db5b initial checkin penk parents: diff changeset	5944	!FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	5945
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5946	canOpenItem:anItem
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	5947	\| keySym\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5948
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5949	keySym := anItem mimeType asSymbol.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5950	OperatingSystem isUNIXlike ifFalse:[^ false].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5951
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	5952	(self mimeTypeUnixApplicationMapping contains:[ : el \| (el at:1) == keySym ]) ifFalse:[^ false].
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5953
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5954	(OperatingSystem executeCommand:('which ', self unixVNCCommand)) ifFalse:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5955	Dialog warn:'Cannot start a viewer for ' , anItem fileName baseName.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5956	^ false.
3892 321c1729db5b initial checkin penk parents: diff changeset	5957	].
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5958
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5959	VNCFrameBufferView notNil ifFalse:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5960	Dialog warn:'VNC support classes are missing (package not loaded?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5961	^ false.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5962	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	5963	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	5964	! !
321c1729db5b initial checkin penk parents: diff changeset	5965
321c1729db5b initial checkin penk parents: diff changeset	5966	!FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	5967
321c1729db5b initial checkin penk parents: diff changeset	5968	xView
321c1729db5b initial checkin penk parents: diff changeset	5969	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5970
321c1729db5b initial checkin penk parents: diff changeset	5971	^ xView
321c1729db5b initial checkin penk parents: diff changeset	5972	!
321c1729db5b initial checkin penk parents: diff changeset	5973
321c1729db5b initial checkin penk parents: diff changeset	5974	xView:something
321c1729db5b initial checkin penk parents: diff changeset	5975	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5976
321c1729db5b initial checkin penk parents: diff changeset	5977	xView := something.
321c1729db5b initial checkin penk parents: diff changeset	5978	! !
321c1729db5b initial checkin penk parents: diff changeset	5979
321c1729db5b initial checkin penk parents: diff changeset	5980	!FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	5981
321c1729db5b initial checkin penk parents: diff changeset	5982	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	5983
321c1729db5b initial checkin penk parents: diff changeset	5984	\| stream\|
321c1729db5b initial checkin penk parents: diff changeset	5985
321c1729db5b initial checkin penk parents: diff changeset	5986	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	5987	stream nextPutAll:'XView on: '.
321c1729db5b initial checkin penk parents: diff changeset	5988	stream nextPutAll:self fileName baseName.
321c1729db5b initial checkin penk parents: diff changeset	5989	masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5990	self window label:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	5991
321c1729db5b initial checkin penk parents: diff changeset	5992	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	5993	masterApplication tabStringChangeTo:stream contents for:self.
321c1729db5b initial checkin penk parents: diff changeset	5994	].
321c1729db5b initial checkin penk parents: diff changeset	5995	stream close.
321c1729db5b initial checkin penk parents: diff changeset	5996	!
321c1729db5b initial checkin penk parents: diff changeset	5997
321c1729db5b initial checkin penk parents: diff changeset	5998	setupXView
321c1729db5b initial checkin penk parents: diff changeset	5999
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	6000	\|xExt yExt mainView\|
3892 321c1729db5b initial checkin penk parents: diff changeset	6001
321c1729db5b initial checkin penk parents: diff changeset	6002	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	6003	xExt := self xView width asString.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	6004	self masterApplication notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6005	mainView := self builder windowGroup mainView.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6006	"/ if the mainView is a FileBrowser take them y extent because size of notebook can be changed
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6007	(mainView application class == (Smalltalk at:#FileBrowserV2 ifAbsent:nil)) notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6008	yExt := mainView height asString.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6009	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6010	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6011	yExt isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	6012	yExt := self xView height asString.
321c1729db5b initial checkin penk parents: diff changeset	6013	].
321c1729db5b initial checkin penk parents: diff changeset	6014	ext := xExt, 'x', yExt.
321c1729db5b initial checkin penk parents: diff changeset	6015	self startViewer.
321c1729db5b initial checkin penk parents: diff changeset	6016	! !
321c1729db5b initial checkin penk parents: diff changeset	6017
321c1729db5b initial checkin penk parents: diff changeset	6018	!FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
321c1729db5b initial checkin penk parents: diff changeset	6019
321c1729db5b initial checkin penk parents: diff changeset	6020	setupView
321c1729db5b initial checkin penk parents: diff changeset	6021	\| renderer view\|
321c1729db5b initial checkin penk parents: diff changeset	6022
321c1729db5b initial checkin penk parents: diff changeset	6023	view := xView.
321c1729db5b initial checkin penk parents: diff changeset	6024	renderer := VNCRenderer for:vncConnection targetWindow:view device:xView device.
321c1729db5b initial checkin penk parents: diff changeset	6025
321c1729db5b initial checkin penk parents: diff changeset	6026	view renderer:renderer.
321c1729db5b initial checkin penk parents: diff changeset	6027	view connection:vncConnection.
321c1729db5b initial checkin penk parents: diff changeset	6028
321c1729db5b initial checkin penk parents: diff changeset	6029	VNCException handle:[:ex\|
321c1729db5b initial checkin penk parents: diff changeset	6030	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	6031	] do:[
321c1729db5b initial checkin penk parents: diff changeset	6032	vncConnection
321c1729db5b initial checkin penk parents: diff changeset	6033	startMessageHandlerProcessForRenderer:renderer
321c1729db5b initial checkin penk parents: diff changeset	6034	errorHandler:[:ex \| self stopViewer].
321c1729db5b initial checkin penk parents: diff changeset	6035	].
321c1729db5b initial checkin penk parents: diff changeset	6036	!
321c1729db5b initial checkin penk parents: diff changeset	6037
321c1729db5b initial checkin penk parents: diff changeset	6038	startVNCserver
321c1729db5b initial checkin penk parents: diff changeset	6039	\|cmd blocked connected numberOfVncStarts\|
321c1729db5b initial checkin penk parents: diff changeset	6040
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6041
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6042	VNCAuthenticationFailure isNil ifTrue:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6043	Dialog warn:'VNC Classes missing (package not laoded ?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6044	^ self.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6045	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6046
3892 321c1729db5b initial checkin penk parents: diff changeset	6047	connected := false.
321c1729db5b initial checkin penk parents: diff changeset	6048	numberOfVncStarts isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6049	numberOfVncStarts := 1.
321c1729db5b initial checkin penk parents: diff changeset	6050	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6051	numberOfVncStarts := numberOfVncStarts + 1.
321c1729db5b initial checkin penk parents: diff changeset	6052	].
321c1729db5b initial checkin penk parents: diff changeset	6053
321c1729db5b initial checkin penk parents: diff changeset	6054	vncLock isNil ifTrue:[vncLock := Semaphore forMutualExclusion].
321c1729db5b initial checkin penk parents: diff changeset	6055
321c1729db5b initial checkin penk parents: diff changeset	6056	vncServerPID isNil ifTrue:[
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6057	cmd := ('/usr/X11R6/bin/', self class unixVNCCommand).
3892 321c1729db5b initial checkin penk parents: diff changeset	6058	cmd asFilename exists ifFalse:[
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6059	cmd := self class unixVNCCommand.
3892 321c1729db5b initial checkin penk parents: diff changeset	6060	].
321c1729db5b initial checkin penk parents: diff changeset	6061	vncPortNr isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6062	vncPortNr := 29
321c1729db5b initial checkin penk parents: diff changeset	6063	].
321c1729db5b initial checkin penk parents: diff changeset	6064	cmd := cmd , ' :' , vncPortNr printString , ' nologo -nevershared -localhost -depth 16 -geometry 1024x1024'.
321c1729db5b initial checkin penk parents: diff changeset	6065
321c1729db5b initial checkin penk parents: diff changeset	6066	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	6067
321c1729db5b initial checkin penk parents: diff changeset	6068	vncServerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	6069	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	6070	vncServerIsTerminated := false.
321c1729db5b initial checkin penk parents: diff changeset	6071	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	6072	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	6073	withArguments:(Array with:'sh' with:'-c' with:cmd)
4622 857bbc5a9d47 Cleanup filedescriptor closing on #exec:withArguments:.... Stefan Vogel <sv@exept.de> parents: 4621 diff changeset	6074	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	6075	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	6076	fork:true
321c1729db5b initial checkin penk parents: diff changeset	6077	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	6078	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	6079	]
321c1729db5b initial checkin penk parents: diff changeset	6080	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	6081	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6082	OperatingSystem closePid:vncServerPID.
321c1729db5b initial checkin penk parents: diff changeset	6083	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	6084	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	6085	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	6086	].
321c1729db5b initial checkin penk parents: diff changeset	6087	].
321c1729db5b initial checkin penk parents: diff changeset	6088	].
321c1729db5b initial checkin penk parents: diff changeset	6089
321c1729db5b initial checkin penk parents: diff changeset	6090	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6091	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	6092	].
321c1729db5b initial checkin penk parents: diff changeset	6093	].
321c1729db5b initial checkin penk parents: diff changeset	6094
321c1729db5b initial checkin penk parents: diff changeset	6095	self waitForTerminationOfServer ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6096	"/ Transcript showCR:'server has terminated really - try with next port'.
321c1729db5b initial checkin penk parents: diff changeset	6097	(numberOfVncStarts < self class maxNumberOfVNCRestarts) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6098	vncPortNr := vncPortNr + 1.
321c1729db5b initial checkin penk parents: diff changeset	6099	"/ Transcript showCR:'try next port ', vncPortNr asString.
321c1729db5b initial checkin penk parents: diff changeset	6100	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	6101	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6102	Dialog warn:'have started servers from port '
321c1729db5b initial checkin penk parents: diff changeset	6103	, (vncPortNr - self class maxNumberOfVNCRestarts) asString
321c1729db5b initial checkin penk parents: diff changeset	6104	, ' to '
321c1729db5b initial checkin penk parents: diff changeset	6105	, vncPortNr
321c1729db5b initial checkin penk parents: diff changeset	6106	, ' - cant connect anyway'.
321c1729db5b initial checkin penk parents: diff changeset	6107	"/ Transcript showCR:'have started servers from port ', vncPortNr - self class maxNumberOfVNCRestarts, ' to ', vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	6108	].
321c1729db5b initial checkin penk parents: diff changeset	6109	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6110	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	6111	vncServerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6112	Dialog warn:'Cannot start Xvnc'.
321c1729db5b initial checkin penk parents: diff changeset	6113	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6114	VNCAuthenticationFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	6115	Dialog warn:'Wrong password'.
321c1729db5b initial checkin penk parents: diff changeset	6116	] do:[
321c1729db5b initial checkin penk parents: diff changeset	6117	connected := self vncConnect.
321c1729db5b initial checkin penk parents: diff changeset	6118	].
321c1729db5b initial checkin penk parents: diff changeset	6119	connected ifTrue:[self setupView].
321c1729db5b initial checkin penk parents: diff changeset	6120	].
321c1729db5b initial checkin penk parents: diff changeset	6121	].
321c1729db5b initial checkin penk parents: diff changeset	6122	].
321c1729db5b initial checkin penk parents: diff changeset	6123	!
321c1729db5b initial checkin penk parents: diff changeset	6124
321c1729db5b initial checkin penk parents: diff changeset	6125	stopVNCServer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6126	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6127
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6128	(pid := vncServerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6129	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	6130	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	6131	vncServerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6132	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	6133	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	6134	].
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6135	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	6136	].
321c1729db5b initial checkin penk parents: diff changeset	6137	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	6138	!
321c1729db5b initial checkin penk parents: diff changeset	6139
321c1729db5b initial checkin penk parents: diff changeset	6140	vncConnect
321c1729db5b initial checkin penk parents: diff changeset	6141	\| tryConnects\|
321c1729db5b initial checkin penk parents: diff changeset	6142
321c1729db5b initial checkin penk parents: diff changeset	6143	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6144	vncConnection close
321c1729db5b initial checkin penk parents: diff changeset	6145	].
321c1729db5b initial checkin penk parents: diff changeset	6146
321c1729db5b initial checkin penk parents: diff changeset	6147	vncConnection := VNCServerConnection new.
321c1729db5b initial checkin penk parents: diff changeset	6148	tryConnects := 1.
321c1729db5b initial checkin penk parents: diff changeset	6149	[tryConnects < 3] whileTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6150	VNCConnectionFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	6151	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	6152	tryConnects := tryConnects + 1.
321c1729db5b initial checkin penk parents: diff changeset	6153	] do:[
321c1729db5b initial checkin penk parents: diff changeset	6154	vncConnection connectTo:'localhost' port:vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	6155	^ true.
321c1729db5b initial checkin penk parents: diff changeset	6156	].
321c1729db5b initial checkin penk parents: diff changeset	6157	].
321c1729db5b initial checkin penk parents: diff changeset	6158	^ false
321c1729db5b initial checkin penk parents: diff changeset	6159	!
321c1729db5b initial checkin penk parents: diff changeset	6160
321c1729db5b initial checkin penk parents: diff changeset	6161	vncServerTerminated
321c1729db5b initial checkin penk parents: diff changeset	6162	"/ Transcript showCR:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	6163	"/ 'vnc server has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	6164	"/ Dialog information:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	6165
321c1729db5b initial checkin penk parents: diff changeset	6166	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	6167	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6168	vncConnection close.
321c1729db5b initial checkin penk parents: diff changeset	6169	vncConnection := nil
321c1729db5b initial checkin penk parents: diff changeset	6170	].
321c1729db5b initial checkin penk parents: diff changeset	6171	vncServerIsTerminated := true.
321c1729db5b initial checkin penk parents: diff changeset	6172	!
321c1729db5b initial checkin penk parents: diff changeset	6173
321c1729db5b initial checkin penk parents: diff changeset	6174	waitForTerminationOfServer
321c1729db5b initial checkin penk parents: diff changeset	6175	\| cycles \|
321c1729db5b initial checkin penk parents: diff changeset	6176
321c1729db5b initial checkin penk parents: diff changeset	6177	cycles := 1.
321c1729db5b initial checkin penk parents: diff changeset	6178	[vncServerIsTerminated] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6179	(cycles > 3) ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	6180	cycles := cycles + 1.
321c1729db5b initial checkin penk parents: diff changeset	6181	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	6182	].
321c1729db5b initial checkin penk parents: diff changeset	6183	^ true
321c1729db5b initial checkin penk parents: diff changeset	6184	! !
321c1729db5b initial checkin penk parents: diff changeset	6185
321c1729db5b initial checkin penk parents: diff changeset	6186	!FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
321c1729db5b initial checkin penk parents: diff changeset	6187
321c1729db5b initial checkin penk parents: diff changeset	6188	startViewer
321c1729db5b initial checkin penk parents: diff changeset	6189	\|cmd keySym applItem \|
321c1729db5b initial checkin penk parents: diff changeset	6190
321c1729db5b initial checkin penk parents: diff changeset	6191	keySym := self item mimeType asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	6192	applItem := self class mimeTypeUnixApplicationMapping detect:[ : el \| (el at:1) == keySym ] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	6193	applItem isNil ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	6194
321c1729db5b initial checkin penk parents: diff changeset	6195	cmd := (applItem at:2) asString, ' -geometry ', ext, ' -display :' , vncPortNr printString , ' ' , self fileName asString.
321c1729db5b initial checkin penk parents: diff changeset	6196	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	6197	!
321c1729db5b initial checkin penk parents: diff changeset	6198
321c1729db5b initial checkin penk parents: diff changeset	6199	startViewer:viewerCommand
321c1729db5b initial checkin penk parents: diff changeset	6200	\|blocked\|
321c1729db5b initial checkin penk parents: diff changeset	6201
321c1729db5b initial checkin penk parents: diff changeset	6202	viewerPID notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6203	^ self
321c1729db5b initial checkin penk parents: diff changeset	6204	].
321c1729db5b initial checkin penk parents: diff changeset	6205
321c1729db5b initial checkin penk parents: diff changeset	6206	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	6207
321c1729db5b initial checkin penk parents: diff changeset	6208	viewerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	6209	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	6210	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	6211	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	6212	withArguments:(Array with:'sh' with:'-c' with:viewerCommand)
4622 857bbc5a9d47 Cleanup filedescriptor closing on #exec:withArguments:.... Stefan Vogel <sv@exept.de> parents: 4621 diff changeset	6213	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	6214	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	6215	fork:true
321c1729db5b initial checkin penk parents: diff changeset	6216	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	6217	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	6218	]
321c1729db5b initial checkin penk parents: diff changeset	6219	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	6220	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6221	OperatingSystem closePid:viewerPID.
321c1729db5b initial checkin penk parents: diff changeset	6222	viewerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	6223	self viewerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	6224	].
321c1729db5b initial checkin penk parents: diff changeset	6225	].
321c1729db5b initial checkin penk parents: diff changeset	6226
321c1729db5b initial checkin penk parents: diff changeset	6227	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6228	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	6229	].
321c1729db5b initial checkin penk parents: diff changeset	6230
321c1729db5b initial checkin penk parents: diff changeset	6231	viewerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6232	Dialog warn:'Cannot start ', viewerCommand.
321c1729db5b initial checkin penk parents: diff changeset	6233	].
321c1729db5b initial checkin penk parents: diff changeset	6234	!
321c1729db5b initial checkin penk parents: diff changeset	6235
321c1729db5b initial checkin penk parents: diff changeset	6236	startXterm
321c1729db5b initial checkin penk parents: diff changeset	6237	\|cmd\|
321c1729db5b initial checkin penk parents: diff changeset	6238
321c1729db5b initial checkin penk parents: diff changeset	6239	cmd := 'xterm -geometry 600x800 -display :' , vncPortNr printString.
321c1729db5b initial checkin penk parents: diff changeset	6240	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	6241	!
321c1729db5b initial checkin penk parents: diff changeset	6242
321c1729db5b initial checkin penk parents: diff changeset	6243	stopViewer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6244	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6245
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6246	(pid := viewerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6247	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	6248	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	6249	viewerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6250	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	6251	viewerPID := nil.
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6252	].
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	6253	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	6254	].
321c1729db5b initial checkin penk parents: diff changeset	6255	!
321c1729db5b initial checkin penk parents: diff changeset	6256
321c1729db5b initial checkin penk parents: diff changeset	6257	viewerTerminated
321c1729db5b initial checkin penk parents: diff changeset	6258	"/ Transcript showCR:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	6259	"/ 'viewer has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	6260	"/ Dialog information:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	6261	! !
321c1729db5b initial checkin penk parents: diff changeset	6262
321c1729db5b initial checkin penk parents: diff changeset	6263	!FileApplicationNoteBook::XViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	6264
321c1729db5b initial checkin penk parents: diff changeset	6265	postBuildXView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	6266
321c1729db5b initial checkin penk parents: diff changeset	6267	self xView:aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	6268	self xView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	6269	aWidget autoHideScrollBars:true.
321c1729db5b initial checkin penk parents: diff changeset	6270	!
321c1729db5b initial checkin penk parents: diff changeset	6271
321c1729db5b initial checkin penk parents: diff changeset	6272	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6273	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	6274
321c1729db5b initial checkin penk parents: diff changeset	6275	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	6276
321c1729db5b initial checkin penk parents: diff changeset	6277	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6278	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	6279	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	6280	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	6281	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	6282	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	6283	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	6284	suffix = 'pdf'
321c1729db5b initial checkin penk parents: diff changeset	6285	]
321c1729db5b initial checkin penk parents: diff changeset	6286	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	6287	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6288	Dialog warn:'cant find a PDF File in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	6289	^ self
321c1729db5b initial checkin penk parents: diff changeset	6290	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	6291	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName)).
3892 321c1729db5b initial checkin penk parents: diff changeset	6292	].
321c1729db5b initial checkin penk parents: diff changeset	6293	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	6294	self setupXView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6295	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	6296	!
321c1729db5b initial checkin penk parents: diff changeset	6297
321c1729db5b initial checkin penk parents: diff changeset	6298	release
321c1729db5b initial checkin penk parents: diff changeset	6299	"/Transcript showCR:'release'.
321c1729db5b initial checkin penk parents: diff changeset	6300	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	6301	self stopVNCServer.
321c1729db5b initial checkin penk parents: diff changeset	6302	^ super release
321c1729db5b initial checkin penk parents: diff changeset	6303	! !
321c1729db5b initial checkin penk parents: diff changeset	6304
321c1729db5b initial checkin penk parents: diff changeset	6305	!FileApplicationNoteBook class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	6306
321c1729db5b initial checkin penk parents: diff changeset	6307	version
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	6308	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.249 2011-05-03 16:35:19 ab Exp $'
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	6309	!
4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	6310
4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	6311	version_CVS
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	6312	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.249 2011-05-03 16:35:19 ab Exp $'
3892 321c1729db5b initial checkin penk parents: diff changeset	6313	! !

author	ab
	Tue, 03 May 2011 18:35:19 +0200
changeset 9885	62bac7ad7d0c
parent 9882	5956cfea28a8
child 9946	f79a40a4cbb3
permissions	-rw-r--r--