hg/stx-libtool: FileApplicationNoteBook.st@02d6c2d848a0 (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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	15	instanceVariableNames:'canvasHolder selectedEditorPage listOfApplications tabMenuIndex
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	16	tabList selectionHistoryList privateTabList'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	17	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	18	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	23	instanceVariableNames:'archiveFileList enableStopButton fileTable currentSortOrder
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	24	selectionHolder tableColumns commandProcess errorListHolder
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	25	viewErrorList temporaryDirectory enableRemoveErrorOutput
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	26	errorListVisibilityHolder hasListEntriesHolder archiver process
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	27	terminateByMe columnDescriptors inDropMode'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	28	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	29	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	34	instanceVariableNames:'fileName size dateAndTime permissions icon ownerGroup method crc
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	35	compressSize ratio version type isDirectory'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	36	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	37	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	42	instanceVariableNames:'resultStream enableStopButton process labelHolder'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	43	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	44	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	49	instanceVariableNames:'imageView image fitSize fitMode'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	50	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	51	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	52	privateIn:FileApplicationNoteBook
7909 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
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	56	instanceVariableNames:'htmlView labelHolder infoLabelHolder webBrowserPage'
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	57	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	58	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	63	instanceVariableNames:'imageFile imageView image fitSize fitMode'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	64	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	65	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	70	instanceVariableNames:'terminalView'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	71	classVariableNames:'DefaultLineLimit'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	72	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 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
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	77	instanceVariableNames:'fileContentsModel modifiedChannel editView enableSave
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	78	enableReload presentation changeItemProcess closeApplication
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	79	semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	80	itemRemoved enableHexToggle md5CheckSum
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	81	md5HashValueComputationProcess viewModifiedChannel
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	82	textEditorModificationTime checkModifiedBlock fileEncodingHolder
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	83	doNotShowFontDialog lockFileEncodingHolder enableSelectInBrowser
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	84	tagsBrowserVisibleHolder tagsBrowser editorToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	85	editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	86	editorOperationsMenuSpecHolder'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	87	classVariableNames:'DefaultTagsBrowserVisible MaxFileSizeLoadedWithoutAsking
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	88	DefaultEditorToolBarVisible DefaultEditorOperationsToolBarVisible'
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	89	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	90	privateIn:FileApplicationNoteBook
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	91	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	92
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	93	AbstractFileApplicationNoteBookComponent subclass:#XMLViewApplication
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	94	instanceVariableNames:'xmlTreeApp labelHolder infoLabelHolder'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	95	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	96	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	97	privateIn:FileApplicationNoteBook
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	98	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	99
3892 321c1729db5b initial checkin penk parents: diff changeset	100	AbstractFileApplicationNoteBookComponent subclass:#XViewApplication
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	101	instanceVariableNames:'xView xFile vncServerPID vncPortNr vncConnection viewerPID
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	102	vncLock vncServerIsTerminated xItem ext'
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	103	classVariableNames:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	104	poolDictionaries:''
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	105	privateIn:FileApplicationNoteBook
3892 321c1729db5b initial checkin penk parents: diff changeset	106	!
321c1729db5b initial checkin penk parents: diff changeset	107
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	108	!FileApplicationNoteBook class methodsFor:'documentation'!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	109
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	110	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	111	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	112	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	113	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	114
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	115	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	116	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	117	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	118	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	119	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	120	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	121	"
5968 a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	122	!
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	123
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	124	documentation
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	125	"
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	126	[Author:]
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	127	Christian Penk
a8715e97c1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 5959 diff changeset	128	"
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	129	! !
3892 321c1729db5b initial checkin penk parents: diff changeset	130
321c1729db5b initial checkin penk parents: diff changeset	131	!FileApplicationNoteBook class methodsFor:'application list'!
321c1729db5b initial checkin penk parents: diff changeset	132
321c1729db5b initial checkin penk parents: diff changeset	133	applicationList
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	134	" returns a list of all applications to start by the NoteBookApplication with
3892 321c1729db5b initial checkin penk parents: diff changeset	135	#className #type
321c1729db5b initial checkin penk parents: diff changeset	136
321c1729db5b initial checkin penk parents: diff changeset	137	example:
321c1729db5b initial checkin penk parents: diff changeset	138	#( #'FooEditor' nil )
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	139	"
3892 321c1729db5b initial checkin penk parents: diff changeset	140
321c1729db5b initial checkin penk parents: diff changeset	141	^ #(
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	142	#( #'TextEditor' #file )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	143	#( #'TextEditor' #directoryDescription )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	144	#( #'HtmlViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	145	#( #'FindFileApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	146	#( #'Terminal' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	147	#( #'ImageViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	148	#( #'ArchiveViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	149	#( #'CommandResult' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	150	#( #'XViewApplication' nil )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	151	#( #'DigitalNotepadFileViewApplication' nil )
12121 57a6e8face3b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12115 diff changeset	152	#( #'XMLViewApplication' nil )
3892 321c1729db5b initial checkin penk parents: diff changeset	153	)
7840 3b752b047d94 comment Claus Gittinger <cg@exept.de> parents: 7787 diff changeset	154
9788 675dca9b2692 changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9786 diff changeset	155	"Modified: / 21-02-2011 / 17:21:54 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	156	!
321c1729db5b initial checkin penk parents: diff changeset	157
321c1729db5b initial checkin penk parents: diff changeset	158	classFor:aApplicationListItem
321c1729db5b initial checkin penk parents: diff changeset	159	\|rawName cls\|
321c1729db5b initial checkin penk parents: diff changeset	160
321c1729db5b initial checkin penk parents: diff changeset	161	rawName := aApplicationListItem at:1.
321c1729db5b initial checkin penk parents: diff changeset	162	(cls := self privateClassesAt:rawName) isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	163	cls := Smalltalk at:rawName.
321c1729db5b initial checkin penk parents: diff changeset	164	].
321c1729db5b initial checkin penk parents: diff changeset	165	^ cls
321c1729db5b initial checkin penk parents: diff changeset	166	!
321c1729db5b initial checkin penk parents: diff changeset	167
321c1729db5b initial checkin penk parents: diff changeset	168	defaultApplication
321c1729db5b initial checkin penk parents: diff changeset	169	" returns the application to be started if no itemQuery returns true or no supportedSuffix is supported
321c1729db5b initial checkin penk parents: diff changeset	170	"
321c1729db5b initial checkin penk parents: diff changeset	171
321c1729db5b initial checkin penk parents: diff changeset	172	^ self applicationList detect:[: applItem\|
321c1729db5b initial checkin penk parents: diff changeset	173	(((self classFor:applItem) == self textEditorClass)
321c1729db5b initial checkin penk parents: diff changeset	174	and:[(self typeFor:applItem) == #file])
321c1729db5b initial checkin penk parents: diff changeset	175	] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	176	!
321c1729db5b initial checkin penk parents: diff changeset	177
321c1729db5b initial checkin penk parents: diff changeset	178	typeFor:aApplicationListItem
321c1729db5b initial checkin penk parents: diff changeset	179
321c1729db5b initial checkin penk parents: diff changeset	180	^ aApplicationListItem at:2
321c1729db5b initial checkin penk parents: diff changeset	181	! !
321c1729db5b initial checkin penk parents: diff changeset	182
321c1729db5b initial checkin penk parents: diff changeset	183	!FileApplicationNoteBook class methodsFor:'classAccess'!
321c1729db5b initial checkin penk parents: diff changeset	184
321c1729db5b initial checkin penk parents: diff changeset	185	textEditorClass
321c1729db5b initial checkin penk parents: diff changeset	186
321c1729db5b initial checkin penk parents: diff changeset	187	^ TextEditor
321c1729db5b initial checkin penk parents: diff changeset	188	! !
321c1729db5b initial checkin penk parents: diff changeset	189
321c1729db5b initial checkin penk parents: diff changeset	190	!FileApplicationNoteBook class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	191
321c1729db5b initial checkin penk parents: diff changeset	192	openAnotherApplicationOnSameItem
321c1729db5b initial checkin penk parents: diff changeset	193
321c1729db5b initial checkin penk parents: diff changeset	194	^ false
321c1729db5b initial checkin penk parents: diff changeset	195	! !
321c1729db5b initial checkin penk parents: diff changeset	196
321c1729db5b initial checkin penk parents: diff changeset	197	!FileApplicationNoteBook class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	198
321c1729db5b initial checkin penk parents: diff changeset	199	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	200	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	201	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	202
321c1729db5b initial checkin penk parents: diff changeset	203	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	204	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	205
321c1729db5b initial checkin penk parents: diff changeset	206	"
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	207	UIPainter new openOnClass:FileApplicationNoteBook andSelector:#windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	208	FileApplicationNoteBook new openInterface:#windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	209	FileApplicationNoteBook open
3892 321c1729db5b initial checkin penk parents: diff changeset	210	"
321c1729db5b initial checkin penk parents: diff changeset	211
321c1729db5b initial checkin penk parents: diff changeset	212	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	213
321c1729db5b initial checkin penk parents: diff changeset	214	^
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	215	#(FullSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	216	name: windowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	217	window:
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	218	(WindowSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	219	label: 'FileBrowserV2TextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	220	name: 'FileBrowserV2TextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	221	min: (Point 10 10)
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	222	bounds: (Rectangle 0 0 300 300)
3892 321c1729db5b initial checkin penk parents: diff changeset	223	)
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	224	component:
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	225	(SpecCollection
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	226	collection: (
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	227	(NoteBookViewSpec
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	228	name: 'CommandAndTextEditor'
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	229	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	230	model: selectedEditorPage
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	231	menu: tabList
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	232	useIndex: true
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	233	accessTabMenuAction: tabMenuAt:
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	234	destroyTabAction: destroyTabAt:
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	235	canvas: canvasHolder
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	236	keepCanvasAlive: true
3892 321c1729db5b initial checkin penk parents: diff changeset	237	)
321c1729db5b initial checkin penk parents: diff changeset	238	)
321c1729db5b initial checkin penk parents: diff changeset	239
321c1729db5b initial checkin penk parents: diff changeset	240	)
321c1729db5b initial checkin penk parents: diff changeset	241	)
321c1729db5b initial checkin penk parents: diff changeset	242	! !
321c1729db5b initial checkin penk parents: diff changeset	243
321c1729db5b initial checkin penk parents: diff changeset	244	!FileApplicationNoteBook class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	245
321c1729db5b initial checkin penk parents: diff changeset	246	tabMenu
321c1729db5b initial checkin penk parents: diff changeset	247	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	248	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	249
321c1729db5b initial checkin penk parents: diff changeset	250	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	251	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	252
321c1729db5b initial checkin penk parents: diff changeset	253	"
321c1729db5b initial checkin penk parents: diff changeset	254	MenuEditor new openOnClass:FileApplicationNoteBook andSelector:#tabMenu
321c1729db5b initial checkin penk parents: diff changeset	255	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook tabMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	256	"
321c1729db5b initial checkin penk parents: diff changeset	257
321c1729db5b initial checkin penk parents: diff changeset	258	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	259
321c1729db5b initial checkin penk parents: diff changeset	260	^
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	261	#(Menu
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	262	(
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	263	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	264	label: 'Add Text Editor'
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	265	itemValue: newTextEditor
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	266	translateLabel: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	267	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	268	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	269	label: '-'
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	270	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	271	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	272	label: 'Select in Filelist'
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	273	itemValue: doSelectInList
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	274	translateLabel: true
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	275	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	276	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	277	label: '-'
5186 040b261bb5d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5160 diff changeset	278	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	279	(MenuItem
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	280	label: 'Rename Tab...'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	281	itemValue: doRenameTab
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	282	translateLabel: true
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	283	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	284	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	285	label: '-'
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	286	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	287	(MenuItem
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	288	label: 'Close Tab'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	289	itemValue: doCloseApplication
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	290	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	291	)
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	292	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	293	enabled: closeAllApplicationsEnabled
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	294	label: 'Close all Tabs'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	295	itemValue: doCloseAllApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	296	translateLabel: true
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	297	)
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	298	(MenuItem
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	299	enabled: closeAllApplicationsEnabled
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	300	label: 'Close all but this Tab'
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	301	itemValue: doCloseAllOtherApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	302	translateLabel: true
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	303	)
3892 321c1729db5b initial checkin penk parents: diff changeset	304	)
321c1729db5b initial checkin penk parents: diff changeset	305	nil
321c1729db5b initial checkin penk parents: diff changeset	306	nil
321c1729db5b initial checkin penk parents: diff changeset	307	)
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	308
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	309	"Modified: / 27-03-2007 / 11:13:52 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	310	! !
321c1729db5b initial checkin penk parents: diff changeset	311
321c1729db5b initial checkin penk parents: diff changeset	312	!FileApplicationNoteBook methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	313
321c1729db5b initial checkin penk parents: diff changeset	314	listOfApplications
321c1729db5b initial checkin penk parents: diff changeset	315	"return the value of the instance variable 'listOfApplications' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	316
321c1729db5b initial checkin penk parents: diff changeset	317	listOfApplications isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	318	listOfApplications := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	319	].
321c1729db5b initial checkin penk parents: diff changeset	320	^ listOfApplications
321c1729db5b initial checkin penk parents: diff changeset	321	!
321c1729db5b initial checkin penk parents: diff changeset	322
321c1729db5b initial checkin penk parents: diff changeset	323	selectionHistoryList
321c1729db5b initial checkin penk parents: diff changeset	324
321c1729db5b initial checkin penk parents: diff changeset	325	selectionHistoryList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	326	selectionHistoryList := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	327	].
321c1729db5b initial checkin penk parents: diff changeset	328	^ selectionHistoryList
321c1729db5b initial checkin penk parents: diff changeset	329	!
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	selectionHistoryList := aCol
321c1729db5b initial checkin penk parents: diff changeset	334	! !
321c1729db5b initial checkin penk parents: diff changeset	335
4360 959719f86629 category change Claus Gittinger <cg@exept.de> parents: 4353 diff changeset	336	!FileApplicationNoteBook methodsFor:'accessing-applications'!
3892 321c1729db5b initial checkin penk parents: diff changeset	337
321c1729db5b initial checkin penk parents: diff changeset	338	getAllApplicationsByClass:aClass andType:aType
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	339	^ self listOfApplications
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	340	select:[ : appl \|
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	341	((appl class = aClass)
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	342	"and:[appl type = aType]")
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	343	].
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	344
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	345	"Modified (format): / 29-11-2011 / 19:08:20 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	346	!
321c1729db5b initial checkin penk parents: diff changeset	347
321c1729db5b initial checkin penk parents: diff changeset	348	getApplicationByType:aType
321c1729db5b initial checkin penk parents: diff changeset	349
321c1729db5b initial checkin penk parents: diff changeset	350	^ self listOfApplications detect:[ : appl \|
321c1729db5b initial checkin penk parents: diff changeset	351	(appl type == aType)
321c1729db5b initial checkin penk parents: diff changeset	352	] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	353	!
321c1729db5b initial checkin penk parents: diff changeset	354
321c1729db5b initial checkin penk parents: diff changeset	355	getIndexFor:aApplication
321c1729db5b initial checkin penk parents: diff changeset	356
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	index := self listOfApplications indexOf:aApplication.
321c1729db5b initial checkin penk parents: diff changeset	360	index ~~ 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	361	^ index.
321c1729db5b initial checkin penk parents: diff changeset	362	].
321c1729db5b initial checkin penk parents: diff changeset	363	^ nil.
321c1729db5b initial checkin penk parents: diff changeset	364	!
321c1729db5b initial checkin penk parents: diff changeset	365
8513 f2e2e360cff4 * empty log message * Claus Gittinger <cg@exept.de> parents: 8471 diff changeset	366	getSameApplicationsFor:anApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	367
8514 72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	368	^ self listOfApplications
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	369	select:[:appl \|
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	370	( (appl ~= anApplication)
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	371	and:[ (appl isKindOf:(anApplication class))
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	372	and:[ (appl item = (anApplication item))
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	373	and:[ (appl type == anApplication type) ]]])
72d96e73deaa * empty log message * Claus Gittinger <cg@exept.de> parents: 8513 diff changeset	374	].
3892 321c1729db5b initial checkin penk parents: diff changeset	375	! !
321c1729db5b initial checkin penk parents: diff changeset	376
321c1729db5b initial checkin penk parents: diff changeset	377	!FileApplicationNoteBook methodsFor:'actions-app-common'!
321c1729db5b initial checkin penk parents: diff changeset	378
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	379	changeItem:anItem for:anAppl
4988 34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	380	\| applIndex string isDirectory \|
3892 321c1729db5b initial checkin penk parents: diff changeset	381
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	382	applIndex := self getIndexFor:anAppl.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	383	anItem notNil ifTrue:[
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	384	isDirectory := anItem isDirectory or:[anItem linkTargetIsDirectory ].
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	385
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	386	isDirectory ifFalse:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	387	(anAppl changeItem:anItem) ifFalse:[ ^ self].
2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	388	self fileHistory addFirst:anItem.
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	389	self enableFileHistory value:true.
a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	390	].
3892 321c1729db5b initial checkin penk parents: diff changeset	391	].
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	392	string := anAppl getTabString.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	393	self privateTabList at:applIndex put:(Text fromString:string).
9882 5956cfea28a8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9819 diff changeset	394	"/ self doSelect:anAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	395	!
321c1729db5b initial checkin penk parents: diff changeset	396
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	397	changeModified:aSymbol for:aAppl
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	398
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	399	\| index text stream\|
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	400
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	401	index := self getIndexFor:aAppl.
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	402	index isNil ifTrue:[ ^ self].
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	403	stream := WriteStream with:aAppl getTabString.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	404	aSymbol ~~ #unchanged ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	405	stream space.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	406	stream nextPut:$[.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	407	stream nextPutAll:aSymbol asString.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	408	stream nextPut:$].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	409	text := stream contents asText.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	410	text emphasizeAllWith:UserPreferences current emphasisForModifiedBuffer.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	411	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	412	text := stream contents asText.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	413	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	414	self privateTabList at:index put:text.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	415	self selectedEditorPage value == index ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	416	self changeFileBrowserTitleTo:text.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	417	].
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	418	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	419
3892 321c1729db5b initial checkin penk parents: diff changeset	420	closeSubCanvas:aApplication
321c1729db5b initial checkin penk parents: diff changeset	421
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	422	\| applIndex historyList localHistoryList selectedPage\|
3892 321c1729db5b initial checkin penk parents: diff changeset	423
321c1729db5b initial checkin penk parents: diff changeset	424	applIndex := self getIndexFor:aApplication.
321c1729db5b initial checkin penk parents: diff changeset	425	applIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	426	"/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES
321c1729db5b initial checkin penk parents: diff changeset	427	"/ self lastSelection:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	428
321c1729db5b initial checkin penk parents: diff changeset	429	historyList := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	430	historyList remove:applIndex ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	431	localHistoryList := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	432	historyList notEmpty ifTrue:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	433	selectedPage := historyList last.
3892 321c1729db5b initial checkin penk parents: diff changeset	434	] ifFalse:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	435	selectedPage := 1.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	436	].
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	437	self selectedEditorPage value:selectedPage.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	438
3892 321c1729db5b initial checkin penk parents: diff changeset	439	historyList do:[ : index \|
321c1729db5b initial checkin penk parents: diff changeset	440	index <= applIndex ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	441	localHistoryList add:index
321c1729db5b initial checkin penk parents: diff changeset	442	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	443	localHistoryList add:(index - 1)
321c1729db5b initial checkin penk parents: diff changeset	444	]
321c1729db5b initial checkin penk parents: diff changeset	445	].
321c1729db5b initial checkin penk parents: diff changeset	446	self selectionHistoryList:localHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	447	self listOfApplications removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	448	self privateTabList removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	449	self privateTabList isEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	450	self viewNoteBookApplicationHolder value:false.
321c1729db5b initial checkin penk parents: diff changeset	451	self enableViewNoteBookApplication value:false.
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	452	self changeFileBrowserTitleTo:'FileBrowser V2'.
05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	453
3892 321c1729db5b initial checkin penk parents: diff changeset	454	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	455	historyList notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	456	self selectedEditorPage value:(self selectionHistoryList last).
321c1729db5b initial checkin penk parents: diff changeset	457	]
321c1729db5b initial checkin penk parents: diff changeset	458	]
321c1729db5b initial checkin penk parents: diff changeset	459	].
321c1729db5b initial checkin penk parents: diff changeset	460
321c1729db5b initial checkin penk parents: diff changeset	461	"/ because subCanvas was configured to keep its view,
321c1729db5b initial checkin penk parents: diff changeset	462	"/ we must destroy it here.
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	463	aApplication window destroy.
3892 321c1729db5b initial checkin penk parents: diff changeset	464	!
321c1729db5b initial checkin penk parents: diff changeset	465
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	466	destroyTab:tabIndex
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	467	(self listOfApplications at:tabIndex) doClose
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	468	!
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	469
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	470	doCloseAllApplications
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	471	\| appl \|
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	(Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	474
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	475	appl := self listOfApplications copy do:[:eachApp \| eachApp doClose.].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	476	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	477
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	478	doCloseAllOtherApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	479	\| appl currentApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	480
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	481	"/ (Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	482
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	483	currentApp := self currentTabMenusApplication.
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	484	appl := self listOfApplications copy do:
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	485	[:eachApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	486	eachApp ~~ currentApp ifTrue:[
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	487	eachApp doClose.
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	488	].
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	489	]
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	490	!
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	491
3892 321c1729db5b initial checkin penk parents: diff changeset	492	doCloseApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	493	self currentTabMenusApplication doClose.
3892 321c1729db5b initial checkin penk parents: diff changeset	494	!
321c1729db5b initial checkin penk parents: diff changeset	495
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	496	doRenameTab
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	497	\| newLabel \|
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	498
5335 c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	499	newLabel := Dialog
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	500	request:'New Tab Label:'
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	501	initialAnswer:(self privateTabList at:tabMenuIndex).
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	502	newLabel size == 0 ifTrue:[^ self ].
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	503	self privateTabList at:tabMenuIndex put:newLabel
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	504	!
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	505
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	506	doSelectInList
5323 407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	507	\| fileName\|
407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	508
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	509	fileName := self currentTabMenusApplication fileName.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	510	fileName notNil ifTrue:[
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	511	self gotoFile:fileName.
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	512	].
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	513	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	514
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	515	openApplByFileItem:anItem
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	516	" use the default class list for open of applications by item "
3892 321c1729db5b initial checkin penk parents: diff changeset	517
5290 8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	518	\| applList applItem itemClass itemType appl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	519
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	520	anItem isNil ifTrue:[ ^ self ].
5279 165a7b841a86 open directories found penk parents: 5265 diff changeset	521	anItem isDirectory ifTrue:[
165a7b841a86 open directories found penk parents: 5265 diff changeset	522	self warn:'No Application to open for directory:', anItem fileName asString, ' found'.
165a7b841a86 open directories found penk parents: 5265 diff changeset	523	^ nil.
165a7b841a86 open directories found penk parents: 5265 diff changeset	524	].
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	525
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	526	self openAlwaysInTextEditor value ifFalse:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	527	applList := self applicationList.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	528	applItem := applList
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	529	detect:[: aApplItem\|
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	530	itemClass := self class classFor:aApplItem.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	531	(itemClass canOpenItem:anItem).
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	532	] ifNone:[nil].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	533
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	534	applItem notNil ifTrue:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	535	itemType := self class typeFor:applItem.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	536	itemClass := self class classFor:applItem.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	537	Error handle:[:ex \|
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	538	"/ catching the error, so we can still show text
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	539	] do:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	540	appl := self openApplicationClass:itemClass withItem:anItem withType:itemType.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	541	appl notNil ifTrue:[ ^ appl].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	542	].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	543	].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	544	].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	545
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	546	^ self openDefaultApplicationByItem:anItem.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	547
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	548	"Modified: / 16-09-2011 / 16:17:58 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	549	!
321c1729db5b initial checkin penk parents: diff changeset	550
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	551	openApplicationClass:aClass withItem:anItem withType:aType
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	552
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	553	^ self
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	554	openApplicationClass:aClass
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	555	withItem:anItem
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	556	withType:aType
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	557	checkExisting:true
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	558
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	559	"Modified (format): / 12-01-2012 / 01:10:50 / cg"
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	560	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	561
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	562	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	563	^ self
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	564	openApplicationClass:aClass
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	565	withItem:anItem
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	566	withType:aType
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	567	checkExisting:checkExisting
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	568	preSetItem:nil
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	569
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	570	"Modified (format): / 29-11-2011 / 19:06:27 / cg"
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	571	!
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	572
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	573	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting preSetItem:aBlock
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	574	\|existingAppl newAppl\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	575
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	576	"do not open unreadable items"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	577	checkExisting ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	578	(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	579	Dialog warn:'Can not open unreadable file ', anItem fileName baseName.
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	580	AbortOperationRequest raise.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	581	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	582	existingAppl := self tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	583	existingAppl notNil ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	584	self doSelect:existingAppl.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	585	^ existingAppl
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	586	].
3892 321c1729db5b initial checkin penk parents: diff changeset	587	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	588
3892 321c1729db5b initial checkin penk parents: diff changeset	589	newAppl := aClass new.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	590	newAppl masterApplication:self.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	591	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	592	aBlock value:newAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	593	].
3892 321c1729db5b initial checkin penk parents: diff changeset	594	newAppl type:aType.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	595
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	596	newAppl isTextEditor ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	597	newAppl fileEncoding:(self fileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	598	newAppl lockFileEncoding:(self lockFileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	599	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	600	(newAppl item:anItem) ifFalse:[ ^ nil ].
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	601	(anItem notNil and:[(anItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	602	self fileHistory addFirst:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	603	self enableFileHistory value:true.
321c1729db5b initial checkin penk parents: diff changeset	604	].
321c1729db5b initial checkin penk parents: diff changeset	605	self setSameFileIndexFor:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	606	self startApplication:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	607	^ newAppl
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	608
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	609	"Modified (format): / 29-11-2011 / 19:06:47 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	610	!
321c1729db5b initial checkin penk parents: diff changeset	611
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	612	openDefaultApplicationByItem:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	613	" open the default application if no application for item is available or the start of the
321c1729db5b initial checkin penk parents: diff changeset	614	available application failed
321c1729db5b initial checkin penk parents: diff changeset	615	"
321c1729db5b initial checkin penk parents: diff changeset	616	\| applItem \|
321c1729db5b initial checkin penk parents: diff changeset	617
321c1729db5b initial checkin penk parents: diff changeset	618	applItem := self class defaultApplication.
321c1729db5b initial checkin penk parents: diff changeset	619	applItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	620	\| itemType itemClass\|
321c1729db5b initial checkin penk parents: diff changeset	621	itemType := self class typeFor:applItem.
321c1729db5b initial checkin penk parents: diff changeset	622	itemClass := self class classFor:applItem.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	623	^ self openApplicationClass:itemClass withItem:anItem withType:itemType.
3892 321c1729db5b initial checkin penk parents: diff changeset	624	].
321c1729db5b initial checkin penk parents: diff changeset	625	^ nil
321c1729db5b initial checkin penk parents: diff changeset	626	!
321c1729db5b initial checkin penk parents: diff changeset	627
321c1729db5b initial checkin penk parents: diff changeset	628	setSameFileIndexFor:anAppl
321c1729db5b initial checkin penk parents: diff changeset	629	\|sameFiles index item\|
321c1729db5b initial checkin penk parents: diff changeset	630
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	631	self class openAnotherApplicationOnSameItem ifFalse:[
3892 321c1729db5b initial checkin penk parents: diff changeset	632	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	633	^ self.
321c1729db5b initial checkin penk parents: diff changeset	634	].
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	635
3892 321c1729db5b initial checkin penk parents: diff changeset	636	item := anAppl item.
321c1729db5b initial checkin penk parents: diff changeset	637	item notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	638	sameFiles := self getSameApplicationsFor:anAppl.
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	639	(sameFiles notEmpty) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	640	(sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	641	anAppl sameFileIndex:1.
321c1729db5b initial checkin penk parents: diff changeset	642	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	643	index := (sameFiles collect:[:el \| (el sameFileIndex ? 1)]) max.
321c1729db5b initial checkin penk parents: diff changeset	644	anAppl sameFileIndex:index + 1.
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	645	].
edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	646	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	647	].
321c1729db5b initial checkin penk parents: diff changeset	648	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	649	].
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	650
edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	651	"Modified (format): / 24-07-2011 / 08:22:03 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	652	!
321c1729db5b initial checkin penk parents: diff changeset	653
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	654	startApplication:anApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	655	\| window\|
321c1729db5b initial checkin penk parents: diff changeset	656
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	657	"/ anApplication masterApplication:self.
7582 ee57ad4bee5c * empty log message * Claus Gittinger <cg@exept.de> parents: 7540 diff changeset	658	anApplication window isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	659	window := ApplicationSubView new.
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	660	anApplication createBuilder.
82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	661	window client:anApplication.
3892 321c1729db5b initial checkin penk parents: diff changeset	662	].
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	663	self listOfApplications add:anApplication.
82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	664	self privateTabList add:(Text fromString:(anApplication getTabString)).
3892 321c1729db5b initial checkin penk parents: diff changeset	665	self viewNoteBookApplicationHolder value:true.
321c1729db5b initial checkin penk parents: diff changeset	666	self enableViewNoteBookApplication value:true.
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	667	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	668	self doSelect:anApplication.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	669	].
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	670	"/ [
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	671	anApplication postOpenWith:anApplication builder.
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	672	"/ ] forkAt:Processor activePriority.
3892 321c1729db5b initial checkin penk parents: diff changeset	673	!
321c1729db5b initial checkin penk parents: diff changeset	674
321c1729db5b initial checkin penk parents: diff changeset	675	tabStringAdd:aString for:aAppl
321c1729db5b initial checkin penk parents: diff changeset	676
321c1729db5b initial checkin penk parents: diff changeset	677	\| index text stream\|
321c1729db5b initial checkin penk parents: diff changeset	678
321c1729db5b initial checkin penk parents: diff changeset	679	index := self getIndexFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	680	index isNil ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	681	text := self privateTabList at:index.
321c1729db5b initial checkin penk parents: diff changeset	682	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	683	stream nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	684	stream space.
321c1729db5b initial checkin penk parents: diff changeset	685	stream nextPutAll:aString.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	686	self privateTabList at:index put:(Text fromString:(stream contents)).
3892 321c1729db5b initial checkin penk parents: diff changeset	687	stream close.
321c1729db5b initial checkin penk parents: diff changeset	688	!
321c1729db5b initial checkin penk parents: diff changeset	689
321c1729db5b initial checkin penk parents: diff changeset	690	tabStringChangeTo:aString for:aAppl
321c1729db5b initial checkin penk parents: diff changeset	691
321c1729db5b initial checkin penk parents: diff changeset	692	\| index\|
321c1729db5b initial checkin penk parents: diff changeset	693
321c1729db5b initial checkin penk parents: diff changeset	694	index := self getIndexFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	695	index isNil ifTrue:[ ^ self].
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	696	self privateTabList at:index put:(Text fromString:aString).
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	697	self selectedEditorPage value == index ifTrue:[
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	698	self changeFileBrowserTitleTo:aString.
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	699	].
3892 321c1729db5b initial checkin penk parents: diff changeset	700	!
321c1729db5b initial checkin penk parents: diff changeset	701
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	702	tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	703	\| sameAppls changeAppl selAppl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	704
321c1729db5b initial checkin penk parents: diff changeset	705	aClass wantNewApplicationAnyway ifTrue:[^ nil].
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	706	sameAppls := self getAllApplicationsByClass:aClass andType:aType.
79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	707	sameAppls isEmpty ifTrue:[^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	708	((aType == #directoryDescription) or:[aType == #commandResult]) ifTrue:[
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	709	"/ sameAppls := sameAppl first.
3892 321c1729db5b initial checkin penk parents: diff changeset	710	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	711	(self openMultipleApplicationsForType value) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	712	"/ open more than one application for a class and a type
321c1729db5b initial checkin penk parents: diff changeset	713	(self class openAnotherApplicationOnSameItem) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	714	"/ open a new application anyway, no matters if item already open
321c1729db5b initial checkin penk parents: diff changeset	715	^ nil
321c1729db5b initial checkin penk parents: diff changeset	716	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	717	"/ if item already changed select the application
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	718	selAppl := sameAppls detect:[:appl \| (appl item = anItem) ] ifNone:[nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	719	].
321c1729db5b initial checkin penk parents: diff changeset	720	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	721	"/ keep in same application change the first application of the same class and type - if item not changed otherwise open new
12830 7c993d3f4519 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12480 diff changeset	722	sameAppls := sameAppls reject:[:appl \| appl isModified ].
3892 321c1729db5b initial checkin penk parents: diff changeset	723	].
321c1729db5b initial checkin penk parents: diff changeset	724	].
4393 194816f3a6ea Care for nil Stefan Vogel <sv@exept.de> parents: 4392 diff changeset	725	sameAppls size ~~ 0 ifTrue:[
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	726	" take first all applications which have nil items
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	727	second the selected
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	728	third the first
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	729	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	730	\| nilItemAppls \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	731
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	732	nilItemAppls := sameAppls select:[:appl\| appl item == nil ].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	733	nilItemAppls notEmpty ifTrue:[sameAppls := nilItemAppls].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	734	(sameAppls includes:self selectedApplication) ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	735	changeAppl := self selectedApplication.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	736	] ifFalse:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	737	changeAppl := sameAppls first.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	738	].
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	739	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	740	aBlock value:changeAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	741	].
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	742	changeAppl type:aType.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	743	self changeItem:anItem for:changeAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	744	selAppl := changeAppl.
321c1729db5b initial checkin penk parents: diff changeset	745	].
321c1729db5b initial checkin penk parents: diff changeset	746	^ selAppl.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	747
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	748	"Modified (format): / 29-11-2011 / 19:07:57 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	749	! !
321c1729db5b initial checkin penk parents: diff changeset	750
321c1729db5b initial checkin penk parents: diff changeset	751	!FileApplicationNoteBook methodsFor:'actions-app-spec'!
321c1729db5b initial checkin penk parents: diff changeset	752
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	753	addTerminalIn:aDirectory
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	754	\|item\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	755
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	756	item := DirectoryContentsBrowser itemClass fileName:aDirectory.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	757	self openTerminalApplication:item.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	758	!
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	759
3892 321c1729db5b initial checkin penk parents: diff changeset	760	changeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	761
321c1729db5b initial checkin penk parents: diff changeset	762	\| aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	763
321c1729db5b initial checkin penk parents: diff changeset	764	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	765	aInfoItem isNil ifTrue:[ ^ self closeDirectoryDescription ].
321c1729db5b initial checkin penk parents: diff changeset	766	self openDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	767	!
321c1729db5b initial checkin penk parents: diff changeset	768
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	769	closeAllApplicationsEnabled
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	770	^ tabList value size > 1
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	771	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	772
3892 321c1729db5b initial checkin penk parents: diff changeset	773	closeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	774
321c1729db5b initial checkin penk parents: diff changeset	775	\| dirContApll \|
321c1729db5b initial checkin penk parents: diff changeset	776
321c1729db5b initial checkin penk parents: diff changeset	777	dirContApll := self getApplicationByType:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	778	dirContApll notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	779	dirContApll doClose.
321c1729db5b initial checkin penk parents: diff changeset	780	].
321c1729db5b initial checkin penk parents: diff changeset	781	!
321c1729db5b initial checkin penk parents: diff changeset	782
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	783	doAddArchiverOn:aFilename
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	784	\|item\|
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	785
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	786	item := DirectoryContentsBrowser itemClass fileName:aFilename.
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	787	self openArchiveViewApplication:item.
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	788
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	789	"Created: / 29-11-2011 / 19:05:49 / cg"
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	790	!
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	791
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	792	newTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	793
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	794	^ self openApplicationClass:TextEditor withItem:nil withType:#file checkExisting:false
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	795	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	796
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	797	openArchiveViewApplication:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	798	\| result \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	799
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	800	result := self openApplicationClass:ArchiveViewApplication withItem:anItem withType:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	801	result isNil ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	802	Dialog warn:'file type of ', anItem fileName baseName, ' not yet supported'.
3892 321c1729db5b initial checkin penk parents: diff changeset	803	^ self.
321c1729db5b initial checkin penk parents: diff changeset	804	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	805
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	806	"Modified (format): / 29-11-2011 / 18:57:21 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	807	!
321c1729db5b initial checkin penk parents: diff changeset	808
321c1729db5b initial checkin penk parents: diff changeset	809	openCommandResultApplication
321c1729db5b initial checkin penk parents: diff changeset	810
321c1729db5b initial checkin penk parents: diff changeset	811
321c1729db5b initial checkin penk parents: diff changeset	812	^ self openApplicationClass:CommandResult withItem:nil withType:#commandResult
321c1729db5b initial checkin penk parents: diff changeset	813	!
321c1729db5b initial checkin penk parents: diff changeset	814
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	815	openCompareDirectory:directory1 with:directory2
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	816	\|newAppl\|
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	817
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	818	newAppl := DirectoryDifferenceViewApplication new.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	819	newAppl masterApplication:self.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	820	newAppl directory1:directory1 directory2:directory2.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	821
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	822	self setSameFileIndexFor:newAppl.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	823	self startApplication:newAppl.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	824	^ newAppl
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	825
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	826	"Created: / 12-01-2012 / 01:10:05 / cg"
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	827	!
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	828
3892 321c1729db5b initial checkin penk parents: diff changeset	829	openDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	830
321c1729db5b initial checkin penk parents: diff changeset	831	\| appl aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	832
321c1729db5b initial checkin penk parents: diff changeset	833	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	834	aInfoItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	835	appl := self openTextEditorOn:aInfoItem type:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	836	].
321c1729db5b initial checkin penk parents: diff changeset	837	!
321c1729db5b initial checkin penk parents: diff changeset	838
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	839	openNewTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	840
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	841	^ self openApplicationClass:TextEditor withItem:anItem withType:#file checkExisting:false.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	842	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	843
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	844	openSearchFileOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	845
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	846	^ self
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	847	openApplicationClass:FindFileApplication
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	848	withItem:anItem
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	849	withType:nil
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	850	checkExisting:false
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	851
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	852	"Modified (format): / 12-01-2012 / 01:02:30 / cg"
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	853	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	854
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	855	openTerminalApplication:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	856
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	857	^ self openApplicationClass:Terminal withItem:anItem withType:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	858	!
321c1729db5b initial checkin penk parents: diff changeset	859
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	860	openTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	861
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	862	^ self openTextEditorOn:nil
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	863	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	864
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	865	openTextEditorForFile:aFilename
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	866
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	867	^ 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	868	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	869
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	870	openTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	871
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	872	^ self openTextEditorOn:anItem type:#file
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	873	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	874
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	875	openTextEditorOn:anItem type:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	876
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	877	^ self openApplicationClass:TextEditor withItem:anItem withType:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	878	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	879
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	880	openTextEditorWithHexPresentationOn:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	881
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	882	^ self openApplicationClass:TextEditor
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	883	withItem:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	884	withType:#file
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	885	checkExisting:true
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	886	preSetItem:[:aTextEditor \| aTextEditor presentation:#hexDump].
3892 321c1729db5b initial checkin penk parents: diff changeset	887	! !
321c1729db5b initial checkin penk parents: diff changeset	888
321c1729db5b initial checkin penk parents: diff changeset	889	!FileApplicationNoteBook methodsFor:'applicationlist access'!
321c1729db5b initial checkin penk parents: diff changeset	890
321c1729db5b initial checkin penk parents: diff changeset	891	applicationList
321c1729db5b initial checkin penk parents: diff changeset	892	^ self class applicationList
321c1729db5b initial checkin penk parents: diff changeset	893	! !
321c1729db5b initial checkin penk parents: diff changeset	894
321c1729db5b initial checkin penk parents: diff changeset	895	!FileApplicationNoteBook methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	896
321c1729db5b initial checkin penk parents: diff changeset	897	canvasHolder
321c1729db5b initial checkin penk parents: diff changeset	898
321c1729db5b initial checkin penk parents: diff changeset	899	canvasHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	900	canvasHolder := ValueHolder new.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	901	canvasHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	902	].
321c1729db5b initial checkin penk parents: diff changeset	903	^ canvasHolder.
321c1729db5b initial checkin penk parents: diff changeset	904	!
321c1729db5b initial checkin penk parents: diff changeset	905
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	906	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	907	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	908	aspectFor:#cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	909	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	910	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	911	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	912	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	913
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	914	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	915	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	916	aspectFor:#cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	917	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	918	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	919	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	920	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	921
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	922	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	923	^ self
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	924	aspectFor:#fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	925	ifAbsent:[
5567 3e00d2d4db6d * empty log message * Claus Gittinger <cg@exept.de> parents: 5550 diff changeset	926	IndirectValue for:('iso8859-1' asValue)
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	927	]
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	928	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	929
11056 ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	930	inputTabColumnConversionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	931	^ self
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	932	aspectFor:#inputTabColumnConversionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	933	ifAbsent:[
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	934	IndirectValue for:(8 asValue)
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	935	]
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	936
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	937	"Created: / 06-01-2012 / 15:26:32 / cg"
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	938	!
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	939
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	940	lineEndConventionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	941	^ self
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	942	aspectFor:#lineEndConventionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	943	ifAbsent:[
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	944	IndirectValue for:('nl' asValue)
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	945	]
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	946
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	947	"Created: / 06-01-2012 / 13:03:24 / cg"
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	948	!
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	949
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	950	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	951	^ self
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	952	aspectFor:#lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	953	ifAbsent:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	954	IndirectValue for:(false asValue)
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	955	]
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	956	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	957
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	958	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	959	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	960	aspectFor:#modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	961	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	962	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	963	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	964	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	965
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	966	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	967	\|app\|
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	968
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	969	(app := self selectedApplication) notNil ifTrue:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	970	^ app modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	971	].
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	972	^ nil
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	973
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	974	"Created: / 11-09-2006 / 12:33:27 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	975	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	976
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	977	modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	978	^ self
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	979	aspectFor:#modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	980	ifAbsent:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	981	IndirectValue for:(nil asValue)
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	982	]
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	983
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	984	"Created: / 11-09-2006 / 12:28:08 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	985	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	986
3892 321c1729db5b initial checkin penk parents: diff changeset	987	privateTabList
321c1729db5b initial checkin penk parents: diff changeset	988
321c1729db5b initial checkin penk parents: diff changeset	989	privateTabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	990	privateTabList := List new.
321c1729db5b initial checkin penk parents: diff changeset	991	privateTabList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	992	].
321c1729db5b initial checkin penk parents: diff changeset	993	^ privateTabList.
321c1729db5b initial checkin penk parents: diff changeset	994	!
321c1729db5b initial checkin penk parents: diff changeset	995
321c1729db5b initial checkin penk parents: diff changeset	996	selectedEditorPage
321c1729db5b initial checkin penk parents: diff changeset	997
321c1729db5b initial checkin penk parents: diff changeset	998	selectedEditorPage isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	999	selectedEditorPage := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	1000	"/ if your app needs to be notified of changes, uncomment one of the lines below:
321c1729db5b initial checkin penk parents: diff changeset	1001	selectedEditorPage addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1002	"/ selectedEditorPage onChangeSend:#selectedEditorPageChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	1003	].
321c1729db5b initial checkin penk parents: diff changeset	1004	^ selectedEditorPage.
321c1729db5b initial checkin penk parents: diff changeset	1005	!
321c1729db5b initial checkin penk parents: diff changeset	1006
321c1729db5b initial checkin penk parents: diff changeset	1007	tabList
321c1729db5b initial checkin penk parents: diff changeset	1008
321c1729db5b initial checkin penk parents: diff changeset	1009	tabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1010	tabList := (List new) asValue.
321c1729db5b initial checkin penk parents: diff changeset	1011	].
321c1729db5b initial checkin penk parents: diff changeset	1012	^ tabList.
321c1729db5b initial checkin penk parents: diff changeset	1013	!
321c1729db5b initial checkin penk parents: diff changeset	1014
321c1729db5b initial checkin penk parents: diff changeset	1015	tabList:aValue
321c1729db5b initial checkin penk parents: diff changeset	1016
321c1729db5b initial checkin penk parents: diff changeset	1017	tabList := aValue.
321c1729db5b initial checkin penk parents: diff changeset	1018	! !
321c1729db5b initial checkin penk parents: diff changeset	1019
321c1729db5b initial checkin penk parents: diff changeset	1020	!FileApplicationNoteBook methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	1021
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1022	canvasChanged
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1023	"invoked when the contentsView has been changed"
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1024
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1025	\|app\|
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1026
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1027	app := self selectedApplication.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1028
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1029	self cursorLineLabelHolder valueHolder: (app cursorLineLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1030	self cursorColLabelHolder valueHolder: (app cursorColLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1031	self modeLabelHolder valueHolder: (app modeLabelHolder).
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	1032	self fileEncodingHolder valueHolder: (app fileEncodingHolder).
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1033
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1034	app lockFileEncodingHolder isBoolean ifTrue:[
8366 6e6842bd8b1e * empty log message * Claus Gittinger <cg@exept.de> parents: 8228 diff changeset	1035	self breakPoint:#cg
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1036	] ifFalse:[
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1037	self lockFileEncodingHolder valueHolder: (app lockFileEncodingHolder).
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1038	].
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1039
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1040	"Modified: / 11-09-2006 / 12:44:07 / cg"
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1041	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1042
3892 321c1729db5b initial checkin penk parents: diff changeset	1043	update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1044	\| appl sel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1045
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1046	changedObject == canvasHolder ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1047	self canvasChanged.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1048	^ self.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1049	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1050	changedObject == self currentDirectories ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1051	self viewDirectoryDescription value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1052	self changeDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	1053	].
321c1729db5b initial checkin penk parents: diff changeset	1054	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1055	].
321c1729db5b initial checkin penk parents: diff changeset	1056	changedObject == self viewDirectoryDescription ifTrue:[
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1057	self viewDirectoryDescriptionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	1058	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1059	].
321c1729db5b initial checkin penk parents: diff changeset	1060	changedObject == self privateTabList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1061	\| privateListOfTabs \|
321c1729db5b initial checkin penk parents: diff changeset	1062	privateListOfTabs := changedObject.
321c1729db5b initial checkin penk parents: diff changeset	1063	privateListOfTabs size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1064	self tabList value:privateListOfTabs.
321c1729db5b initial checkin penk parents: diff changeset	1065	self tabList changed.
321c1729db5b initial checkin penk parents: diff changeset	1066	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1067	self tabList value:nil.
321c1729db5b initial checkin penk parents: diff changeset	1068	].
321c1729db5b initial checkin penk parents: diff changeset	1069	^ self
321c1729db5b initial checkin penk parents: diff changeset	1070	].
321c1729db5b initial checkin penk parents: diff changeset	1071	changedObject == self selectedEditorPage ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1072	\| listOfEdits indexOfLastSel list \|
321c1729db5b initial checkin penk parents: diff changeset	1073
321c1729db5b initial checkin penk parents: diff changeset	1074	sel := changedObject value.
321c1729db5b initial checkin penk parents: diff changeset	1075	"/ dont want the tabs with one application - thats why i have to change my tablist
321c1729db5b initial checkin penk parents: diff changeset	1076	"/ sel goes to if - i want select the last selection
321c1729db5b initial checkin penk parents: diff changeset	1077	sel = 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1078	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1079	].
321c1729db5b initial checkin penk parents: diff changeset	1080	list := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	1081	(list includes:sel) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1082	list remove:sel
321c1729db5b initial checkin penk parents: diff changeset	1083	].
321c1729db5b initial checkin penk parents: diff changeset	1084	list add:sel.
321c1729db5b initial checkin penk parents: diff changeset	1085	self selectionHistoryList:list.
321c1729db5b initial checkin penk parents: diff changeset	1086	appl := self listOfApplications at:sel.
321c1729db5b initial checkin penk parents: diff changeset	1087	self doSelect:appl.
321c1729db5b initial checkin penk parents: diff changeset	1088	].
321c1729db5b initial checkin penk parents: diff changeset	1089
321c1729db5b initial checkin penk parents: diff changeset	1090	^ super update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1091	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1092
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1093	viewDirectoryDescriptionChanged
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1094
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1095
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1096	\|viewDirDescr\|
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1097
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1098	viewDirDescr := self viewDirectoryDescription value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1099	viewDirDescr ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1100	self openDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1101	] ifFalse:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1102	self closeDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1103	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1104	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1105	! !
321c1729db5b initial checkin penk parents: diff changeset	1106
321c1729db5b initial checkin penk parents: diff changeset	1107	!FileApplicationNoteBook methodsFor:'menu & actions'!
321c1729db5b initial checkin penk parents: diff changeset	1108
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1109	destroyTabAt:idx
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1110	\|app\|
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1111
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1112	app := listOfApplications at:idx.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1113	self closeSubCanvas:app.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1114	app release.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1115
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1116	"Created: / 11-01-2012 / 23:46:09 / cg"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1117	!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1118
3892 321c1729db5b initial checkin penk parents: diff changeset	1119	tabMenuAt:aTab
321c1729db5b initial checkin penk parents: diff changeset	1120	\|menu\|
321c1729db5b initial checkin penk parents: diff changeset	1121
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1122	menu := Menu decodeFromLiteralArray:self class tabMenu.
3892 321c1729db5b initial checkin penk parents: diff changeset	1123	tabMenuIndex := aTab.
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1124	menu findGuiResourcesIn:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1125	^ menu
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1126
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1127	"Modified: / 27-03-2007 / 10:57:25 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1128	! !
321c1729db5b initial checkin penk parents: diff changeset	1129
321c1729db5b initial checkin penk parents: diff changeset	1130	!FileApplicationNoteBook methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1131
321c1729db5b initial checkin penk parents: diff changeset	1132	getSameFilesModifiedFor:aAppl
321c1729db5b initial checkin penk parents: diff changeset	1133
321c1729db5b initial checkin penk parents: diff changeset	1134	\| sameFileAppl colOfChanged \|
321c1729db5b initial checkin penk parents: diff changeset	1135
321c1729db5b initial checkin penk parents: diff changeset	1136	sameFileAppl := self getSameApplicationsFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	1137	sameFileAppl notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1138	colOfChanged := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1139	sameFileAppl do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	1140	el modifiedChannel value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1141	colOfChanged add:el.
321c1729db5b initial checkin penk parents: diff changeset	1142	]
321c1729db5b initial checkin penk parents: diff changeset	1143	]
321c1729db5b initial checkin penk parents: diff changeset	1144	].
321c1729db5b initial checkin penk parents: diff changeset	1145	^ colOfChanged
321c1729db5b initial checkin penk parents: diff changeset	1146	! !
321c1729db5b initial checkin penk parents: diff changeset	1147
321c1729db5b initial checkin penk parents: diff changeset	1148	!FileApplicationNoteBook methodsFor:'selection'!
321c1729db5b initial checkin penk parents: diff changeset	1149
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1150	currentTabMenusApplication
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1151	"only valid within menu processing"
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1152
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1153	^ self listOfApplications at:tabMenuIndex
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1154	!
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1155
3892 321c1729db5b initial checkin penk parents: diff changeset	1156	doSelect:anAppl
321c1729db5b initial checkin penk parents: diff changeset	1157
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1158	\| index fileName additionalInfo\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1159
321c1729db5b initial checkin penk parents: diff changeset	1160	fileName := anAppl fileName.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	1161	index := self getIndexFor:anAppl.
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	1162	self changeFileBrowserTitleTo:(self privateTabList at:index ifAbsent:nil).
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	1163
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1164	additionalInfo := anAppl additionalInfo.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1165	self notify:(fileName isNil
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1166	ifTrue:[additionalInfo]
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1167	ifFalse:[(fileName asString contractAtBeginningTo:80),' ',additionalInfo]).
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1168	"/ self gotoFile:fileName.
3892 321c1729db5b initial checkin penk parents: diff changeset	1169	index notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1170	canvasHolder value:(anAppl window).
321c1729db5b initial checkin penk parents: diff changeset	1171	self selectedEditorPage value:index.
321c1729db5b initial checkin penk parents: diff changeset	1172	]
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1173
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1174	"Modified: / 24-10-2006 / 12:32:53 / cg"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1175	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1176
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1177	selectedApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1178	\| canvas \|
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1179
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1180	canvas := self canvasHolder value.
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1181	canvas isNil ifTrue:[ ^ nil].
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1182	^ canvas application.
3892 321c1729db5b initial checkin penk parents: diff changeset	1183	! !
321c1729db5b initial checkin penk parents: diff changeset	1184
321c1729db5b initial checkin penk parents: diff changeset	1185	!FileApplicationNoteBook methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1186
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1187	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1188	"asks for permission before closing"
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1189
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1190	self tryCloseApplications ifTrue:[
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1191	super closeRequest.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1192	^ true
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1193	].
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1194	^ false.
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1195	!
78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1196
3892 321c1729db5b initial checkin penk parents: diff changeset	1197	makeDependent
321c1729db5b initial checkin penk parents: diff changeset	1198
321c1729db5b initial checkin penk parents: diff changeset	1199	self viewDirectoryDescription addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1200	self currentDirectories addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1201	!
321c1729db5b initial checkin penk parents: diff changeset	1202
321c1729db5b initial checkin penk parents: diff changeset	1203	postOpenAsSubcanvasWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1204
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1205	self viewDirectoryDescriptionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	1206	^ super postOpenAsSubcanvasWith:aBuilder.
321c1729db5b initial checkin penk parents: diff changeset	1207	!
321c1729db5b initial checkin penk parents: diff changeset	1208
321c1729db5b initial checkin penk parents: diff changeset	1209	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1210	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1211
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1212	self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1213	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	1214	!
321c1729db5b initial checkin penk parents: diff changeset	1215
321c1729db5b initial checkin penk parents: diff changeset	1216	preBuildWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1217
321c1729db5b initial checkin penk parents: diff changeset	1218	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1219	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	1220	].
321c1729db5b initial checkin penk parents: diff changeset	1221	^ super preBuildWith:aBuilder.
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1222	!
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1223
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1224	tryCloseApplications
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1225
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1226	self listOfApplications do:[:appl\|
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	1227	appl doClose ifFalse:[
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1228	^ false.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1229	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1230	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1231	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	1232	! !
321c1729db5b initial checkin penk parents: diff changeset	1233
321c1729db5b initial checkin penk parents: diff changeset	1234	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	1235
321c1729db5b initial checkin penk parents: diff changeset	1236	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1237	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1238
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1239	^ 'Archive %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1240
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1241	"Modified: / 01-03-2007 / 21:43:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1242	! !
321c1729db5b initial checkin penk parents: diff changeset	1243
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1244	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1245
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1246	flyByHelpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1247	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1248	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1249
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1250	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1251	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1252
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1253	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1254	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1255	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1256
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1257	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1258
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1259	^super flyByHelpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1260
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1261	#closeTabButton
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1262	'Close Archiver Tab'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1263
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1264	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1265	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1266
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1267	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1268	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1269
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1270	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1271	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1272
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1273	)
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	helpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1277	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1278	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1279
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1280	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1281	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1282
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1283	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1284	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1285	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1286
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1287	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1288
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1289	^super helpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1290
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1291	#closeButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1292	'Close Archiver'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1293
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1294	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1295	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1296
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1297	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1298	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1299
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1300	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1301	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1302
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1303	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1304	! !
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1305
3892 321c1729db5b initial checkin penk parents: diff changeset	1306	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	1307
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1308	extract28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1309	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1310	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1311
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1312	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1313	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1314
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1315	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1316	self extract28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1317	ImageEditor openOnClass:self andSelector:#extract28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1318	Icon flushCachedIcons
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1319	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1320
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1321	<resource: #image>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1322
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1323	^Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1324	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class extract28x28Icon'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1325	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	1326	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1327	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@CQDMDP0@@@@@EUUAP@@L3L3L3@@@ @PUUTA@@@4QCQDL@@BHAAUUPD@@CL3L3L"H"H"DEUU
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1328	@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	1329	QC@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1330	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1331	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1332	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1333	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1334
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1335	removeBug28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1336	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1337	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1338
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1339	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1340	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1341
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1342	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1343	self removeBug28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1344	ImageEditor openOnClass:self andSelector:#removeBug28x28Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1345	Icon flushCachedIcons
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1346	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1347
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1348	<resource: #image>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1349
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1350	^Icon
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1351	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeBug28x28Icon'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1352	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	1353	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	1354	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	1355	@@@@@@@@@@@@@@@@@@@@@@@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	1356	@@@@@@@@@@@@@@@@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	1357	C0@^@@^@O@@C0@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1358	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1359
3892 321c1729db5b initial checkin penk parents: diff changeset	1360	removeError
321c1729db5b initial checkin penk parents: diff changeset	1361	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1362	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1363
321c1729db5b initial checkin penk parents: diff changeset	1364	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1365	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1366
321c1729db5b initial checkin penk parents: diff changeset	1367	"
321c1729db5b initial checkin penk parents: diff changeset	1368	self removeError inspect
321c1729db5b initial checkin penk parents: diff changeset	1369	ImageEditor openOnClass:self andSelector:#removeError
321c1729db5b initial checkin penk parents: diff changeset	1370	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	1371	"
321c1729db5b initial checkin penk parents: diff changeset	1372
321c1729db5b initial checkin penk parents: diff changeset	1373	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	1374
321c1729db5b initial checkin penk parents: diff changeset	1375	^Icon
321c1729db5b initial checkin penk parents: diff changeset	1376	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeError'
321c1729db5b initial checkin penk parents: diff changeset	1377	ifAbsentPut:[(Depth8Image new) width: 28; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	1378	@@@@@@@@@@@FA @@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A X@@@XF@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1379	@@@@@@@FA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF
321c1729db5b initial checkin penk parents: diff changeset	1380	@@@FA @@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@A X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1381	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1382	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1383	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1384	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1385	! !
321c1729db5b initial checkin penk parents: diff changeset	1386
321c1729db5b initial checkin penk parents: diff changeset	1387	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	1388
321c1729db5b initial checkin penk parents: diff changeset	1389	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1390	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1391	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1392
321c1729db5b initial checkin penk parents: diff changeset	1393	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1394	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1395
321c1729db5b initial checkin penk parents: diff changeset	1396	"
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1397	UIPainter new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1398	FileApplicationNoteBook::ArchiveViewApplication new openInterface:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1399	FileApplicationNoteBook::ArchiveViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	1400	"
321c1729db5b initial checkin penk parents: diff changeset	1401
321c1729db5b initial checkin penk parents: diff changeset	1402	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	1403
321c1729db5b initial checkin penk parents: diff changeset	1404	^
321c1729db5b initial checkin penk parents: diff changeset	1405	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	1406	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1407	#window:
321c1729db5b initial checkin penk parents: diff changeset	1408	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	1409	#label: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1410	#name: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1411	#min: #(#Point 10 10)
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1412	#bounds: #(#Rectangle 16 46 692 538)
3892 321c1729db5b initial checkin penk parents: diff changeset	1413	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	1414	)
321c1729db5b initial checkin penk parents: diff changeset	1415	#component:
321c1729db5b initial checkin penk parents: diff changeset	1416	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1417	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1418	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	1419	#name: 'MenuArchive'
3892 321c1729db5b initial checkin penk parents: diff changeset	1420	#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	1421	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1422	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	1423	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	1424	)
321c1729db5b initial checkin penk parents: diff changeset	1425	#(#'FileBrowserV2UISpecifications::PanelSpec'
321c1729db5b initial checkin penk parents: diff changeset	1426	#name: 'VerticalPanel'
321c1729db5b initial checkin penk parents: diff changeset	1427	#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	1428	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1429	#whichView: #last
321c1729db5b initial checkin penk parents: diff changeset	1430	#orientation: #vertical
321c1729db5b initial checkin penk parents: diff changeset	1431	#visibility: #errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	1432	#component:
321c1729db5b initial checkin penk parents: diff changeset	1433	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1434	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1435	#(#DataSetSpec
321c1729db5b initial checkin penk parents: diff changeset	1436	#name: 'Table1'
321c1729db5b initial checkin penk parents: diff changeset	1437	#model: #selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	1438	#menu: #fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1439	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1440	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1441	#dataList: #archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	1442	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1443	#has3Dsepartors: false
321c1729db5b initial checkin penk parents: diff changeset	1444	#doubleClickSelector: #dblClick
321c1729db5b initial checkin penk parents: diff changeset	1445	#columnHolder: #tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1446	#multipleSelectOk: true
321c1729db5b initial checkin penk parents: diff changeset	1447	#verticalSpacing: 0
321c1729db5b initial checkin penk parents: diff changeset	1448	#postBuildCallback: #postBuildFileTable:
321c1729db5b initial checkin penk parents: diff changeset	1449	#properties:
321c1729db5b initial checkin penk parents: diff changeset	1450	#(#PropertyListDictionary
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1451	#enterSelector: #dropEnter:
3892 321c1729db5b initial checkin penk parents: diff changeset	1452	#dragArgument: #archivApplication
321c1729db5b initial checkin penk parents: diff changeset	1453	#startDragSelector: #doStartDrag:in:
321c1729db5b initial checkin penk parents: diff changeset	1454	#displayObjectSelector: #getDisplayObjects:
321c1729db5b initial checkin penk parents: diff changeset	1455	#dropObjectSelector: #getDropObjects:
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1456	#overSelector: nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1457	#dropArgument: #archivApplication
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1458	#canDropSelector: #canDrop:
af8ef74cb43b next stage penk parents: 3950 diff changeset	1459	#leaveSelector: #dropLeave:
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1460	#dropSelector: #doDrop:
3892 321c1729db5b initial checkin penk parents: diff changeset	1461	)
321c1729db5b initial checkin penk parents: diff changeset	1462	)
321c1729db5b initial checkin penk parents: diff changeset	1463	#(#SequenceViewSpec
321c1729db5b initial checkin penk parents: diff changeset	1464	#name: 'ErrorList'
321c1729db5b initial checkin penk parents: diff changeset	1465	#initiallyDisabled: true
321c1729db5b initial checkin penk parents: diff changeset	1466	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1467	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1468	#backgroundColor: #(#Color 100.0 100.0 100.0)
321c1729db5b initial checkin penk parents: diff changeset	1469	#isMultiSelect: true
321c1729db5b initial checkin penk parents: diff changeset	1470	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1471	#sequenceList: #errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	1472	)
321c1729db5b initial checkin penk parents: diff changeset	1473	)
321c1729db5b initial checkin penk parents: diff changeset	1474
321c1729db5b initial checkin penk parents: diff changeset	1475	)
321c1729db5b initial checkin penk parents: diff changeset	1476	#handles: #(#Any 0.5 1.0)
321c1729db5b initial checkin penk parents: diff changeset	1477	)
321c1729db5b initial checkin penk parents: diff changeset	1478	)
321c1729db5b initial checkin penk parents: diff changeset	1479
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
321c1729db5b initial checkin penk parents: diff changeset	1484	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	1485
321c1729db5b initial checkin penk parents: diff changeset	1486	fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1487	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1488	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1489
321c1729db5b initial checkin penk parents: diff changeset	1490	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1491	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1492
321c1729db5b initial checkin penk parents: diff changeset	1493	"
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1494	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#fileListMenu
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1495	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication fileListMenu)) startUp
3892 321c1729db5b initial checkin penk parents: diff changeset	1496	"
321c1729db5b initial checkin penk parents: diff changeset	1497
321c1729db5b initial checkin penk parents: diff changeset	1498	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1499
321c1729db5b initial checkin penk parents: diff changeset	1500	^
321c1729db5b initial checkin penk parents: diff changeset	1501	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1502	#(
321c1729db5b initial checkin penk parents: diff changeset	1503	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1504	#enabled: #hasListEntriesHolder
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1505	#label: 'Select All'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1506	#itemValue: #selectAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1507	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1508	)
321c1729db5b initial checkin penk parents: diff changeset	1509	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1510	#label: '-'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1511	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1512	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1513	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1514	#label: 'Copy Filenames'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1515	#itemValue: #copyFilesToClipboard
3892 321c1729db5b initial checkin penk parents: diff changeset	1516	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1517	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1518	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1519	#label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	1520	)
321c1729db5b initial checkin penk parents: diff changeset	1521	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1522	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1523	#label: 'Extract to Directory...'
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1524	#itemValue: #extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1525	#translateLabel: true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1526	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1527	#(#MenuItem
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1528	#label: 'Extract All to Directory...'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1529	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1530	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1531	)
321c1729db5b initial checkin penk parents: diff changeset	1532	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1533	#enabled: #canDelete
4476 e4d58ec911c8 menu item Claus Gittinger <cg@exept.de> parents: 4475 diff changeset	1534	#label: 'Delete from Archive'
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	1535	#itemValue: #removeFilesFromArchive
3892 321c1729db5b initial checkin penk parents: diff changeset	1536	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1537	#shortcutKey: #Delete
3892 321c1729db5b initial checkin penk parents: diff changeset	1538	)
321c1729db5b initial checkin penk parents: diff changeset	1539	#(#MenuItem
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1540	#label: '-'
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1541	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1542	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1543	#enabled: #canViewFile
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1544	#label: 'Show Contents'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1545	#itemValue: #viewFile
3892 321c1729db5b initial checkin penk parents: diff changeset	1546	#translateLabel: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1547	#isVisible: #closeButtonShown
3892 321c1729db5b initial checkin penk parents: diff changeset	1548	)
321c1729db5b initial checkin penk parents: diff changeset	1549	)
321c1729db5b initial checkin penk parents: diff changeset	1550	nil
321c1729db5b initial checkin penk parents: diff changeset	1551	nil
321c1729db5b initial checkin penk parents: diff changeset	1552	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1553
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1554	"Modified: / 12-01-2012 / 00:34:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1555	!
321c1729db5b initial checkin penk parents: diff changeset	1556
321c1729db5b initial checkin penk parents: diff changeset	1557	menu
321c1729db5b initial checkin penk parents: diff changeset	1558	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1559	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1560
321c1729db5b initial checkin penk parents: diff changeset	1561	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1562	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1563
321c1729db5b initial checkin penk parents: diff changeset	1564	"
321c1729db5b initial checkin penk parents: diff changeset	1565	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	1566	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1567	"
321c1729db5b initial checkin penk parents: diff changeset	1568
321c1729db5b initial checkin penk parents: diff changeset	1569	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1570
321c1729db5b initial checkin penk parents: diff changeset	1571	^
321c1729db5b initial checkin penk parents: diff changeset	1572	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1573	#(
321c1729db5b initial checkin penk parents: diff changeset	1574	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1575	#activeHelpKey: #stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1576	#enabled: #enableStopButton
3892 321c1729db5b initial checkin penk parents: diff changeset	1577	#label: 'Stop'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1578	#itemValue: #doStopProcess
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1579	#nameKey: #Stop
3892 321c1729db5b initial checkin penk parents: diff changeset	1580	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1581	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	1582	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)
321c1729db5b initial checkin penk parents: diff changeset	1583	)
321c1729db5b initial checkin penk parents: diff changeset	1584	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1585	#activeHelpKey: #extractItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1586	#enabled: #hasListEntriesHolder
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1587	#label: 'Extract'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1588	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1589	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1590	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1591	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #extract28x28Icon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1592	)
321c1729db5b initial checkin penk parents: diff changeset	1593	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1594	#activeHelpKey: #removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1595	#enabled: #enableRemoveErrorOutput
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1596	#label: 'Remove Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1597	#itemValue: #removeErrorOutput
3892 321c1729db5b initial checkin penk parents: diff changeset	1598	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1599	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1600	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #removeBug28x28Icon)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1601	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1602	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1603	#activeHelpKey: #closeTabButton
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1604	#label: 'Close'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1605	#itemValue: #doClose
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1606	#translateLabel: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1607	#isButton: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1608	#startGroup: #right
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1609	#isVisible: #closeButtonShown
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1610	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	1611	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1612	)
321c1729db5b initial checkin penk parents: diff changeset	1613	)
321c1729db5b initial checkin penk parents: diff changeset	1614	nil
321c1729db5b initial checkin penk parents: diff changeset	1615	nil
321c1729db5b initial checkin penk parents: diff changeset	1616	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1617
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1618	"Modified: / 12-01-2012 / 00:34:06 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1619	! !
321c1729db5b initial checkin penk parents: diff changeset	1620
321c1729db5b initial checkin penk parents: diff changeset	1621	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1622
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1623	canOpenItem:anItem
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1624	\|suffix mimeType\|
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1625
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1626	"/ "avoid autoloading the archiver if its definitely not an archive"
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1627	"/ OperatingSystem isUNIXlike ifFalse:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1628	"/ "until Archiver supports windows archives..."
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1629	"/ ^ false.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1630	"/ ].
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1631
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1632	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	1633	( #('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	1634
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1635	( #('xlsx' 'ets') includes:suffix) ifTrue:[^ true].
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1636
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1637	mimeType := anItem mimeType.
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1638	( #('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	1639
5315 7384fe48ec1e * empty log message * Claus Gittinger <cg@exept.de> parents: 5307 diff changeset	1640	Archiver isNil ifTrue:[^ false].
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1641	^ (Archiver classForMimeType:mimeType fileName:anItem fileName) notNil
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1642
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1643	"Modified: / 29-11-2011 / 18:59:35 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1644	!
321c1729db5b initial checkin penk parents: diff changeset	1645
321c1729db5b initial checkin penk parents: diff changeset	1646	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	1647
321c1729db5b initial checkin penk parents: diff changeset	1648	^ false
321c1729db5b initial checkin penk parents: diff changeset	1649	! !
321c1729db5b initial checkin penk parents: diff changeset	1650
321c1729db5b initial checkin penk parents: diff changeset	1651	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
321c1729db5b initial checkin penk parents: diff changeset	1652
321c1729db5b initial checkin penk parents: diff changeset	1653	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1654	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1655	by the DataSetBuilder of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1656
321c1729db5b initial checkin penk parents: diff changeset	1657	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1658	the DataSetBuilder may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1659
321c1729db5b initial checkin penk parents: diff changeset	1660	"
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1661	DataSetBuilder new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#tableColumns
3892 321c1729db5b initial checkin penk parents: diff changeset	1662	"
321c1729db5b initial checkin penk parents: diff changeset	1663
321c1729db5b initial checkin penk parents: diff changeset	1664	<resource: #tableColumns>
321c1729db5b initial checkin penk parents: diff changeset	1665
321c1729db5b initial checkin penk parents: diff changeset	1666	^#(
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1667	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1668	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1669	labelActionSelector: sortFileListsBy:
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1670	labelActionArgument: 'directory'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1671	width: 25
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1672	minWidth: 20
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1673	height: 16
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1674	model: icon
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1675	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1676	isResizeable: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1677	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1678	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1679	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1680	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1681	label: 'File Name'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1682	id: 'fileName'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1683	labelAlignment: left
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	model: fileName
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1686	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1687	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1688	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1689	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1690	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1691	label: 'Perm'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1692	id: 'permissions'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1693	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1694	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1695	width: 75
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1696	model: permissions
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1697	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1698	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1699	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1700	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1701	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1702	label: 'Version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1703	id: 'version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1704	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1705	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1706	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1707	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1708	model: version
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1709	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1710	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1711	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1712	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1713	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1714	label: 'Type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1715	id: 'type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1716	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1717	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1718	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1719	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1720	model: type
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1721	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1722	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1723	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1724	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1725	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1726	label: 'Owner/Group'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1727	id: 'ownerGroup'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1728	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1729	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1730	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1731	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1732	model: ownerGroup
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1733	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1734	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1735	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1736	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1737	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1738	label: 'Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1739	id: 'size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1740	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1741	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1742	width: 80
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1743	model: size
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1744	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1745	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1746	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1747	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1748	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1749	label: 'Date & Time'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1750	id: 'dateAndTime'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1751	labelAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1752	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1753	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1754	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1755	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1756	model: dateAndTime
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1757	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1758	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1759	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1760	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1761	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1762	label: 'Method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1763	id: 'method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1764	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1765	columnAlignment: center
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1766	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1767	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1768	model: method
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1769	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1770	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1771	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1772	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1773	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1774	label: 'CRC'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1775	id: 'crc'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1776	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1777	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1778	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1779	model: crc
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1780	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1781	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1782	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1783	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1784	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1785	label: 'Compress Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1786	id: 'compressSize'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1787	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1788	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1789	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1790	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1791	model: compressSize
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1792	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1793	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1794	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1795	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1796	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1797	label: 'Ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1798	id: 'ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1799	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1800	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1801	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1802	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1803	model: ratio
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1804	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1805	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1806	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1807	)
321c1729db5b initial checkin penk parents: diff changeset	1808	)
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1809
3892 321c1729db5b initial checkin penk parents: diff changeset	1810	! !
321c1729db5b initial checkin penk parents: diff changeset	1811
321c1729db5b initial checkin penk parents: diff changeset	1812	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	1813
321c1729db5b initial checkin penk parents: diff changeset	1814	archiver
321c1729db5b initial checkin penk parents: diff changeset	1815	"return the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1816
321c1729db5b initial checkin penk parents: diff changeset	1817	^ archiver
321c1729db5b initial checkin penk parents: diff changeset	1818	!
321c1729db5b initial checkin penk parents: diff changeset	1819
321c1729db5b initial checkin penk parents: diff changeset	1820	archiver:something
321c1729db5b initial checkin penk parents: diff changeset	1821	"set the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1822
321c1729db5b initial checkin penk parents: diff changeset	1823	archiver := something.
321c1729db5b initial checkin penk parents: diff changeset	1824	!
321c1729db5b initial checkin penk parents: diff changeset	1825
321c1729db5b initial checkin penk parents: diff changeset	1826	columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1827	"return the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1828
321c1729db5b initial checkin penk parents: diff changeset	1829	^ columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1830	!
321c1729db5b initial checkin penk parents: diff changeset	1831
321c1729db5b initial checkin penk parents: diff changeset	1832	columnDescriptors:aListOfColumns
321c1729db5b initial checkin penk parents: diff changeset	1833	"set the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1834
321c1729db5b initial checkin penk parents: diff changeset	1835	columnDescriptors = aListOfColumns ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1836	^ self
321c1729db5b initial checkin penk parents: diff changeset	1837	].
321c1729db5b initial checkin penk parents: diff changeset	1838
321c1729db5b initial checkin penk parents: diff changeset	1839	columnDescriptors := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1840
321c1729db5b initial checkin penk parents: diff changeset	1841	aListOfColumns keysAndValuesDo:[:anIndex :aDesc\| \|col\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1842	col := aDesc isSequenceable ifTrue:[DataSetColumnSpec decodeFromLiteralArray:aDesc]
3892 321c1729db5b initial checkin penk parents: diff changeset	1843	ifFalse:[aDesc].
321c1729db5b initial checkin penk parents: diff changeset	1844	columnDescriptors add:col.
321c1729db5b initial checkin penk parents: diff changeset	1845	].
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1846
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1847	"Modified: / 27-03-2007 / 08:46:06 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1848	!
321c1729db5b initial checkin penk parents: diff changeset	1849
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1850	item:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1851	super item:anItem.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1852
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	1853	self removeErrorOutput.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1854	archiver := Archiver newFor:self fileName.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1855
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1856	archiver notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1857	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1858	makeProcessFor:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1859	self archiver:archiver.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1860	self setColumnsForArchiver.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1861	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1862	with:'Setup archive'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1863	^ true
321c1729db5b initial checkin penk parents: diff changeset	1864	].
321c1729db5b initial checkin penk parents: diff changeset	1865	^ false
321c1729db5b initial checkin penk parents: diff changeset	1866	!
321c1729db5b initial checkin penk parents: diff changeset	1867
321c1729db5b initial checkin penk parents: diff changeset	1868	temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1869	"return the value of the instance variable 'temporaryDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1870
321c1729db5b initial checkin penk parents: diff changeset	1871	temporaryDirectory isNil ifTrue:[
13112 ade9575b2a32 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12830 diff changeset	1872	temporaryDirectory := Filename newTemporaryDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1873	].
321c1729db5b initial checkin penk parents: diff changeset	1874	^ temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1875	! !
321c1729db5b initial checkin penk parents: diff changeset	1876
321c1729db5b initial checkin penk parents: diff changeset	1877	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	1878
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1879	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1880	self item:anItem.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1881	self clearFileList.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1882	self listAllFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	1883	^ true
321c1729db5b initial checkin penk parents: diff changeset	1884	!
321c1729db5b initial checkin penk parents: diff changeset	1885
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1886	clearFileList
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1887
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1888	self archiveFileList value removeAll.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1889	!
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1890
3892 321c1729db5b initial checkin penk parents: diff changeset	1891	copyFilesToClipboard
321c1729db5b initial checkin penk parents: diff changeset	1892	\|sel list stream\|
321c1729db5b initial checkin penk parents: diff changeset	1893
321c1729db5b initial checkin penk parents: diff changeset	1894	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1895	list := self archiveFileList.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	1896	(sel notEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1897	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	1898	sel do:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	1899	stream nextPutAll:(key fileName asString).
321c1729db5b initial checkin penk parents: diff changeset	1900	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	1901	].
6033 9393b570b70a * empty log message * ca parents: 5968 diff changeset	1902	self window setClipboardText:stream contents.
3892 321c1729db5b initial checkin penk parents: diff changeset	1903	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1904	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1905
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1906	"Modified (format): / 29-11-2011 / 18:57:40 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1907	!
321c1729db5b initial checkin penk parents: diff changeset	1908
321c1729db5b initial checkin penk parents: diff changeset	1909	dblClick
321c1729db5b initial checkin penk parents: diff changeset	1910
321c1729db5b initial checkin penk parents: diff changeset	1911	self viewFile.
321c1729db5b initial checkin penk parents: diff changeset	1912	!
321c1729db5b initial checkin penk parents: diff changeset	1913
321c1729db5b initial checkin penk parents: diff changeset	1914	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	1915	\| archiver \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1916
3892 321c1729db5b initial checkin penk parents: diff changeset	1917	self stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1918	archiver := self archiver.
321c1729db5b initial checkin penk parents: diff changeset	1919	archiver notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1920	self archiver stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1921	].
321c1729db5b initial checkin penk parents: diff changeset	1922	self enableStopButton value:false.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1923
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1924	"Modified (format): / 29-11-2011 / 18:57:50 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1925	!
321c1729db5b initial checkin penk parents: diff changeset	1926
321c1729db5b initial checkin penk parents: diff changeset	1927	removeErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1928
321c1729db5b initial checkin penk parents: diff changeset	1929	self viewErrorList value:false.
321c1729db5b initial checkin penk parents: diff changeset	1930	self errorListHolder removeAll.
321c1729db5b initial checkin penk parents: diff changeset	1931	!
321c1729db5b initial checkin penk parents: diff changeset	1932
321c1729db5b initial checkin penk parents: diff changeset	1933	removeTemporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1934
321c1729db5b initial checkin penk parents: diff changeset	1935	temporaryDirectory notNil ifTrue:[
4923 1aced17a14a7 Do not use obsolete FileDirectory Stefan Vogel <sv@exept.de> parents: 4913 diff changeset	1936	temporaryDirectory removeDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1937	temporaryDirectory := nil.
321c1729db5b initial checkin penk parents: diff changeset	1938	].
321c1729db5b initial checkin penk parents: diff changeset	1939	!
321c1729db5b initial checkin penk parents: diff changeset	1940
321c1729db5b initial checkin penk parents: diff changeset	1941	selectAll
321c1729db5b initial checkin penk parents: diff changeset	1942
321c1729db5b initial checkin penk parents: diff changeset	1943	\| sel listOfFiles\|
321c1729db5b initial checkin penk parents: diff changeset	1944
321c1729db5b initial checkin penk parents: diff changeset	1945	sel := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1946	listOfFiles := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	1947	1 to:(listOfFiles size) do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	1948	sel add:el
321c1729db5b initial checkin penk parents: diff changeset	1949	].
321c1729db5b initial checkin penk parents: diff changeset	1950	self selectionHolder value:sel.
321c1729db5b initial checkin penk parents: diff changeset	1951	!
321c1729db5b initial checkin penk parents: diff changeset	1952
321c1729db5b initial checkin penk parents: diff changeset	1953	updateFileBrowserIfPresentWith:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	1954
321c1729db5b initial checkin penk parents: diff changeset	1955	\| master\|
321c1729db5b initial checkin penk parents: diff changeset	1956
321c1729db5b initial checkin penk parents: diff changeset	1957	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	1958	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1959	master updateAndSelect:(OrderedCollection with:aDirectory).
321c1729db5b initial checkin penk parents: diff changeset	1960	].
321c1729db5b initial checkin penk parents: diff changeset	1961	!
321c1729db5b initial checkin penk parents: diff changeset	1962
321c1729db5b initial checkin penk parents: diff changeset	1963	viewFile
321c1729db5b initial checkin penk parents: diff changeset	1964
321c1729db5b initial checkin penk parents: diff changeset	1965	\| master item file tempDir\|
321c1729db5b initial checkin penk parents: diff changeset	1966
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	1967	self canViewFile ifFalse:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	1968	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	1969	self selectionHolder value size = 1 ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1970	Dialog warn:'only one file have to be selected'.
321c1729db5b initial checkin penk parents: diff changeset	1971	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1972	].
321c1729db5b initial checkin penk parents: diff changeset	1973	tempDir := self temporaryDirectory.
321c1729db5b initial checkin penk parents: diff changeset	1974	self extractSelectedFilesTo:tempDir askForExtractOptions:false.
321c1729db5b initial checkin penk parents: diff changeset	1975	process notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1976	process waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	1977	].
321c1729db5b initial checkin penk parents: diff changeset	1978	file := tempDir construct:self selectionHolder value first fileName.
321c1729db5b initial checkin penk parents: diff changeset	1979	file exists ifTrue:[
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1980	item := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	1981	].
321c1729db5b initial checkin penk parents: diff changeset	1982	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1983	master openApplByFileItem:item.
321c1729db5b initial checkin penk parents: diff changeset	1984	].
321c1729db5b initial checkin penk parents: diff changeset	1985	! !
321c1729db5b initial checkin penk parents: diff changeset	1986
321c1729db5b initial checkin penk parents: diff changeset	1987	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	1988
321c1729db5b initial checkin penk parents: diff changeset	1989	archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	1990
321c1729db5b initial checkin penk parents: diff changeset	1991	archiveFileList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1992	archiveFileList := List new.
321c1729db5b initial checkin penk parents: diff changeset	1993	archiveFileList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1994	].
321c1729db5b initial checkin penk parents: diff changeset	1995	^ archiveFileList.
321c1729db5b initial checkin penk parents: diff changeset	1996	!
321c1729db5b initial checkin penk parents: diff changeset	1997
321c1729db5b initial checkin penk parents: diff changeset	1998	enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1999	"return/create the 'enableRemoveErrorOutput' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2000
321c1729db5b initial checkin penk parents: diff changeset	2001	enableRemoveErrorOutput isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2002	enableRemoveErrorOutput := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2003	].
321c1729db5b initial checkin penk parents: diff changeset	2004	^ enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	2005	!
321c1729db5b initial checkin penk parents: diff changeset	2006
321c1729db5b initial checkin penk parents: diff changeset	2007	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	2008
321c1729db5b initial checkin penk parents: diff changeset	2009	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2010	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2011	].
321c1729db5b initial checkin penk parents: diff changeset	2012	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	2013	!
321c1729db5b initial checkin penk parents: diff changeset	2014
321c1729db5b initial checkin penk parents: diff changeset	2015	errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	2016
321c1729db5b initial checkin penk parents: diff changeset	2017	errorListHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2018	errorListHolder := List new.
321c1729db5b initial checkin penk parents: diff changeset	2019	].
321c1729db5b initial checkin penk parents: diff changeset	2020	^ errorListHolder.
321c1729db5b initial checkin penk parents: diff changeset	2021	!
321c1729db5b initial checkin penk parents: diff changeset	2022
321c1729db5b initial checkin penk parents: diff changeset	2023	errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	2024
321c1729db5b initial checkin penk parents: diff changeset	2025	errorListVisibilityHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2026	errorListVisibilityHolder := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2027	].
321c1729db5b initial checkin penk parents: diff changeset	2028	^ errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	2029	!
321c1729db5b initial checkin penk parents: diff changeset	2030
321c1729db5b initial checkin penk parents: diff changeset	2031	hasSelectionInList
321c1729db5b initial checkin penk parents: diff changeset	2032	\| sel \|
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2033
3892 321c1729db5b initial checkin penk parents: diff changeset	2034	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2035	^ sel notEmptyOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	2036	!
321c1729db5b initial checkin penk parents: diff changeset	2037
321c1729db5b initial checkin penk parents: diff changeset	2038	selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	2039	selectionHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2040	selectionHolder := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	2041	selectionHolder addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	2042	].
321c1729db5b initial checkin penk parents: diff changeset	2043	^ selectionHolder.
321c1729db5b initial checkin penk parents: diff changeset	2044	!
321c1729db5b initial checkin penk parents: diff changeset	2045
321c1729db5b initial checkin penk parents: diff changeset	2046	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	2047
321c1729db5b initial checkin penk parents: diff changeset	2048	tableColumns isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2049	tableColumns := self class tableColumns asValue.
321c1729db5b initial checkin penk parents: diff changeset	2050	].
321c1729db5b initial checkin penk parents: diff changeset	2051	^ tableColumns.
321c1729db5b initial checkin penk parents: diff changeset	2052	!
321c1729db5b initial checkin penk parents: diff changeset	2053
321c1729db5b initial checkin penk parents: diff changeset	2054	viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	2055	"return/create the 'viewErrorList' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2056
321c1729db5b initial checkin penk parents: diff changeset	2057	viewErrorList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2058	viewErrorList := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2059	viewErrorList onChangeSend:#viewErrorListChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	2060	].
321c1729db5b initial checkin penk parents: diff changeset	2061	^ viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	2062	! !
321c1729db5b initial checkin penk parents: diff changeset	2063
321c1729db5b initial checkin penk parents: diff changeset	2064	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	2065
321c1729db5b initial checkin penk parents: diff changeset	2066	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2067	changedObject == self archiveFileList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2068	self hasListEntriesHolder value:(changedObject notEmpty).
321c1729db5b initial checkin penk parents: diff changeset	2069	^ self
321c1729db5b initial checkin penk parents: diff changeset	2070	].
321c1729db5b initial checkin penk parents: diff changeset	2071	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2072	!
321c1729db5b initial checkin penk parents: diff changeset	2073
321c1729db5b initial checkin penk parents: diff changeset	2074	viewErrorListChanged
321c1729db5b initial checkin penk parents: diff changeset	2075
321c1729db5b initial checkin penk parents: diff changeset	2076	\| viewListValue\|
321c1729db5b initial checkin penk parents: diff changeset	2077
321c1729db5b initial checkin penk parents: diff changeset	2078	viewListValue := self viewErrorList value.
321c1729db5b initial checkin penk parents: diff changeset	2079	self enableRemoveErrorOutput value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	2080	self errorListVisibilityHolder value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	2081	! !
321c1729db5b initial checkin penk parents: diff changeset	2082
321c1729db5b initial checkin penk parents: diff changeset	2083	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
321c1729db5b initial checkin penk parents: diff changeset	2084
321c1729db5b initial checkin penk parents: diff changeset	2085	getErrorBlock
321c1729db5b initial checkin penk parents: diff changeset	2086
321c1729db5b initial checkin penk parents: diff changeset	2087	^
321c1729db5b initial checkin penk parents: diff changeset	2088	[: x \|
321c1729db5b initial checkin penk parents: diff changeset	2089	self viewErrorList value:true.
321c1729db5b initial checkin penk parents: diff changeset	2090	self errorListHolder value add:x.
321c1729db5b initial checkin penk parents: diff changeset	2091	]
321c1729db5b initial checkin penk parents: diff changeset	2092	!
321c1729db5b initial checkin penk parents: diff changeset	2093
321c1729db5b initial checkin penk parents: diff changeset	2094	getErrorStream
321c1729db5b initial checkin penk parents: diff changeset	2095
321c1729db5b initial checkin penk parents: diff changeset	2096	\|errStream\|
321c1729db5b initial checkin penk parents: diff changeset	2097
321c1729db5b initial checkin penk parents: diff changeset	2098	errStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2099	errStream nextPutLineBlock:(self getErrorBlock).
321c1729db5b initial checkin penk parents: diff changeset	2100	^ errStream
321c1729db5b initial checkin penk parents: diff changeset	2101	!
321c1729db5b initial checkin penk parents: diff changeset	2102
321c1729db5b initial checkin penk parents: diff changeset	2103	getOutBlock
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2104	\|archiveOutputParser\|
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2105
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2106	archiveOutputParser := archiver listFilesReader.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2107
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2108	^ [: line \| \|item\|
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2109	item := archiveOutputParser parseLine:line forItemClass:ArchivItem.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2110	item notNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2111	self archiveFileList value add:item
321c1729db5b initial checkin penk parents: diff changeset	2112	].
321c1729db5b initial checkin penk parents: diff changeset	2113	]
321c1729db5b initial checkin penk parents: diff changeset	2114	!
321c1729db5b initial checkin penk parents: diff changeset	2115
321c1729db5b initial checkin penk parents: diff changeset	2116	getOutStream
321c1729db5b initial checkin penk parents: diff changeset	2117
321c1729db5b initial checkin penk parents: diff changeset	2118	\|outStream\|
321c1729db5b initial checkin penk parents: diff changeset	2119
321c1729db5b initial checkin penk parents: diff changeset	2120	outStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2121	outStream nextPutLineBlock:(self getOutBlock).
321c1729db5b initial checkin penk parents: diff changeset	2122	^ outStream
321c1729db5b initial checkin penk parents: diff changeset	2123	!
321c1729db5b initial checkin penk parents: diff changeset	2124
321c1729db5b initial checkin penk parents: diff changeset	2125	makeProcessFor:aBlock
321c1729db5b initial checkin penk parents: diff changeset	2126	self makeProcessFor:aBlock with:''
321c1729db5b initial checkin penk parents: diff changeset	2127	!
321c1729db5b initial checkin penk parents: diff changeset	2128
321c1729db5b initial checkin penk parents: diff changeset	2129	makeProcessFor:aBlock with:string
321c1729db5b initial checkin penk parents: diff changeset	2130	process notNil ifTrue:[
6054 ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2131	(process waitUntilTerminatedWithTimeout:10) ifTrue:[
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2132	(Dialog confirm:'Terminate the current active archive operation ?') ifFalse:[^ self].
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2133	process terminate.
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2134	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2135	terminateByMe ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2136	terminateByMe := false.
321c1729db5b initial checkin penk parents: diff changeset	2137	^ self
321c1729db5b initial checkin penk parents: diff changeset	2138	].
321c1729db5b initial checkin penk parents: diff changeset	2139	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2140
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2141	process := [ [
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2142	self notify:string.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2143	aBlock value.
6190 b3ab1d955319 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	2144	self notify:nil.
4890 b3f7edcf4981 Stream streamErrorSignal -> StreamError Stefan Vogel <sv@exept.de> parents: 4880 diff changeset	2145	] ensure:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2146	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2147	self enableStopButton value:false.
321c1729db5b initial checkin penk parents: diff changeset	2148	]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2149	] newProcess.
3892 321c1729db5b initial checkin penk parents: diff changeset	2150	process priority:(Processor systemBackgroundPriority).
321c1729db5b initial checkin penk parents: diff changeset	2151	process name:'ArchiveApplicationProcess'.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2152	process resume.
3892 321c1729db5b initial checkin penk parents: diff changeset	2153	self enableStopButton value:true.
321c1729db5b initial checkin penk parents: diff changeset	2154	!
321c1729db5b initial checkin penk parents: diff changeset	2155
321c1729db5b initial checkin penk parents: diff changeset	2156	setColumnsForArchiver
321c1729db5b initial checkin penk parents: diff changeset	2157
321c1729db5b initial checkin penk parents: diff changeset	2158	\| newColumns archiverColumns allColumns iconColumn\|
321c1729db5b initial checkin penk parents: diff changeset	2159
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2160	archiverColumns := archiver columns collect:[:el\| el first].
3892 321c1729db5b initial checkin penk parents: diff changeset	2161	allColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2162	newColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2163	self class tableColumns do:[:el\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2164	allColumns add:(DataSetColumnSpec decodeFromLiteralArray:el).
3892 321c1729db5b initial checkin penk parents: diff changeset	2165	].
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2166	iconColumn := allColumns detect:[: col \| (col readSelector asSymbol) = #icon] ifNone:[nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2167	iconColumn notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2168	newColumns add:iconColumn.
321c1729db5b initial checkin penk parents: diff changeset	2169	].
321c1729db5b initial checkin penk parents: diff changeset	2170	allColumns do:[:col\|
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2171	(archiverColumns includes:(col readSelector asSymbol)) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2172	newColumns add:col.
321c1729db5b initial checkin penk parents: diff changeset	2173	].
321c1729db5b initial checkin penk parents: diff changeset	2174	].
321c1729db5b initial checkin penk parents: diff changeset	2175	self tableColumns value:newColumns.
321c1729db5b initial checkin penk parents: diff changeset	2176	self columnDescriptors:(self tableColumns value).
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2177
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2178	"Modified: / 27-03-2007 / 08:46:03 / cg"
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	stopProcess
321c1729db5b initial checkin penk parents: diff changeset	2182
321c1729db5b initial checkin penk parents: diff changeset	2183	\|task\|
321c1729db5b initial checkin penk parents: diff changeset	2184
321c1729db5b initial checkin penk parents: diff changeset	2185	terminateByMe := true.
321c1729db5b initial checkin penk parents: diff changeset	2186	(task := process) notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2187	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2188
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2189	Error handle:[:ex\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2190	Dialog warn:ex description.
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2191	] do:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2192	task isDead ifFalse:[
3919 c3cb2ca2f2c8 next stage penk parents: 3906 diff changeset	2193	task terminateWithAllSubprocessesInGroup.
3892 321c1729db5b initial checkin penk parents: diff changeset	2194	task waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	2195	]
321c1729db5b initial checkin penk parents: diff changeset	2196	]
321c1729db5b initial checkin penk parents: diff changeset	2197	].
321c1729db5b initial checkin penk parents: diff changeset	2198	! !
321c1729db5b initial checkin penk parents: diff changeset	2199
321c1729db5b initial checkin penk parents: diff changeset	2200	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command helper'!
321c1729db5b initial checkin penk parents: diff changeset	2201
321c1729db5b initial checkin penk parents: diff changeset	2202	selectDirectoryDialog
321c1729db5b initial checkin penk parents: diff changeset	2203
321c1729db5b initial checkin penk parents: diff changeset	2204	\| dir directory haveDirectory\|
321c1729db5b initial checkin penk parents: diff changeset	2205
321c1729db5b initial checkin penk parents: diff changeset	2206	directory := self fileName directory.
321c1729db5b initial checkin penk parents: diff changeset	2207	haveDirectory := false.
321c1729db5b initial checkin penk parents: diff changeset	2208	[haveDirectory] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2209	dir := Dialog requestDirectoryName:'Which directory ?' default:dir.
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2210	dir isEmpty ifTrue:[ ^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2211	dir := dir asFilename.
321c1729db5b initial checkin penk parents: diff changeset	2212	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2213	Dialog warn:'cant write to: ', dir asString.
321c1729db5b initial checkin penk parents: diff changeset	2214	].
321c1729db5b initial checkin penk parents: diff changeset	2215	haveDirectory := true.
321c1729db5b initial checkin penk parents: diff changeset	2216	].
321c1729db5b initial checkin penk parents: diff changeset	2217	^ dir
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2218	!
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2219
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2220	selectDirectoryDialog:message
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2221	\|dir haveDirectory answer\|
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2222
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2223	dir := self masterApplication currentDirectory.
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2224	dir isNil ifTrue:[
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2225	dir := archiver fileName withoutSuffix.
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2226	"/ (fn exists and:[fn isDirectory]) ifTrue:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2227	"/ dir := fn
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2228	"/ ] ifFalse:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2229	"/ dir := fn directory
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2230	"/ ].
4981 0476a3d2d4ef archiver fix in SelectDirectoryDialog (nil fileName) Claus Gittinger <cg@exept.de> parents: 4977 diff changeset	2231	].
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2232
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2233	haveDirectory := false.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2234	[haveDirectory] whileFalse:[
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2235	dir := Dialog requestDirectoryName:message default:dir.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2236	dir isEmpty ifTrue:[ ^ nil].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2237
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2238	dir := dir asFilename.
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2239	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2240	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	2241	answer isNil ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2242	^ nil
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2243	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2244	answer ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2245	dir makeDirectory.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2246	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2247	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	2248	]
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2249	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2250	].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2251	dir exists ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2252	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2253	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	2254	] ifFalse:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2255	haveDirectory := true.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2256	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2257	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2258	].
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2259	^ dir
3892 321c1729db5b initial checkin penk parents: diff changeset	2260	! !
321c1729db5b initial checkin penk parents: diff changeset	2261
321c1729db5b initial checkin penk parents: diff changeset	2262	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
321c1729db5b initial checkin penk parents: diff changeset	2263
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2264	addFilesToArchive:colOfFiles
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2265	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2266	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2267	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2268	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2269
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2270	"/ self
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2271	"/ makeProcessFor:[
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2272	"/ self archiver addFilesToArchive:colOfFiles.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2273	"/ ]
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2274	"/ with:'Adding files to archive'.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2275	"/ synchronous - otherwise list below fails
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2276	self archiver addFilesToArchive:colOfFiles.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2277
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2278	"/ ugly code alarm.
3892 321c1729db5b initial checkin penk parents: diff changeset	2279	(self archiver class == Archiver zipArchive) ifTrue:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2280	self listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2281	] ifFalse:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2282	self listFiles:colOfFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2283	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2284	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	2285	! !
321c1729db5b initial checkin penk parents: diff changeset	2286
321c1729db5b initial checkin penk parents: diff changeset	2287	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
321c1729db5b initial checkin penk parents: diff changeset	2288
321c1729db5b initial checkin penk parents: diff changeset	2289	extractAll
321c1729db5b initial checkin penk parents: diff changeset	2290
321c1729db5b initial checkin penk parents: diff changeset	2291	self extractSelectedFilesTo:nil withSelection:#all
321c1729db5b initial checkin penk parents: diff changeset	2292	!
321c1729db5b initial checkin penk parents: diff changeset	2293
321c1729db5b initial checkin penk parents: diff changeset	2294	extractSelectedFilesTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2295
321c1729db5b initial checkin penk parents: diff changeset	2296	self extractSelectedFilesTo:aDirectory withSelection:#selection askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2297	!
321c1729db5b initial checkin penk parents: diff changeset	2298
321c1729db5b initial checkin penk parents: diff changeset	2299	extractSelectedFilesTo:aDirectory withSelection:selectOrAll
321c1729db5b initial checkin penk parents: diff changeset	2300
321c1729db5b initial checkin penk parents: diff changeset	2301	self extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:true.
321c1729db5b initial checkin penk parents: diff changeset	2302	!
321c1729db5b initial checkin penk parents: diff changeset	2303
321c1729db5b initial checkin penk parents: diff changeset	2304	extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2305
321c1729db5b initial checkin penk parents: diff changeset	2306	\| dir\|
321c1729db5b initial checkin penk parents: diff changeset	2307
321c1729db5b initial checkin penk parents: diff changeset	2308	aDirectory isNil ifTrue:[
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2309	dir := self selectDirectoryDialog:'Extract into Directory?'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2310	dir isNil ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2311	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2312	dir := aDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2313	].
321c1729db5b initial checkin penk parents: diff changeset	2314	selectOrAll == #all ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2315	self extractAllTo:dir.
321c1729db5b initial checkin penk parents: diff changeset	2316	].
321c1729db5b initial checkin penk parents: diff changeset	2317	selectOrAll == #selection ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2318	self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2319	].
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2320	"/ self updateFileBrowserIfPresentWith:dir.
3892 321c1729db5b initial checkin penk parents: diff changeset	2321	! !
321c1729db5b initial checkin penk parents: diff changeset	2322
321c1729db5b initial checkin penk parents: diff changeset	2323	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
321c1729db5b initial checkin penk parents: diff changeset	2324
321c1729db5b initial checkin penk parents: diff changeset	2325	extractAllTo:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2326
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2327	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2328	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2329	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2330	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2331	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2332	makeProcessFor:[ self archiver extractFilesTo:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2333	with:'Extracting all files'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2334	^ true.
321c1729db5b initial checkin penk parents: diff changeset	2335	!
321c1729db5b initial checkin penk parents: diff changeset	2336
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2337	extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2338	self extractSelectedFilesTo:nil withSelection:#selection askForExtractOptions:true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2339	!
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2340
3892 321c1729db5b initial checkin penk parents: diff changeset	2341	extractSelectionTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2342	\| sel index extractWithDirectoryPart extractAllFilesInSelectedDirectories extractFiles\|
321c1729db5b initial checkin penk parents: diff changeset	2343
321c1729db5b initial checkin penk parents: diff changeset	2344	extractWithDirectoryPart := true.
321c1729db5b initial checkin penk parents: diff changeset	2345	extractAllFilesInSelectedDirectories := false.
321c1729db5b initial checkin penk parents: diff changeset	2346	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2347	(sel isEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2348	sel := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2349	].
321c1729db5b initial checkin penk parents: diff changeset	2350	sel := sel do:[:item\|
321c1729db5b initial checkin penk parents: diff changeset	2351	item fileName: item fileName
321c1729db5b initial checkin penk parents: diff changeset	2352	].
321c1729db5b initial checkin penk parents: diff changeset	2353	(askForExtractOptionsBoolean and:[self archiver class ~= Archiver zipArchive]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2354	extractFiles := self selRemoveFilesForDirs:sel.
321c1729db5b initial checkin penk parents: diff changeset	2355	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2356	extractFiles := sel.
321c1729db5b initial checkin penk parents: diff changeset	2357	].
321c1729db5b initial checkin penk parents: diff changeset	2358
321c1729db5b initial checkin penk parents: diff changeset	2359	askForExtractOptionsBoolean ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2360	index := extractFiles findFirst:[: el \| el hasDirectoryPart].
321c1729db5b initial checkin penk parents: diff changeset	2361	index ~= 0 ifTrue:[
4964 911fb209dcfc output parsing refactored; Claus Gittinger <cg@exept.de> parents: 4961 diff changeset	2362	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	2363	extractWithDirectoryPart isNil ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	2364	].
321c1729db5b initial checkin penk parents: diff changeset	2365	].
321c1729db5b initial checkin penk parents: diff changeset	2366	extractWithDirectoryPart ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2367	self extractWithDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2368	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2369	self extractWithOutDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2370	].
321c1729db5b initial checkin penk parents: diff changeset	2371	^ true
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2372
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2373	"Modified (format): / 29-11-2011 / 18:57:54 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2374	!
321c1729db5b initial checkin penk parents: diff changeset	2375
321c1729db5b initial checkin penk parents: diff changeset	2376	extractWithDirectoryPartTo:aDirectory with:extractFiles
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2377	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2378	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2379	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2380	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2381	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2382	makeProcessFor:[ self archiver extractFiles:extractFiles to:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2383	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2384	^ true.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2385
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2386	"Modified (format): / 29-11-2011 / 18:57:58 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2387	!
321c1729db5b initial checkin penk parents: diff changeset	2388
321c1729db5b initial checkin penk parents: diff changeset	2389	extractWithOutDirectoryPartTo:aDirectory with:extractFiles
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2390	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2391	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2392	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2393	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2394	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2395	makeProcessFor:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2396	self archiver
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2397	extractFiles:(extractFiles collect:[:item\| item fileName])
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2398	withoutDirectoryTo:aDirectory.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2399	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2400	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2401	^ true.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2402
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2403	"Modified (format): / 29-11-2011 / 18:58:01 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2404	! !
321c1729db5b initial checkin penk parents: diff changeset	2405
321c1729db5b initial checkin penk parents: diff changeset	2406	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
321c1729db5b initial checkin penk parents: diff changeset	2407
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2408	listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2409	self archiveFileList value removeAll.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2410	self listFiles:nil
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2411	!
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2412
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2413	listFiles:aColOfFilesOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	2414	process notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2415	process waitUntilTerminated
3892 321c1729db5b initial checkin penk parents: diff changeset	2416	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2417
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2418	archiver notNil ifTrue:[
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2419	self archiver
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2420	outStream:(self getOutStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2421	errorStream:(self getErrorStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2422	synchron:true.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2423
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2424	self
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2425	makeProcessFor:[self archiver listFiles:aColOfFilesOrNil]
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2426	with:'List files'
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2427	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2428	! !
321c1729db5b initial checkin penk parents: diff changeset	2429
321c1729db5b initial checkin penk parents: diff changeset	2430	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
321c1729db5b initial checkin penk parents: diff changeset	2431
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2432	removeFilesFromArchive
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2433	\|sel realSel list firtsPre stringCol stringRealSel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2434
321c1729db5b initial checkin penk parents: diff changeset	2435	sel := self selectionHolder value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2436	stringCol := sel collect:[:item \| item fileName].
3892 321c1729db5b initial checkin penk parents: diff changeset	2437	firtsPre := stringCol at:1.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2438	stringCol from:2 do:[:el \| firtsPre := firtsPre commonPrefixWith:el].
3892 321c1729db5b initial checkin penk parents: diff changeset	2439	list := self archiveFileList value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2440	"/ realSel := OrderedCollection new.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2441	"/ list do:[:item \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2442	"/ ((item fileName) startsWith:firtsPre) ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2443	"/ realSel add:item
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2444	"/ ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2445	"/ ].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2446	realSel := list select:[:item \| (item fileName) startsWith:firtsPre].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2447	stringRealSel := realSel collect:[:item \| item fileName].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2448
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2449	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2450	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2451	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2452	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2453	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2454	makeProcessFor:[ self archiver removeFilesFromArchive:stringCol ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2455	with:'Remove files'.
4462 b14fcc67ff8e removeAll: changed to removeAllFoundIn: Michael Beyl <mb@exept.de> parents: 4417 diff changeset	2456	self archiveFileList value removeAllFoundIn:realSel
3892 321c1729db5b initial checkin penk parents: diff changeset	2457	! !
321c1729db5b initial checkin penk parents: diff changeset	2458
321c1729db5b initial checkin penk parents: diff changeset	2459	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
321c1729db5b initial checkin penk parents: diff changeset	2460
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2461	canDrop:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2462
af8ef74cb43b next stage penk parents: 3950 diff changeset	2463	^ inDropMode
3892 321c1729db5b initial checkin penk parents: diff changeset	2464	!
321c1729db5b initial checkin penk parents: diff changeset	2465
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2466	doDrop:aContext
3892 321c1729db5b initial checkin penk parents: diff changeset	2467	\|col source arg objects\|
321c1729db5b initial checkin penk parents: diff changeset	2468
321c1729db5b initial checkin penk parents: diff changeset	2469	source := aContext dropSource.
321c1729db5b initial checkin penk parents: diff changeset	2470	arg := source argument.
321c1729db5b initial checkin penk parents: diff changeset	2471	objects := aContext dropObjects.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2472	col := objects collect:[:dropObject \| dropObject theObject].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2473	^ self addFilesToArchive:col
3892 321c1729db5b initial checkin penk parents: diff changeset	2474	!
321c1729db5b initial checkin penk parents: diff changeset	2475
321c1729db5b initial checkin penk parents: diff changeset	2476	doStartDrag:aDropSource in:aView
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2477	"set the cursors before starting the drag & drop operation"
3892 321c1729db5b initial checkin penk parents: diff changeset	2478
4018 43e02c59719d * empty log message * penk parents: 4001 diff changeset	2479	archiver class canDragnDrop ifFalse:[^ self].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2480	super doStartDrag:aDropSource in:aView
3892 321c1729db5b initial checkin penk parents: diff changeset	2481	!
321c1729db5b initial checkin penk parents: diff changeset	2482
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2483	dropEnter:aContext
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2484	\| dropObjects\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2485
af8ef74cb43b next stage penk parents: 3950 diff changeset	2486	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2487	(aContext dropSource receiver == self) ifTrue:[^ self].
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2488	dropObjects := aContext dropObjects.
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2489
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2490	dropObjects do:[:aObject\| \|checkObject checkObjectString\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2491	aObject isFileObject ifFalse:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2492	checkObject := aObject theObject.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	2493	checkObject isFilename ifFalse:[^ self].
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2494	checkObject isSpecialFile ifTrue:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2495	].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2496	inDropMode := true.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2497	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2498
af8ef74cb43b next stage penk parents: 3950 diff changeset	2499	dropLeave:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2500
af8ef74cb43b next stage penk parents: 3950 diff changeset	2501	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2502	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2503
3892 321c1729db5b initial checkin penk parents: diff changeset	2504	getDisplayObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2505	"retrieve the objects displayed during a drag"
3892 321c1729db5b initial checkin penk parents: diff changeset	2506
321c1729db5b initial checkin penk parents: diff changeset	2507	\| sel string size fnName stream\|
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2508
3892 321c1729db5b initial checkin penk parents: diff changeset	2509	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	2510	size := sel size.
321c1729db5b initial checkin penk parents: diff changeset	2511	size == 0 ifTrue:[^ ''].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2512
3892 321c1729db5b initial checkin penk parents: diff changeset	2513	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	2514	stream nextPutAll:(sel first fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2515	size == 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2516	fnName := 'ui_menuitem.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2517	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2518	fnName := 'ui_submenu_open.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2519	stream nextPutAll:' ... '.
321c1729db5b initial checkin penk parents: diff changeset	2520	stream nextPutAll:(sel last fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2521	].
321c1729db5b initial checkin penk parents: diff changeset	2522	string := stream contents.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2523
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2524	^ Array with:(LabelAndIcon
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2525	icon:(Image fromFile:fnName)
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2526	string:(Text string:string emphasis:#bold))
3892 321c1729db5b initial checkin penk parents: diff changeset	2527	!
321c1729db5b initial checkin penk parents: diff changeset	2528
321c1729db5b initial checkin penk parents: diff changeset	2529	getDropObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2530	"common code, used in subclasses"
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2531
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2532	\|sel\|
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2533
3892 321c1729db5b initial checkin penk parents: diff changeset	2534	sel := self selectionHolder value.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2535	^ sel collect:[:el\| DropObject newFileInArchive:(el fileName asFilename) ].
3892 321c1729db5b initial checkin penk parents: diff changeset	2536	! !
321c1729db5b initial checkin penk parents: diff changeset	2537
321c1729db5b initial checkin penk parents: diff changeset	2538	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	2539
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2540	processEvent:anEvent
3892 321c1729db5b initial checkin penk parents: diff changeset	2541	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	2542	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	2543
12115 2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	2544	<resource: #keyboard (#Delete )>
2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	2545
3892 321c1729db5b initial checkin penk parents: diff changeset	2546	\|focusView key rawKey\|
321c1729db5b initial checkin penk parents: diff changeset	2547
321c1729db5b initial checkin penk parents: diff changeset	2548	anEvent isKeyPressEvent ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2549	focusView := anEvent targetView.
321c1729db5b initial checkin penk parents: diff changeset	2550	key := anEvent key.
321c1729db5b initial checkin penk parents: diff changeset	2551	rawKey := anEvent rawKey.
321c1729db5b initial checkin penk parents: diff changeset	2552	(focusView isSameOrComponentOf:self window) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2553	(key == #Delete) ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2554	self removeFilesFromArchive.
3892 321c1729db5b initial checkin penk parents: diff changeset	2555	^ true
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2556	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2557	]
321c1729db5b initial checkin penk parents: diff changeset	2558	].
321c1729db5b initial checkin penk parents: diff changeset	2559	^ false
321c1729db5b initial checkin penk parents: diff changeset	2560	! !
321c1729db5b initial checkin penk parents: diff changeset	2561
321c1729db5b initial checkin penk parents: diff changeset	2562	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	2563
321c1729db5b initial checkin penk parents: diff changeset	2564	postBuildFileTable:aWidget
321c1729db5b initial checkin penk parents: diff changeset	2565
321c1729db5b initial checkin penk parents: diff changeset	2566	fileTable := aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	2567	fileTable wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	2568	"/ FileBrowser icons keysAndValuesDo:[:aKey :anIcon\|
321c1729db5b initial checkin penk parents: diff changeset	2569	"/ fileTable registerImage:anIcon key:aKey.
321c1729db5b initial checkin penk parents: diff changeset	2570	"/ ].
321c1729db5b initial checkin penk parents: diff changeset	2571	self columnDescriptors:(self class tableColumns).
321c1729db5b initial checkin penk parents: diff changeset	2572	!
321c1729db5b initial checkin penk parents: diff changeset	2573
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2574	postOpenWith:aBuilder
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2575	\|currentDir contents suffix fileName file archivItem\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2576
321c1729db5b initial checkin penk parents: diff changeset	2577	self windowGroup addPreEventHook:self.
321c1729db5b initial checkin penk parents: diff changeset	2578	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2579	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	2580	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2581	contents := currentDir directoryContents.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2582	fileName := contents
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2583	detect:[:file \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2584	suffix := file asFilename suffix asLowercase.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2585	suffix = 'tgz'
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2586	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2587	ifNone:[nil].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2588	fileName isNil ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2589	Dialog warn:'cant find a Zip file in ' , currentDir asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2590	^ self
321c1729db5b initial checkin penk parents: diff changeset	2591	].
321c1729db5b initial checkin penk parents: diff changeset	2592	file := currentDir construct:fileName.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	2593	archivItem := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	2594	(self item:archivItem) ifFalse:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2595	Dialog warn:'file type of ' , item fileName asString , ' not supported'.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2596	^ self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2597	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2598	].
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2599	self listAllFiles.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	2600	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	2601	!
321c1729db5b initial checkin penk parents: diff changeset	2602
321c1729db5b initial checkin penk parents: diff changeset	2603	release
321c1729db5b initial checkin penk parents: diff changeset	2604	self archiver release.
321c1729db5b initial checkin penk parents: diff changeset	2605	^ super release.
321c1729db5b initial checkin penk parents: diff changeset	2606	! !
321c1729db5b initial checkin penk parents: diff changeset	2607
321c1729db5b initial checkin penk parents: diff changeset	2608	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	2609
321c1729db5b initial checkin penk parents: diff changeset	2610	canDelete
321c1729db5b initial checkin penk parents: diff changeset	2611
321c1729db5b initial checkin penk parents: diff changeset	2612	^ (self hasOneSelectionInList and:[archiver class canRemoveFiles])
321c1729db5b initial checkin penk parents: diff changeset	2613	!
321c1729db5b initial checkin penk parents: diff changeset	2614
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2615	canViewFile
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2616
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2617	^ self archiver class canViewFile and:[self hasOneSelectionInList]
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2618	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2619
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2620	hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2621	"return/create the 'hasListEntriesHolder' value holder (automatically generated)"
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2622
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2623	hasListEntriesHolder isNil ifTrue:[
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2624	hasListEntriesHolder := false asValue.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2625	].
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2626	^ hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2627	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2628
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2629	hasOneSelectionInList
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2630
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2631	\| sel \|
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2632	sel := self selectionHolder value.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2633	^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2634	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2635
3892 321c1729db5b initial checkin penk parents: diff changeset	2636	selRemoveFilesForDirs:aSel
321c1729db5b initial checkin penk parents: diff changeset	2637
321c1729db5b initial checkin penk parents: diff changeset	2638	\|stringCol newSel string\|
321c1729db5b initial checkin penk parents: diff changeset	2639
321c1729db5b initial checkin penk parents: diff changeset	2640	stringCol := (aSel collect:[: item\| item fileName]).
321c1729db5b initial checkin penk parents: diff changeset	2641	newSel := aSel copy.
321c1729db5b initial checkin penk parents: diff changeset	2642	aSel do:[:item \|
321c1729db5b initial checkin penk parents: diff changeset	2643	item isDirectory ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2644	string := item fileName.
321c1729db5b initial checkin penk parents: diff changeset	2645	stringCol doWithIndex:[:filename : index\|
321c1729db5b initial checkin penk parents: diff changeset	2646	(filename ~= string and:[filename startsWith:string]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2647	newSel remove:(aSel at:index) ifAbsent:[nil].
321c1729db5b initial checkin penk parents: diff changeset	2648	]
321c1729db5b initial checkin penk parents: diff changeset	2649	]
321c1729db5b initial checkin penk parents: diff changeset	2650	].
321c1729db5b initial checkin penk parents: diff changeset	2651	].
321c1729db5b initial checkin penk parents: diff changeset	2652	^ newSel.
321c1729db5b initial checkin penk parents: diff changeset	2653	! !
321c1729db5b initial checkin penk parents: diff changeset	2654
321c1729db5b initial checkin penk parents: diff changeset	2655	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
321c1729db5b initial checkin penk parents: diff changeset	2656
321c1729db5b initial checkin penk parents: diff changeset	2657	generateSortBlock:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2658
321c1729db5b initial checkin penk parents: diff changeset	2659	\| aSymbol cmpOp sortCaselessLocal\|
321c1729db5b initial checkin penk parents: diff changeset	2660
321c1729db5b initial checkin penk parents: diff changeset	2661	aSymbol := instanceName asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2662	sortCaselessLocal := self sortCaseless value.
321c1729db5b initial checkin penk parents: diff changeset	2663	currentSortOrder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2664	currentSortOrder := aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2665	currentSortOrder := Dictionary new.
321c1729db5b initial checkin penk parents: diff changeset	2666	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2667	currentSortOrder at:#reverse put:false.
321c1729db5b initial checkin penk parents: diff changeset	2668	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
321c1729db5b initial checkin penk parents: diff changeset	2669	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2670	(currentSortOrder at:#column) = aSymbol ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2671	"/ same column like before - change sort order
321c1729db5b initial checkin penk parents: diff changeset	2672	\| isReverse \|
321c1729db5b initial checkin penk parents: diff changeset	2673	isReverse := currentSortOrder at:#reverse.
321c1729db5b initial checkin penk parents: diff changeset	2674	currentSortOrder at:#reverse put:(isReverse not).
321c1729db5b initial checkin penk parents: diff changeset	2675	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2676	"/ another column - remark column
321c1729db5b initial checkin penk parents: diff changeset	2677	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2678	]
321c1729db5b initial checkin penk parents: diff changeset	2679	].
321c1729db5b initial checkin penk parents: diff changeset	2680	(currentSortOrder at:#reverse) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2681	cmpOp := #'>'
321c1729db5b initial checkin penk parents: diff changeset	2682	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2683	cmpOp := #'<'
321c1729db5b initial checkin penk parents: diff changeset	2684	].
321c1729db5b initial checkin penk parents: diff changeset	2685	^ [:a :b \|
321c1729db5b initial checkin penk parents: diff changeset	2686	\|entry1 entry2\|
321c1729db5b initial checkin penk parents: diff changeset	2687
321c1729db5b initial checkin penk parents: diff changeset	2688	entry1 := (a perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2689	entry2 := (b perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2690	aSymbol = #fileName ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2691	sortCaselessLocal ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2692	entry1 := entry1 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2693	entry2 := entry2 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2694	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2695	entry1 := entry1 asString.
321c1729db5b initial checkin penk parents: diff changeset	2696	entry2 := entry2 asString.
321c1729db5b initial checkin penk parents: diff changeset	2697	].
321c1729db5b initial checkin penk parents: diff changeset	2698	].
321c1729db5b initial checkin penk parents: diff changeset	2699	entry1 perform:cmpOp with:entry2
321c1729db5b initial checkin penk parents: diff changeset	2700	].
321c1729db5b initial checkin penk parents: diff changeset	2701	!
321c1729db5b initial checkin penk parents: diff changeset	2702
321c1729db5b initial checkin penk parents: diff changeset	2703	sortList:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2704
321c1729db5b initial checkin penk parents: diff changeset	2705
321c1729db5b initial checkin penk parents: diff changeset	2706	\|sortBlock fileList sortCol\|
321c1729db5b initial checkin penk parents: diff changeset	2707
321c1729db5b initial checkin penk parents: diff changeset	2708	sortBlock := self generateSortBlock:instanceName.
321c1729db5b initial checkin penk parents: diff changeset	2709	fileList := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2710	sortCol := SortedCollection sortBlock:sortBlock.
321c1729db5b initial checkin penk parents: diff changeset	2711	sortCol addAll:fileList.
321c1729db5b initial checkin penk parents: diff changeset	2712	fileList removeAll.
321c1729db5b initial checkin penk parents: diff changeset	2713	fileList addAll:sortCol.
321c1729db5b initial checkin penk parents: diff changeset	2714	! !
321c1729db5b initial checkin penk parents: diff changeset	2715
321c1729db5b initial checkin penk parents: diff changeset	2716	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	2717
321c1729db5b initial checkin penk parents: diff changeset	2718	compressSize
321c1729db5b initial checkin penk parents: diff changeset	2719	"return the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2720
321c1729db5b initial checkin penk parents: diff changeset	2721	^ compressSize
321c1729db5b initial checkin penk parents: diff changeset	2722	!
321c1729db5b initial checkin penk parents: diff changeset	2723
321c1729db5b initial checkin penk parents: diff changeset	2724	compressSize:something
321c1729db5b initial checkin penk parents: diff changeset	2725	"set the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2726
321c1729db5b initial checkin penk parents: diff changeset	2727	compressSize := something.
321c1729db5b initial checkin penk parents: diff changeset	2728	!
321c1729db5b initial checkin penk parents: diff changeset	2729
321c1729db5b initial checkin penk parents: diff changeset	2730	crc
321c1729db5b initial checkin penk parents: diff changeset	2731	"return the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2732
321c1729db5b initial checkin penk parents: diff changeset	2733	^ crc
321c1729db5b initial checkin penk parents: diff changeset	2734	!
321c1729db5b initial checkin penk parents: diff changeset	2735
321c1729db5b initial checkin penk parents: diff changeset	2736	crc:something
321c1729db5b initial checkin penk parents: diff changeset	2737	"set the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2738
321c1729db5b initial checkin penk parents: diff changeset	2739	crc := something.
321c1729db5b initial checkin penk parents: diff changeset	2740	!
321c1729db5b initial checkin penk parents: diff changeset	2741
321c1729db5b initial checkin penk parents: diff changeset	2742	dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2743	"return the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2744
321c1729db5b initial checkin penk parents: diff changeset	2745	^ dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2746	!
321c1729db5b initial checkin penk parents: diff changeset	2747
321c1729db5b initial checkin penk parents: diff changeset	2748	dateAndTime:something
321c1729db5b initial checkin penk parents: diff changeset	2749	"set the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2750
321c1729db5b initial checkin penk parents: diff changeset	2751	dateAndTime := something.
321c1729db5b initial checkin penk parents: diff changeset	2752	!
321c1729db5b initial checkin penk parents: diff changeset	2753
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2754	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2755	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2756
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2757	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2758	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2759	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2760	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2761	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2762
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2763	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2764	year:ts year
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2765	month:ts month
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2766	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2767	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2768	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2769	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2770	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2771
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2772	dayString:dayString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2773	self day:(Integer readFrom:dayString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2774	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2775
3892 321c1729db5b initial checkin penk parents: diff changeset	2776	fileName
321c1729db5b initial checkin penk parents: diff changeset	2777	"return the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2778
321c1729db5b initial checkin penk parents: diff changeset	2779	^ fileName
321c1729db5b initial checkin penk parents: diff changeset	2780	!
321c1729db5b initial checkin penk parents: diff changeset	2781
321c1729db5b initial checkin penk parents: diff changeset	2782	fileName:something
321c1729db5b initial checkin penk parents: diff changeset	2783	"set the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2784
321c1729db5b initial checkin penk parents: diff changeset	2785	fileName := something withoutSpaces.
321c1729db5b initial checkin penk parents: diff changeset	2786	!
321c1729db5b initial checkin penk parents: diff changeset	2787
321c1729db5b initial checkin penk parents: diff changeset	2788	icon
321c1729db5b initial checkin penk parents: diff changeset	2789	"return the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2790
321c1729db5b initial checkin penk parents: diff changeset	2791	^ icon
321c1729db5b initial checkin penk parents: diff changeset	2792	!
321c1729db5b initial checkin penk parents: diff changeset	2793
321c1729db5b initial checkin penk parents: diff changeset	2794	icon:something
321c1729db5b initial checkin penk parents: diff changeset	2795	"set the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2796
321c1729db5b initial checkin penk parents: diff changeset	2797	icon := something.
321c1729db5b initial checkin penk parents: diff changeset	2798	!
321c1729db5b initial checkin penk parents: diff changeset	2799
321c1729db5b initial checkin penk parents: diff changeset	2800	isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2801	"return the value of the instance variable 'directory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2802
321c1729db5b initial checkin penk parents: diff changeset	2803	^ isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2804	!
321c1729db5b initial checkin penk parents: diff changeset	2805
321c1729db5b initial checkin penk parents: diff changeset	2806	isDirectory:something
321c1729db5b initial checkin penk parents: diff changeset	2807	"set the value of the instance variable 'isDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2808
321c1729db5b initial checkin penk parents: diff changeset	2809	isDirectory := something.
321c1729db5b initial checkin penk parents: diff changeset	2810	!
321c1729db5b initial checkin penk parents: diff changeset	2811
321c1729db5b initial checkin penk parents: diff changeset	2812	method
321c1729db5b initial checkin penk parents: diff changeset	2813	"return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2814
321c1729db5b initial checkin penk parents: diff changeset	2815	^ method
321c1729db5b initial checkin penk parents: diff changeset	2816	!
321c1729db5b initial checkin penk parents: diff changeset	2817
321c1729db5b initial checkin penk parents: diff changeset	2818	method:something
321c1729db5b initial checkin penk parents: diff changeset	2819	"set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2820
321c1729db5b initial checkin penk parents: diff changeset	2821	method := something.
321c1729db5b initial checkin penk parents: diff changeset	2822	!
321c1729db5b initial checkin penk parents: diff changeset	2823
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2824	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2825	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2826
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2827	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2828	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2829	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2830	ts := dateAndTime
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
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2833	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2834	year:ts year
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2835	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2836	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2837	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2838	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2839	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2840	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2841
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2842	monthName:monthName
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2843	self month:(Date indexOfMonth:monthName)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2844	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2845
3892 321c1729db5b initial checkin penk parents: diff changeset	2846	ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2847	"return the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2848
321c1729db5b initial checkin penk parents: diff changeset	2849	^ ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2850	!
321c1729db5b initial checkin penk parents: diff changeset	2851
321c1729db5b initial checkin penk parents: diff changeset	2852	ownerGroup:something
321c1729db5b initial checkin penk parents: diff changeset	2853	"set the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2854
321c1729db5b initial checkin penk parents: diff changeset	2855	ownerGroup := something.
321c1729db5b initial checkin penk parents: diff changeset	2856	!
321c1729db5b initial checkin penk parents: diff changeset	2857
321c1729db5b initial checkin penk parents: diff changeset	2858	permissions
321c1729db5b initial checkin penk parents: diff changeset	2859	"return the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2860
321c1729db5b initial checkin penk parents: diff changeset	2861	^ permissions
321c1729db5b initial checkin penk parents: diff changeset	2862	!
321c1729db5b initial checkin penk parents: diff changeset	2863
321c1729db5b initial checkin penk parents: diff changeset	2864	permissions:something
321c1729db5b initial checkin penk parents: diff changeset	2865	"set the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2866
321c1729db5b initial checkin penk parents: diff changeset	2867	permissions := something.
321c1729db5b initial checkin penk parents: diff changeset	2868	!
321c1729db5b initial checkin penk parents: diff changeset	2869
321c1729db5b initial checkin penk parents: diff changeset	2870	ratio
321c1729db5b initial checkin penk parents: diff changeset	2871	"return the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2872
321c1729db5b initial checkin penk parents: diff changeset	2873	^ ratio
321c1729db5b initial checkin penk parents: diff changeset	2874	!
321c1729db5b initial checkin penk parents: diff changeset	2875
321c1729db5b initial checkin penk parents: diff changeset	2876	ratio:something
321c1729db5b initial checkin penk parents: diff changeset	2877	"set the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2878
321c1729db5b initial checkin penk parents: diff changeset	2879	ratio := something.
321c1729db5b initial checkin penk parents: diff changeset	2880	!
321c1729db5b initial checkin penk parents: diff changeset	2881
321c1729db5b initial checkin penk parents: diff changeset	2882	size
321c1729db5b initial checkin penk parents: diff changeset	2883	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2884
321c1729db5b initial checkin penk parents: diff changeset	2885	^ size
321c1729db5b initial checkin penk parents: diff changeset	2886	!
321c1729db5b initial checkin penk parents: diff changeset	2887
321c1729db5b initial checkin penk parents: diff changeset	2888	size:something
321c1729db5b initial checkin penk parents: diff changeset	2889	"set the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2890
321c1729db5b initial checkin penk parents: diff changeset	2891	size := something.
321c1729db5b initial checkin penk parents: diff changeset	2892	!
321c1729db5b initial checkin penk parents: diff changeset	2893
321c1729db5b initial checkin penk parents: diff changeset	2894	sizeAsNumber
321c1729db5b initial checkin penk parents: diff changeset	2895	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2896
321c1729db5b initial checkin penk parents: diff changeset	2897	^ size asInteger
321c1729db5b initial checkin penk parents: diff changeset	2898	!
321c1729db5b initial checkin penk parents: diff changeset	2899
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2900	time:time
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2901	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2902
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2903	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2904	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2905	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2906	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2907	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2908
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2909	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2910	year:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2911	month:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2912	day:ts day
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2913	hour:time hours
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2914	minute:time minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2915	second:time seconds
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2916	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2917
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2918	timeString:timeString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2919	self time:(Time readFrom:timeString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2920	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2921
3892 321c1729db5b initial checkin penk parents: diff changeset	2922	type
321c1729db5b initial checkin penk parents: diff changeset	2923	"return the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2924
321c1729db5b initial checkin penk parents: diff changeset	2925	^ type
321c1729db5b initial checkin penk parents: diff changeset	2926	!
321c1729db5b initial checkin penk parents: diff changeset	2927
321c1729db5b initial checkin penk parents: diff changeset	2928	type:something
321c1729db5b initial checkin penk parents: diff changeset	2929	"set the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2930
321c1729db5b initial checkin penk parents: diff changeset	2931	type := something.
321c1729db5b initial checkin penk parents: diff changeset	2932	!
321c1729db5b initial checkin penk parents: diff changeset	2933
321c1729db5b initial checkin penk parents: diff changeset	2934	version
321c1729db5b initial checkin penk parents: diff changeset	2935	"return the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2936
321c1729db5b initial checkin penk parents: diff changeset	2937	^ version
321c1729db5b initial checkin penk parents: diff changeset	2938	!
321c1729db5b initial checkin penk parents: diff changeset	2939
321c1729db5b initial checkin penk parents: diff changeset	2940	version:something
321c1729db5b initial checkin penk parents: diff changeset	2941	"set the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2942
321c1729db5b initial checkin penk parents: diff changeset	2943	version := something.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2944	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2945
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2946	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2947	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2948
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2949	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2950	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2951	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2952	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2953	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2954
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2955	dateAndTime := Timestamp
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2956	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2957	month:ts month
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2958	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2959	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2960	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2961	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2962	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2963
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2964	yearString:yearString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2965	self year:(Integer readFrom:yearString)
3892 321c1729db5b initial checkin penk parents: diff changeset	2966	! !
321c1729db5b initial checkin penk parents: diff changeset	2967
321c1729db5b initial checkin penk parents: diff changeset	2968	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	2969
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	2970	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	2971	aStream nextPutAll:self fileName asString
3892 321c1729db5b initial checkin penk parents: diff changeset	2972	! !
321c1729db5b initial checkin penk parents: diff changeset	2973
321c1729db5b initial checkin penk parents: diff changeset	2974	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	2975
321c1729db5b initial checkin penk parents: diff changeset	2976	hasDirectoryPart
321c1729db5b initial checkin penk parents: diff changeset	2977
321c1729db5b initial checkin penk parents: diff changeset	2978	^ self fileName asFilename components size ~= 1
321c1729db5b initial checkin penk parents: diff changeset	2979	! !
321c1729db5b initial checkin penk parents: diff changeset	2980
321c1729db5b initial checkin penk parents: diff changeset	2981	!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	2982
321c1729db5b initial checkin penk parents: diff changeset	2983	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2984	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2985
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2986	^ 'Command Output'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2987
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	2988	"Modified: / 01-03-2007 / 21:43:31 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2989	!
321c1729db5b initial checkin penk parents: diff changeset	2990
321c1729db5b initial checkin penk parents: diff changeset	2991	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	2992
321c1729db5b initial checkin penk parents: diff changeset	2993	^ false
321c1729db5b initial checkin penk parents: diff changeset	2994	! !
321c1729db5b initial checkin penk parents: diff changeset	2995
321c1729db5b initial checkin penk parents: diff changeset	2996	!FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	2997
321c1729db5b initial checkin penk parents: diff changeset	2998	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	2999	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3000	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3001
321c1729db5b initial checkin penk parents: diff changeset	3002	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3003	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3004
321c1729db5b initial checkin penk parents: diff changeset	3005	"
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3006	UIPainter new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3007	FileApplicationNoteBook::CommandResult new openInterface:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3008	FileApplicationNoteBook::CommandResult open
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	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3012
321c1729db5b initial checkin penk parents: diff changeset	3013	^
321c1729db5b initial checkin penk parents: diff changeset	3014	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3015	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3016	#window:
321c1729db5b initial checkin penk parents: diff changeset	3017	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3018	#label: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	3019	#name: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	3020	#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	3021	#bounds: #(#Rectangle 220 193 723 546)
3892 321c1729db5b initial checkin penk parents: diff changeset	3022	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3023	)
321c1729db5b initial checkin penk parents: diff changeset	3024	#component:
321c1729db5b initial checkin penk parents: diff changeset	3025	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3026	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3027	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	3028	#name: 'ToolBar1'
321c1729db5b initial checkin penk parents: diff changeset	3029	#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	3030	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3031	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3032	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3033	)
321c1729db5b initial checkin penk parents: diff changeset	3034	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	3035	#name: 'ArbitraryComponent1'
321c1729db5b initial checkin penk parents: diff changeset	3036	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	3037	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3038	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3039	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3040	#component: #TextCollector
321c1729db5b initial checkin penk parents: diff changeset	3041	#postBuildCallback: #postBuildTextCollector:
321c1729db5b initial checkin penk parents: diff changeset	3042	)
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3043	#(#ProgressIndicatorSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3044	#name: 'ProgressIndicator1'
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3045	#layout: #(#LayoutFrame 125 0 11 0 231 0 21 0)
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	3046	#visibilityChannel: #enableStopButton
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3047	#backgroundColor: #(#Color 0.0 66.9993 66.9993)
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3048	#showPercentage: false
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3049	#isActivityIndicator: true
3892 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	)
321c1729db5b initial checkin penk parents: diff changeset	3054	)
321c1729db5b initial checkin penk parents: diff changeset	3055	! !
321c1729db5b initial checkin penk parents: diff changeset	3056
321c1729db5b initial checkin penk parents: diff changeset	3057	!FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3058
321c1729db5b initial checkin penk parents: diff changeset	3059	menu
321c1729db5b initial checkin penk parents: diff changeset	3060	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3061	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3062
321c1729db5b initial checkin penk parents: diff changeset	3063	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3064	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3065
321c1729db5b initial checkin penk parents: diff changeset	3066	"
321c1729db5b initial checkin penk parents: diff changeset	3067	MenuEditor new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3068	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::CommandResult menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3069	"
321c1729db5b initial checkin penk parents: diff changeset	3070
321c1729db5b initial checkin penk parents: diff changeset	3071	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3072
321c1729db5b initial checkin penk parents: diff changeset	3073	^
321c1729db5b initial checkin penk parents: diff changeset	3074	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	3075	#(
321c1729db5b initial checkin penk parents: diff changeset	3076	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	3077	#label: 'Stop'
321c1729db5b initial checkin penk parents: diff changeset	3078	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3079	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3080	#nameKey: #Stop
321c1729db5b initial checkin penk parents: diff changeset	3081	#value: #doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	3082	#enabled: #enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3083	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon 'Stop')
321c1729db5b initial checkin penk parents: diff changeset	3084	)
321c1729db5b initial checkin penk parents: diff changeset	3085	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3086	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	3087	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	3088	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3089	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3090	#nameKey: #Close
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3091	#isVisible: #closeButtonShown
3892 321c1729db5b initial checkin penk parents: diff changeset	3092	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	3093	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3094	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3095	)
321c1729db5b initial checkin penk parents: diff changeset	3096	)
321c1729db5b initial checkin penk parents: diff changeset	3097	nil
321c1729db5b initial checkin penk parents: diff changeset	3098	nil
321c1729db5b initial checkin penk parents: diff changeset	3099	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3100
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3101	"Modified: / 12-01-2012 / 00:33:56 / cg"
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	!FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3105
321c1729db5b initial checkin penk parents: diff changeset	3106	resultStream
321c1729db5b initial checkin penk parents: diff changeset	3107	"return the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3108
321c1729db5b initial checkin penk parents: diff changeset	3109	^ resultStream
321c1729db5b initial checkin penk parents: diff changeset	3110	!
321c1729db5b initial checkin penk parents: diff changeset	3111
321c1729db5b initial checkin penk parents: diff changeset	3112	resultStream:something
321c1729db5b initial checkin penk parents: diff changeset	3113	"set the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3114
321c1729db5b initial checkin penk parents: diff changeset	3115	resultStream := something.
321c1729db5b initial checkin penk parents: diff changeset	3116	! !
321c1729db5b initial checkin penk parents: diff changeset	3117
321c1729db5b initial checkin penk parents: diff changeset	3118	!FileApplicationNoteBook::CommandResult methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3119
321c1729db5b initial checkin penk parents: diff changeset	3120	changeTabTo:aString
321c1729db5b initial checkin penk parents: diff changeset	3121
321c1729db5b initial checkin penk parents: diff changeset	3122	\| masterApplication \|
321c1729db5b initial checkin penk parents: diff changeset	3123
321c1729db5b initial checkin penk parents: diff changeset	3124	masterApplication := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	3125	masterApplication isNil ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	3126	masterApplication tabStringChangeTo:aString for:self.
321c1729db5b initial checkin penk parents: diff changeset	3127	].
321c1729db5b initial checkin penk parents: diff changeset	3128	!
321c1729db5b initial checkin penk parents: diff changeset	3129
321c1729db5b initial checkin penk parents: diff changeset	3130	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	3131
321c1729db5b initial checkin penk parents: diff changeset	3132	\| myProcess \|
321c1729db5b initial checkin penk parents: diff changeset	3133
321c1729db5b initial checkin penk parents: diff changeset	3134	myProcess := self process value.
321c1729db5b initial checkin penk parents: diff changeset	3135	myProcess notNil ifTrue:[
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	3136	self notify:('kill ', myProcess name).
3892 321c1729db5b initial checkin penk parents: diff changeset	3137	myProcess terminate.
321c1729db5b initial checkin penk parents: diff changeset	3138	].
321c1729db5b initial checkin penk parents: diff changeset	3139	! !
321c1729db5b initial checkin penk parents: diff changeset	3140
321c1729db5b initial checkin penk parents: diff changeset	3141	!FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3142
321c1729db5b initial checkin penk parents: diff changeset	3143	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3144
321c1729db5b initial checkin penk parents: diff changeset	3145	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3146	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	3147	].
321c1729db5b initial checkin penk parents: diff changeset	3148	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3149	!
321c1729db5b initial checkin penk parents: diff changeset	3150
321c1729db5b initial checkin penk parents: diff changeset	3151	process
321c1729db5b initial checkin penk parents: diff changeset	3152	"return/create the 'process' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3153
321c1729db5b initial checkin penk parents: diff changeset	3154	process isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3155	process := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	3156	process addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	3157	].
321c1729db5b initial checkin penk parents: diff changeset	3158	^ process
321c1729db5b initial checkin penk parents: diff changeset	3159	! !
321c1729db5b initial checkin penk parents: diff changeset	3160
321c1729db5b initial checkin penk parents: diff changeset	3161	!FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	3162
321c1729db5b initial checkin penk parents: diff changeset	3163	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3164	changedObject == self process ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3165	self enableStopButton value:changedObject value notNil.
321c1729db5b initial checkin penk parents: diff changeset	3166	^ self
321c1729db5b initial checkin penk parents: diff changeset	3167	].
321c1729db5b initial checkin penk parents: diff changeset	3168	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3169	! !
321c1729db5b initial checkin penk parents: diff changeset	3170
321c1729db5b initial checkin penk parents: diff changeset	3171	!FileApplicationNoteBook::CommandResult methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3172
321c1729db5b initial checkin penk parents: diff changeset	3173	postBuildTextCollector:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3174
321c1729db5b initial checkin penk parents: diff changeset	3175	self resultStream:aBuilder scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3176	!
321c1729db5b initial checkin penk parents: diff changeset	3177
321c1729db5b initial checkin penk parents: diff changeset	3178	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3179	"This is a hook method generated by the Browser.
321c1729db5b initial checkin penk parents: diff changeset	3180	It will be invoked right after the applications window has been opened.
321c1729db5b initial checkin penk parents: diff changeset	3181	Add any app-specific actions here (starting background processes etc.).
321c1729db5b initial checkin penk parents: diff changeset	3182	See also #postBuildWith:, which is invoked before opening."
321c1729db5b initial checkin penk parents: diff changeset	3183
321c1729db5b initial checkin penk parents: diff changeset	3184	"/ add any code here ...
321c1729db5b initial checkin penk parents: diff changeset	3185
321c1729db5b initial checkin penk parents: diff changeset	3186	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3187	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3188	].
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3189	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	3190	!
321c1729db5b initial checkin penk parents: diff changeset	3191
321c1729db5b initial checkin penk parents: diff changeset	3192	release
321c1729db5b initial checkin penk parents: diff changeset	3193
321c1729db5b initial checkin penk parents: diff changeset	3194	self doStopProcess.
321c1729db5b initial checkin penk parents: diff changeset	3195	^ super release
321c1729db5b initial checkin penk parents: diff changeset	3196	! !
321c1729db5b initial checkin penk parents: diff changeset	3197
321c1729db5b initial checkin penk parents: diff changeset	3198	!FileApplicationNoteBook::CommandResult methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	3199
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3200	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3201	aStream nextPutAll:'CommandResult Application'.
3892 321c1729db5b initial checkin penk parents: diff changeset	3202	! !
321c1729db5b initial checkin penk parents: diff changeset	3203
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3204	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'defaults'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3205
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3206	tabStringFor:anApplicationType
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3207	"the formatString shown in a tab (language translated)"
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	^ 'Note in %1'
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	"Modified: / 01-03-2007 / 21:43:23 / cg"
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:'documentation'!
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	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3217	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3218	a previewer-plugin for digital-notepad recordings as
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3219	provided by the waltop (tevion) MD85276 digital ink notepad.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3220	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3221	! !
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	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3224
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3225	flyByHelpSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3226	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3227	by the UIHelpTool of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3228
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3229	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3230	the UIHelpTool may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3231
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	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3234	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3235
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3236	<resource: #help>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3237
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3238	^ super flyByHelpSpec addPairsFrom:#(
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3239
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3240	#'fitImageSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3241	'Shrink to Fit View'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3242
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	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3245
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3246	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'interface specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3247
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3248	windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3249	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3250	by the UIPainter of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3251
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3252	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3253	the UIPainter may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3254
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	UIPainter new openOnClass:FileApplicationNoteBook::DigitalNotepadFileViewApplication andSelector:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3257	FileApplicationNoteBook::DigitalNotepadFileViewApplication new openInterface:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3258	FileApplicationNoteBook::DigitalNotepadFileViewApplication open
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3259	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3260
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3261	<resource: #canvas>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3262
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3263	^
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3264	#(FullSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3265	name: windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3266	window:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3267	(WindowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3268	label: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3269	name: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3270	min: (Point 10 10)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3271	bounds: (Rectangle 0 0 676 492)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3272	menu: mainMenu
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	component:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3275	(SpecCollection
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3276	collection: (
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3277	(MenuPanelSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3278	name: 'Menu'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3279	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	3280	level: 0
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3281	visibilityChannel: isEmbeddedApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3282	menu: menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3283	textDefault: true
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	(ArbitraryComponentSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3286	name: 'TOPFileView'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3287	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	3288	hasHorizontalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3289	hasVerticalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3290	miniScrollerHorizontal: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3291	miniScrollerVertical: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3292	hasBorder: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3293	component: TOPFileViewer
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3294	postBuildCallback: postBuildImageView:
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	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3297
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3298	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3299	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3300	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3301
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3302	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'menu specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3303
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3304	menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3305	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3306	by the MenuEditor of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3307
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3308	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3309	the MenuEditor may not be able to read the specification."
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	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3313	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3314	"
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	<resource: #menu>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3317
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3318	^
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3319	#(#Menu
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	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3322	"/ #label: 'Edit'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3323	"/ #itemValue: #editImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3324	"/ #nameKey: #EditImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3325	"/ #translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3326	"/ #isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3327	"/ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3328	"/ )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3329	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3330	"/ #label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3331	"/ )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3332	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3333	#activeHelpKey: #fitImageSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3334	#label: 'FitSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3335	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3336	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3337	#triggerOnDown: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3338	#indication: #fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3339	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3340	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3341	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3342	#label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3343	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3344	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3345	#activeHelpKey: #closeTabButton
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3346	#label: 'Close'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3347	#itemValue: #doClose
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3348	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3349	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3350	#startGroup: #right
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3351	#hideMenuOnActivated: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3352	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3353	)
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	nil
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3356	nil
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
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3360	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'queries'!
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	canOpenItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3363	^ anItem mimeType = 'application/x-waltop-digital-notepad'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3364	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3365
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3366	wantNewApplicationAnyway
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3367
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3368	^ false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3369	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3370
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3371	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'accessing'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3372
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3373	imageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3374	^ imageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3375	!
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	imageView:something
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3378	imageView := something.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3379	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3380
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3381	updateImageInfo
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3382	"/ \|fn msg\|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3383	"/
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3384	"/ image notNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3385	"/ fn := image fileName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3386	"/ fn isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3387	"/ fn := 'unnamed'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3388	"/ ] ifFalse:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3389	"/ fn := fn asFilename baseName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3390	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3391	"/ msg := '%1 %2x%3 depth:%4'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3392	"/ bindWith:fn allBold
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3393	"/ with:image width
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3394	"/ with:image height
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3395	"/ with:image depth.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3396	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3397	"/ self notify:msg.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3398	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3399
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3400	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'actions'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3401
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3402	changeItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3403
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3404	self item:anItem.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3405	self setupImageView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3406	^ true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3407	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3408
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3409	setupImageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3410	imageView readFile:self fileName
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3411	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3412
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3413	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'aspects'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3414
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3415	fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3416	"return/create the 'fitSize' value holder (automatically generated)"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3417
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3418	fitSize isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3419	fitSize := ValueHolder new.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3420	fitSize addDependent:self.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3421	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3422	^ fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3423	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3424
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3425	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'change & update'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3426
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3427	update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3428	changedObject == self fitSize ifTrue:[
7910 cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3429	changedObject value ifTrue:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3430	imageView adjust:#fit.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3431	] ifFalse:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3432	imageView adjust:nil.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3433	].
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3434	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3435	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3436	super update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3437	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3438
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3439	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'initialization & release'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3440
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3441	postBuildImageView:aWidget
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3442
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3443	self imageView: aWidget scrolledView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3444	"/ self imageView wantsFocusWithPointerEnter.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3445	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3446
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3447	postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3448	"only invoked if the application is not started from a master"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3449
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3450	\|currentDir contents fileName\|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3451
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3452	self masterApplication isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3453	self masterApplication:nil.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3454	currentDir := Filename currentDirectory.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3455	contents := currentDir directoryContents.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3456	fileName := contents
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3457	detect:[:file \|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3458	file asFilename mimeTypeOfContents = 'application/x-waltop-digital-notepad'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3459	]
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3460	ifNone:[nil].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3461	fileName isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3462	Dialog warn:'Cant find a TOP-file in ' , currentDir asString.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3463	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3464	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3465	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3466	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3467	self setupImageView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3468	super postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3469	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3470
3892 321c1729db5b initial checkin penk parents: diff changeset	3471	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3472
321c1729db5b initial checkin penk parents: diff changeset	3473	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3474	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3475
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3476	^ 'HTML View for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3477
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3478	"Modified: / 01-03-2007 / 21:43:18 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3479	! !
321c1729db5b initial checkin penk parents: diff changeset	3480
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3481	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3482
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3483	helpSpec
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3484	"This resource specification was automatically generated
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3485	by the UIHelpTool of ST/X."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3486
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3487	"Do not manually edit this!! If it is corrupted,
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3488	the UIHelpTool may not be able to read the specification."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3489
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3490	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3491	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3492	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3493
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3494	<resource: #help>
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3495
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3496	^ super helpSpec addPairsFrom:#(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3497
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3498	#'Edit Source'
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
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3501	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3502	! !
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3503
3892 321c1729db5b initial checkin penk parents: diff changeset	3504	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3505
321c1729db5b initial checkin penk parents: diff changeset	3506	windowSpec
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3507
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3508	\| webKitView \|
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3509
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3510	^((webKitView := (Smalltalk at:#WebKitView)) notNil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3511	and:[webKitView isAvailable])
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3512	ifTrue:[self windowSpec_WebBrowserPage]
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3513	ifFalse:[self windowSpec_HTMLView]
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3514
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3515	"Modified: / 11-08-2011 / 00:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3516	!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3517
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3518	windowSpec_HTMLView
3892 321c1729db5b initial checkin penk parents: diff changeset	3519	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3520	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3521
321c1729db5b initial checkin penk parents: diff changeset	3522	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3523	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3524
321c1729db5b initial checkin penk parents: diff changeset	3525	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3526	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	3527	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	3528	FileApplicationNoteBook::HtmlViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	3529	"
321c1729db5b initial checkin penk parents: diff changeset	3530
321c1729db5b initial checkin penk parents: diff changeset	3531	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3532
321c1729db5b initial checkin penk parents: diff changeset	3533	^
321c1729db5b initial checkin penk parents: diff changeset	3534	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3535	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3536	#window:
321c1729db5b initial checkin penk parents: diff changeset	3537	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3538	#label: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3539	#name: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3540	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	3541	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	3542	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3543	)
321c1729db5b initial checkin penk parents: diff changeset	3544	#component:
321c1729db5b initial checkin penk parents: diff changeset	3545	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3546	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3547	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	3548	#name: 'MenuHtml'
321c1729db5b initial checkin penk parents: diff changeset	3549	#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	3550	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3551	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	3552	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3553	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3554	)
321c1729db5b initial checkin penk parents: diff changeset	3555	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	3556	#name: 'HTMLView'
321c1729db5b initial checkin penk parents: diff changeset	3557	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	3558	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3559	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3560	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	3561	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	3562	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3563	#component: #HTMLDocumentView
321c1729db5b initial checkin penk parents: diff changeset	3564	#postBuildCallback: #postBuildHtmlView:
321c1729db5b initial checkin penk parents: diff changeset	3565	)
321c1729db5b initial checkin penk parents: diff changeset	3566	#(#LabelSpec
321c1729db5b initial checkin penk parents: diff changeset	3567	#label: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3568	#name: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3569	#layout: #(#LayoutFrame 212 0 2 0 -73 1 30 0)
321c1729db5b initial checkin penk parents: diff changeset	3570	#level: -1
321c1729db5b initial checkin penk parents: diff changeset	3571	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3572	#labelChannel: #labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3573	#adjust: #left
321c1729db5b initial checkin penk parents: diff changeset	3574	)
321c1729db5b initial checkin penk parents: diff changeset	3575	)
321c1729db5b initial checkin penk parents: diff changeset	3576
321c1729db5b initial checkin penk parents: diff changeset	3577	)
321c1729db5b initial checkin penk parents: diff changeset	3578	)
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3579
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3580	"Created: / 11-08-2011 / 00:19:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3581	!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3582
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3583	windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3584	"This resource specification was automatically generated
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3585	by the UIPainter of ST/X."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3586
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3587	"Do not manually edit this!! If it is corrupted,
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3588	the UIPainter may not be able to read the specification."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3589
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3590	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3591	UIPainter new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3592	FileApplicationNoteBook::HtmlViewApplication new openInterface:#windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3593	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3594
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3595	<resource: #canvas>
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3596
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3597	^
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3598	#(FullSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3599	name: #'windowSpec_WebBrowserPage'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3600	window:
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3601	(WindowSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3602	label: 'NoteBookApplication::HtmlView'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3603	name: 'NoteBookApplication::HtmlView'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3604	min: (Point 10 10)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3605	bounds: (Rectangle 0 0 676 492)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3606	menu: menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3607	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3608	component:
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3609	(SpecCollection
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3610	collection: (
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3611	(MenuPanelSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3612	name: 'MenuClose'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3613	layout: (LayoutFrame -25 1 0 0 0 1.0 30 0)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3614	level: 0
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3615	visibilityChannel: isEmbeddedApplication
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3616	menu: menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3617	textDefault: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3618	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3619	(SubCanvasSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3620	name: 'ToolBar'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3621	layout: (LayoutFrame 0 0 0 0 -25 1 30 0)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3622	hasHorizontalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3623	hasVerticalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3624	minorKey: toolBarSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3625	clientKey: webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3626	createNewBuilder: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3627	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3628	(SubCanvasSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3629	name: 'Content'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3630	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3631	hasHorizontalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3632	hasVerticalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3633	minorKey: contentSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3634	clientKey: webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3635	createNewBuilder: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3636	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3637	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3638
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3639	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3640	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3641
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3642	"Modified: / 11-08-2011 / 00:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3892 321c1729db5b initial checkin penk parents: diff changeset	3643	! !
321c1729db5b initial checkin penk parents: diff changeset	3644
321c1729db5b initial checkin penk parents: diff changeset	3645	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3646
321c1729db5b initial checkin penk parents: diff changeset	3647	menu
321c1729db5b initial checkin penk parents: diff changeset	3648	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3649	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3650
321c1729db5b initial checkin penk parents: diff changeset	3651	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3652	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3653
321c1729db5b initial checkin penk parents: diff changeset	3654	"
321c1729db5b initial checkin penk parents: diff changeset	3655	MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3656	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3657	"
321c1729db5b initial checkin penk parents: diff changeset	3658
321c1729db5b initial checkin penk parents: diff changeset	3659	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3660
321c1729db5b initial checkin penk parents: diff changeset	3661	^
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3662	#(Menu
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3663	(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3664	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3665	label: 'Reload'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3666	itemValue: doReload
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3667	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3668	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3669	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3670	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3671	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3672	label: 'Back'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3673	itemValue: doGoBack
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3674	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3675	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3676	labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3677	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3678	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3679	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3680	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3681	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3682	label: 'Print'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3683	itemValue: doPrint
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3684	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3685	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3686	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3687	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3688	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3689	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3690	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3691	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3692	activeHelpKey: #'Edit Source'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3693	label: 'Edit'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3694	itemValue: doEdit
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3695	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3696	isButton: true
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3697	labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3698	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3699	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3700	activeHelpKey: closeTabButton
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3701	label: 'Close'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3702	itemValue: doClose
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3703	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3704	isButton: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3705	startGroup: right
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3706	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3707	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3708	)
321c1729db5b initial checkin penk parents: diff changeset	3709	)
321c1729db5b initial checkin penk parents: diff changeset	3710	nil
321c1729db5b initial checkin penk parents: diff changeset	3711	nil
321c1729db5b initial checkin penk parents: diff changeset	3712	)
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3713	!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3714
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3715	menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3716	"This resource specification was automatically generated
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3717	by the MenuEditor of ST/X."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3718
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3719	"Do not manually edit this!! If it is corrupted,
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3720	the MenuEditor may not be able to read the specification."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3721
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3722	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3723	MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3724	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menuJustClose)) startUp
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3725	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3726
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3727	<resource: #menu>
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3728
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3729	^
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3730	#(Menu
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3731	(
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3732	(MenuItem
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3733	activeHelpKey: closeTabButton
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3734	label: 'Close'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3735	itemValue: doClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3736	translateLabel: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3737	isButton: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3738	startGroup: right
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3739	hideMenuOnActivated: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3740	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3741	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3742	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3743	nil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3744	nil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3745	)
3892 321c1729db5b initial checkin penk parents: diff changeset	3746	! !
321c1729db5b initial checkin penk parents: diff changeset	3747
321c1729db5b initial checkin penk parents: diff changeset	3748	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	3749
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3750	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3751
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3752	^ (anItem hasMimeType and:[anItem mimeType isHtml])
3892 321c1729db5b initial checkin penk parents: diff changeset	3753	!
321c1729db5b initial checkin penk parents: diff changeset	3754
321c1729db5b initial checkin penk parents: diff changeset	3755	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	3756
321c1729db5b initial checkin penk parents: diff changeset	3757	^ false
321c1729db5b initial checkin penk parents: diff changeset	3758	! !
321c1729db5b initial checkin penk parents: diff changeset	3759
321c1729db5b initial checkin penk parents: diff changeset	3760	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3761
321c1729db5b initial checkin penk parents: diff changeset	3762	htmlView
321c1729db5b initial checkin penk parents: diff changeset	3763	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3764
321c1729db5b initial checkin penk parents: diff changeset	3765	^ htmlView
321c1729db5b initial checkin penk parents: diff changeset	3766	!
321c1729db5b initial checkin penk parents: diff changeset	3767
321c1729db5b initial checkin penk parents: diff changeset	3768	htmlView:something
321c1729db5b initial checkin penk parents: diff changeset	3769	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3770
321c1729db5b initial checkin penk parents: diff changeset	3771	htmlView := something.
321c1729db5b initial checkin penk parents: diff changeset	3772	!
321c1729db5b initial checkin penk parents: diff changeset	3773
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3774	item:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	3775
321c1729db5b initial checkin penk parents: diff changeset	3776	\|retVal\|
321c1729db5b initial checkin penk parents: diff changeset	3777
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3778	self labelHolder value:anItem fileName asString.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3779	retVal := super item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	3780	self setupHtmlView.
321c1729db5b initial checkin penk parents: diff changeset	3781	^ retVal
321c1729db5b initial checkin penk parents: diff changeset	3782	! !
321c1729db5b initial checkin penk parents: diff changeset	3783
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3784	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing - subapps'!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3785
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3786	webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3787
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3788	webBrowserPage isNil ifTrue:[
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3789	webBrowserPage := Tools::WebBrowserPage new.
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3790	webBrowserPage urlHolder: self labelHolder
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3791	].
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3792	^webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3793
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3794	"Created: / 11-08-2011 / 00:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3795	! !
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3796
3892 321c1729db5b initial checkin penk parents: diff changeset	3797	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3798
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3799	doEdit
7540 69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3800	self masterApplication
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3801	openTextEditorForFile:(htmlView currentDocument)
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3802	"/ openTextEditorOn:item.
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3803
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3804	"Modified: / 24-11-2006 / 11:14:51 / cg"
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3805	!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3806
3892 321c1729db5b initial checkin penk parents: diff changeset	3807	doGoBack
321c1729db5b initial checkin penk parents: diff changeset	3808
321c1729db5b initial checkin penk parents: diff changeset	3809	self htmlView menu_back.
321c1729db5b initial checkin penk parents: diff changeset	3810	!
321c1729db5b initial checkin penk parents: diff changeset	3811
321c1729db5b initial checkin penk parents: diff changeset	3812	doGoHome
321c1729db5b initial checkin penk parents: diff changeset	3813
321c1729db5b initial checkin penk parents: diff changeset	3814	self htmlView menu_home.
321c1729db5b initial checkin penk parents: diff changeset	3815	!
321c1729db5b initial checkin penk parents: diff changeset	3816
321c1729db5b initial checkin penk parents: diff changeset	3817	doHelp
321c1729db5b initial checkin penk parents: diff changeset	3818
321c1729db5b initial checkin penk parents: diff changeset	3819	self htmlView menu_help.
321c1729db5b initial checkin penk parents: diff changeset	3820	!
321c1729db5b initial checkin penk parents: diff changeset	3821
321c1729db5b initial checkin penk parents: diff changeset	3822	doPrint
321c1729db5b initial checkin penk parents: diff changeset	3823
321c1729db5b initial checkin penk parents: diff changeset	3824	self htmlView menu_print.
321c1729db5b initial checkin penk parents: diff changeset	3825	!
321c1729db5b initial checkin penk parents: diff changeset	3826
321c1729db5b initial checkin penk parents: diff changeset	3827	doReload
321c1729db5b initial checkin penk parents: diff changeset	3828
321c1729db5b initial checkin penk parents: diff changeset	3829	self htmlView menu_reload.
321c1729db5b initial checkin penk parents: diff changeset	3830	!
321c1729db5b initial checkin penk parents: diff changeset	3831
321c1729db5b initial checkin penk parents: diff changeset	3832	setupHtmlView
321c1729db5b initial checkin penk parents: diff changeset	3833
321c1729db5b initial checkin penk parents: diff changeset	3834	\| html file directory\|
321c1729db5b initial checkin penk parents: diff changeset	3835
321c1729db5b initial checkin penk parents: diff changeset	3836	html := self htmlView.
321c1729db5b initial checkin penk parents: diff changeset	3837	html isNil ifTrue:[^ self].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3838
3892 321c1729db5b initial checkin penk parents: diff changeset	3839	file := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	3840	directory := file directoryName.
321c1729db5b initial checkin penk parents: diff changeset	3841	html homeDocument:(file asString).
321c1729db5b initial checkin penk parents: diff changeset	3842	html setTopDirectoryName:directory.
321c1729db5b initial checkin penk parents: diff changeset	3843	html uriHolder:self labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3844	html infoHolder:self notifyChannel.
321c1729db5b initial checkin penk parents: diff changeset	3845	html linkButtonPanel:nil.
321c1729db5b initial checkin penk parents: diff changeset	3846	^ html
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3847
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3848	"Modified: / 17-02-2011 / 14:01:35 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3849	! !
321c1729db5b initial checkin penk parents: diff changeset	3850
321c1729db5b initial checkin penk parents: diff changeset	3851	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3852
321c1729db5b initial checkin penk parents: diff changeset	3853	labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3854
321c1729db5b initial checkin penk parents: diff changeset	3855	labelHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3856	labelHolder := '' asValue.
321c1729db5b initial checkin penk parents: diff changeset	3857	].
321c1729db5b initial checkin penk parents: diff changeset	3858	^ labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3859	! !
321c1729db5b initial checkin penk parents: diff changeset	3860
321c1729db5b initial checkin penk parents: diff changeset	3861	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3862
321c1729db5b initial checkin penk parents: diff changeset	3863	postBuildHtmlView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	3864
321c1729db5b initial checkin penk parents: diff changeset	3865	self htmlView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3866	self htmlView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	3867	!
321c1729db5b initial checkin penk parents: diff changeset	3868
321c1729db5b initial checkin penk parents: diff changeset	3869	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3870	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	3871
321c1729db5b initial checkin penk parents: diff changeset	3872	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	3873
321c1729db5b initial checkin penk parents: diff changeset	3874	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3875	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3876	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	3877
321c1729db5b initial checkin penk parents: diff changeset	3878	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	3879	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	3880	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	3881	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	3882	suffix = 'html'
321c1729db5b initial checkin penk parents: diff changeset	3883	]
321c1729db5b initial checkin penk parents: diff changeset	3884	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	3885	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3886	Dialog warn:'cant find a HTML file in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	3887	^ self
321c1729db5b initial checkin penk parents: diff changeset	3888	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3889	self item:(DirectoryContentsBrowser itemClass
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3890	fileName:('../../doc/online/english/TOP.html') asFilename asAbsoluteFilename).
3892 321c1729db5b initial checkin penk parents: diff changeset	3891	].
321c1729db5b initial checkin penk parents: diff changeset	3892	self setupHtmlView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3893	super postOpenWith:aBuilder
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3894
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3895	"Modified: / 17-02-2011 / 13:27:12 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3896	! !
321c1729db5b initial checkin penk parents: diff changeset	3897
321c1729db5b initial checkin penk parents: diff changeset	3898	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3899
321c1729db5b initial checkin penk parents: diff changeset	3900	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3901	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3902
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3903	^ 'Image in %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3904
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3905	"Modified: / 01-03-2007 / 21:43:23 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3906	! !
321c1729db5b initial checkin penk parents: diff changeset	3907
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3908	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3909
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3910	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3911	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3912	a previewer-plugin for bitmap images (jpg, xpm, tiff, gif, etc.)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3913	Offers edit and adjust-size button functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3914	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3915	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3916
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3917	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3918
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3919	flyByHelpSpec
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3920	"This resource specification was automatically generated
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3921	by the UIHelpTool of ST/X."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3922
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3923	"Do not manually edit this!! If it is corrupted,
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3924	the UIHelpTool may not be able to read the specification."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3925
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3926	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3927	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3928	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3929
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3930	<resource: #help>
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3931
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3932	^ super flyByHelpSpec addPairsFrom:#(
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3933
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3934	#'fitImageSize'
6310 75c523340406 * empty log message * Claus Gittinger <cg@exept.de> parents: 6295 diff changeset	3935	'Shrink Image to Fit View'
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3936
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3937	)
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3938	! !
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3939
3892 321c1729db5b initial checkin penk parents: diff changeset	3940	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	3941
321c1729db5b initial checkin penk parents: diff changeset	3942	fitSize20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	3943	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3944	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3945
321c1729db5b initial checkin penk parents: diff changeset	3946	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3947	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3948
321c1729db5b initial checkin penk parents: diff changeset	3949	"
321c1729db5b initial checkin penk parents: diff changeset	3950	self fitSize20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	3951	ImageEditor openOnClass:self andSelector:#fitSize20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	3952	"
321c1729db5b initial checkin penk parents: diff changeset	3953
321c1729db5b initial checkin penk parents: diff changeset	3954	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	3955
321c1729db5b initial checkin penk parents: diff changeset	3956	^Icon
321c1729db5b initial checkin penk parents: diff changeset	3957	constantNamed:#'FileApplicationNoteBook::ImageViewApplication class fitSize20x20Icon'
321c1729db5b initial checkin penk parents: diff changeset	3958	ifAbsentPut:[(Depth4Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	3959	@@DQDQDQDQDP@@@PDQDQDQDQ@P@A@ADQDQDQDP@PD@@PDQDQDPD@@QDQ@ADQDQ@@DQDQD@@@@@@@@@DQDQDPQDQDQ@DQDQDQDDQUUTPADQDQDQAEUUUT@QDQ
321c1729db5b initial checkin penk parents: diff changeset	3960	DQDPQEUUQ@DQDQDQDDQFQDPADQDQDQADQ$QD@QDQDQDPL3X3Q@DQDQDQDCL3L3LADQDQD@@@@@@@@@DQDQD@DQDQDP@QDQ@@DADQDQDA@@DA@ADQDQDQDP@P
321c1729db5b initial checkin penk parents: diff changeset	3961	@@@QDQDQDQDA@@@ADQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3962	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3963	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3964	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	3965	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3966	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3967	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	3968	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	3969	! !
321c1729db5b initial checkin penk parents: diff changeset	3970
321c1729db5b initial checkin penk parents: diff changeset	3971	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3972
321c1729db5b initial checkin penk parents: diff changeset	3973	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3974	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3975	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3976
321c1729db5b initial checkin penk parents: diff changeset	3977	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3978	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3979
321c1729db5b initial checkin penk parents: diff changeset	3980	"
321c1729db5b initial checkin penk parents: diff changeset	3981	UIPainter new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3982	FileApplicationNoteBook::ImageViewApplication new openInterface:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3983	FileApplicationNoteBook::ImageViewApplication open
321c1729db5b initial checkin penk parents: diff changeset	3984	"
321c1729db5b initial checkin penk parents: diff changeset	3985
321c1729db5b initial checkin penk parents: diff changeset	3986	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3987
321c1729db5b initial checkin penk parents: diff changeset	3988	^
321c1729db5b initial checkin penk parents: diff changeset	3989	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3990	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3991	#window:
321c1729db5b initial checkin penk parents: diff changeset	3992	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3993	#label: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	3994	#name: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	3995	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	3996	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	3997	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3998	)
321c1729db5b initial checkin penk parents: diff changeset	3999	#component:
321c1729db5b initial checkin penk parents: diff changeset	4000	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	4001	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	4002	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	4003	#name: 'MenuImage'
3892 321c1729db5b initial checkin penk parents: diff changeset	4004	#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	4005	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	4006	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	4007	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	4008	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	4009	)
321c1729db5b initial checkin penk parents: diff changeset	4010	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	4011	#name: 'ImageView'
3892 321c1729db5b initial checkin penk parents: diff changeset	4012	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	4013	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4014	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4015	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	4016	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	4017	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	4018	#component: #ImageView
321c1729db5b initial checkin penk parents: diff changeset	4019	#postBuildCallback: #postBuildImageView:
321c1729db5b initial checkin penk parents: diff changeset	4020	)
321c1729db5b initial checkin penk parents: diff changeset	4021	)
321c1729db5b initial checkin penk parents: diff changeset	4022
321c1729db5b initial checkin penk parents: diff changeset	4023	)
321c1729db5b initial checkin penk parents: diff changeset	4024	)
321c1729db5b initial checkin penk parents: diff changeset	4025	! !
321c1729db5b initial checkin penk parents: diff changeset	4026
321c1729db5b initial checkin penk parents: diff changeset	4027	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4028
321c1729db5b initial checkin penk parents: diff changeset	4029	menu
321c1729db5b initial checkin penk parents: diff changeset	4030	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4031	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4032
321c1729db5b initial checkin penk parents: diff changeset	4033	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4034	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4035
321c1729db5b initial checkin penk parents: diff changeset	4036	"
321c1729db5b initial checkin penk parents: diff changeset	4037	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4038	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4039	"
321c1729db5b initial checkin penk parents: diff changeset	4040
321c1729db5b initial checkin penk parents: diff changeset	4041	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4042
321c1729db5b initial checkin penk parents: diff changeset	4043	^
321c1729db5b initial checkin penk parents: diff changeset	4044	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	4045	#(
321c1729db5b initial checkin penk parents: diff changeset	4046	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4047	#label: 'Edit'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4048	#itemValue: #editImage
fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4049	#nameKey: #EditImage
3892 321c1729db5b initial checkin penk parents: diff changeset	4050	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4051	#isButton: true
6106 b9f7c407542d * empty log message * Claus Gittinger <cg@exept.de> parents: 6100 diff changeset	4052	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4053	)
321c1729db5b initial checkin penk parents: diff changeset	4054	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4055	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	4056	)
321c1729db5b initial checkin penk parents: diff changeset	4057	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4058	#activeHelpKey: #fitImageSize
3892 321c1729db5b initial checkin penk parents: diff changeset	4059	#label: 'FitSize'
321c1729db5b initial checkin penk parents: diff changeset	4060	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4061	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	4062	#triggerOnDown: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4063	#indication: #fitSize
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4064	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4065	)
321c1729db5b initial checkin penk parents: diff changeset	4066	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4067	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	4068	)
321c1729db5b initial checkin penk parents: diff changeset	4069	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4070	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	4071	#label: 'Close'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4072	#itemValue: #doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	4073	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4074	#isButton: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4075	#startGroup: #right
3892 321c1729db5b initial checkin penk parents: diff changeset	4076	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	4077	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4078	)
321c1729db5b initial checkin penk parents: diff changeset	4079	)
321c1729db5b initial checkin penk parents: diff changeset	4080	nil
321c1729db5b initial checkin penk parents: diff changeset	4081	nil
321c1729db5b initial checkin penk parents: diff changeset	4082	)
321c1729db5b initial checkin penk parents: diff changeset	4083	! !
321c1729db5b initial checkin penk parents: diff changeset	4084
321c1729db5b initial checkin penk parents: diff changeset	4085	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4086
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4087	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4088
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4089	^ (anItem hasMimeType and:[anItem mimeType isImage])
3892 321c1729db5b initial checkin penk parents: diff changeset	4090	!
321c1729db5b initial checkin penk parents: diff changeset	4091
321c1729db5b initial checkin penk parents: diff changeset	4092	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	4093
321c1729db5b initial checkin penk parents: diff changeset	4094	^ false
321c1729db5b initial checkin penk parents: diff changeset	4095	! !
321c1729db5b initial checkin penk parents: diff changeset	4096
321c1729db5b initial checkin penk parents: diff changeset	4097	!FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4098
321c1729db5b initial checkin penk parents: diff changeset	4099	image:something
321c1729db5b initial checkin penk parents: diff changeset	4100	image := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4101	self updateImageInfo.
3892 321c1729db5b initial checkin penk parents: diff changeset	4102	!
321c1729db5b initial checkin penk parents: diff changeset	4103
321c1729db5b initial checkin penk parents: diff changeset	4104	imageView
321c1729db5b initial checkin penk parents: diff changeset	4105	^ imageView
321c1729db5b initial checkin penk parents: diff changeset	4106	!
321c1729db5b initial checkin penk parents: diff changeset	4107
321c1729db5b initial checkin penk parents: diff changeset	4108	imageView:something
321c1729db5b initial checkin penk parents: diff changeset	4109	imageView := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4110	!
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4111
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4112	updateImageInfo
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4113	\|fn msg\|
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4114
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4115	image notNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4116	fn := image fileName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4117	fn isNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4118	fn := 'unnamed'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4119	] ifFalse:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4120	fn := fn asFilename baseName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4121	].
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4122	msg := '%1 %2x%3 depth:%4'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4123	bindWith:fn allBold
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4124	with:image width
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4125	with:image height
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4126	with:image depth.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4127	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	4128	self notify:msg.
3892 321c1729db5b initial checkin penk parents: diff changeset	4129	! !
321c1729db5b initial checkin penk parents: diff changeset	4130
321c1729db5b initial checkin penk parents: diff changeset	4131	!FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4132
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4133	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4134
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4135	self item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	4136	self setupImageView.
321c1729db5b initial checkin penk parents: diff changeset	4137	^ true
321c1729db5b initial checkin penk parents: diff changeset	4138	!
321c1729db5b initial checkin penk parents: diff changeset	4139
321c1729db5b initial checkin penk parents: diff changeset	4140	editImage
321c1729db5b initial checkin penk parents: diff changeset	4141	\|img\|
321c1729db5b initial checkin penk parents: diff changeset	4142
321c1729db5b initial checkin penk parents: diff changeset	4143	img := self image.
321c1729db5b initial checkin penk parents: diff changeset	4144	img notNil ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4145	"/ self withWaitCursorDo:[
4855 c113852ec9ba waitCursor Claus Gittinger <cg@exept.de> parents: 4803 diff changeset	4146	img edit.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4147	"/ ]
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4148	].
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4149
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4150	"Modified: / 25-07-2006 / 09:09:20 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4151	!
321c1729db5b initial checkin penk parents: diff changeset	4152
321c1729db5b initial checkin penk parents: diff changeset	4153	image
321c1729db5b initial checkin penk parents: diff changeset	4154	\|img fn e\|
321c1729db5b initial checkin penk parents: diff changeset	4155
321c1729db5b initial checkin penk parents: diff changeset	4156	fn := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	4157	img := Image fromFile:fn.
321c1729db5b initial checkin penk parents: diff changeset	4158	img isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4159	fn exists ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4160	e := 'Unknown/unsupported image format'
321c1729db5b initial checkin penk parents: diff changeset	4161	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	4162	e := 'No such image'
321c1729db5b initial checkin penk parents: diff changeset	4163	].
321c1729db5b initial checkin penk parents: diff changeset	4164	Dialog warn:e.
321c1729db5b initial checkin penk parents: diff changeset	4165	^ nil
321c1729db5b initial checkin penk parents: diff changeset	4166	].
321c1729db5b initial checkin penk parents: diff changeset	4167	^ img.
321c1729db5b initial checkin penk parents: diff changeset	4168	!
321c1729db5b initial checkin penk parents: diff changeset	4169
321c1729db5b initial checkin penk parents: diff changeset	4170	setupImageView
4020 d1cfbddb1e5d * empty log message * penk parents: 4018 diff changeset	4171	[
4744 36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4172	\|img\|
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4173
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4174	"/ imageView withCursor:(Cursor wait) do:[
4744 36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4175	img := self image.
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4176	img notNil ifTrue:[
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4177	self image:img.
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4178	imageView image:img
36dfe96e5d23 * empty log message * Claus Gittinger <cg@exept.de> parents: 4698 diff changeset	4179	].
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4180	"/ ].
4174 868e973add35 * empty log message * penk parents: 4169 diff changeset	4181	] fork.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4182
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4183	"Modified: / 25-07-2006 / 09:09:33 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4184	! !
321c1729db5b initial checkin penk parents: diff changeset	4185
321c1729db5b initial checkin penk parents: diff changeset	4186	!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	4187
321c1729db5b initial checkin penk parents: diff changeset	4188	fitSize
321c1729db5b initial checkin penk parents: diff changeset	4189	"return/create the 'fitSize' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4190
321c1729db5b initial checkin penk parents: diff changeset	4191	fitSize isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4192	fitSize := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	4193	fitSize addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	4194	].
321c1729db5b initial checkin penk parents: diff changeset	4195	^ fitSize
321c1729db5b initial checkin penk parents: diff changeset	4196	! !
321c1729db5b initial checkin penk parents: diff changeset	4197
321c1729db5b initial checkin penk parents: diff changeset	4198	!FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	4199
321c1729db5b initial checkin penk parents: diff changeset	4200	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	4201	changedObject == self fitSize ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4202	changedObject value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4203	imageView adjust:#fitBig.
321c1729db5b initial checkin penk parents: diff changeset	4204	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	4205	imageView adjust:nil.
321c1729db5b initial checkin penk parents: diff changeset	4206	].
321c1729db5b initial checkin penk parents: diff changeset	4207	^ self
321c1729db5b initial checkin penk parents: diff changeset	4208	].
321c1729db5b initial checkin penk parents: diff changeset	4209	super update:something with:aParameter from:changedObject
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::ImageViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4213
321c1729db5b initial checkin penk parents: diff changeset	4214	postBuildImageView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	4215
321c1729db5b initial checkin penk parents: diff changeset	4216	self imageView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	4217	self imageView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	4218	!
321c1729db5b initial checkin penk parents: diff changeset	4219
321c1729db5b initial checkin penk parents: diff changeset	4220	postOpenWith:aBuilder
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4221	"only invoked if the application is not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	4222
321c1729db5b initial checkin penk parents: diff changeset	4223	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	4224
321c1729db5b initial checkin penk parents: diff changeset	4225	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4226	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	4227	currentDir := Filename currentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	4228	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	4229	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	4230	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	4231	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	4232	Image isImageFileSuffix:suffix
321c1729db5b initial checkin penk parents: diff changeset	4233	]
321c1729db5b initial checkin penk parents: diff changeset	4234	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	4235	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4236	Dialog warn:'cant find a Image in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	4237	^ self
321c1729db5b initial checkin penk parents: diff changeset	4238	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4239	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
3892 321c1729db5b initial checkin penk parents: diff changeset	4240	].
321c1729db5b initial checkin penk parents: diff changeset	4241	self setupImageView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4242	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	4243	! !
321c1729db5b initial checkin penk parents: diff changeset	4244
321c1729db5b initial checkin penk parents: diff changeset	4245	!FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4246
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4247	defaultLineLimit
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4248	"the number of buffered lines"
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4249
4759 cdc53b0b3e52 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4758 diff changeset	4250	^ DefaultLineLimit ? TextCollector defaultLineLimit
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4251
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4252	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4253	DefaultLineLimit := 30000
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4254	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4255
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4256	"Modified: / 05-04-2007 / 17:03:11 / cg"
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4257	!
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4258
3892 321c1729db5b initial checkin penk parents: diff changeset	4259	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4260	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4261
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4262	^ 'Terminal'
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4263
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4264	"Modified: / 01-03-2007 / 21:43:38 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4265	! !
321c1729db5b initial checkin penk parents: diff changeset	4266
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4267	!FileApplicationNoteBook::Terminal class methodsFor:'help specs'!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4268
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4269	helpSpec
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4270	"This resource specification was automatically generated
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4271	by the UIHelpTool of ST/X."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4272
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4273	"Do not manually edit this!! If it is corrupted,
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4274	the UIHelpTool may not be able to read the specification."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4275
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4276	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4277	UIHelpTool openOnClass:FileApplicationNoteBook::Terminal
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4278	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4279
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4280	<resource: #help>
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4281
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4282	^ super helpSpec addPairsFrom:#(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4283
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4284	#closeTabButton
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4285	''
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4286
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4287	)
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4288	! !
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4289
3892 321c1729db5b initial checkin penk parents: diff changeset	4290	!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	4291
321c1729db5b initial checkin penk parents: diff changeset	4292	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4293	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4294	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4295
321c1729db5b initial checkin penk parents: diff changeset	4296	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4297	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4298
321c1729db5b initial checkin penk parents: diff changeset	4299	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4300	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	4301	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	4302	FileApplicationNoteBook::Terminal open
3892 321c1729db5b initial checkin penk parents: diff changeset	4303	"
321c1729db5b initial checkin penk parents: diff changeset	4304
321c1729db5b initial checkin penk parents: diff changeset	4305	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4306
321c1729db5b initial checkin penk parents: diff changeset	4307	^
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4308	#(FullSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4309	name: windowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4310	window:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4311	(WindowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4312	label: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4313	name: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4314	min: (Point 10 10)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4315	bounds: (Rectangle 0 0 692 537)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4316	menu: mainMenu
3892 321c1729db5b initial checkin penk parents: diff changeset	4317	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4318	component:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4319	(SpecCollection
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4320	collection: (
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4321	(MenuPanelSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4322	name: 'MenuTerminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4323	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	4324	level: 0
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4325	menu: menu
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4326	textDefault: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4327	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4328	(ArbitraryComponentSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4329	name: 'TerminalView'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4330	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	4331	hasHorizontalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4332	hasVerticalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4333	miniScrollerHorizontal: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4334	miniScrollerVertical: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4335	autoHideScrollBars: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4336	hasBorder: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4337	component: terminalView
3892 321c1729db5b initial checkin penk parents: diff changeset	4338	)
321c1729db5b initial checkin penk parents: diff changeset	4339	)
321c1729db5b initial checkin penk parents: diff changeset	4340
321c1729db5b initial checkin penk parents: diff changeset	4341	)
321c1729db5b initial checkin penk parents: diff changeset	4342	)
321c1729db5b initial checkin penk parents: diff changeset	4343	! !
321c1729db5b initial checkin penk parents: diff changeset	4344
321c1729db5b initial checkin penk parents: diff changeset	4345	!FileApplicationNoteBook::Terminal class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4346
321c1729db5b initial checkin penk parents: diff changeset	4347	menu
321c1729db5b initial checkin penk parents: diff changeset	4348	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4349	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4350
321c1729db5b initial checkin penk parents: diff changeset	4351	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4352	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4353
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4354
3892 321c1729db5b initial checkin penk parents: diff changeset	4355	"
321c1729db5b initial checkin penk parents: diff changeset	4356	MenuEditor new openOnClass:FileApplicationNoteBook::Terminal andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4357	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::Terminal menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4358	"
321c1729db5b initial checkin penk parents: diff changeset	4359
321c1729db5b initial checkin penk parents: diff changeset	4360	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4361
321c1729db5b initial checkin penk parents: diff changeset	4362	^
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4363	#(Menu
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4364	(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4365	(MenuItem
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4366	label: 'Save As...'
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4367	itemValue: saveAs
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4368	nameKey: Save
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4369	translateLabel: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4370	isButton: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4371	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4372	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4373	(MenuItem
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4374	activeHelpKey: closeTabButton
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4375	label: 'Close'
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4376	itemValue: doClose
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4377	translateLabel: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4378	isButton: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4379	startGroup: right
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4380	isVisible: closeButtonShown
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4381	hideMenuOnActivated: false
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4382	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4383	)
321c1729db5b initial checkin penk parents: diff changeset	4384	)
321c1729db5b initial checkin penk parents: diff changeset	4385	nil
321c1729db5b initial checkin penk parents: diff changeset	4386	nil
321c1729db5b initial checkin penk parents: diff changeset	4387	)
321c1729db5b initial checkin penk parents: diff changeset	4388	! !
321c1729db5b initial checkin penk parents: diff changeset	4389
321c1729db5b initial checkin penk parents: diff changeset	4390	!FileApplicationNoteBook::Terminal methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4391
321c1729db5b initial checkin penk parents: diff changeset	4392	terminalView
321c1729db5b initial checkin penk parents: diff changeset	4393
321c1729db5b initial checkin penk parents: diff changeset	4394	terminalView isNil ifTrue:[
12224 eabcf6fc3857 - XTermView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12216 diff changeset	4395	(OperatingSystem isUNIXlike and:[XTermView notNil and:[XTermView isAvailable]]) ifTrue:[
12216 5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4396	terminalView := XTermView new.
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4397	] ifFalse:[
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4398	VT100TerminalView isNil ifTrue:[
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4399	Dialog warn:('Missing class: ' , 'VT100TerminalView' allBold).
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4400	AbortOperationRequest raise
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4401	].
5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4402	terminalView := VT100TerminalView new.
6435 a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4403	].
12224 eabcf6fc3857 - XTermView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12216 diff changeset	4404	terminalView workingDirectory: item fileName pathName.
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4405	terminalView lineLimit:(self class defaultLineLimit).
3892 321c1729db5b initial checkin penk parents: diff changeset	4406	].
321c1729db5b initial checkin penk parents: diff changeset	4407	^ terminalView.
12216 5698c277f043 - Improvements in FileBrowserV2/V3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	4408
12224 eabcf6fc3857 - XTermView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12216 diff changeset	4409	"Modified: / 05-04-2012 / 15:58:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3892 321c1729db5b initial checkin penk parents: diff changeset	4410	! !
321c1729db5b initial checkin penk parents: diff changeset	4411
321c1729db5b initial checkin penk parents: diff changeset	4412	!FileApplicationNoteBook::Terminal methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4413
321c1729db5b initial checkin penk parents: diff changeset	4414	saveAs
321c1729db5b initial checkin penk parents: diff changeset	4415
321c1729db5b initial checkin penk parents: diff changeset	4416	self terminalView save.
321c1729db5b initial checkin penk parents: diff changeset	4417	! !
321c1729db5b initial checkin penk parents: diff changeset	4418
321c1729db5b initial checkin penk parents: diff changeset	4419	!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4420
321c1729db5b initial checkin penk parents: diff changeset	4421	shellFinished
321c1729db5b initial checkin penk parents: diff changeset	4422	\| master text string\|
321c1729db5b initial checkin penk parents: diff changeset	4423
321c1729db5b initial checkin penk parents: diff changeset	4424	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	4425	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4426	string := ' - closed'.
321c1729db5b initial checkin penk parents: diff changeset	4427	master tabStringAdd:string for:self.
321c1729db5b initial checkin penk parents: diff changeset	4428	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	4429	self notify:'shell in ' , self fileName asString, ' finished'.
3892 321c1729db5b initial checkin penk parents: diff changeset	4430	terminalView cr.
4515 5345a8da0455 * empty log message * Claus Gittinger <cg@exept.de> parents: 4508 diff changeset	4431
5305 5e3c955b7c4d * empty log message * Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4432	text := '>> shell terminated.' allBold.
3892 321c1729db5b initial checkin penk parents: diff changeset	4433	text colorizeAllWith:Color red.
321c1729db5b initial checkin penk parents: diff changeset	4434	terminalView nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	4435	!
321c1729db5b initial checkin penk parents: diff changeset	4436
321c1729db5b initial checkin penk parents: diff changeset	4437	startShell
321c1729db5b initial checkin penk parents: diff changeset	4438	\|vt100\|
321c1729db5b initial checkin penk parents: diff changeset	4439
321c1729db5b initial checkin penk parents: diff changeset	4440	vt100 := self terminalView.
321c1729db5b initial checkin penk parents: diff changeset	4441	vt100 shellTerminateAction:[ self shellFinished ].
321c1729db5b initial checkin penk parents: diff changeset	4442	vt100 startShellIn:(self fileName).
321c1729db5b initial checkin penk parents: diff changeset	4443	! !
321c1729db5b initial checkin penk parents: diff changeset	4444
321c1729db5b initial checkin penk parents: diff changeset	4445	!FileApplicationNoteBook::Terminal methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	4446
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4447	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4448	aStream nextPutAll:'Terminal on:'.
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4449	self fileName baseName printOn:aStream.
3892 321c1729db5b initial checkin penk parents: diff changeset	4450	! !
321c1729db5b initial checkin penk parents: diff changeset	4451
321c1729db5b initial checkin penk parents: diff changeset	4452	!FileApplicationNoteBook::Terminal methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4453
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4454	getTabValueString
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4455	"the item shown in a tab (not language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4456
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4457	^ nil
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4458
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4459	"Created: / 01-03-2007 / 21:39:56 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4460	! !
321c1729db5b initial checkin penk parents: diff changeset	4461
321c1729db5b initial checkin penk parents: diff changeset	4462	!FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	4463
321c1729db5b initial checkin penk parents: diff changeset	4464	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4465	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4466
3892 321c1729db5b initial checkin penk parents: diff changeset	4467	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4468	self masterApplication:nil.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4469	self item:(DirectoryContentsBrowser itemClass fileName:(Filename currentDirectory asAbsoluteFilename)).
3892 321c1729db5b initial checkin penk parents: diff changeset	4470	].
321c1729db5b initial checkin penk parents: diff changeset	4471	self startShell.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4472	super postOpenWith:aBuilder.
3892 321c1729db5b initial checkin penk parents: diff changeset	4473	! !
321c1729db5b initial checkin penk parents: diff changeset	4474
321c1729db5b initial checkin penk parents: diff changeset	4475	!FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4476
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4477	checkModifiedDelayTime
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	4478	^ 30 "seconds"
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4479	!
acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4480
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4481	defaultTagsBrowserVisible
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4482	^ DefaultTagsBrowserVisible ? true
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4483
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4484	"Created: / 06-10-2011 / 12:45:58 / cg"
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4485	!
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4486
3892 321c1729db5b initial checkin penk parents: diff changeset	4487	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4488	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4489
321c1729db5b initial checkin penk parents: diff changeset	4490	aApplicationType == #directoryDescription ifTrue:[
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4491	^ 'Directory Description of %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4492	].
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4493	^ '%1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4494
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4495	"Modified: / 01-03-2007 / 21:46:24 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4496	!
321c1729db5b initial checkin penk parents: diff changeset	4497
321c1729db5b initial checkin penk parents: diff changeset	4498	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	4499
321c1729db5b initial checkin penk parents: diff changeset	4500	^ false
321c1729db5b initial checkin penk parents: diff changeset	4501	! !
321c1729db5b initial checkin penk parents: diff changeset	4502
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4503	!FileApplicationNoteBook::TextEditor class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4504
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4505	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4506	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4507	a previewer-plugin for plain text
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4508	Offers edit, hex-display and diff functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4509	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4510	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4511
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4512	!FileApplicationNoteBook::TextEditor class methodsFor:'help specs'!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4513
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4514	helpSpec
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4515	"This resource specification was automatically generated
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4516	by the UIHelpTool of ST/X."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4517
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4518	"Do not manually edit this!! If it is corrupted,
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4519	the UIHelpTool may not be able to read the specification."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4520
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4521	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4522	UIHelpTool openOnClass:FileApplicationNoteBook::TextEditor
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4523	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4524
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4525	<resource: #help>
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4526
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4527	^ super helpSpec addPairsFrom:#(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4528
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4529	#closeTabButton
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4530	''
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4531
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4532	#hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4533	'Hide the additional editor operations menu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4534
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4535	#indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4536	''
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4537
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4538	#showEditOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4539	'Show the additional editor operations menu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4540
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4541	#undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4542	''
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4543
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4544	)
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4545	! !
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4546
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4547	!FileApplicationNoteBook::TextEditor class methodsFor:'image specs'!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4548
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4549	hideToolBarIcon
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4550	<resource: #programImage>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4551
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4552	^ ToolbarIconLibrary hideToolBarIcon
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4553
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4554	"Created: / 02-08-2013 / 16:03:09 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4555	! !
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4556
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	4557	!FileApplicationNoteBook::TextEditor class methodsFor:'interface specs'!
3892 321c1729db5b initial checkin penk parents: diff changeset	4558
321c1729db5b initial checkin penk parents: diff changeset	4559	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4560	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4561	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4562
321c1729db5b initial checkin penk parents: diff changeset	4563	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4564	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4565
321c1729db5b initial checkin penk parents: diff changeset	4566	"
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4567	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4568	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4569	FileApplicationNoteBook::TextEditor open
3892 321c1729db5b initial checkin penk parents: diff changeset	4570	"
321c1729db5b initial checkin penk parents: diff changeset	4571
321c1729db5b initial checkin penk parents: diff changeset	4572	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4573
321c1729db5b initial checkin penk parents: diff changeset	4574	^
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4575	#(FullSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4576	name: windowSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4577	window:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4578	(WindowSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4579	label: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4580	name: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4581	min: (Point 10 10)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4582	bounds: (Rectangle 0 0 650 300)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4583	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4584	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4585	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4586	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4587	(VariableHorizontalPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4588	name: 'Panel'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4589	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4590	showHandle: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4591	snapMode: max
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4592	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4593	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4594	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4595	(ViewSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4596	name: 'EditorBox'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4597	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4598	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4599	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4600	(MenuPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4601	name: 'MenuTextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4602	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4603	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4604	menu: menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4605	textDefault: true
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	4606	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4607	(ViewSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4608	name: 'EditorOperationsToolBar'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4609	layout: (LayoutFrame 0 0 30 0 0 1 60 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4610	level: 0
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4611	visibilityChannel: editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4612	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4613	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4614	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4615	(ActionButtonSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4616	label: 'hideToolBarIcon'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4617	name: 'HideEditorOperationsToolBarButton'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4618	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4619	activeHelpKey: hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4620	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4621	hasCharacterOrientedLabel: false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4622	translateLabel: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4623	model: hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4624	postBuildCallback: hideEditorOperationsToolBarButtonCreated:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4625	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4626	(MenuPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4627	name: 'EditorOperationsToolBarMenu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4628	layout: (LayoutFrame 13 0 0 0 0 1 30 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4629	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4630	menu: editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4631	textDefault: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4632	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4633	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4634
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4635	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4636	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4637	(TextEditorSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4638	name: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4639	layout: (LayoutFrame 0 0.0 59 0 0 1.0 0 1.0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4640	model: fileContentsModel
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4641	hasHorizontalScrollBar: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4642	hasVerticalScrollBar: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4643	modifiedChannel: viewModifiedChannel
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4644	acceptCallBack: accept
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4645	allowDoIt: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4646	hasKeyboardFocusInitially: false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4647	postBuildCallback: postBuildTextEditor:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4648	viewClassName: 'getEditorClass'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4649	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4650	(ActionButtonSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4651	label: '...'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4652	name: 'Button1'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4653	layout: (LayoutFrame -56 1 5 0 -36 1 27 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4654	activeHelpKey: showEditOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4655	visibilityChannel: editorOperationsToolBarNotVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4656	translateLabel: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4657	model: showEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4658	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4659	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4660
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4661	)
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	4662	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4663	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4664
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4665	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4666	handles: (Any 1.0)
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4667	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4668	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4669
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4670	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4671	)
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4672	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4673
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4674	xwindowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4675	"This resource specification was automatically generated
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4676	by the UIPainter of ST/X."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4677
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4678	"Do not manually edit this!! If it is corrupted,
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4679	the UIPainter may not be able to read the specification."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4680
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4681	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4682	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4683	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4684	FileApplicationNoteBook::TextEditor open
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4685	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4686
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4687	<resource: #canvas>
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4688
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4689	^
3892 321c1729db5b initial checkin penk parents: diff changeset	4690	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	4691	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4692	#window:
321c1729db5b initial checkin penk parents: diff changeset	4693	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	4694	#label: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4695	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4696	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	4697	#max: #(#Point 1024 768)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4698	#bounds: #(#Rectangle 16 42 666 342)
3892 321c1729db5b initial checkin penk parents: diff changeset	4699	)
321c1729db5b initial checkin penk parents: diff changeset	4700	#component:
321c1729db5b initial checkin penk parents: diff changeset	4701	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	4702	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	4703	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	4704	#name: 'MenuTextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4705	#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	4706	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	4707	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	4708	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	4709	)
321c1729db5b initial checkin penk parents: diff changeset	4710	#(#TextEditorSpec
321c1729db5b initial checkin penk parents: diff changeset	4711	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4712	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	4713	#model: #fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	4714	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4715	#hasVerticalScrollBar: true
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	4716	#modifiedChannel: #viewModifiedChannel
3892 321c1729db5b initial checkin penk parents: diff changeset	4717	#acceptCallBack: #accept
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4718	#allowDoIt: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4719	#postBuildCallback: #postBuildTextEditor:
321c1729db5b initial checkin penk parents: diff changeset	4720	)
321c1729db5b initial checkin penk parents: diff changeset	4721	)
321c1729db5b initial checkin penk parents: diff changeset	4722
321c1729db5b initial checkin penk parents: diff changeset	4723	)
321c1729db5b initial checkin penk parents: diff changeset	4724	)
321c1729db5b initial checkin penk parents: diff changeset	4725	! !
321c1729db5b initial checkin penk parents: diff changeset	4726
321c1729db5b initial checkin penk parents: diff changeset	4727	!FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4728
321c1729db5b initial checkin penk parents: diff changeset	4729	menu
321c1729db5b initial checkin penk parents: diff changeset	4730	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4731	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4732
321c1729db5b initial checkin penk parents: diff changeset	4733	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4734	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4735
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4736
3892 321c1729db5b initial checkin penk parents: diff changeset	4737	"
321c1729db5b initial checkin penk parents: diff changeset	4738	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4739	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4740	"
321c1729db5b initial checkin penk parents: diff changeset	4741
321c1729db5b initial checkin penk parents: diff changeset	4742	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4743
321c1729db5b initial checkin penk parents: diff changeset	4744	^
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4745	#(Menu
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4746	(
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4747	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4748	activeHelpKey: saveFile
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4749	enabled: enableSave
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4750	label: 'Save'
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4751	itemValue: accept
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4752	nameKey: Save
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4753	translateLabel: true
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4754	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4755	isVisible: saveButtonVisible
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4756	labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon)
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4757	)
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4758	(MenuItem
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4759	activeHelpKey: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4760	enabled: enableSaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4761	label: 'Save As...'
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4762	itemValue: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4763	nameKey: SaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4764	translateLabel: true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4765	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4766	isVisible: saveAsButtonVisible
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4767	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4768	)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4769	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4770	activeHelpKey: reloadFile
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4771	enabled: enableReload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4772	label: 'Reload'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4773	itemValue: reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4774	nameKey: Reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4775	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4776	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4777	isVisible: reloadButtonVisible
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4778	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4779	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4780	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4781	activeHelpKey: findInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4782	enabled: enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4783	label: 'Select in Browser'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4784	itemValue: selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4785	nameKey: SelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4786	translateLabel: true
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4787	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4788	isVisible: selectInBrowserButtonVisible
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4789	labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4790	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4791	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4792	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	4793	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4794	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4795	activeHelpKey: print
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4796	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4797	label: 'Print'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4798	itemValue: doPrint
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4799	nameKey: Print
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4800	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4801	isButton: true
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4802	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4803	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4804	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4805	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	4806	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4807	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4808	activeHelpKey: toggleHexDisplay
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4809	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4810	label: 'Hex'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4811	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4812	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4813	indication: printAsHexDump
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	4814	labelImage: (ResourceRetriever ToolbarIconLibrary hexToggleIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4815	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4816	(MenuItem
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4817	label: ''
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4818	isVisible: diffTextButtonVisible
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4819	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4820	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4821	activeHelpKey: showDifferences
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4822	label: 'Diff to Current'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4823	itemValue: openDiffView
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4824	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4825	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4826	isVisible: diffTextButtonVisible
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	4827	labelImage: (ResourceRetriever ToolbarIconLibrary diffIcon)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4828	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4829	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4830	activeHelpKey: closeTabButton
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4831	label: 'Close'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4832	itemValue: doClose
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4833	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4834	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4835	startGroup: right
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4836	isVisible: closeButtonShown
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4837	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	4838	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4839	)
321c1729db5b initial checkin penk parents: diff changeset	4840	)
321c1729db5b initial checkin penk parents: diff changeset	4841	nil
321c1729db5b initial checkin penk parents: diff changeset	4842	nil
321c1729db5b initial checkin penk parents: diff changeset	4843	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4844	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4845
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4846	menuEditorOperationsForHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4847	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4848	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4849
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4850	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4851	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4852
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4853
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4854	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4855	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4856	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForHTML)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4857	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4858
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4859	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4860
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4861	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4862	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4863	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4864	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4865	activeHelpKey: makeBold
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4866	label: 'bold'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4867	itemValue: editOperationMakeBoldHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4868	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_bold_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4869	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4870	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4871	activeHelpKey: makeItalic
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4872	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4873	label: 'italic'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4874	itemValue: editOperationMakeItalicHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4875	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4876	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_italic_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4877	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4878	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4879	activeHelpKey: addAnchor
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4880	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4881	label: 'anchor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4882	itemValue: editOperationAddAnchorHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4883	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4884	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_anchor15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4885	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4886	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4887	activeHelpKey: addImage
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4888	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4889	label: 'image'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4890	itemValue: editOperationAddImageHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4891	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4892	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_image_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4893	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4894	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4895	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4896	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4897	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4898
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4899	"Modified: / 02-08-2013 / 18:21:16 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4900	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4901
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4902	menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4903	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4904	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4905
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4906	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4907	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4908
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4909
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4910	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4911	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4912	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForNormalText)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4913	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4914
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4915	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4916
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4917	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4918	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4919	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4920	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4921	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4922	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4923	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4924	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4925	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4926	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4927	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4928	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4929	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4930	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4931	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4932	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4933	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4934	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4935	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4936	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4937	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4938	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4939	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4940	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4941	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4942
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4943	"Modified: / 02-08-2013 / 18:21:42 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4944	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4945
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4946	menuEditorOperationsForOther
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4947	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4948	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4949
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4950	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4951	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4952
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4953
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4954	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4955	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4956	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForNormalText)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4957	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4958
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4959	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4960
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4961	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4962	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4963	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4964	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4965	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4966	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4967	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4968	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4969	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4970	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4971	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4972	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4973	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4974	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4975	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4976	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4977	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4978	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4979	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4980	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4981	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4982	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4983	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4984	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4985	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4986
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4987	"Created: / 02-08-2013 / 17:09:31 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4988	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4989
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4990	menuEditorOperationsForSourceCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4991	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4992	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4993
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4994	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4995	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4996
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4997
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4998	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4999	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForSourceCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5000	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForSourceCode)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5001	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5002
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5003	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5004
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5005	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5006	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5007	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5008	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5009	activeHelpKey: #'help_doIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5010	label: 'DoIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5011	itemValue: doIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5012	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5013	isVisible: doItMenuButtonVisibile
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5014	labelImage: (ResourceRetriever ToolbarIconLibrary doItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5015	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5016	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5017	activeHelpKey: #'help_printIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5018	label: 'PrintIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5019	itemValue: printIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5020	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5021	isVisible: printItMenuButtonVisibile
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5022	labelImage: (ResourceRetriever ToolbarIconLibrary printItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5023	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5024	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5025	activeHelpKey: #'help_inspectIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5026	label: 'InspectIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5027	itemValue: inspectIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5028	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5029	isVisible: inspectItMenuButtonVisibile
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5030	labelImage: (ResourceRetriever ToolbarIconLibrary inspectItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5031	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5032	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5033	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5034	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5035	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5036	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5037	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5038	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5039	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5040	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5041	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5042	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5043	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5044	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5045	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5046	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5047	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5048	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5049	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5050	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5051	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5052	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5053	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5054
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5055	"Modified: / 02-08-2013 / 18:21:58 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5056	! !
321c1729db5b initial checkin penk parents: diff changeset	5057
321c1729db5b initial checkin penk parents: diff changeset	5058	!FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	5059
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5060	fileEncoding
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5061	^ self fileEncodingHolder value
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5062	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5063
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5064	fileEncoding:newEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5065	self fileEncodingHolder value:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5066
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5067	editView notNil ifTrue:[
5705 e7559e531af5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5693 diff changeset	5068	self enableReload value:true.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5069	editView externalEncoding:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5070	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5071	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5072
3892 321c1729db5b initial checkin penk parents: diff changeset	5073	item:aDirContentsItem
321c1729db5b initial checkin penk parents: diff changeset	5074
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5075	self releaseCheckModify.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	5076	(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	5077
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5078	self askForChangeWithReload:false "true".
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5079
3892 321c1729db5b initial checkin penk parents: diff changeset	5080	super item:aDirContentsItem.
4698 14a71be57ecf dont load twice on startup TextEditor penk parents: 4677 diff changeset	5081	self printAsHexDump value:(self presentation == #hexDump) withoutNotifying:self.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5082	self updateTagsBrowser.
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	5083	self setContents ifFalse:[ ^ false].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5084
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5085	self setUpTextView.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5086
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5087	textEditorModificationTime := self fileName modificationTime.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5088	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5089	self setupCheckModify.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5090	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	5091	^ true
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5092
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5093	"Modified: / 23-06-2011 / 16:45:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5094	!
321c1729db5b initial checkin penk parents: diff changeset	5095
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5096	lockFileEncoding:aBoolean
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5097	self lockFileEncodingHolder value:aBoolean.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5098	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5099
3892 321c1729db5b initial checkin penk parents: diff changeset	5100	presentation
321c1729db5b initial checkin penk parents: diff changeset	5101	"return the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5102
321c1729db5b initial checkin penk parents: diff changeset	5103	presentation isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5104	presentation := #asText.
321c1729db5b initial checkin penk parents: diff changeset	5105	].
321c1729db5b initial checkin penk parents: diff changeset	5106	^ presentation
321c1729db5b initial checkin penk parents: diff changeset	5107	!
321c1729db5b initial checkin penk parents: diff changeset	5108
321c1729db5b initial checkin penk parents: diff changeset	5109	presentation:something
321c1729db5b initial checkin penk parents: diff changeset	5110	"set the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5111
321c1729db5b initial checkin penk parents: diff changeset	5112	presentation := something.
321c1729db5b initial checkin penk parents: diff changeset	5113	!
321c1729db5b initial checkin penk parents: diff changeset	5114
321c1729db5b initial checkin penk parents: diff changeset	5115	semaChangeItem
321c1729db5b initial checkin penk parents: diff changeset	5116	^ semaChangeItem
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5117	!
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5118
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5119	type:aType
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5120
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5121	super type:aType.
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5122	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	5123	! !
321c1729db5b initial checkin penk parents: diff changeset	5124
321c1729db5b initial checkin penk parents: diff changeset	5125	!FileApplicationNoteBook::TextEditor methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	5126
321c1729db5b initial checkin penk parents: diff changeset	5127	accept
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5128	self saveWithAskForFilename:false.
3892 321c1729db5b initial checkin penk parents: diff changeset	5129	!
321c1729db5b initial checkin penk parents: diff changeset	5130
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5131	askForChangeWithReload:doReload
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5132	"ask for save changes;
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5133	if modified and answered true, the current contents is written back (accepted)
3892 321c1729db5b initial checkin penk parents: diff changeset	5134	"
321c1729db5b initial checkin penk parents: diff changeset	5135
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5136	self askForChangeWithReload:doReload forClose:false
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5137	!
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5138
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5139	askForChangeWithReload:doReload forClose:forClose
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5140	"ask for save changes;
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5141	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	5142	"
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5143
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5144	\|fn answer string arg\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5145
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5146	self modifiedChannel value ifFalse:[ ^ false].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5147
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5148	fn := self fileName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5149	fn isNil ifTrue:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5150	fn := 'unknown'
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5151	] ifFalse:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5152	fn := fn baseName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5153	].
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5154	arg := fn allBold.
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5155
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5156	string := 'Save changed file "%1" ?'.
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5157
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5158	forClose ifTrue:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5159	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5160	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	5161	] ifFalse:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5162	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5163	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	5164	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5165	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5166	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5167	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5168	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	5169	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5170	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5171	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	5172	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5173	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5174	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5175
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5176	answer := OptionBox
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5177	request:(resources stringWithCRs:string with:arg)
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5178	buttonLabels:(resources array:#('Cancel' 'Show Diffs' 'No' 'Yes'))
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5179	values:#(nil showDiffs false true)
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5180	default:nil.
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5181
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5182	answer isNil ifTrue:[^ AbortOperationRequest raise ].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5183
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5184	answer == #showDiffs ifTrue:[
5201 979c36ed9a22 * empty log message * Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	5185	self openDiffView.
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5186	AbortOperationRequest raise
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5187	].
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5188
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5189	answer ifTrue:[
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5190	self accept
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5191	] ifFalse:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5192	doReload ifTrue:[
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5193	self setContents.
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5194	]
3892 321c1729db5b initial checkin penk parents: diff changeset	5195	].
321c1729db5b initial checkin penk parents: diff changeset	5196	^ answer
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5197
24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5198	"Modified: / 11-09-2010 / 13:07:37 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5199	!
321c1729db5b initial checkin penk parents: diff changeset	5200
321c1729db5b initial checkin penk parents: diff changeset	5201	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	5202
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5203	\| stream win\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5204
321c1729db5b initial checkin penk parents: diff changeset	5205	stream := WriteStream with:(self getTabString).
321c1729db5b initial checkin penk parents: diff changeset	5206	masterApplication isNil ifTrue:[
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5207	win := self window.
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5208	win notNil ifTrue:[
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5209	self window label:stream contents.
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5210	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5211	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	5212	masterApplication tabStringChangeTo:stream contents for:self.
321c1729db5b initial checkin penk parents: diff changeset	5213	].
321c1729db5b initial checkin penk parents: diff changeset	5214	stream close.
321c1729db5b initial checkin penk parents: diff changeset	5215	!
321c1729db5b initial checkin penk parents: diff changeset	5216
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5217	changeInformationForModified:aSymbol
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5218	masterApplication isNil ifTrue:[ ^ self].
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5219	masterApplication changeModified:aSymbol for:self.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5220	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5221
3892 321c1729db5b initial checkin penk parents: diff changeset	5222	doClose
321c1729db5b initial checkin penk parents: diff changeset	5223
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5224	self askForChangeWithReload:false forClose:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	5225	self masterApplication notNil ifTrue:[
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	5226	^ super doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	5227	].
321c1729db5b initial checkin penk parents: diff changeset	5228	^ true
321c1729db5b initial checkin penk parents: diff changeset	5229	!
321c1729db5b initial checkin penk parents: diff changeset	5230
321c1729db5b initial checkin penk parents: diff changeset	5231	doPrint
321c1729db5b initial checkin penk parents: diff changeset	5232	"print the contents
321c1729db5b initial checkin penk parents: diff changeset	5233	"
4473 a0ab7a61208e * empty log message * Claus Gittinger <cg@exept.de> parents: 4462 diff changeset	5234	(Dialog confirm:'Print contents of editView ?') ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	5235	editView doPrint.
321c1729db5b initial checkin penk parents: diff changeset	5236	].
321c1729db5b initial checkin penk parents: diff changeset	5237	!
321c1729db5b initial checkin penk parents: diff changeset	5238
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5239	doSaveAs
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5240	self saveWithAskForFilename:true.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5241	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5242
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5243	editOperationAddAnchorHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5244	\|sel new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5245
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5246	sel := editView selectionAsString.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5247	sel isNil ifTrue:[^ self].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5248
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5249	new := '<A HREF="xxx">',editView selectionAsString,'</A>'.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5250	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5251	undoableDo:[
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	5252	editView replaceSelectionBy:new keepCursor:false select:true
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5253	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5254	info:'Add Anchor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5255
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5256	"Created: / 02-08-2013 / 18:16:44 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5257	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5258
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5259	editOperationAddImageHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5260	\|new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5261
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5262	new := '<IMG NOPRINT ALIGN="middle" SRC="xxx.png">'.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5263	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5264	undoableDo:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5265	editView insertStringAtCursor:new
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5266	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5267	info:'Add Image'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5268
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5269	"Created: / 02-08-2013 / 18:17:26 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5270	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5271
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5272	editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5273	editView indentBy4
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5274
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5275	"Created: / 02-08-2013 / 18:20:18 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5276	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5277
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5278	editOperationMakeBoldHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5279	self editOperationToggleHTML:'Toggle Bold' start:'<b>' end:'</b>'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5280
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5281	"Created: / 02-08-2013 / 18:04:27 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5282	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5283
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5284	editOperationMakeItalicHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5285	self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5286
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5287	"Created: / 02-08-2013 / 18:14:55 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5288	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5289
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5290	editOperationToggleHTML:info start:whatStart end:whatEnd
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5291	\|sel new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5292
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5293	sel := editView selectionAsString.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5294	sel isNil ifTrue:[^ self].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5295
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5296	(sel asLowercase startsWith:whatStart) ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5297	new := sel copyFrom: whatStart size+1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5298	(new asLowercase endsWith:whatEnd) ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5299	new := new copyButLast:whatEnd size.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5300	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5301	] ifFalse:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5302	new := whatStart,editView selectionAsString,whatEnd
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5303	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5304	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5305	undoableDo:[
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	5306	editView replaceSelectionBy:new keepCursor:false select:true
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5307	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5308	info:info
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5309
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5310	"Created: / 02-08-2013 / 18:14:25 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5311	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5312
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5313	editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5314	editView undentBy4
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5315
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5316	"Created: / 02-08-2013 / 18:22:47 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5317	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5318
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5319	getContents
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5320	\|file fileSize contents presentation alreadyConfirmed answer sizeLimit showLastPart
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5321	dontAskAgainHolder\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5322
321c1729db5b initial checkin penk parents: diff changeset	5323	file := self fileName.
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5324	file isNil ifTrue:[
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5325	^ nil
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5326	].
7487 d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5327	fileSize := file fileSize.
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5328	fileSize isNil ifTrue:[
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5329	^ nil
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5330	].
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5331
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5332	self enableSelectInBrowser value:true.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5333
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5334	presentation := self presentation.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5335	presentation == #asText ifTrue:[
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5336	fileSize > (MaxFileSizeLoadedWithoutAsking ? (8 * 1024 * 1024)) ifTrue:[
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5337	dontAskAgainHolder := false asValue.
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5338	answer := Dialog
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5339	confirmWithCancel:(resources
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5340	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	5341	with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5342	with:(UnitConverter fileSizeStringFor:fileSize))
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5343	labels:(resources array:#('Cancel' 'Show All' 'Show Last Part' 'Show First Part' ))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5344	values:#(#abort #all #last #first)
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5345	default:#abort
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5346	check:(resources string:'Don''t ask again up to this size') on:dontAskAgainHolder
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5347	title:(resources string:'Large File').
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5348
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5349	answer == #all ifTrue:[
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5350	dontAskAgainHolder value ifTrue:[
12348 bf878489e196 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12346 diff changeset	5351	MaxFileSizeLoadedWithoutAsking := fileSize + 4096
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5352	]
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5353	].
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5354
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5355	"/ old
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5356	"/ answer := OptionBox
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5357	"/ request:(resources
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5358	"/ stringWithCRs:'%1 is very large (%2).\\Show all or only the first 8 Mb ?'
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5359	"/ with:file baseName allBold
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5360	"/ with:(UnitConverter fileSizeStringFor:fileSize))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5361	"/ label:(resources string:'Large File')
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5362	"/ buttonLabels:(resources array:#('Cancel' 'Show All' 'Show Last Part' 'Show First Part' ))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5363	"/ values:#(#abort #all #last #first)
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5364	"/ default:#abort.
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5365
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5366	"/ very old
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5367	"/ answer := Dialog
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5368	"/ confirmWithCancel:(resources
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5369	"/ 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	5370	"/ with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5371	"/ with:(UnitConverter fileSizeStringFor:fileSize))
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5372	"/ labels:#('Cancel' 'Show All' 'Show First Part' ).
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5373	"/ answer isNil ifTrue:[^ nil].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5374	"/ answer ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5375	"/ sizeLimit := 4 * 1024 * 1024
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5376	"/ ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5377	answer == #abort ifTrue:[^ nil ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5378	answer ~~ #all ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5379	sizeLimit := 4 * 1024 * 1024.
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5380	showLastPart := (answer == #last).
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5381	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5382	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5383	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5384
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5385	ExternalStream readErrorSignal handle:[:ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5386	(Dialog confirm:('Read Error.\\Retry ?' withCRs))
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	5387	ifTrue:[
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5388	^ ex restart
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	5389	].
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5390	] do:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5391	ExternalStream lineTooLongErrorSignal handle:[ :ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5392	(alreadyConfirmed==true
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5393	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	5394	ifTrue:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5395	alreadyConfirmed := true.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5396	^ ex parameter second , ex parameter first nextLine
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5397	].
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5398	^ nil.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5399	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5400	presentation == #asText ifTrue:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5401	contents := self getContentsAsTextWithSizeLimit:sizeLimit lastPart:showLastPart.
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5402	] ifFalse:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5403	presentation == #hexDump ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5404	"/ self withWaitCursorDo:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5405	contents := AbstractFileBrowser
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5406	contentsOfFileAsHexDump:file
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5407	withLimit:sizeLimit
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5408	lastPart:showLastPart.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5409	"/ ]
4677 549c732836f6 wait cursor Claus Gittinger <cg@exept.de> parents: 4645 diff changeset	5410	]
3892 321c1729db5b initial checkin penk parents: diff changeset	5411	]
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5412	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5413	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5414	^ contents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5415
7769 6cd2993fa017 * empty log message * Claus Gittinger <cg@exept.de> parents: 7765 diff changeset	5416	"Modified: / 27-03-2007 / 13:41:35 / cg"
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5417	!
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5418
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5419	getContentsAsTextWithSizeLimit:sizeLimitOrNil
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5420	"returns the contents as unicode"
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5421
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5422	^ self getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:false
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5423	!
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5424
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5425	getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:showLastPartOrNil
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5426	"returns the contents as unicode"
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5427
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5428	\|text guessedEncoding s\|
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5429
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5430	(self lockFileEncodingHolder value ? false) ifFalse:[
6173 4ba4589e4952 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 6120 diff changeset	5431	guessedEncoding := CharacterEncoder guessEncodingOfFile:item fileName asFilename.
11589 bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	5432	guessedEncoding := guessedEncoding ? #'iso8859-1' "(self fileEncoding)".
bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	5433	self fileEncoding:guessedEncoding asSymbol.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5434	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5435
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5436	editView notNil ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5437	"/ self validateEditViewsFontEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5438	editView externalEncoding:self fileEncoding.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5439	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5440
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5441	s := self fileName readStream.
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5442	[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5443	showLastPartOrNil == true ifTrue:[
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5444	s position:(s fileSize - sizeLimitOrNil).
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5445	].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5446
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5447	text := self
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5448	readStream:s
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5449	lineDelimiter:(Character cr)
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5450	sizeLimit:sizeLimitOrNil
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5451	encoding:self fileEncoding.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5452	] ensure:[
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5453	s close.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5454	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5455	^ text
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5456	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5457
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5458	getHashForContents:contents
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5459	\| hashStream\|
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5460
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5461	self hasMD5 ifFalse:[^ nil].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5462
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5463	hashStream := MD5Stream new.
11284 ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5464	(contents isCollection and:[ contents isString not ]) ifTrue:[
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5465	contents do:[:eachLine \|
4616 e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5466	eachLine notNil ifTrue:[
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5467	hashStream nextPutAll:(eachLine string withTabs).
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5468	].
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5469	hashStream nextPut:Character cr.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5470	].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5471	] ifFalse:[
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5472	hashStream nextPutAll:(contents string).
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5473	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5474	^ hashStream hashValue.
11284 ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5475
ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5476	"Modified: / 27-02-2012 / 22:10:18 / cg"
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5477	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5478
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5479	hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5480	self editorOperationsToolBarVisibleHolder value:false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5481
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5482	"Created: / 02-08-2013 / 16:12:00 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5483	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5484
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5485	openDiffView
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5486	\|fn diffView text1 l1 text2 l2\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5487
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5488	(fn := self fileName) notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5489	text1 := editView contents asText.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5490	l1 := 'Editor'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5491	text2 := self getContents.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5492	l2 := 'File: ' , fn baseName.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5493	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	5494	diffView topView label:'File ' , fn baseName , ' vs. Editor Contents'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5495	].
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5496	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5497
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5498	readStream:aStream lineDelimiter:aCharacter encoding:fileEncodingArg
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5499	"read from aStream, answer its contents as StringCollection.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5500	The files lines are delimited by aCharacter.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5501	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	5502	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	5503	Always returns a unicode string."
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5504
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5505	^ self readStream:aStream lineDelimiter:aCharacter sizeLimit:nil encoding:fileEncodingArg
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5506	!
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5507
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	5508	readStream:aStream lineDelimiter:lineDelimiter sizeLimit:sizeLimitOrNil encoding:fileEncodingArg
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5509	"read from aStream, answer its contents as StringCollection.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5510	The files lines are delimited by aCharacter.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5511	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	5512	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	5513	Always returns a unicode string."
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5514
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5515	\|text fileEncoding decoder firstDecoderError line lineNr\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5516
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5517	fileEncoding := fileEncodingArg ? #'iso8859-1'.
5718 a16c274a18ef * empty log message * ca parents: 5717 diff changeset	5518	decoder := CharacterEncoder encoderFor:fileEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5519
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5520	text := StringCollection new.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5521
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5522	firstDecoderError := true.
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5523	lineNr := 1.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5524
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5525	DecodingError handle:[:ex \|
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5526	\|msg answer labels values\|
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5527
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5528	firstDecoderError ifTrue:[
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5529	msg := resources stringWithCRs:'Error in decoder: %1\In Line: %2\\%3' with:ex errorString with:lineNr with:line.
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5530	ex mayProceed ifTrue:[
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5531	labels := #('Cancel' 'Ignore' 'Ignore All' 'Inspect Line').
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5532	values := #(nil ignore ignoreAll inspectLine).
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5533	] ifFalse:[
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5534	labels := #('Cancel' 'Inspect Line').
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5535	values := #(nil inspectLine).
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5536	].
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5537
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5538	answer := Dialog
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5539	confirmWithCancel:msg
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5540	labels:(resources array:labels)
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5541	values:values
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5542	default:1
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5543	title:'Error during decode'.
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5544	answer isNil ifTrue:[ AbortOperationRequest raise ].
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5545	answer == #ignoreAll ifTrue:[ firstDecoderError := false ].
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5546	answer == #inspectLine ifTrue:[ line inspect. AbortOperationRequest raise ].
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5547	].
8389 0c1050ff7f88 encoding error handling Claus Gittinger <cg@exept.de> parents: 8366 diff changeset	5548	ex proceedWith:(ex defaultValue).
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5549	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5550	FileStream lineTooLongErrorSignal handle:[:ex \|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5551	\|s partialLine\|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5552
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5553	s := ex parameter at:1.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5554	partialLine := ex parameter at:2.
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	5555	ex proceedWith:(partialLine , (s upTo:lineDelimiter))
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5556	] do:[
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5557	(decoder characterSize:0) == 2 ifTrue:[
12066 dc7b890d8b7d comment only Claus Gittinger <cg@exept.de> parents: 11590 diff changeset	5558	"a TwoByte decoder. Decode first and then process line breaks."
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5559
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5560	\|buffer\|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5561
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5562	buffer := line := aStream upToEnd.
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5563	buffer := decoder decodeString:buffer.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5564	buffer asCollectionOfLines do:[:line \|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5565	text add:line withTabsExpanded.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5566	].
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5567	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5568	[aStream atEnd] whileFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5569	lineDelimiter == Character cr ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5570	line := aStream nextLine.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5571	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5572	line := aStream upTo:lineDelimiter.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5573	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5574
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5575	line := line withTabsExpanded.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5576	text add:(decoder decodeString:line).
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5577	sizeLimitOrNil notNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5578	aStream position > sizeLimitOrNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5579	^ text
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5580	]
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5581	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5582	lineNr := lineNr + 1.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5583	]
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5584	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5585	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5586	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5587	^ text
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5588
d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5589	"Modified: / 02-03-2007 / 15:09:30 / cg"
12066 dc7b890d8b7d comment only Claus Gittinger <cg@exept.de> parents: 11590 diff changeset	5590	"Modified (comment): / 22-11-2012 / 13:06:03 / cg"
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5591	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5592
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5593	reload
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5594
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5595	textEditorModificationTime := self fileName modificationTime.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5596	"/ self withWaitCursorDo:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	5597	self setContents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5598	"/ ].
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	5599	self setUpTextView
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5600
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5601	"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	5602	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5603
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5604	saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5605	self saveWithAskForFilename:true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5606	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5607
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5608	saveWithAskForFilename:ask
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5609
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5610	\|answer fn master defaultDir dir base fnDir\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5611
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5612	master := self masterApplication.
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5613	(fn := self fileName) notNil ifTrue:[
2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5614	dir := fn directory.
2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5615	base := fn baseName.
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5616	].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5617
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5618	ask ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5619	defaultDir := master notNil ifTrue:[ master currentDirectory ] ifFalse:[ nil ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5620	defaultDir isNil ifTrue:[
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5621	fn notNil ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5622	defaultDir := dir.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5623	]
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5624	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5625	answer := Dialog
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5626	requestFileNameForSave:(resources string:'Save contents in:')
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5627	default:base
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5628	fromDirectory:defaultDir.
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5629	answer isEmptyOrNil ifTrue:[^ self].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5630	fn := answer asFilename.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5631	].
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5632
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5633	(master notNil and:[master class openAnotherApplicationOnSameItem]) ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5634	(self updateSameFilesFor:fn) ifFalse:[ ^ self ].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5635	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5636
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5637	fnDir := fn directory.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	5638	fnDir exists ifFalse:[
12079 50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5639	[
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5640	fnDir recursiveMakeDirectory.
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5641	] on:OperatingSystem accessDeniedErrorSignal do:[:ex\|
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5642	Dialog warn:(ex description).
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5643	^ self.
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5644	]
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5645	].
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5646
2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5647	(editView saveAs:fn doAppend:false compressTabs:master compressTabsOnSave) ifFalse:[^ self].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5648
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5649	textEditorModificationTime := self fileName modificationTime.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5650
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5651	self hasMD5 ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5652	md5CheckSum := self getHashForContents:self fileContentsModel value.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5653	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5654
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5655	self enableReload value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5656	self itemChanged value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5657	self itemRemoved value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5658	self modifiedChannel value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5659	self notify:self fileName asString, ' saved'.
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5660
095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5661	"Modified: / 27-10-2010 / 10:41:29 / cg"
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5662	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5663
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5664	searchForPattern:aContentsPattern ignoreCase:ign
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5665
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5666	\| pattern \|
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5667
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5668	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	5669	pattern notEmpty ifTrue:[
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5670	editView rememberSearchPattern:pattern.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5671	editView searchFwd:pattern ignoreCase:ign.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5672	]
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5673	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5674
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5675	selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5676	\|application\|
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5677
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5678	application := self masterApplication.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5679	application notNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5680	application gotoFile:(self fileName).
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5681	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5682	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5683
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5684	setContents
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5685	\|text\|
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5686
7970 337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5687	self withReadCursorDo:[
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5688	text := self getContents.
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5689	].
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	5690	text isNil ifTrue:[ ^ false].
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5691	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5692	self setContentsFor:text.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5693	].
4953 d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5694	^ true
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5695	!
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5696
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5697	setContentsFor:aUnicodeText
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5698	self itemChanged value:false.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5699
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5700	self validateEditViewsFontEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5701
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5702	self fileContentsModel value:aUnicodeText.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5703
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5704	self hasMD5 ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5705	md5CheckSum := self getHashForContents:aUnicodeText.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5706	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5707	self enableReload value:false.
321c1729db5b initial checkin penk parents: diff changeset	5708	self itemChanged value:false.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5709	self modifiedChannel value:false.
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5710	self notify:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	5711	^ true
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5712
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5713
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5714	"/
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5715	"/ oldEncoding := editView characterEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5716	"/ oldEncoding ~= newEncoding ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5717	"/self halt.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5718	"/ (lines := editView contents) size > 0 ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5719	"/ (Dialog
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5720	"/ confirm:('Re-Encode contents (from %1 to %2) ?'
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5721	"/ bindWith:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5722	"/ with:newEncoding)
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5723	"/ ) ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5724	"/ recoder := CharacterEncoder
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5725	"/ encoderToEncodeFrom:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5726	"/ into:newEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5727	"/ lines keysAndValuesDo:[:lineNr :line \|
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5728	"/ line notNil ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5729	"/ editView at:lineNr put:(recoder encodeString:line).
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5730	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5731	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5732	"/ ]
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5733	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5734	"/ ].
3892 321c1729db5b initial checkin penk parents: diff changeset	5735	!
321c1729db5b initial checkin penk parents: diff changeset	5736
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5737	showEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5738	self editorOperationsToolBarVisibleHolder value:true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5739
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5740	"Created: / 02-08-2013 / 16:11:52 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5741	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5742
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5743	tagSelected:aTag
11032 67fc45edcaac tag-selection fix (when textselection is present) Claus Gittinger <cg@exept.de> parents: 10955 diff changeset	5744	editView deselect. "/ otherwise, it might jump back to show the selection
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5745	editView cursorLine:(aTag lineNumber) col:1.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5746
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5747	"Created: / 23-06-2011 / 16:38:07 / cg"
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5748	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5749
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5750	updateSameFilesFor:aFilename
3892 321c1729db5b initial checkin penk parents: diff changeset	5751
321c1729db5b initial checkin penk parents: diff changeset	5752	\| master modifiedApplications stream filename action\|
321c1729db5b initial checkin penk parents: diff changeset	5753
321c1729db5b initial checkin penk parents: diff changeset	5754	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	5755	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5756	modifiedApplications := master getSameFilesModifiedFor:self.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	5757	(modifiedApplications isEmptyOrNil) ifTrue:[^ true ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5758	filename := aFilename asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	5759	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	5760	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5761	stream nextPutAll:' is modified in tab'.
321c1729db5b initial checkin penk parents: diff changeset	5762	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5763	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	5764	].
321c1729db5b initial checkin penk parents: diff changeset	5765	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	5766	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	5767	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5768	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5769	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5770	el sameFileIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5771	stream nextPutAll:el sameFileIndex asString.
321c1729db5b initial checkin penk parents: diff changeset	5772	].
321c1729db5b initial checkin penk parents: diff changeset	5773	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	5774	].
321c1729db5b initial checkin penk parents: diff changeset	5775	stream nextPutAll:'forget changes on other tab'.
321c1729db5b initial checkin penk parents: diff changeset	5776	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5777	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	5778	].
321c1729db5b initial checkin penk parents: diff changeset	5779	stream nextPutAll:' ?'.
321c1729db5b initial checkin penk parents: diff changeset	5780	action := Dialog
321c1729db5b initial checkin penk parents: diff changeset	5781	choose:stream contents
321c1729db5b initial checkin penk parents: diff changeset	5782	labels:#('cancel' 'no' 'yes')
321c1729db5b initial checkin penk parents: diff changeset	5783	values:#(#cancel #no #yes)
321c1729db5b initial checkin penk parents: diff changeset	5784	default:#cancel.
321c1729db5b initial checkin penk parents: diff changeset	5785
321c1729db5b initial checkin penk parents: diff changeset	5786	stream close.
321c1729db5b initial checkin penk parents: diff changeset	5787	action == #cancel ifTrue:[ ^ false ].
321c1729db5b initial checkin penk parents: diff changeset	5788	action == #yes ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5789	"/ here force reload for other applications
321c1729db5b initial checkin penk parents: diff changeset	5790	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	5791	el reload.
321c1729db5b initial checkin penk parents: diff changeset	5792	]
321c1729db5b initial checkin penk parents: diff changeset	5793	].
321c1729db5b initial checkin penk parents: diff changeset	5794	].
321c1729db5b initial checkin penk parents: diff changeset	5795	^ true.
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5796	!
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5797
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5798	validateEditViewsFontEncoding
5717 f2ec29a73239 do not ask again about encoding penk parents: 5705 diff changeset	5799	\|fileEncoding preferredFontEncoding fontsEncoding action\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5800
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5801	editView isNil ifTrue:[^ self].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5802
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5803	fileEncoding := self fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5804
11589 bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	5805	fontsEncoding := editView font encoding ? #'iso8859-1'.
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5806
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5807	preferredFontEncoding := FontDescription preferredFontEncodingFor:fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5808	(CharacterEncoder isEncoding:preferredFontEncoding subSetOf:fontsEncoding) ifFalse:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5809	doNotShowFontDialog == true ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5810	action := #show
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5811	] ifFalse:[
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	5812	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	5813	with:self fileName baseName
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5814	with:preferredFontEncoding allBold
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5815	with:fileEncoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5816	labels:(resources array:#('Cancel' 'Show' 'Don''t Ask Again' 'Change Font'))
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5817	values:#(nil #show #showAlways #encoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5818	default:#encoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5819	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5820	action == #showAlways ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5821	doNotShowFontDialog := true.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5822	action := #show.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5823	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5824	action isNil ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5825	AbortSignal raise
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5826	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5827	action == #encoding ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5828	editView validateFontEncodingFor:fileEncoding ask:false.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5829	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5830	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5831	! !
321c1729db5b initial checkin penk parents: diff changeset	5832
321c1729db5b initial checkin penk parents: diff changeset	5833	!FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	5834
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5835	canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5836	^ editView notNil and:[editView isReadOnly not]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5837
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5838	"Created: / 02-08-2013 / 16:45:34 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5839	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5840
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5841	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5842	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5843	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5844	argument:editView cursorColHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5845	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5846
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5847	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5848	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5849	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5850	argument:editView cursorLineHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5851	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5852
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5853	editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5854	editView editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5855
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5856	"Created: / 11-09-2006 / 12:46:50 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5857	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5858
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5859	editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5860	editView editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5861
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5862	"Created: / 11-09-2006 / 12:47:01 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5863	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5864
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5865	editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5866	editView editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5867
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5868	"Created: / 11-09-2006 / 12:46:47 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5869	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5870
7596 6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5871	editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5872	^ editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5873	!
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	5874
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5875	editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5876	editorOperationsMenuSpecHolder isNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5877	editorOperationsMenuSpecHolder := self class menuEditorOperationsForNormalText asValue.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5878	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5879	^ editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5880
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5881	"Created: / 02-08-2013 / 16:35:49 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5882	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5883
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5884	editorOperationsToolBarNotVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5885	^ BlockValue forLogicalNot:self editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5886
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5887	"Created: / 02-08-2013 / 16:11:02 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5888	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5889
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5890	editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5891	editorOperationsToolBarVisibleHolder isNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5892	editorOperationsToolBarVisibleHolder := (DefaultEditorOperationsToolBarVisible ? true) asValue.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5893	editorOperationsToolBarVisibleHolder onChangeSend:#editorOperationsToolBarVisibilityChanged to:self.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5894	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5895	^ editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5896
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5897	"Created: / 02-08-2013 / 15:59:43 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5898	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5899
3892 321c1729db5b initial checkin penk parents: diff changeset	5900	enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	5901	enableHexToggle isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5902	enableHexToggle := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	5903	].
321c1729db5b initial checkin penk parents: diff changeset	5904	^ enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	5905	!
321c1729db5b initial checkin penk parents: diff changeset	5906
321c1729db5b initial checkin penk parents: diff changeset	5907	enableReload
321c1729db5b initial checkin penk parents: diff changeset	5908	enableReload isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5909	enableReload := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5910	].
321c1729db5b initial checkin penk parents: diff changeset	5911	^ enableReload.
321c1729db5b initial checkin penk parents: diff changeset	5912	!
321c1729db5b initial checkin penk parents: diff changeset	5913
321c1729db5b initial checkin penk parents: diff changeset	5914	enableSave
321c1729db5b initial checkin penk parents: diff changeset	5915	enableSave isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5916	enableSave := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5917	].
321c1729db5b initial checkin penk parents: diff changeset	5918	^ enableSave.
321c1729db5b initial checkin penk parents: diff changeset	5919	!
321c1729db5b initial checkin penk parents: diff changeset	5920
8783 5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5921	enableSaveAs
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5922	^ true.
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5923	!
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	5924
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5925	enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5926	enableSelectInBrowser isNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5927	enableSelectInBrowser := false asValue.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5928	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5929	^ enableSelectInBrowser.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5930	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5931
3892 321c1729db5b initial checkin penk parents: diff changeset	5932	fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	5933	fileContentsModel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5934	fileContentsModel := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	5935	].
321c1729db5b initial checkin penk parents: diff changeset	5936	^ fileContentsModel.
321c1729db5b initial checkin penk parents: diff changeset	5937	!
321c1729db5b initial checkin penk parents: diff changeset	5938
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5939	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5940	fileEncodingHolder isNil ifTrue:[
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5941	fileEncodingHolder := #'iso8859-1' asValue
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5942	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5943	^ fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5944	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5945
3892 321c1729db5b initial checkin penk parents: diff changeset	5946	itemChanged
321c1729db5b initial checkin penk parents: diff changeset	5947	itemChanged isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5948	itemChanged := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5949	itemChanged addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5950	].
321c1729db5b initial checkin penk parents: diff changeset	5951	^ itemChanged
321c1729db5b initial checkin penk parents: diff changeset	5952	!
321c1729db5b initial checkin penk parents: diff changeset	5953
321c1729db5b initial checkin penk parents: diff changeset	5954	itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	5955	itemRemoved isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5956	itemRemoved := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5957	itemRemoved addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5958	].
321c1729db5b initial checkin penk parents: diff changeset	5959	^ itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	5960	!
321c1729db5b initial checkin penk parents: diff changeset	5961
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5962	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5963	lockFileEncodingHolder isNil ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5964	lockFileEncodingHolder := false asValue.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5965	].
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5966	^ lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5967	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5968
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5969	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5970	^ editView modeLabelHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5971	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	5972
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5973	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5974	^ FileBrowserV2 editModeInfoLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5975
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5976	"Created: / 11-09-2006 / 12:36:26 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5977	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	5978
3892 321c1729db5b initial checkin penk parents: diff changeset	5979	modifiedChannel
321c1729db5b initial checkin penk parents: diff changeset	5980	modifiedChannel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5981	modifiedChannel := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5982	modifiedChannel addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5983	].
321c1729db5b initial checkin penk parents: diff changeset	5984	^ modifiedChannel.
321c1729db5b initial checkin penk parents: diff changeset	5985	!
321c1729db5b initial checkin penk parents: diff changeset	5986
321c1729db5b initial checkin penk parents: diff changeset	5987	printAsHexDump
321c1729db5b initial checkin penk parents: diff changeset	5988	printAsHexDump isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5989	printAsHexDump := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	5990	printAsHexDump addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	5991	].
321c1729db5b initial checkin penk parents: diff changeset	5992	^ printAsHexDump.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5993	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5994
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5995	viewModifiedChannel
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5996	viewModifiedChannel isNil ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5997	viewModifiedChannel := false asValue.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5998	viewModifiedChannel addDependent:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5999	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6000	^ viewModifiedChannel.
3892 321c1729db5b initial checkin penk parents: diff changeset	6001	! !
321c1729db5b initial checkin penk parents: diff changeset	6002
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6003	!FileApplicationNoteBook::TextEditor methodsFor:'aspects-visibility'!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6004
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6005	closeButtonShown
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6006	^ false.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6007	"/ ^ self isEmbeddedApplication.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6008
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6009	"Created: / 12-01-2012 / 00:32:15 / cg"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6010	!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6011
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6012	diffTextButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6013	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6014	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6015
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6016	reloadButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6017	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6018	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6019
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6020	saveAsButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6021	^ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6022	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6023
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6024	saveButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6025	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6026	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6027
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6028	selectInBrowserButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6029	^ self masterApplication notNil
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6030	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6031
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6032	tagsBrowserVisibleHolder
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6033	tagsBrowserVisibleHolder isNil ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6034	masterApplication notNil ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6035	tagsBrowserVisibleHolder := masterApplication tagsBrowserVisibleHolder.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6036	] ifFalse:[
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6037	tagsBrowserVisibleHolder := self class defaultTagsBrowserVisible asValue.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6038	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6039	tagsBrowserVisibleHolder addDependent:self.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6040	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6041	^ tagsBrowserVisibleHolder
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6042
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6043	"Created: / 23-06-2011 / 09:19:18 / cg"
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6044	"Modified: / 06-10-2011 / 12:46:41 / cg"
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6045	! !
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6046
3892 321c1729db5b initial checkin penk parents: diff changeset	6047	!FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	6048
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6049	changeTextColorForChanged
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6050	\|text prevCursorBehavior\|
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6051
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6052	prevCursorBehavior := editView cursorMovementWhenUpdating.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6053	editView cursorMovementWhenUpdating:nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6054
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6055	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	6056	text := editView contents.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	6057	self fileContentsModel
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6058	value:(text asText emphasizeAllWith:UserPreferences current emphasisForChangedCode).
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6059	[editView flash] fork.
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6060	] ifFalse:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	6061	"/ self fileContentsModel value:text string.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6062	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6063	editView cursorMovementWhenUpdating:prevCursorBehavior.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6064	"/ self fileContentsModel changed:#value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6065	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6066
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6067	editorOperationsToolBarVisibilityChanged
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6068	\|editorToolBar editorOperationsToolBar editor topOffset editorOperationsToolBarVisible\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6069
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6070	editorToolBar := self componentAt:#MenuTextEditor.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6071
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6072	editorOperationsToolBar := self componentAt:#EditorOperationsToolBar.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6073	editor := self componentAt:#TextEditor.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6074
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6075	topOffset := editorToolBar height.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6076	editorOperationsToolBarVisible := self editorOperationsToolBarVisibleHolder value.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6077	DefaultEditorToolBarVisible := editorOperationsToolBarVisible.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6078	editorOperationsToolBarVisible ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6079	topOffset := topOffset + editorOperationsToolBar height.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6080	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6081
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6082	topOffset := topOffset - 1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6083	editor layout topOffset:topOffset.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6084	editor container notNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6085	editor containerChangedSize.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6086	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6087
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6088	"Created: / 02-08-2013 / 16:01:01 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6089	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6090
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6091	itemModified
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6092
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6093	\| modified outDated removed\|
3892 321c1729db5b initial checkin penk parents: diff changeset	6094
321c1729db5b initial checkin penk parents: diff changeset	6095	modified := self modifiedChannel value.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6096	outDated := self itemChanged value.
3892 321c1729db5b initial checkin penk parents: diff changeset	6097	removed := self itemRemoved value.
321c1729db5b initial checkin penk parents: diff changeset	6098
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6099	((modified or:[outDated]) or:[removed]) ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6100	modified ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6101	self changeInformationForModified:#modified.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6102	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6103	outDated ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6104	self changeInformationForModified:#outDated.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6105	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6106	removed ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6107	self changeInformationForModified:#removed.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6108	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6109	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6110	self changeInformationForModified:#unchanged.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6111	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	6112
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6113	self enableReload value:((modified or:[outDated]) and:[removed not]).
3892 321c1729db5b initial checkin penk parents: diff changeset	6114	!
321c1729db5b initial checkin penk parents: diff changeset	6115
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6116	postBuildTagsBrowser:aTagsBrowserCanvas
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6117	tagsBrowser := aTagsBrowserCanvas application.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6118	tagsBrowser action:[:selectedTag \| self tagSelected:selectedTag ].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6119	self updateTagsBrowser.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6120
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6121	"Created: / 23-06-2011 / 16:30:00 / cg"
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6122	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6123
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6124	tagsBrowserVisibilityChanged
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6125	\|visible tagsBrowserCanvas\|
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6126
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6127	tagsBrowser notNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6128	tagsBrowserCanvas := tagsBrowser window.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6129	].
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6130
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6131	(visible := self tagsBrowserVisibleHolder value) ifTrue:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6132	tagsBrowser isNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6133	tagsBrowserCanvas := ApplicationSubView new.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6134
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6135	tagsBrowser := Tools::TagsBrowser new.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6136	tagsBrowser window:tagsBrowserCanvas.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6137	tagsBrowser allButOpen.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6138
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6139	(self builder componentAt:#Panel)
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6140	addComponent:tagsBrowserCanvas;
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6141	relativeCorners:#(0.75 1.0).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6142	tagsBrowserCanvas realize.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6143	self postBuildTagsBrowser:tagsBrowserCanvas.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6144	] ifFalse:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6145	tagsBrowserCanvas map.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6146	(self builder componentAt:#Panel)
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6147	relativeCorners:#(0.75 1.0).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6148	].
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6149
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6150	self updateTagsBrowser.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6151	] ifFalse:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6152	tagsBrowser notNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6153	tagsBrowserCanvas unmap.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6154	(self builder componentAt:#Panel) relativeCorners:#(1.0 1.0).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6155	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6156	].
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6157	DefaultTagsBrowserVisible := visible
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6158
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6159	"Created: / 27-06-2011 / 16:06:00 / cg"
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6160	"Modified: / 06-10-2011 / 12:45:20 / cg"
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6161	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6162
3892 321c1729db5b initial checkin penk parents: diff changeset	6163	update:something with:aParameter from:changedObject
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6164	\|itemRem contMd5CheckSum viewModified p\|
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6165
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6166	changedObject == self viewModifiedChannel ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6167	viewModified := changedObject value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6168	self hasMD5 ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6169	self viewModifiedChannel value:false withoutNotifying:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6170	viewModified ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6171	(p := md5HashValueComputationProcess) notNil ifTrue:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6172	p terminate.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6173	].
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6174	md5HashValueComputationProcess :=
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6175	[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6176	contMd5CheckSum := self getHashForContents:(editView list).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6177	self modifiedChannel value:(contMd5CheckSum ~= md5CheckSum).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6178	md5HashValueComputationProcess := nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6179	] newProcess.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6180	md5HashValueComputationProcess priority:(Processor userBackgroundPriority).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6181	md5HashValueComputationProcess resume.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6182	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6183	] ifFalse:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6184	self modifiedChannel value:viewModified.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6185	]
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6186	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6187	changedObject == self modifiedChannel ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6188	self enableSave value:changedObject value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6189	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6190	^ self
321c1729db5b initial checkin penk parents: diff changeset	6191	].
321c1729db5b initial checkin penk parents: diff changeset	6192	changedObject == self itemRemoved ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6193	itemRem := changedObject value.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6194	self enableSave value:(itemRem ? false).
3892 321c1729db5b initial checkin penk parents: diff changeset	6195	self enableHexToggle value:itemRem not.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6196	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6197	^ self
321c1729db5b initial checkin penk parents: diff changeset	6198	].
321c1729db5b initial checkin penk parents: diff changeset	6199	changedObject == self itemChanged ifTrue:[
8228 6be70d6b485c * empty log message * Claus Gittinger <cg@exept.de> parents: 8176 diff changeset	6200	self enqueueMessage:#changeTextColorForChanged for:self arguments:#().
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6201	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6202	^ self
321c1729db5b initial checkin penk parents: diff changeset	6203	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6204
3892 321c1729db5b initial checkin penk parents: diff changeset	6205	changedObject == self printAsHexDump ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6206	AbortOperationRequest handle:[:ex \|
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6207	self printAsHexDump value:false withoutNotifying:self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6208	^ self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6209	] do:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	6210	self askForChangeWithReload:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	6211	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6212	self presentation:(changedObject value ifTrue:[#hexDump] ifFalse:[#asText]).
3892 321c1729db5b initial checkin penk parents: diff changeset	6213	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	6214	self setContents.
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	6215	editView notNil ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6216	editView readOnly:(self presentation == #hexDump).
3892 321c1729db5b initial checkin penk parents: diff changeset	6217	].
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	6218	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	6219	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6220	changedObject == editView cursorLineHolder ifTrue:[
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6221	tagsBrowser notNil ifTrue:[
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6222	tagsBrowser updateForLine:(changedObject value).
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6223	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6224	^ self
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6225	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6226	changedObject == tagsBrowserVisibleHolder ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6227	self tagsBrowserVisibilityChanged.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6228	^ self
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6229	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6230
321c1729db5b initial checkin penk parents: diff changeset	6231	super update:something with:aParameter from:changedObject
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6232
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6233	"Modified: / 29-06-2011 / 19:36:03 / cg"
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6234	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6235
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6236	updateTagsBrowser
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6237	tagsBrowser notNil ifTrue:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6238	self tagsBrowserVisibleHolder value ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6239	tagsBrowser editedFile:(self item isNil ifTrue:[nil] ifFalse:[self item fileName]).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6240	]
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6241	]
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6242
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6243	"Created: / 23-06-2011 / 16:32:44 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6244	! !
321c1729db5b initial checkin penk parents: diff changeset	6245
9399 dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6246	!FileApplicationNoteBook::TextEditor methodsFor:'initialization'!
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6247
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6248	initialize
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6249	super initialize.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6250	semaChangeItem := Semaphore forMutualExclusion.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6251	! !
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6252
3892 321c1729db5b initial checkin penk parents: diff changeset	6253	!FileApplicationNoteBook::TextEditor methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	6254
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	6255	printOn:aStream
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6256	\|fn\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6257
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	6258	aStream nextPutAll:'TextEditor for:'.
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6259	(fn := self fileName) notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6260	fn baseName printOn:aStream.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6261	]
3892 321c1729db5b initial checkin penk parents: diff changeset	6262	! !
321c1729db5b initial checkin penk parents: diff changeset	6263
6481 fd4f39c392fb * empty log message * Claus Gittinger <cg@exept.de> parents: 6477 diff changeset	6264	!FileApplicationNoteBook::TextEditor methodsFor:'private-process'!
3892 321c1729db5b initial checkin penk parents: diff changeset	6265
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6266	checkItemForChanges
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6267	\|exists fileModificationTime message\|
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6268
5612 7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6269	item isNil ifTrue:[
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6270	^ self
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6271	].
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6272
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6273	exists := self item exists.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6274	self itemRemoved value:(exists not).
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6275	exists ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6276	fileModificationTime := self fileName modificationTime.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6277	textEditorModificationTime isNil ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6278	textEditorModificationTime := fileModificationTime.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	6279	].
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6280	message := '%1 was changed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6281	] ifFalse:[
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6282	message := '%1 was removed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6283	].
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6284
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6285	(textEditorModificationTime ~= fileModificationTime) ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6286	"file contents has been changed by someone else"
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6287	message := (resources string:message with:item fileName baseName) allBold
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6288	emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer).
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6289	message = self notifyChannel value ifFalse:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6290	self notify:message.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6291	self itemChanged value:true.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6292	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6293	].
5457 204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6294	!
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6295
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6296	checkItemForChangesWithNewSetup
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6297	self checkItemForChanges.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6298	self setupCheckModify.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6299	!
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6300
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6301	releaseCheckModify
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6302	checkModifiedBlock notNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6303	Processor removeTimedBlock:checkModifiedBlock.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6304	].
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6305	!
621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6306
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6307	setupCheckModify
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6308
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6309	checkModifiedBlock isNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6310	checkModifiedBlock := [
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6311	self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6312	enqueueMessage:#checkItemForChangesWithNewSetup
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6313	for:self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6314	arguments:#().
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6315	].
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6316	].
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	6317	Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
3892 321c1729db5b initial checkin penk parents: diff changeset	6318	! !
321c1729db5b initial checkin penk parents: diff changeset	6319
321c1729db5b initial checkin penk parents: diff changeset	6320	!FileApplicationNoteBook::TextEditor methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	6321
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6322	additionalInfo
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6323	^ '[',editView numberOfLines printString , ' lines]'.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6324
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6325	"Created: / 24-10-2006 / 12:27:07 / cg"
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6326	!
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6327
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6328	hasMD5
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6329	^ ( MD5Stream notNil and:[MD5Stream isLoaded])
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6330	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6331
3892 321c1729db5b initial checkin penk parents: diff changeset	6332	isModified
5456 91c198c1c3e9 add new item if it is modified penk parents: 5447 diff changeset	6333	self checkItemForChanges.
5317 8f813402542f item modified penk parents: 5315 diff changeset	6334	^ self modifiedChannel value
8f813402542f item modified penk parents: 5315 diff changeset	6335	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	6336	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6337
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6338	isTextEditor
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6339
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6340	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	6341	! !
321c1729db5b initial checkin penk parents: diff changeset	6342
321c1729db5b initial checkin penk parents: diff changeset	6343	!FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	6344
321c1729db5b initial checkin penk parents: diff changeset	6345	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6346	"asks for permission before closing"
3892 321c1729db5b initial checkin penk parents: diff changeset	6347
321c1729db5b initial checkin penk parents: diff changeset	6348	(self doClose) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6349	^ super closeRequest.
321c1729db5b initial checkin penk parents: diff changeset	6350	].
321c1729db5b initial checkin penk parents: diff changeset	6351	!
321c1729db5b initial checkin penk parents: diff changeset	6352
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6353	editorOperationsMenuSpecForMimeType:mimeType
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6354	mimeType isHtml ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6355	^ self class menuEditorOperationsForHTML.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6356	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6357	mimeType isSmalltalkSource ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6358	^ self class menuEditorOperationsForSourceCode.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6359	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6360	mimeType isTextType ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6361	^ self class menuEditorOperationsForNormalText.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6362	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6363
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6364	^ self class menuEditorOperationsForOther.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6365
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6366	"Created: / 02-08-2013 / 18:00:39 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6367	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6368
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6369	getEditorClass
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6370	UserPreferences current useCodeView2InTools ifTrue:[
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6371	^ Tools::CodeView2 ? CodeView
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6372	].
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6373	^ CodeView
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6374
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6375	"Created: / 06-10-2011 / 11:21:43 / cg"
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6376	!
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6377
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6378	hideEditorOperationsToolBarButtonCreated:aButton
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6379	aButton passiveLevel:(MenuPanel defaultLevel).
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6380	aButton activeLevel:-1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6381	aButton backgroundColor:(MenuPanel defaultBackgroundColor).
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6382
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6383	"Created: / 02-08-2013 / 16:01:49 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6384	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6385
3892 321c1729db5b initial checkin penk parents: diff changeset	6386	postBuildTextEditor:aWidget
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6387	editView := aWidget scrolledView.
10955 7d8ae8e205b9 x Claus Gittinger <cg@exept.de> parents: 10922 diff changeset	6388	"/ I do not want any non-smalltalk code to be syntaxhighlighted!!
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6389	editView isCodeView2 ifTrue:[
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6390	editView languageHolder value:nil.
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6391	editView services:#().
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6392	].
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	6393	editView saveAction:[ self doSaveAs ].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6394	editView cursorLineHolder addDependent:self.
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	6395
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	6396	aWidget modifiedChannel:self viewModifiedChannel.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6397
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6398	editView externalEncoding:self fileEncoding.
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	6399	"/ editView characterEncoding:'unicode'. - thats the default anyway
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6400
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6401	"Modified: / 06-10-2011 / 11:43:40 / cg"
10955 7d8ae8e205b9 x Claus Gittinger <cg@exept.de> parents: 10922 diff changeset	6402	"Modified (comment): / 03-12-2011 / 10:27:47 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6403	!
321c1729db5b initial checkin penk parents: diff changeset	6404
321c1729db5b initial checkin penk parents: diff changeset	6405	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	6406
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6407	"/ self item isNil ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6408	"/ self item:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6409	"/ ].
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6410	(self componentAt:#EditorOperationsToolBar) menuHolder:self editorOperationsMenuSpecHolder.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6411
3892 321c1729db5b initial checkin penk parents: diff changeset	6412	self setUpTextView.
321c1729db5b initial checkin penk parents: diff changeset	6413	self changeInformation.
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6414	self tagsBrowserVisibilityChanged.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6415	super postOpenWith:aBuilder
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6416
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6417	"Modified: / 02-08-2013 / 17:57:50 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6418	!
321c1729db5b initial checkin penk parents: diff changeset	6419
321c1729db5b initial checkin penk parents: diff changeset	6420	release
321c1729db5b initial checkin penk parents: diff changeset	6421	"release my resources
321c1729db5b initial checkin penk parents: diff changeset	6422	"
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6423	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6424	checkModifiedBlock := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	6425	super release.
321c1729db5b initial checkin penk parents: diff changeset	6426	!
321c1729db5b initial checkin penk parents: diff changeset	6427
321c1729db5b initial checkin penk parents: diff changeset	6428	setUpTextView
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6429	"care for any contents specific settings for the editor
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6430	For example:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6431	- change the parenthesis-spec of the editor to include $< .. $> if the
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6432	shown document is an html- or xml document,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6433	- change the editorOperationsMenu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6434	"
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	6435
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6436	\|item mimeType suffix parenthesis commentStrings parentesisSpec col\|
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	6437
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6438	editView notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6439	item := self item.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6440	item notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6441	item hasMimeType ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6442	mimeType := item mimeType.
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6443	suffix := self fileName asFilename suffix.
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6444
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6445	(mimeType isHtml or:[mimeType isXml]) ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6446	parenthesis := editView parenthesisSpecification copy.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6447	((parenthesis at:#open) includes:$<) ifFalse:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6448	col := ((parenthesis at:#open) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6449	col add:$<.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6450	parenthesis at:#open put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6451
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6452	col := ((parenthesis at:#close) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6453	col add:$>.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6454	parenthesis at:#close put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6455
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6456	editView parenthesisSpecification:parenthesis
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6457	].
5548 7449b01c95b1 checkin from browser Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	6458	].
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6459
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6460	commentStrings := MIMETypes
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	6461	commentStringsForMimeType:mimeType
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6462	suffix:suffix
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6463	ifUnknown:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6464	"/ st:
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6465	#('"/' ('"' '"'))
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6466	].
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	6467
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6468	commentStrings notNil ifTrue:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6469	editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6470	].
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6471
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6472	parentesisSpec := MIMETypes
8176 64c5b7c41f3d fix spelling of MIMETypes>>#parenthesis* methods Stefan Vogel <sv@exept.de> parents: 8087 diff changeset	6473	parenthesisSpecForMimeType:mimeType
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6474	suffix:suffix
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6475	ifUnknown:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6476	\|spec\|
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6477	spec := IdentityDictionary new.
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6478	spec at:#open put:#( $( $[ ${) .
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6479	spec at:#close put:#( $) $] $}).
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6480	spec
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6481	].
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6482
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6483	parentesisSpec notNil ifTrue:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6484	editView perform:#parenthesisSpecification: with:parentesisSpec ifNotUnderstood:nil
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6485	].
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6486	self setupEditorOperationsMenuForMimeType:mimeType.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6487	] ifFalse:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6488	self setupEditorOperationsMenuForMimeType:(MIMETypes mimeTypeFromString:'text/plain').
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6489	]
3892 321c1729db5b initial checkin penk parents: diff changeset	6490	].
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6491	editView externalEncoding:self fileEncoding.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6492	]
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6493
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6494	"Modified: / 02-08-2013 / 16:34:34 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6495	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6496
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6497	setupEditorOperationsMenuForMimeType:mimeType
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6498	\|spec\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6499
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6500	spec := self editorOperationsMenuSpecForMimeType:mimeType.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6501
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6502	"/ does not work - why?
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6503	"/ self editorOperationsMenuSpecHolder value:spec.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6504
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6505	(self componentAt:#EditorOperationsToolBarMenu) menu:spec.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6506
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6507	"Created: / 02-08-2013 / 16:35:21 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6508	! !
321c1729db5b initial checkin penk parents: diff changeset	6509
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6510	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'defaults'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6511
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6512	tabStringFor:aApplicationType
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6513	"the formatString shown in a tab (language translated)"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6514
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6515	^ 'XML View for %1'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6516
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6517	"Modified: / 17-02-2011 / 13:28:22 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6518	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6519
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6520	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'help specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6521
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6522	helpSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6523	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6524	by the UIHelpTool of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6525
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6526	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6527	the UIHelpTool may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6528
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6529	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6530	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6531	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6532
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6533	<resource: #help>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6534
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6535	^ super helpSpec addPairsFrom:#(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6536
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6537
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6538	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6539
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6540	"Modified: / 17-02-2011 / 13:28:28 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6541	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6542
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6543	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'interface specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6544
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6545	windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6546	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6547	by the UIPainter of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6548
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6549	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6550	the UIPainter may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6551
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6552	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6553	UIPainter new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6554	FileApplicationNoteBook::XMLViewApplication new openInterface:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6555	FileApplicationNoteBook::XMLViewApplication open
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6556	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6557
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6558	<resource: #canvas>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6559
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6560	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6561	#(FullSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6562	name: windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6563	window:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6564	(WindowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6565	label: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6566	name: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6567	min: (Point 10 10)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6568	bounds: (Rectangle 0 0 676 492)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6569	menu: mainMenu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6570	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6571	component:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6572	(SpecCollection
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6573	collection: (
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6574	(MenuPanelSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6575	name: 'MenuXml'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6576	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6577	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6578	visibilityChannel: isEmbeddedApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6579	menu: menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6580	textDefault: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6581	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6582	(SubCanvasSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6583	name: 'XMLCanvas'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6584	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	6585	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6586	hasHorizontalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6587	hasVerticalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6588	majorKey: #'XML::XMLInspector'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6589	createNewApplication: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6590	createNewBuilder: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6591	postBuildCallback: postBuildXMLCanvas:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6592	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6593	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6594
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6595	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6596	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6597	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6598
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6599	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'menu specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6600
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6601	menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6602	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6603	by the MenuEditor of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6604
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6605	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6606	the MenuEditor may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6607
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6608	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6609	MenuEditor new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6610	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::XMLViewApplication menu)) startUp
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6611	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6612
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6613	<resource: #menu>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6614
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6615	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6616	#(Menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6617	(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6618	(MenuItem
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6619	activeHelpKey: reloadFile
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6620	isVisible: reloadButtonVisible
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6621	enabled: enableReload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6622	label: 'Reload'
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6623	itemValue: reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6624	nameKey: Reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6625	translateLabel: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6626	isButton: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6627	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6628	)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6629	(MenuItem
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6630	activeHelpKey: closeTabButton
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6631	label: 'Close'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6632	itemValue: doClose
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6633	translateLabel: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6634	isButton: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6635	startGroup: right
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6636	hideMenuOnActivated: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6637	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6638	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6639	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6640	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6641	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6642	)
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6643
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6644	"Modified: / 17-02-2011 / 17:30:26 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6645	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6646
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6647	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6648
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6649	canOpenItem:anItem
12121 57a6e8face3b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12115 diff changeset	6650	(Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ false].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6651
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6652	^ (anItem hasMimeType and:[anItem mimeType isXml])
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6653
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6654	"Modified: / 17-02-2011 / 13:34:08 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6655	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6656
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6657	wantNewApplicationAnyway
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6658
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6659	^ false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6660	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6661
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6662	!FileApplicationNoteBook::XMLViewApplication methodsFor:'accessing'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6663
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6664	item:anItem
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6665	\|retVal\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6666
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6667	self labelHolder value:anItem fileName asString.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6668	retVal := super item:anItem.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6669	xmlTreeApp notNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6670	self updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6671	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6672	^ retVal
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6673
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6674	"Modified: / 17-02-2011 / 13:38:53 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6675	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6676
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6677	updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6678	\|inStream dom\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6679
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6680	self withWaitCursorDo:[
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6681	XML::XMLSignal handle:[:ex \|
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6682	Dialog
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6683	information:
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6684	(resources
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6685	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	6686	with:inStream lineNumber
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6687	with:ex description).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6688	Error raise.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6689	] do:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6690	inStream := LineNumberReadStream on:(self fileName readStream).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6691	[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6692	dom := XML::XMLParser
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6693	processDocumentStream:inStream
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6694	beforeScanDo:[:parser \| parser validate:false. ].
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6695	xmlTreeApp model:dom.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6696	] ensure:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6697	inStream close
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6698	]
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6699	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6700	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6701
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6702	"Created: / 17-02-2011 / 13:39:07 / cg"
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6703	"Modified: / 17-02-2011 / 17:39:15 / cg"
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6704	! !
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6705
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6706	!FileApplicationNoteBook::XMLViewApplication methodsFor:'actions'!
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6707
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6708	reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6709	self updateXMLTree.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6710
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6711	"Created: / 17-02-2011 / 17:46:36 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6712	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6713
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6714	!FileApplicationNoteBook::XMLViewApplication methodsFor:'aspects'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6715
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6716	labelHolder
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6717
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6718	labelHolder isNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6719	labelHolder := '' asValue.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6720	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6721	^ labelHolder.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6722	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6723
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6724	!FileApplicationNoteBook::XMLViewApplication methodsFor:'initialization & release'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6725
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6726	postBuildXMLCanvas:aWidget
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6727	xmlTreeApp := aWidget client.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6728	item notNil ifTrue:[self updateXMLTree].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6729
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6730	"Modified: / 17-02-2011 / 13:39:18 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6731	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6732
3892 321c1729db5b initial checkin penk parents: diff changeset	6733	!FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	6734
321c1729db5b initial checkin penk parents: diff changeset	6735	maxNumberOfVNCRestarts
321c1729db5b initial checkin penk parents: diff changeset	6736
321c1729db5b initial checkin penk parents: diff changeset	6737	^ 10
321c1729db5b initial checkin penk parents: diff changeset	6738	!
321c1729db5b initial checkin penk parents: diff changeset	6739
321c1729db5b initial checkin penk parents: diff changeset	6740	mimeTypeUnixApplicationMapping
321c1729db5b initial checkin penk parents: diff changeset	6741
321c1729db5b initial checkin penk parents: diff changeset	6742	" here insert the application and mime type pairs to open by XviewApplication
321c1729db5b initial checkin penk parents: diff changeset	6743	"
321c1729db5b initial checkin penk parents: diff changeset	6744
321c1729db5b initial checkin penk parents: diff changeset	6745	^
321c1729db5b initial checkin penk parents: diff changeset	6746	#(
321c1729db5b initial checkin penk parents: diff changeset	6747	#(#'application/postscript' #gv )
321c1729db5b initial checkin penk parents: diff changeset	6748	#(#'application/pdf' #acroread )
321c1729db5b initial checkin penk parents: diff changeset	6749	)
321c1729db5b initial checkin penk parents: diff changeset	6750	!
321c1729db5b initial checkin penk parents: diff changeset	6751
321c1729db5b initial checkin penk parents: diff changeset	6752	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	6753	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	6754
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	6755	^ 'VNC for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	6756
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	6757	"Modified: / 01-03-2007 / 21:43:43 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6758	!
321c1729db5b initial checkin penk parents: diff changeset	6759
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6760	unixVNCCommand
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6761
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6762	^ 'Xvnc'
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6763	!
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6764
3892 321c1729db5b initial checkin penk parents: diff changeset	6765	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	6766
4500 9f0b8d6ae2be make a new XView for a new item if an XView already open penk parents: 4499 diff changeset	6767	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	6768	! !
321c1729db5b initial checkin penk parents: diff changeset	6769
321c1729db5b initial checkin penk parents: diff changeset	6770	!FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	6771
321c1729db5b initial checkin penk parents: diff changeset	6772	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	6773	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	6774	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	6775
321c1729db5b initial checkin penk parents: diff changeset	6776	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	6777	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	6778
321c1729db5b initial checkin penk parents: diff changeset	6779	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	6780	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	6781	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	6782	FileApplicationNoteBook::XViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	6783	"
321c1729db5b initial checkin penk parents: diff changeset	6784
321c1729db5b initial checkin penk parents: diff changeset	6785	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	6786
321c1729db5b initial checkin penk parents: diff changeset	6787	^
321c1729db5b initial checkin penk parents: diff changeset	6788	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	6789	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	6790	#window:
321c1729db5b initial checkin penk parents: diff changeset	6791	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	6792	#label: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	6793	#name: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	6794	#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	6795	#bounds: #(#Rectangle 16 42 692 534)
3892 321c1729db5b initial checkin penk parents: diff changeset	6796	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	6797	)
321c1729db5b initial checkin penk parents: diff changeset	6798	#component:
321c1729db5b initial checkin penk parents: diff changeset	6799	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	6800	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	6801	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	6802	#name: 'MenuVNC'
3892 321c1729db5b initial checkin penk parents: diff changeset	6803	#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	6804	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	6805	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	6806	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	6807	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	6808	)
321c1729db5b initial checkin penk parents: diff changeset	6809	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	6810	#name: 'VNCView'
3892 321c1729db5b initial checkin penk parents: diff changeset	6811	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	6812	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	6813	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	6814	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	6815	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	6816	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	6817	#component: #VNCFrameBufferView
321c1729db5b initial checkin penk parents: diff changeset	6818	#postBuildCallback: #postBuildXView:
321c1729db5b initial checkin penk parents: diff changeset	6819	)
321c1729db5b initial checkin penk parents: diff changeset	6820	)
321c1729db5b initial checkin penk parents: diff changeset	6821
321c1729db5b initial checkin penk parents: diff changeset	6822	)
321c1729db5b initial checkin penk parents: diff changeset	6823	)
321c1729db5b initial checkin penk parents: diff changeset	6824	! !
321c1729db5b initial checkin penk parents: diff changeset	6825
321c1729db5b initial checkin penk parents: diff changeset	6826	!FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	6827
321c1729db5b initial checkin penk parents: diff changeset	6828	menu
321c1729db5b initial checkin penk parents: diff changeset	6829	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	6830	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	6831
321c1729db5b initial checkin penk parents: diff changeset	6832	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	6833	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	6834
321c1729db5b initial checkin penk parents: diff changeset	6835	"
321c1729db5b initial checkin penk parents: diff changeset	6836	MenuEditor new openOnClass:NoteBookApplication::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	6837	(Menu new fromLiteralArrayEncoding:(NoteBookApplication::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	6838	"
321c1729db5b initial checkin penk parents: diff changeset	6839
321c1729db5b initial checkin penk parents: diff changeset	6840	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	6841
321c1729db5b initial checkin penk parents: diff changeset	6842	^
321c1729db5b initial checkin penk parents: diff changeset	6843	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	6844	#(
321c1729db5b initial checkin penk parents: diff changeset	6845	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	6846	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	6847	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	6848	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	6849	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	6850	#hideMenuOnActivated: false
321c1729db5b initial checkin penk parents: diff changeset	6851	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	6852	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	6853	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	6854	)
321c1729db5b initial checkin penk parents: diff changeset	6855	)
321c1729db5b initial checkin penk parents: diff changeset	6856	nil
321c1729db5b initial checkin penk parents: diff changeset	6857	nil
321c1729db5b initial checkin penk parents: diff changeset	6858	)
321c1729db5b initial checkin penk parents: diff changeset	6859	! !
321c1729db5b initial checkin penk parents: diff changeset	6860
321c1729db5b initial checkin penk parents: diff changeset	6861	!FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	6862
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6863	canOpenItem:anItem
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	6864	\| keySym\|
3892 321c1729db5b initial checkin penk parents: diff changeset	6865
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6866	keySym := anItem mimeType asSymbol.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6867	OperatingSystem isUNIXlike ifFalse:[^ false].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6868
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	6869	(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	6870
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6871	(OperatingSystem executeCommand:('which ', self unixVNCCommand)) ifFalse:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6872	Dialog warn:'Cannot start a viewer for ' , anItem fileName baseName.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6873	^ false.
3892 321c1729db5b initial checkin penk parents: diff changeset	6874	].
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6875
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6876	VNCFrameBufferView notNil ifFalse:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6877	Dialog warn:'VNC support classes are missing (package not loaded?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6878	^ false.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6879	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6880	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	6881	! !
321c1729db5b initial checkin penk parents: diff changeset	6882
321c1729db5b initial checkin penk parents: diff changeset	6883	!FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	6884
321c1729db5b initial checkin penk parents: diff changeset	6885	xView
321c1729db5b initial checkin penk parents: diff changeset	6886	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	6887
321c1729db5b initial checkin penk parents: diff changeset	6888	^ xView
321c1729db5b initial checkin penk parents: diff changeset	6889	!
321c1729db5b initial checkin penk parents: diff changeset	6890
321c1729db5b initial checkin penk parents: diff changeset	6891	xView:something
321c1729db5b initial checkin penk parents: diff changeset	6892	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	6893
321c1729db5b initial checkin penk parents: diff changeset	6894	xView := something.
321c1729db5b initial checkin penk parents: diff changeset	6895	! !
321c1729db5b initial checkin penk parents: diff changeset	6896
321c1729db5b initial checkin penk parents: diff changeset	6897	!FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	6898
321c1729db5b initial checkin penk parents: diff changeset	6899	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	6900
321c1729db5b initial checkin penk parents: diff changeset	6901	\| stream\|
321c1729db5b initial checkin penk parents: diff changeset	6902
321c1729db5b initial checkin penk parents: diff changeset	6903	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	6904	stream nextPutAll:'XView on: '.
321c1729db5b initial checkin penk parents: diff changeset	6905	stream nextPutAll:self fileName baseName.
321c1729db5b initial checkin penk parents: diff changeset	6906	masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6907	self window label:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	6908
321c1729db5b initial checkin penk parents: diff changeset	6909	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6910	masterApplication tabStringChangeTo:stream contents for:self.
321c1729db5b initial checkin penk parents: diff changeset	6911	].
321c1729db5b initial checkin penk parents: diff changeset	6912	stream close.
321c1729db5b initial checkin penk parents: diff changeset	6913	!
321c1729db5b initial checkin penk parents: diff changeset	6914
321c1729db5b initial checkin penk parents: diff changeset	6915	setupXView
321c1729db5b initial checkin penk parents: diff changeset	6916
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	6917	\|xExt yExt mainView\|
3892 321c1729db5b initial checkin penk parents: diff changeset	6918
321c1729db5b initial checkin penk parents: diff changeset	6919	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	6920	xExt := self xView width asString.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	6921	self masterApplication notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6922	mainView := self builder windowGroup mainView.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6923	"/ 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	6924	(mainView application class == (Smalltalk at:#FileBrowserV2 ifAbsent:nil)) notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6925	yExt := mainView height asString.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6926	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6927	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	6928	yExt isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	6929	yExt := self xView height asString.
321c1729db5b initial checkin penk parents: diff changeset	6930	].
321c1729db5b initial checkin penk parents: diff changeset	6931	ext := xExt, 'x', yExt.
321c1729db5b initial checkin penk parents: diff changeset	6932	self startViewer.
321c1729db5b initial checkin penk parents: diff changeset	6933	! !
321c1729db5b initial checkin penk parents: diff changeset	6934
321c1729db5b initial checkin penk parents: diff changeset	6935	!FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
321c1729db5b initial checkin penk parents: diff changeset	6936
321c1729db5b initial checkin penk parents: diff changeset	6937	setupView
321c1729db5b initial checkin penk parents: diff changeset	6938	\| renderer view\|
321c1729db5b initial checkin penk parents: diff changeset	6939
321c1729db5b initial checkin penk parents: diff changeset	6940	view := xView.
321c1729db5b initial checkin penk parents: diff changeset	6941	renderer := VNCRenderer for:vncConnection targetWindow:view device:xView device.
321c1729db5b initial checkin penk parents: diff changeset	6942
321c1729db5b initial checkin penk parents: diff changeset	6943	view renderer:renderer.
321c1729db5b initial checkin penk parents: diff changeset	6944	view connection:vncConnection.
321c1729db5b initial checkin penk parents: diff changeset	6945
321c1729db5b initial checkin penk parents: diff changeset	6946	VNCException handle:[:ex\|
321c1729db5b initial checkin penk parents: diff changeset	6947	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	6948	] do:[
321c1729db5b initial checkin penk parents: diff changeset	6949	vncConnection
321c1729db5b initial checkin penk parents: diff changeset	6950	startMessageHandlerProcessForRenderer:renderer
321c1729db5b initial checkin penk parents: diff changeset	6951	errorHandler:[:ex \| self stopViewer].
321c1729db5b initial checkin penk parents: diff changeset	6952	].
321c1729db5b initial checkin penk parents: diff changeset	6953	!
321c1729db5b initial checkin penk parents: diff changeset	6954
321c1729db5b initial checkin penk parents: diff changeset	6955	startVNCserver
321c1729db5b initial checkin penk parents: diff changeset	6956	\|cmd blocked connected numberOfVncStarts\|
321c1729db5b initial checkin penk parents: diff changeset	6957
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6958
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6959	VNCAuthenticationFailure isNil ifTrue:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6960	Dialog warn:'VNC Classes missing (package not laoded ?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6961	^ self.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6962	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	6963
3892 321c1729db5b initial checkin penk parents: diff changeset	6964	connected := false.
321c1729db5b initial checkin penk parents: diff changeset	6965	numberOfVncStarts isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6966	numberOfVncStarts := 1.
321c1729db5b initial checkin penk parents: diff changeset	6967	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6968	numberOfVncStarts := numberOfVncStarts + 1.
321c1729db5b initial checkin penk parents: diff changeset	6969	].
321c1729db5b initial checkin penk parents: diff changeset	6970
321c1729db5b initial checkin penk parents: diff changeset	6971	vncLock isNil ifTrue:[vncLock := Semaphore forMutualExclusion].
321c1729db5b initial checkin penk parents: diff changeset	6972
321c1729db5b initial checkin penk parents: diff changeset	6973	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	6974	cmd := ('/usr/X11R6/bin/', self class unixVNCCommand).
3892 321c1729db5b initial checkin penk parents: diff changeset	6975	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	6976	cmd := self class unixVNCCommand.
3892 321c1729db5b initial checkin penk parents: diff changeset	6977	].
321c1729db5b initial checkin penk parents: diff changeset	6978	vncPortNr isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6979	vncPortNr := 29
321c1729db5b initial checkin penk parents: diff changeset	6980	].
321c1729db5b initial checkin penk parents: diff changeset	6981	cmd := cmd , ' :' , vncPortNr printString , ' nologo -nevershared -localhost -depth 16 -geometry 1024x1024'.
321c1729db5b initial checkin penk parents: diff changeset	6982
321c1729db5b initial checkin penk parents: diff changeset	6983	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	6984
321c1729db5b initial checkin penk parents: diff changeset	6985	vncServerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	6986	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	6987	vncServerIsTerminated := false.
321c1729db5b initial checkin penk parents: diff changeset	6988	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	6989	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	6990	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	6991	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	6992	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	6993	fork:true
321c1729db5b initial checkin penk parents: diff changeset	6994	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	6995	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	6996	]
321c1729db5b initial checkin penk parents: diff changeset	6997	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	6998	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	6999	OperatingSystem closePid:vncServerPID.
321c1729db5b initial checkin penk parents: diff changeset	7000	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	7001	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7002	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7003	].
321c1729db5b initial checkin penk parents: diff changeset	7004	].
321c1729db5b initial checkin penk parents: diff changeset	7005	].
321c1729db5b initial checkin penk parents: diff changeset	7006
321c1729db5b initial checkin penk parents: diff changeset	7007	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7008	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	7009	].
321c1729db5b initial checkin penk parents: diff changeset	7010	].
321c1729db5b initial checkin penk parents: diff changeset	7011
321c1729db5b initial checkin penk parents: diff changeset	7012	self waitForTerminationOfServer ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7013	"/ Transcript showCR:'server has terminated really - try with next port'.
321c1729db5b initial checkin penk parents: diff changeset	7014	(numberOfVncStarts < self class maxNumberOfVNCRestarts) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7015	vncPortNr := vncPortNr + 1.
321c1729db5b initial checkin penk parents: diff changeset	7016	"/ Transcript showCR:'try next port ', vncPortNr asString.
321c1729db5b initial checkin penk parents: diff changeset	7017	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	7018	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7019	Dialog warn:'have started servers from port '
321c1729db5b initial checkin penk parents: diff changeset	7020	, (vncPortNr - self class maxNumberOfVNCRestarts) asString
321c1729db5b initial checkin penk parents: diff changeset	7021	, ' to '
321c1729db5b initial checkin penk parents: diff changeset	7022	, vncPortNr
321c1729db5b initial checkin penk parents: diff changeset	7023	, ' - cant connect anyway'.
321c1729db5b initial checkin penk parents: diff changeset	7024	"/ Transcript showCR:'have started servers from port ', vncPortNr - self class maxNumberOfVNCRestarts, ' to ', vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	7025	].
321c1729db5b initial checkin penk parents: diff changeset	7026	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7027	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	7028	vncServerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7029	Dialog warn:'Cannot start Xvnc'.
321c1729db5b initial checkin penk parents: diff changeset	7030	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7031	VNCAuthenticationFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	7032	Dialog warn:'Wrong password'.
321c1729db5b initial checkin penk parents: diff changeset	7033	] do:[
321c1729db5b initial checkin penk parents: diff changeset	7034	connected := self vncConnect.
321c1729db5b initial checkin penk parents: diff changeset	7035	].
321c1729db5b initial checkin penk parents: diff changeset	7036	connected ifTrue:[self setupView].
321c1729db5b initial checkin penk parents: diff changeset	7037	].
321c1729db5b initial checkin penk parents: diff changeset	7038	].
321c1729db5b initial checkin penk parents: diff changeset	7039	].
321c1729db5b initial checkin penk parents: diff changeset	7040	!
321c1729db5b initial checkin penk parents: diff changeset	7041
321c1729db5b initial checkin penk parents: diff changeset	7042	stopVNCServer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7043	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7044
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7045	(pid := vncServerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7046	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7047	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	7048	vncServerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7049	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7050	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7051	].
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7052	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	7053	].
321c1729db5b initial checkin penk parents: diff changeset	7054	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7055	!
321c1729db5b initial checkin penk parents: diff changeset	7056
321c1729db5b initial checkin penk parents: diff changeset	7057	vncConnect
321c1729db5b initial checkin penk parents: diff changeset	7058	\| tryConnects\|
321c1729db5b initial checkin penk parents: diff changeset	7059
321c1729db5b initial checkin penk parents: diff changeset	7060	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7061	vncConnection close
321c1729db5b initial checkin penk parents: diff changeset	7062	].
321c1729db5b initial checkin penk parents: diff changeset	7063
321c1729db5b initial checkin penk parents: diff changeset	7064	vncConnection := VNCServerConnection new.
321c1729db5b initial checkin penk parents: diff changeset	7065	tryConnects := 1.
321c1729db5b initial checkin penk parents: diff changeset	7066	[tryConnects < 3] whileTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7067	VNCConnectionFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	7068	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	7069	tryConnects := tryConnects + 1.
321c1729db5b initial checkin penk parents: diff changeset	7070	] do:[
321c1729db5b initial checkin penk parents: diff changeset	7071	vncConnection connectTo:'localhost' port:vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	7072	^ true.
321c1729db5b initial checkin penk parents: diff changeset	7073	].
321c1729db5b initial checkin penk parents: diff changeset	7074	].
321c1729db5b initial checkin penk parents: diff changeset	7075	^ false
321c1729db5b initial checkin penk parents: diff changeset	7076	!
321c1729db5b initial checkin penk parents: diff changeset	7077
321c1729db5b initial checkin penk parents: diff changeset	7078	vncServerTerminated
321c1729db5b initial checkin penk parents: diff changeset	7079	"/ Transcript showCR:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7080	"/ 'vnc server has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	7081	"/ Dialog information:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7082
321c1729db5b initial checkin penk parents: diff changeset	7083	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	7084	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7085	vncConnection close.
321c1729db5b initial checkin penk parents: diff changeset	7086	vncConnection := nil
321c1729db5b initial checkin penk parents: diff changeset	7087	].
321c1729db5b initial checkin penk parents: diff changeset	7088	vncServerIsTerminated := true.
321c1729db5b initial checkin penk parents: diff changeset	7089	!
321c1729db5b initial checkin penk parents: diff changeset	7090
321c1729db5b initial checkin penk parents: diff changeset	7091	waitForTerminationOfServer
321c1729db5b initial checkin penk parents: diff changeset	7092	\| cycles \|
321c1729db5b initial checkin penk parents: diff changeset	7093
321c1729db5b initial checkin penk parents: diff changeset	7094	cycles := 1.
321c1729db5b initial checkin penk parents: diff changeset	7095	[vncServerIsTerminated] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7096	(cycles > 3) ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	7097	cycles := cycles + 1.
321c1729db5b initial checkin penk parents: diff changeset	7098	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	7099	].
321c1729db5b initial checkin penk parents: diff changeset	7100	^ true
321c1729db5b initial checkin penk parents: diff changeset	7101	! !
321c1729db5b initial checkin penk parents: diff changeset	7102
321c1729db5b initial checkin penk parents: diff changeset	7103	!FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
321c1729db5b initial checkin penk parents: diff changeset	7104
321c1729db5b initial checkin penk parents: diff changeset	7105	startViewer
321c1729db5b initial checkin penk parents: diff changeset	7106	\|cmd keySym applItem \|
321c1729db5b initial checkin penk parents: diff changeset	7107
321c1729db5b initial checkin penk parents: diff changeset	7108	keySym := self item mimeType asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	7109	applItem := self class mimeTypeUnixApplicationMapping detect:[ : el \| (el at:1) == keySym ] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	7110	applItem isNil ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	7111
321c1729db5b initial checkin penk parents: diff changeset	7112	cmd := (applItem at:2) asString, ' -geometry ', ext, ' -display :' , vncPortNr printString , ' ' , self fileName asString.
321c1729db5b initial checkin penk parents: diff changeset	7113	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	7114	!
321c1729db5b initial checkin penk parents: diff changeset	7115
321c1729db5b initial checkin penk parents: diff changeset	7116	startViewer:viewerCommand
321c1729db5b initial checkin penk parents: diff changeset	7117	\|blocked\|
321c1729db5b initial checkin penk parents: diff changeset	7118
321c1729db5b initial checkin penk parents: diff changeset	7119	viewerPID notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7120	^ self
321c1729db5b initial checkin penk parents: diff changeset	7121	].
321c1729db5b initial checkin penk parents: diff changeset	7122
321c1729db5b initial checkin penk parents: diff changeset	7123	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	7124
321c1729db5b initial checkin penk parents: diff changeset	7125	viewerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	7126	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	7127	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	7128	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	7129	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	7130	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	7131	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	7132	fork:true
321c1729db5b initial checkin penk parents: diff changeset	7133	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	7134	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	7135	]
321c1729db5b initial checkin penk parents: diff changeset	7136	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	7137	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7138	OperatingSystem closePid:viewerPID.
321c1729db5b initial checkin penk parents: diff changeset	7139	viewerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7140	self viewerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7141	].
321c1729db5b initial checkin penk parents: diff changeset	7142	].
321c1729db5b initial checkin penk parents: diff changeset	7143
321c1729db5b initial checkin penk parents: diff changeset	7144	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7145	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	7146	].
321c1729db5b initial checkin penk parents: diff changeset	7147
321c1729db5b initial checkin penk parents: diff changeset	7148	viewerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7149	Dialog warn:'Cannot start ', viewerCommand.
321c1729db5b initial checkin penk parents: diff changeset	7150	].
321c1729db5b initial checkin penk parents: diff changeset	7151	!
321c1729db5b initial checkin penk parents: diff changeset	7152
321c1729db5b initial checkin penk parents: diff changeset	7153	startXterm
321c1729db5b initial checkin penk parents: diff changeset	7154	\|cmd\|
321c1729db5b initial checkin penk parents: diff changeset	7155
321c1729db5b initial checkin penk parents: diff changeset	7156	cmd := 'xterm -geometry 600x800 -display :' , vncPortNr printString.
321c1729db5b initial checkin penk parents: diff changeset	7157	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	7158	!
321c1729db5b initial checkin penk parents: diff changeset	7159
321c1729db5b initial checkin penk parents: diff changeset	7160	stopViewer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7161	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7162
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7163	(pid := viewerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7164	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7165	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	7166	viewerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7167	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7168	viewerPID := nil.
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7169	].
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7170	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	7171	].
321c1729db5b initial checkin penk parents: diff changeset	7172	!
321c1729db5b initial checkin penk parents: diff changeset	7173
321c1729db5b initial checkin penk parents: diff changeset	7174	viewerTerminated
321c1729db5b initial checkin penk parents: diff changeset	7175	"/ Transcript showCR:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7176	"/ 'viewer has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	7177	"/ Dialog information:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7178	! !
321c1729db5b initial checkin penk parents: diff changeset	7179
321c1729db5b initial checkin penk parents: diff changeset	7180	!FileApplicationNoteBook::XViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	7181
321c1729db5b initial checkin penk parents: diff changeset	7182	postBuildXView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	7183
321c1729db5b initial checkin penk parents: diff changeset	7184	self xView:aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	7185	self xView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	7186	aWidget autoHideScrollBars:true.
321c1729db5b initial checkin penk parents: diff changeset	7187	!
321c1729db5b initial checkin penk parents: diff changeset	7188
321c1729db5b initial checkin penk parents: diff changeset	7189	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	7190	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	7191
321c1729db5b initial checkin penk parents: diff changeset	7192	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	7193
321c1729db5b initial checkin penk parents: diff changeset	7194	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7195	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	7196	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	7197	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	7198	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	7199	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	7200	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	7201	suffix = 'pdf'
321c1729db5b initial checkin penk parents: diff changeset	7202	]
321c1729db5b initial checkin penk parents: diff changeset	7203	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	7204	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7205	Dialog warn:'cant find a PDF File in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	7206	^ self
321c1729db5b initial checkin penk parents: diff changeset	7207	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	7208	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName)).
3892 321c1729db5b initial checkin penk parents: diff changeset	7209	].
321c1729db5b initial checkin penk parents: diff changeset	7210	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	7211	self setupXView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	7212	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	7213	!
321c1729db5b initial checkin penk parents: diff changeset	7214
321c1729db5b initial checkin penk parents: diff changeset	7215	release
321c1729db5b initial checkin penk parents: diff changeset	7216	"/Transcript showCR:'release'.
321c1729db5b initial checkin penk parents: diff changeset	7217	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	7218	self stopVNCServer.
321c1729db5b initial checkin penk parents: diff changeset	7219	^ super release
321c1729db5b initial checkin penk parents: diff changeset	7220	! !
321c1729db5b initial checkin penk parents: diff changeset	7221
321c1729db5b initial checkin penk parents: diff changeset	7222	!FileApplicationNoteBook class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	7223
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7224	version
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	7225	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7226	!
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7227
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	7228	version_CVS
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	7229	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	7230	!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	7231
12431 9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12406 diff changeset	7232	version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12406 diff changeset	7233
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12406 diff changeset	7234	^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12406 diff changeset	7235	!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12406 diff changeset	7236
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	7237	version_SVN
12314 0cbf76168690 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12308 diff changeset	7238	^ '$Id: FileApplicationNoteBook.st 8083 2013-01-14 11:48:37Z vranyj1 $'
3892 321c1729db5b initial checkin penk parents: diff changeset	7239	! !
12115 2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	7240

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 08 Aug 2013 11:08:29 +0100
branch	jv
changeset 13330	02d6c2d848a0
parent 13180	64a4186ddfce
parent 13298	0e2817ce7e77
child 13391	43eaa1c36082
permissions	-rw-r--r--