hg/stx-libtool: FileApplicationNoteBook.st@0248509ac90d (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
14801 3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	70	instanceVariableNames:'terminalView scrollLockedHolder'
9951 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
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	380	\| applIndex string isDirectory iconOrNil tabItem\|
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	381
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	382	anItem notNil ifTrue:[
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	383	isDirectory := anItem isDirectory or:[anItem linkTargetIsDirectory ].
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	384
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	385	isDirectory ifFalse:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	386	(anAppl changeItem:anItem) ifFalse:[ ^ self].
2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	387	self fileHistory addFirst:anItem.
4989 a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	388	self enableFileHistory value:true.
a048da9fbba4 oops Claus Gittinger <cg@exept.de> parents: 4988 diff changeset	389	].
3892 321c1729db5b initial checkin penk parents: diff changeset	390	].
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	391	string := anAppl getTabString.
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	392	tabItem := Text fromString:string.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	393
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	394	iconOrNil := anAppl getTabIcon.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	395	iconOrNil notNil ifTrue:[
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	396	tabItem := LabelAndIcon icon:iconOrNil string:tabItem.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	397	].
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	398	applIndex := self getIndexFor:anAppl.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	399	self privateTabList at:applIndex put:tabItem.
9882 5956cfea28a8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9819 diff changeset	400	"/ self doSelect:anAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	401	!
321c1729db5b initial checkin penk parents: diff changeset	402
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	403	changeModified:aSymbol for:anAppl
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	404	\|text stream\|
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	405
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	406	stream := WriteStream with:anAppl getTabString.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	407	aSymbol ~~ #unchanged ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	408	stream space.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	409	stream nextPut:$[.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	410	stream nextPutAll:aSymbol asString.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	411	stream nextPut:$].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	412	text := stream contents asText.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	413	text emphasizeAllWith:UserPreferences current emphasisForModifiedBuffer.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	414	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	415	text := stream contents asText.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	416	].
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	417
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	418	self tabStringChangeTo:text for:anAppl.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	419	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	420
3892 321c1729db5b initial checkin penk parents: diff changeset	421	closeSubCanvas:aApplication
321c1729db5b initial checkin penk parents: diff changeset	422
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	423	\| applIndex historyList localHistoryList selectedPage\|
3892 321c1729db5b initial checkin penk parents: diff changeset	424
321c1729db5b initial checkin penk parents: diff changeset	425	applIndex := self getIndexFor:aApplication.
321c1729db5b initial checkin penk parents: diff changeset	426	applIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	427	"/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES
321c1729db5b initial checkin penk parents: diff changeset	428	"/ self lastSelection:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	429
321c1729db5b initial checkin penk parents: diff changeset	430	historyList := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	431	historyList remove:applIndex ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	432	localHistoryList := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	433	historyList notEmpty ifTrue:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	434	selectedPage := historyList last.
3892 321c1729db5b initial checkin penk parents: diff changeset	435	] ifFalse:[
3929 e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	436	selectedPage := 1.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	437	].
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	438	self selectedEditorPage value:selectedPage.
e373fe6a0b4d * empty log message * Claus Gittinger <cg@exept.de> parents: 3919 diff changeset	439
3892 321c1729db5b initial checkin penk parents: diff changeset	440	historyList do:[ : index \|
321c1729db5b initial checkin penk parents: diff changeset	441	index <= applIndex ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	442	localHistoryList add:index
321c1729db5b initial checkin penk parents: diff changeset	443	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	444	localHistoryList add:(index - 1)
321c1729db5b initial checkin penk parents: diff changeset	445	]
321c1729db5b initial checkin penk parents: diff changeset	446	].
321c1729db5b initial checkin penk parents: diff changeset	447	self selectionHistoryList:localHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	448	self listOfApplications removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	449	self privateTabList removeIndex:applIndex.
321c1729db5b initial checkin penk parents: diff changeset	450	self privateTabList isEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	451	self viewNoteBookApplicationHolder value:false.
321c1729db5b initial checkin penk parents: diff changeset	452	self enableViewNoteBookApplication value:false.
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	453	self changeFileBrowserTitleTo:'FileBrowser V2'.
05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	454
3892 321c1729db5b initial checkin penk parents: diff changeset	455	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	456	historyList notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	457	self selectedEditorPage value:(self selectionHistoryList last).
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
321c1729db5b initial checkin penk parents: diff changeset	462	"/ because subCanvas was configured to keep its view,
321c1729db5b initial checkin penk parents: diff changeset	463	"/ we must destroy it here.
3987 f012466a71cd * empty log message * ca parents: 3982 diff changeset	464	aApplication window destroy.
3892 321c1729db5b initial checkin penk parents: diff changeset	465	!
321c1729db5b initial checkin penk parents: diff changeset	466
6484 9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	467	destroyTab:tabIndex
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	468	(self listOfApplications at:tabIndex) doClose
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	469	!
9d12c4191a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 6482 diff changeset	470
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	471	doCloseAllApplications
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	472	\| appl \|
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	473
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	474	(Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	475
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	476	appl := self listOfApplications copy do:[:eachApp \| eachApp doClose.].
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	477	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	478
6214 bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	479	doCloseAllOtherApplications
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	480	\| appl currentApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	481
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	482	"/ (Dialog confirm:(resources string:'Really close all Tabs ?')) ifFalse:[^ self].
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	483
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	484	currentApp := self currentTabMenusApplication.
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	485	appl := self listOfApplications copy do:
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	486	[:eachApp \|
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	487	eachApp ~~ currentApp ifTrue:[
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	488	eachApp doClose.
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	!
bba5ec45b937 +close all other tabs Claus Gittinger <cg@exept.de> parents: 6190 diff changeset	492
3892 321c1729db5b initial checkin penk parents: diff changeset	493	doCloseApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	494	self currentTabMenusApplication doClose.
3892 321c1729db5b initial checkin penk parents: diff changeset	495	!
321c1729db5b initial checkin penk parents: diff changeset	496
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	497	doRenameTab
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	498	\| newLabel \|
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	499
5335 c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	500	newLabel := Dialog
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	501	request:'New Tab Label:'
c676d4fdd3f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	502	initialAnswer:(self privateTabList at:tabMenuIndex).
4572 ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	503	newLabel size == 0 ifTrue:[^ self ].
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	504	self privateTabList at:tabMenuIndex put:newLabel
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	505	!
ed5f7a7f1a8d + rename tab Claus Gittinger <cg@exept.de> parents: 4553 diff changeset	506
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	507	doSelectInList
5323 407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	508	\| fileName\|
407f0beaa69a * empty log message * Claus Gittinger <cg@exept.de> parents: 5317 diff changeset	509
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	510	fileName := self currentTabMenusApplication fileName.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	511	fileName notNil ifTrue:[
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	512	self gotoFile:fileName.
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	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	515
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	516	openApplByFileItem:anItem
14517 65a293fbfe93 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14516 diff changeset	517	"open a new embedded app, or a standard system command (for example pdf reader).
65a293fbfe93 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14516 diff changeset	518	return the new app or nil, if none was embedded.
65a293fbfe93 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14516 diff changeset	519	Uses the default class list for open of applications by item "
3892 321c1729db5b initial checkin penk parents: diff changeset	520
5290 8aeb40fef0f7 wait cursor Claus Gittinger <cg@exept.de> parents: 5287 diff changeset	521	\| applList applItem itemClass itemType appl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	522
14516 805d42ab3c16 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14498 diff changeset	523	anItem isNil ifTrue:[ ^ nil ].
5279 165a7b841a86 open directories found penk parents: 5265 diff changeset	524	anItem isDirectory ifTrue:[
165a7b841a86 open directories found penk parents: 5265 diff changeset	525	self warn:'No Application to open for directory:', anItem fileName asString, ' found'.
165a7b841a86 open directories found penk parents: 5265 diff changeset	526	^ nil.
165a7b841a86 open directories found penk parents: 5265 diff changeset	527	].
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	528
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	529	self openAlwaysInTextEditor value ifFalse:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	530	applList := self applicationList.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	531	applItem := applList
14496 4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	532	detect:[:eachApplItem\|
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	533	itemClass := self class classFor:eachApplItem.
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	534	(itemClass canOpenItem:anItem).
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	535	] ifNone:[nil].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	536
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	537	applItem notNil ifTrue:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	538	itemType := self class typeFor:applItem.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	539	itemClass := self class classFor:applItem.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	540	Error handle:[:ex \|
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	541	"/ catching the error, so we can still show text
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	542	] do:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	543	appl := self openApplicationClass:itemClass withItem:anItem withType:itemType.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	544	appl notNil ifTrue:[ ^ appl].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	545	].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	546	].
14496 4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	547	"/ fallback: open a system utility
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	548	OperatingSystem
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	549	openApplicationForDocument:anItem fileName
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	550	operation:#open
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	551	mimeType:nil
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	552	ifNone:[self openDefaultApplicationByItem:anItem].
14516 805d42ab3c16 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14498 diff changeset	553	^ nil.
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	554	].
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	555
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	556	^ self openDefaultApplicationByItem:anItem.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	557
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	558	"Modified: / 16-09-2011 / 16:17:58 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	559	!
321c1729db5b initial checkin penk parents: diff changeset	560
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	561	openApplicationClass:aClass withItem:anItem withType:aType
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	562
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	563	^ self
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	564	openApplicationClass:aClass
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	565	withItem:anItem
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	566	withType:aType
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	567	checkExisting:true
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	568
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	569	"Modified (format): / 12-01-2012 / 01:10:50 / cg"
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	570	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	571
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	572	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	573	^ self
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	574	openApplicationClass:aClass
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	575	withItem:anItem
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	576	withType:aType
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	577	checkExisting:checkExisting
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	578	preSetItem:nil
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	579
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	580	"Modified (format): / 29-11-2011 / 19:06:27 / cg"
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	581	!
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	582
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	583	openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting preSetItem:aBlock
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	584	\|existingAppl newAppl\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	585
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	586	"do not open unreadable items"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	587	checkExisting ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	588	(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	589	Dialog warn:'Can not open unreadable file ', anItem fileName baseName.
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	590	AbortOperationRequest raise.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	591	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	592	existingAppl := self tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock.
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	593	existingAppl notNil ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	594	self doSelect:existingAppl.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	595	^ existingAppl
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	596	].
3892 321c1729db5b initial checkin penk parents: diff changeset	597	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	598
3892 321c1729db5b initial checkin penk parents: diff changeset	599	newAppl := aClass new.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	600	newAppl masterApplication:self.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	601	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	602	aBlock value:newAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	603	].
3892 321c1729db5b initial checkin penk parents: diff changeset	604	newAppl type:aType.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	605
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	606	newAppl isTextEditor ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	607	newAppl fileEncoding:(self fileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	608	newAppl lockFileEncoding:(self lockFileEncodingHolder value).
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	609	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	610	(newAppl item:anItem) ifFalse:[ ^ nil ].
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	611	(anItem notNil and:[(anItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[
9819 2edda6ff0600 changed: Stefan Vogel <sv@exept.de> parents: 9788 diff changeset	612	self fileHistory addFirst:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	613	self enableFileHistory value:true.
321c1729db5b initial checkin penk parents: diff changeset	614	].
321c1729db5b initial checkin penk parents: diff changeset	615	self setSameFileIndexFor:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	616	self startApplication:newAppl.
321c1729db5b initial checkin penk parents: diff changeset	617	^ newAppl
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	618
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	619	"Modified (format): / 29-11-2011 / 19:06:47 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	620	!
321c1729db5b initial checkin penk parents: diff changeset	621
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	622	openDefaultApplicationByItem:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	623	" open the default application if no application for item is available or the start of the
321c1729db5b initial checkin penk parents: diff changeset	624	available application failed
321c1729db5b initial checkin penk parents: diff changeset	625	"
321c1729db5b initial checkin penk parents: diff changeset	626	\| applItem \|
321c1729db5b initial checkin penk parents: diff changeset	627
321c1729db5b initial checkin penk parents: diff changeset	628	applItem := self class defaultApplication.
321c1729db5b initial checkin penk parents: diff changeset	629	applItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	630	\| itemType itemClass\|
321c1729db5b initial checkin penk parents: diff changeset	631	itemType := self class typeFor:applItem.
321c1729db5b initial checkin penk parents: diff changeset	632	itemClass := self class classFor:applItem.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	633	^ self openApplicationClass:itemClass withItem:anItem withType:itemType.
3892 321c1729db5b initial checkin penk parents: diff changeset	634	].
321c1729db5b initial checkin penk parents: diff changeset	635	^ nil
321c1729db5b initial checkin penk parents: diff changeset	636	!
321c1729db5b initial checkin penk parents: diff changeset	637
321c1729db5b initial checkin penk parents: diff changeset	638	setSameFileIndexFor:anAppl
321c1729db5b initial checkin penk parents: diff changeset	639	\|sameFiles index item\|
321c1729db5b initial checkin penk parents: diff changeset	640
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	641	self class openAnotherApplicationOnSameItem ifFalse:[
3892 321c1729db5b initial checkin penk parents: diff changeset	642	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	643	^ self.
321c1729db5b initial checkin penk parents: diff changeset	644	].
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	645
3892 321c1729db5b initial checkin penk parents: diff changeset	646	item := anAppl item.
321c1729db5b initial checkin penk parents: diff changeset	647	item notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	648	sameFiles := self getSameApplicationsFor:anAppl.
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	649	(sameFiles notEmpty) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	650	(sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	651	anAppl sameFileIndex:1.
321c1729db5b initial checkin penk parents: diff changeset	652	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	653	index := (sameFiles collect:[:el \| (el sameFileIndex ? 1)]) max.
321c1729db5b initial checkin penk parents: diff changeset	654	anAppl sameFileIndex:index + 1.
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	655	].
edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	656	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	657	].
321c1729db5b initial checkin penk parents: diff changeset	658	anAppl sameFileIndex:nil.
321c1729db5b initial checkin penk parents: diff changeset	659	].
10382 edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	660
edf3a0e5ea8a changed: #setSameFileIndexFor: Claus Gittinger <cg@exept.de> parents: 9951 diff changeset	661	"Modified (format): / 24-07-2011 / 08:22:03 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	662	!
321c1729db5b initial checkin penk parents: diff changeset	663
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	664	startApplication:anApplication
14444 cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	665	"start a subapplication in the lower panel (terminal, finder, archive viewer or text editor)"
cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	666
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	667	\| window tabItem iconOrNil\|
3892 321c1729db5b initial checkin penk parents: diff changeset	668
7582 ee57ad4bee5c * empty log message * Claus Gittinger <cg@exept.de> parents: 7540 diff changeset	669	anApplication window isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	670	window := ApplicationSubView new.
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	671	anApplication createBuilder.
82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	672	window client:anApplication.
3892 321c1729db5b initial checkin penk parents: diff changeset	673	].
5007 82d60e287837 * empty log message * Claus Gittinger <cg@exept.de> parents: 5001 diff changeset	674	self listOfApplications add:anApplication.
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	675
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	676	tabItem := Text fromString:(anApplication getTabString).
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	677	iconOrNil := anApplication getTabIcon.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	678	iconOrNil notNil ifTrue:[
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	679	tabItem := LabelAndIcon icon:iconOrNil string:tabItem.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	680	].
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	681	self privateTabList add:tabItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	682	self viewNoteBookApplicationHolder value:true.
321c1729db5b initial checkin penk parents: diff changeset	683	self enableViewNoteBookApplication value:true.
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	684	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	685	self doSelect:anApplication.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	686	].
14444 cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	687	anApplication postOpenWith:anApplication builder.
3892 321c1729db5b initial checkin penk parents: diff changeset	688	!
321c1729db5b initial checkin penk parents: diff changeset	689
321c1729db5b initial checkin penk parents: diff changeset	690	tabStringAdd:aString for:aAppl
321c1729db5b initial checkin penk parents: diff changeset	691
321c1729db5b initial checkin penk parents: diff changeset	692	\| index text stream\|
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].
321c1729db5b initial checkin penk parents: diff changeset	696	text := self privateTabList at:index.
321c1729db5b initial checkin penk parents: diff changeset	697	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	698	stream nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	699	stream space.
321c1729db5b initial checkin penk parents: diff changeset	700	stream nextPutAll:aString.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	701	self privateTabList at:index put:(Text fromString:(stream contents)).
3892 321c1729db5b initial checkin penk parents: diff changeset	702	stream close.
321c1729db5b initial checkin penk parents: diff changeset	703	!
321c1729db5b initial checkin penk parents: diff changeset	704
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	705	tabStringChangeTo:aString for:anAppl
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	706
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	707	\| index text tabItem \|
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	708
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	709	index := self getIndexFor:anAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	710	index isNil ifTrue:[ ^ self].
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	711
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	712	text := Text fromString:aString.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	713
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	714	tabItem := self privateTabList at:index.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	715	tabItem class == LabelAndIcon ifTrue:[
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	716	text := LabelAndIcon icon:(tabItem icon) string:text.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	717	].
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	718
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	719	self privateTabList at:index put:text.
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	720	self selectedEditorPage value == index ifTrue:[
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	721	self changeFileBrowserTitleTo:aString.
e3e587a5fe65 change the window label penk parents: 4177 diff changeset	722	].
3892 321c1729db5b initial checkin penk parents: diff changeset	723	!
321c1729db5b initial checkin penk parents: diff changeset	724
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	725	tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	726	\| sameAppls changeAppl selAppl\|
3892 321c1729db5b initial checkin penk parents: diff changeset	727
321c1729db5b initial checkin penk parents: diff changeset	728	aClass wantNewApplicationAnyway ifTrue:[^ nil].
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	729	sameAppls := self getAllApplicationsByClass:aClass andType:aType.
79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	730	sameAppls isEmpty ifTrue:[^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	731	((aType == #directoryDescription) or:[aType == #commandResult]) ifTrue:[
4549 79d1c5a31e61 * empty log message * penk parents: 4529 diff changeset	732	"/ sameAppls := sameAppl first.
3892 321c1729db5b initial checkin penk parents: diff changeset	733	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	734	(self openMultipleApplicationsForType value) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	735	"/ open more than one application for a class and a type
321c1729db5b initial checkin penk parents: diff changeset	736	(self class openAnotherApplicationOnSameItem) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	737	"/ open a new application anyway, no matters if item already open
321c1729db5b initial checkin penk parents: diff changeset	738	^ nil
321c1729db5b initial checkin penk parents: diff changeset	739	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	740	"/ if item already changed select the application
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	741	selAppl := sameAppls detect:[:appl \| (appl item = anItem) ] ifNone:[nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	742	].
321c1729db5b initial checkin penk parents: diff changeset	743	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	744	"/ 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	745	sameAppls := sameAppls reject:[:appl \| appl isModified ].
3892 321c1729db5b initial checkin penk parents: diff changeset	746	].
321c1729db5b initial checkin penk parents: diff changeset	747	].
4393 194816f3a6ea Care for nil Stefan Vogel <sv@exept.de> parents: 4392 diff changeset	748	sameAppls size ~~ 0 ifTrue:[
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	749	" take first all applications which have nil items
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	750	second the selected
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	751	third the first
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	752	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	753	\| nilItemAppls \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	754
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	755	nilItemAppls := sameAppls select:[:appl\| appl item == nil ].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	756	nilItemAppls notEmpty ifTrue:[sameAppls := nilItemAppls].
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	757	(sameAppls includes:self selectedApplication) ifTrue:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	758	changeAppl := self selectedApplication.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	759	] ifFalse:[
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	760	changeAppl := sameAppls first.
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	761	].
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	762	aBlock notNil ifTrue:[
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	763	aBlock value:changeAppl.
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	764	].
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	765	changeAppl type:aType.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	766	self changeItem:anItem for:changeAppl.
3892 321c1729db5b initial checkin penk parents: diff changeset	767	selAppl := changeAppl.
321c1729db5b initial checkin penk parents: diff changeset	768	].
321c1729db5b initial checkin penk parents: diff changeset	769	^ selAppl.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	770
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	771	"Modified (format): / 29-11-2011 / 19:07:57 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	772	! !
321c1729db5b initial checkin penk parents: diff changeset	773
321c1729db5b initial checkin penk parents: diff changeset	774	!FileApplicationNoteBook methodsFor:'actions-app-spec'!
321c1729db5b initial checkin penk parents: diff changeset	775
4774 5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	776	addTerminalIn:aDirectory
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	777	\|item\|
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	778
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	779	item := DirectoryContentsBrowser itemClass fileName:aDirectory.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	780	self openTerminalApplication:item.
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	781	!
5119967dbd89 code cleanup Claus Gittinger <cg@exept.de> parents: 4759 diff changeset	782
3892 321c1729db5b initial checkin penk parents: diff changeset	783	changeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	784
321c1729db5b initial checkin penk parents: diff changeset	785	\| aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	786
321c1729db5b initial checkin penk parents: diff changeset	787	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	788	aInfoItem isNil ifTrue:[ ^ self closeDirectoryDescription ].
321c1729db5b initial checkin penk parents: diff changeset	789	self openDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	790	!
321c1729db5b initial checkin penk parents: diff changeset	791
5307 45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	792	closeAllApplicationsEnabled
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	793	^ tabList value size > 1
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	794	!
45d1ce468a5f closeAll tabs Claus Gittinger <cg@exept.de> parents: 5305 diff changeset	795
3892 321c1729db5b initial checkin penk parents: diff changeset	796	closeDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	797
321c1729db5b initial checkin penk parents: diff changeset	798	\| dirContApll \|
321c1729db5b initial checkin penk parents: diff changeset	799
321c1729db5b initial checkin penk parents: diff changeset	800	dirContApll := self getApplicationByType:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	801	dirContApll notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	802	dirContApll doClose.
321c1729db5b initial checkin penk parents: diff changeset	803	].
321c1729db5b initial checkin penk parents: diff changeset	804	!
321c1729db5b initial checkin penk parents: diff changeset	805
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	806	doAddArchiverOn:aFilename
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	807	\|item\|
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	808
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	809	item := DirectoryContentsBrowser itemClass fileName:aFilename.
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	810	self openArchiveViewApplication:item.
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	811
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	812	"Created: / 29-11-2011 / 19:05:49 / cg"
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	813	!
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	814
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	815	newTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	816
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	817	^ self openApplicationClass:TextEditor withItem:nil withType:#file checkExisting:false
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	818	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	819
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	820	openArchiveViewApplication:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	821	\| result \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	822
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	823	result := self openApplicationClass:ArchiveViewApplication withItem:anItem withType:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	824	result isNil ifTrue:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	825	Dialog warn:'file type of ', anItem fileName baseName, ' not yet supported'.
3892 321c1729db5b initial checkin penk parents: diff changeset	826	^ self.
321c1729db5b initial checkin penk parents: diff changeset	827	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	828
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	829	"Modified (format): / 29-11-2011 / 18:57:21 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	830	!
321c1729db5b initial checkin penk parents: diff changeset	831
321c1729db5b initial checkin penk parents: diff changeset	832	openCommandResultApplication
321c1729db5b initial checkin penk parents: diff changeset	833
321c1729db5b initial checkin penk parents: diff changeset	834
321c1729db5b initial checkin penk parents: diff changeset	835	^ self openApplicationClass:CommandResult withItem:nil withType:#commandResult
321c1729db5b initial checkin penk parents: diff changeset	836	!
321c1729db5b initial checkin penk parents: diff changeset	837
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	838	openCompareDirectory:directory1 with:directory2
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	839	\|newAppl\|
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	840
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	841	newAppl := DirectoryDifferenceViewApplication new.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	842	newAppl masterApplication:self.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	843	newAppl directory1:directory1 directory2:directory2.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	844
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	845	self setSameFileIndexFor:newAppl.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	846	self startApplication:newAppl.
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	847	^ newAppl
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	848
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	849	"Created: / 12-01-2012 / 01:10:05 / cg"
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	850	!
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	851
3892 321c1729db5b initial checkin penk parents: diff changeset	852	openDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	853
321c1729db5b initial checkin penk parents: diff changeset	854	\| appl aInfoItem\|
321c1729db5b initial checkin penk parents: diff changeset	855
321c1729db5b initial checkin penk parents: diff changeset	856	aInfoItem := self getInfoItem.
321c1729db5b initial checkin penk parents: diff changeset	857	aInfoItem notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	858	appl := self openTextEditorOn:aInfoItem type:#directoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	859	].
321c1729db5b initial checkin penk parents: diff changeset	860	!
321c1729db5b initial checkin penk parents: diff changeset	861
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	862	openNewTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	863
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	864	^ self openApplicationClass:TextEditor withItem:anItem withType:#file checkExisting:false.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	865	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	866
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	867	openSearchFileOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	868
11104 6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	869	^ self
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	870	openApplicationClass:FindFileApplication
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	871	withItem:anItem
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	872	withType:nil
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	873	checkExisting:false
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	874
6f9259e46cb0 added: #openCompareDirectory:with: Claus Gittinger <cg@exept.de> parents: 11099 diff changeset	875	"Modified (format): / 12-01-2012 / 01:02:30 / cg"
5010 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
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	878	openTerminalApplication:anItem
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	^ self openApplicationClass:Terminal withItem:anItem withType:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	881	!
321c1729db5b initial checkin penk parents: diff changeset	882
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	883	openTextEditor
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	884
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	885	^ self openTextEditorOn:nil
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	886	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	887
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	888	openTextEditorForFile:aFilename
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	889
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	890	^ 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	891	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	892
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	893	openTextEditorOn:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	894
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	895	^ self openTextEditorOn:anItem type:#file
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	896	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	897
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	898	openTextEditorOn:anItem type:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	899
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	900	^ self openApplicationClass:TextEditor withItem:anItem withType:aDirDescrOrFile
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	901	!
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	902
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	903	openTextEditorWithHexPresentationOn:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	904
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	905	^ self openApplicationClass:TextEditor
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	906	withItem:anItem
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	907	withType:#file
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	908	checkExisting:true
59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	909	preSetItem:[:aTextEditor \| aTextEditor presentation:#hexDump].
3892 321c1729db5b initial checkin penk parents: diff changeset	910	! !
321c1729db5b initial checkin penk parents: diff changeset	911
321c1729db5b initial checkin penk parents: diff changeset	912	!FileApplicationNoteBook methodsFor:'applicationlist access'!
321c1729db5b initial checkin penk parents: diff changeset	913
321c1729db5b initial checkin penk parents: diff changeset	914	applicationList
321c1729db5b initial checkin penk parents: diff changeset	915	^ self class applicationList
321c1729db5b initial checkin penk parents: diff changeset	916	! !
321c1729db5b initial checkin penk parents: diff changeset	917
321c1729db5b initial checkin penk parents: diff changeset	918	!FileApplicationNoteBook methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	919
321c1729db5b initial checkin penk parents: diff changeset	920	canvasHolder
321c1729db5b initial checkin penk parents: diff changeset	921
321c1729db5b initial checkin penk parents: diff changeset	922	canvasHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	923	canvasHolder := ValueHolder new.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	924	canvasHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	925	].
321c1729db5b initial checkin penk parents: diff changeset	926	^ canvasHolder.
321c1729db5b initial checkin penk parents: diff changeset	927	!
321c1729db5b initial checkin penk parents: diff changeset	928
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	929	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	930	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	931	aspectFor:#cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	932	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	933	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	934	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	935	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	936
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	937	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	938	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	939	aspectFor:#cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	940	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	941	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	942	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	943	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	944
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	945	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	946	^ self
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	947	aspectFor:#fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	948	ifAbsent:[
5567 3e00d2d4db6d * empty log message * Claus Gittinger <cg@exept.de> parents: 5550 diff changeset	949	IndirectValue for:('iso8859-1' asValue)
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	950	]
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	951	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	952
11056 ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	953	inputTabColumnConversionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	954	^ self
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	955	aspectFor:#inputTabColumnConversionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	956	ifAbsent:[
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	957	IndirectValue for:(8 asValue)
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	958	]
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	959
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	960	"Created: / 06-01-2012 / 15:26:32 / cg"
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	961	!
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	962
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	963	lineEndConventionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	964	^ self
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	965	aspectFor:#lineEndConventionHolder
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	966	ifAbsent:[
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	967	IndirectValue for:('nl' asValue)
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	968	]
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	969
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	970	"Created: / 06-01-2012 / 13:03:24 / cg"
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	971	!
ae5eb70b2fe6 added: Claus Gittinger <cg@exept.de> parents: 11032 diff changeset	972
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	973	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	974	^ self
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	975	aspectFor:#lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	976	ifAbsent:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	977	IndirectValue for:(false asValue)
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	978	]
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	979	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	980
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	981	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	982	^ self
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	983	aspectFor:#modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	984	ifAbsent:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	985	IndirectValue for:(' ' asValue)
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	986	]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	987	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	988
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	989	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	990	\|app\|
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	991
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	992	(app := self selectedApplication) notNil ifTrue:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	993	^ app modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	994	].
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	995	^ nil
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	996
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	997	"Created: / 11-09-2006 / 12:33:27 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	998	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	999
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1000	modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1001	^ self
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1002	aspectFor:#modeLabelMenuHolder
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1003	ifAbsent:[
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1004	IndirectValue for:(nil asValue)
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1005	]
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1006
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1007	"Created: / 11-09-2006 / 12:28:08 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1008	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1009
3892 321c1729db5b initial checkin penk parents: diff changeset	1010	privateTabList
321c1729db5b initial checkin penk parents: diff changeset	1011
321c1729db5b initial checkin penk parents: diff changeset	1012	privateTabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1013	privateTabList := List new.
321c1729db5b initial checkin penk parents: diff changeset	1014	privateTabList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1015	].
321c1729db5b initial checkin penk parents: diff changeset	1016	^ privateTabList.
321c1729db5b initial checkin penk parents: diff changeset	1017	!
321c1729db5b initial checkin penk parents: diff changeset	1018
321c1729db5b initial checkin penk parents: diff changeset	1019	selectedEditorPage
321c1729db5b initial checkin penk parents: diff changeset	1020
321c1729db5b initial checkin penk parents: diff changeset	1021	selectedEditorPage isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1022	selectedEditorPage := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	1023	"/ if your app needs to be notified of changes, uncomment one of the lines below:
321c1729db5b initial checkin penk parents: diff changeset	1024	selectedEditorPage addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1025	"/ selectedEditorPage onChangeSend:#selectedEditorPageChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	1026	].
321c1729db5b initial checkin penk parents: diff changeset	1027	^ selectedEditorPage.
321c1729db5b initial checkin penk parents: diff changeset	1028	!
321c1729db5b initial checkin penk parents: diff changeset	1029
321c1729db5b initial checkin penk parents: diff changeset	1030	tabList
321c1729db5b initial checkin penk parents: diff changeset	1031
321c1729db5b initial checkin penk parents: diff changeset	1032	tabList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1033	tabList := (List new) asValue.
321c1729db5b initial checkin penk parents: diff changeset	1034	].
321c1729db5b initial checkin penk parents: diff changeset	1035	^ tabList.
321c1729db5b initial checkin penk parents: diff changeset	1036	!
321c1729db5b initial checkin penk parents: diff changeset	1037
321c1729db5b initial checkin penk parents: diff changeset	1038	tabList:aValue
321c1729db5b initial checkin penk parents: diff changeset	1039
321c1729db5b initial checkin penk parents: diff changeset	1040	tabList := aValue.
321c1729db5b initial checkin penk parents: diff changeset	1041	! !
321c1729db5b initial checkin penk parents: diff changeset	1042
321c1729db5b initial checkin penk parents: diff changeset	1043	!FileApplicationNoteBook methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	1044
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1045	canvasChanged
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1046	"invoked when the contentsView has been changed"
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1047
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1048	\|app\|
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1049
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1050	app := self selectedApplication.
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1051
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1052	self cursorLineLabelHolder valueHolder: (app cursorLineLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1053	self cursorColLabelHolder valueHolder: (app cursorColLabelHolder).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1054	self modeLabelHolder valueHolder: (app modeLabelHolder).
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	1055	self fileEncodingHolder valueHolder: (app fileEncodingHolder).
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1056
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1057	app lockFileEncodingHolder isBoolean ifTrue:[
8366 6e6842bd8b1e * empty log message * Claus Gittinger <cg@exept.de> parents: 8228 diff changeset	1058	self breakPoint:#cg
7288 25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1059	] ifFalse:[
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1060	self lockFileEncodingHolder valueHolder: (app lockFileEncodingHolder).
25108c48af42 lockEncoding fix Claus Gittinger <cg@exept.de> parents: 7103 diff changeset	1061	].
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1062
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	1063	"Modified: / 11-09-2006 / 12:44:07 / cg"
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1064	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1065
3892 321c1729db5b initial checkin penk parents: diff changeset	1066	update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1067	\| appl sel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1068
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1069	changedObject == canvasHolder ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1070	self canvasChanged.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1071	^ self.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	1072	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1073	changedObject == self currentDirectories ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1074	self viewDirectoryDescription value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1075	self changeDirectoryDescription.
321c1729db5b initial checkin penk parents: diff changeset	1076	].
321c1729db5b initial checkin penk parents: diff changeset	1077	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1078	].
321c1729db5b initial checkin penk parents: diff changeset	1079	changedObject == self viewDirectoryDescription ifTrue:[
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1080	self viewDirectoryDescriptionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	1081	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1082	].
321c1729db5b initial checkin penk parents: diff changeset	1083	changedObject == self privateTabList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1084	\| privateListOfTabs \|
321c1729db5b initial checkin penk parents: diff changeset	1085	privateListOfTabs := changedObject.
321c1729db5b initial checkin penk parents: diff changeset	1086	privateListOfTabs size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1087	self tabList value:privateListOfTabs.
321c1729db5b initial checkin penk parents: diff changeset	1088	self tabList changed.
321c1729db5b initial checkin penk parents: diff changeset	1089	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1090	self tabList value:nil.
321c1729db5b initial checkin penk parents: diff changeset	1091	].
321c1729db5b initial checkin penk parents: diff changeset	1092	^ self
321c1729db5b initial checkin penk parents: diff changeset	1093	].
321c1729db5b initial checkin penk parents: diff changeset	1094	changedObject == self selectedEditorPage ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1095	\| listOfEdits indexOfLastSel list \|
321c1729db5b initial checkin penk parents: diff changeset	1096
321c1729db5b initial checkin penk parents: diff changeset	1097	sel := changedObject value.
321c1729db5b initial checkin penk parents: diff changeset	1098	"/ dont want the tabs with one application - thats why i have to change my tablist
321c1729db5b initial checkin penk parents: diff changeset	1099	"/ sel goes to if - i want select the last selection
321c1729db5b initial checkin penk parents: diff changeset	1100	sel = 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1101	^ self.
321c1729db5b initial checkin penk parents: diff changeset	1102	].
321c1729db5b initial checkin penk parents: diff changeset	1103	list := self selectionHistoryList.
321c1729db5b initial checkin penk parents: diff changeset	1104	(list includes:sel) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1105	list remove:sel
321c1729db5b initial checkin penk parents: diff changeset	1106	].
321c1729db5b initial checkin penk parents: diff changeset	1107	list add:sel.
321c1729db5b initial checkin penk parents: diff changeset	1108	self selectionHistoryList:list.
321c1729db5b initial checkin penk parents: diff changeset	1109	appl := self listOfApplications at:sel.
321c1729db5b initial checkin penk parents: diff changeset	1110	self doSelect:appl.
321c1729db5b initial checkin penk parents: diff changeset	1111	].
321c1729db5b initial checkin penk parents: diff changeset	1112
321c1729db5b initial checkin penk parents: diff changeset	1113	^ super update:something with:aParameter from:changedObject
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1114	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1115
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1116	viewDirectoryDescriptionChanged
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1117
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1118
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1119	\|viewDirDescr\|
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1120
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1121	viewDirDescr := self viewDirectoryDescription value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1122	viewDirDescr ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1123	self openDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1124	] ifFalse:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1125	self closeDirectoryDescription.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1126	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	1127	^ self.
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:'menu & actions'!
321c1729db5b initial checkin penk parents: diff changeset	1131
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1132	destroyTabAt:idx
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1133	\|app\|
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1134
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1135	app := listOfApplications at:idx.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1136	self closeSubCanvas:app.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1137	app release.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1138
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1139	"Created: / 11-01-2012 / 23:46:09 / cg"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1140	!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1141
3892 321c1729db5b initial checkin penk parents: diff changeset	1142	tabMenuAt:aTab
321c1729db5b initial checkin penk parents: diff changeset	1143	\|menu\|
321c1729db5b initial checkin penk parents: diff changeset	1144
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1145	menu := Menu decodeFromLiteralArray:self class tabMenu.
3892 321c1729db5b initial checkin penk parents: diff changeset	1146	tabMenuIndex := aTab.
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1147	menu findGuiResourcesIn:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1148	^ menu
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1149
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1150	"Modified: / 27-03-2007 / 10:57:25 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1151	! !
321c1729db5b initial checkin penk parents: diff changeset	1152
321c1729db5b initial checkin penk parents: diff changeset	1153	!FileApplicationNoteBook methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1154
321c1729db5b initial checkin penk parents: diff changeset	1155	getSameFilesModifiedFor:aAppl
321c1729db5b initial checkin penk parents: diff changeset	1156
321c1729db5b initial checkin penk parents: diff changeset	1157	\| sameFileAppl colOfChanged \|
321c1729db5b initial checkin penk parents: diff changeset	1158
321c1729db5b initial checkin penk parents: diff changeset	1159	sameFileAppl := self getSameApplicationsFor:aAppl.
321c1729db5b initial checkin penk parents: diff changeset	1160	sameFileAppl notEmpty ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1161	colOfChanged := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1162	sameFileAppl do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	1163	el modifiedChannel value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1164	colOfChanged add:el.
321c1729db5b initial checkin penk parents: diff changeset	1165	]
321c1729db5b initial checkin penk parents: diff changeset	1166	]
321c1729db5b initial checkin penk parents: diff changeset	1167	].
321c1729db5b initial checkin penk parents: diff changeset	1168	^ colOfChanged
321c1729db5b initial checkin penk parents: diff changeset	1169	! !
321c1729db5b initial checkin penk parents: diff changeset	1170
321c1729db5b initial checkin penk parents: diff changeset	1171	!FileApplicationNoteBook methodsFor:'selection'!
321c1729db5b initial checkin penk parents: diff changeset	1172
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1173	currentTabMenusApplication
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1174	"only valid within menu processing"
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1175
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1176	^ self listOfApplications at:tabMenuIndex
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1177	!
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1178
3892 321c1729db5b initial checkin penk parents: diff changeset	1179	doSelect:anAppl
321c1729db5b initial checkin penk parents: diff changeset	1180
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1181	\| index fileName additionalInfo\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1182
321c1729db5b initial checkin penk parents: diff changeset	1183	fileName := anAppl fileName.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	1184	index := self getIndexFor:anAppl.
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	1185	self changeFileBrowserTitleTo:(self privateTabList at:index ifAbsent:nil).
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	1186
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1187	additionalInfo := anAppl additionalInfo.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1188	self notify:(fileName isNil
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1189	ifTrue:[additionalInfo]
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1190	ifFalse:[(fileName asString contractAtBeginningTo:80),' ',additionalInfo]).
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1191	"/ self gotoFile:fileName.
3892 321c1729db5b initial checkin penk parents: diff changeset	1192	index notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1193	canvasHolder value:(anAppl window).
321c1729db5b initial checkin penk parents: diff changeset	1194	self selectedEditorPage value:index.
321c1729db5b initial checkin penk parents: diff changeset	1195	]
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1196
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	1197	"Modified: / 24-10-2006 / 12:32:53 / cg"
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1198	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1199
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1200	selectedApplication
5324 5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1201	\| canvas \|
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1202
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1203	canvas := self canvasHolder value.
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1204	canvas isNil ifTrue:[ ^ nil].
5df8cf9faeba * empty log message * Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	1205	^ canvas application.
3892 321c1729db5b initial checkin penk parents: diff changeset	1206	! !
321c1729db5b initial checkin penk parents: diff changeset	1207
321c1729db5b initial checkin penk parents: diff changeset	1208	!FileApplicationNoteBook methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1209
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1210	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1211	"asks for permission before closing"
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1212
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1213	self tryCloseApplications ifTrue:[
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1214	super closeRequest.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1215	^ true
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1216	].
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1217	^ false.
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1218	!
78e29a3ea4c1 next stage penk parents: 3951 diff changeset	1219
3892 321c1729db5b initial checkin penk parents: diff changeset	1220	makeDependent
321c1729db5b initial checkin penk parents: diff changeset	1221
321c1729db5b initial checkin penk parents: diff changeset	1222	self viewDirectoryDescription addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1223	self currentDirectories addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	1224	!
321c1729db5b initial checkin penk parents: diff changeset	1225
321c1729db5b initial checkin penk parents: diff changeset	1226	postOpenAsSubcanvasWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1227
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	1228	self viewDirectoryDescriptionChanged.
14444 cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	1229	super postOpenAsSubcanvasWith:aBuilder.
3892 321c1729db5b initial checkin penk parents: diff changeset	1230	!
321c1729db5b initial checkin penk parents: diff changeset	1231
321c1729db5b initial checkin penk parents: diff changeset	1232	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1233	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1234
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	1235	self openTextEditorOn:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	1236	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	1237	!
321c1729db5b initial checkin penk parents: diff changeset	1238
321c1729db5b initial checkin penk parents: diff changeset	1239	preBuildWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1240
321c1729db5b initial checkin penk parents: diff changeset	1241	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1242	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	1243	].
14444 cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	1244	super preBuildWith:aBuilder.
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1245	!
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1246
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1247	tryCloseApplications
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1248
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1249	self listOfApplications do:[:appl\|
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	1250	appl doClose ifFalse:[
4082 0ca141045a56 avoid warning penk parents: 4076 diff changeset	1251	^ false.
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1252	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1253	].
0ca141045a56 avoid warning penk parents: 4076 diff changeset	1254	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	1255	! !
321c1729db5b initial checkin penk parents: diff changeset	1256
321c1729db5b initial checkin penk parents: diff changeset	1257	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	1258
321c1729db5b initial checkin penk parents: diff changeset	1259	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1260	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1261
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1262	^ 'Archive %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1263
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	1264	"Modified: / 01-03-2007 / 21:43:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1265	! !
321c1729db5b initial checkin penk parents: diff changeset	1266
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1267	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1268
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1269	flyByHelpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1270	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1271	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1272
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1273	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1274	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1275
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1276	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1277	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1278	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1279
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1280	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1281
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1282	^super flyByHelpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1283
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1284	#closeTabButton
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1285	'Close Archiver Tab'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1286
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1287	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1288	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1289
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1290	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1291	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1292
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1293	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1294	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1295
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1296	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1297	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1298
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1299	helpSpec
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1300	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1301	by the UIHelpTool of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1302
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1303	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1304	the UIHelpTool may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1305
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1306	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1307	UIHelpTool openOnClass:FileApplicationNoteBook::ArchiveViewApplication
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1308	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1309
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1310	<resource: #help>
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1311
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1312	^super helpSpec addPairsFrom:#(
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1313
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1314	#closeButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1315	'Close Archiver'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1316
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1317	#extractItem
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1318	'Extract...'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1319
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1320	#removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1321	'Remove Error Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1322
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1323	#stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1324	'Stop'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1325
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1326	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1327	! !
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1328
3892 321c1729db5b initial checkin penk parents: diff changeset	1329	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	1330
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1331	extract28x28Icon
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1332	<resource: #image>
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1333	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1334	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1335	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1336	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1337	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1338	self extract28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1339	ImageEditor openOnClass:self andSelector:#extract28x28Icon
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1340	Icon flushCachedIcons"
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1341
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1342	^ Icon
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1343	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class extract28x28Icon'
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1344	ifAbsentPut:[
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1345	(Depth4Image new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1346	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1347	height:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1348	photometric:(#palette);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1349	bitsPerSample:(#( 4 ));
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1350	samplesPerPixel:(1);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1351	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1352	fromPackedString:'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1353	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1354	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@CQDMDP0@@@@@EUUAP@@L3L3L3@@@ @PUUTA@@@4QCQDL@@BHAAUUPD@@CL3L3L"H"H"DEUU
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1355	@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	1356	QC@@@@@@@@@@@@@3L3L3L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1357	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1358	colorMapFromArray:#[ 0 0 0 129 129 129 255 0 0 255 255 255 105 133 190 194 194 194 ];
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1359	mask:((ImageMask new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1360	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1361	height:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1362	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1363	fromPackedString:'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1364	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G?0@@A?<G? _?A?8G?1_>A?<_? _???8G???>A???? _?G?8G?1_>A?<G? _?@?0G?0@@A?<@@@_?@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1365	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1366	yourself);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1367	yourself
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1368	]
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1369	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1370
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1371	removeBug28x28Icon
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1372	<resource: #image>
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1373	"This resource specification was automatically generated
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1374	by the ImageEditor of ST/X."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1375	"Do not manually edit this!! If it is corrupted,
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1376	the ImageEditor may not be able to read the specification."
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1377	"
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1378	self removeBug28x28Icon inspect
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1379	ImageEditor openOnClass:self andSelector:#removeBug28x28Icon
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1380	Icon flushCachedIcons"
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1381
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1382	^ Icon
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1383	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeBug28x28Icon'
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1384	ifAbsentPut:[
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1385	(Depth2Image new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1386	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1387	height:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1388	photometric:(#palette);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1389	bitsPerSample:(#( 2 ));
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1390	samplesPerPixel:(1);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1391	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1392	fromPackedString:'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1393	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	1394	0@@C:**,@@@N@@@@@@O***0@@@>+<@@@B(N?0@@@B@J+0@@@B@@* @@@B@@B@@@B@@@J(@@B@@@@* @B@@@@B@B*@@@@@J(@@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1395	@@@@@@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1396	colorMapFromArray:#[ 0 0 0 192 192 192 255 0 0 128 0 0 ];
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1397	mask:((ImageMask new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1398	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1399	height:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1400	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1401	fromPackedString:'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1402	@@@@@@@@@@@@@@@@O@@C0A8@A8@O@@<@A80^@@O#O0@A>_1@@N/>@@A??0@@??>@G??? BG??8@A??>@G??? @???8@@_?<@@O/>@@G9?D@C83<@A80^@@<@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1403	C0@^@@^@O@@C0@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1404	yourself);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1405	yourself
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1406	]
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1407	!
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1408
3892 321c1729db5b initial checkin penk parents: diff changeset	1409	removeError
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1410	<resource: #image>
3892 321c1729db5b initial checkin penk parents: diff changeset	1411	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1412	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1413	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1414	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1415	"
321c1729db5b initial checkin penk parents: diff changeset	1416	self removeError inspect
321c1729db5b initial checkin penk parents: diff changeset	1417	ImageEditor openOnClass:self andSelector:#removeError
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1418	Icon flushCachedIcons"
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1419
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1420	^ Icon
3892 321c1729db5b initial checkin penk parents: diff changeset	1421	constantNamed:#'FileApplicationNoteBook::ArchiveViewApplication class removeError'
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1422	ifAbsentPut:[
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1423	(Depth8Image new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1424	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1425	height:22;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1426	photometric:(#palette);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1427	bitsPerSample:(#( 8 ));
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1428	samplesPerPixel:(1);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1429	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1430	fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	1431	@@@@@@@@@@@FA @@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A X@@@XF@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1432	@@@@@@@FA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF
321c1729db5b initial checkin penk parents: diff changeset	1433	@@@FA @@@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@XF@@@@@@@@@@@@@@@@@@@@@@@@@@XF@@@@@@@@A X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1434	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1435	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	1436	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1437	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1438	colorMapFromArray:#[ 0 0 0 8 4 8 105 133 190 121 133 157 129 129 129 194 194 194 255 0 0 ];
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1439	mask:((ImageMask new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1440	width:28;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1441	height:22;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1442	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1443	fromPackedString:'@LC@@@A!! @@@L0@@@A8@@@@L@@@@G @@@CL@@@A!! @@@0L@@@@@@@BY=5LAIUUT S5UU8D!!UUPAFU\#@@@@@@@LR9@@D)J @A:R(@@P$*@@CIN @@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1444	yourself);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1445	yourself
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	1446	]
3892 321c1729db5b initial checkin penk parents: diff changeset	1447	! !
321c1729db5b initial checkin penk parents: diff changeset	1448
321c1729db5b initial checkin penk parents: diff changeset	1449	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	1450
321c1729db5b initial checkin penk parents: diff changeset	1451	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1452	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1453	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1454
321c1729db5b initial checkin penk parents: diff changeset	1455	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1456	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1457
321c1729db5b initial checkin penk parents: diff changeset	1458	"
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1459	UIPainter new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1460	FileApplicationNoteBook::ArchiveViewApplication new openInterface:#windowSpec
af8ef74cb43b next stage penk parents: 3950 diff changeset	1461	FileApplicationNoteBook::ArchiveViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	1462	"
321c1729db5b initial checkin penk parents: diff changeset	1463
321c1729db5b initial checkin penk parents: diff changeset	1464	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	1465
321c1729db5b initial checkin penk parents: diff changeset	1466	^
321c1729db5b initial checkin penk parents: diff changeset	1467	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	1468	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	1469	#window:
321c1729db5b initial checkin penk parents: diff changeset	1470	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	1471	#label: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1472	#name: 'Archive Application'
321c1729db5b initial checkin penk parents: diff changeset	1473	#min: #(#Point 10 10)
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1474	#bounds: #(#Rectangle 16 46 692 538)
3892 321c1729db5b initial checkin penk parents: diff changeset	1475	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	1476	)
321c1729db5b initial checkin penk parents: diff changeset	1477	#component:
321c1729db5b initial checkin penk parents: diff changeset	1478	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1479	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1480	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	1481	#name: 'MenuArchive'
3892 321c1729db5b initial checkin penk parents: diff changeset	1482	#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	1483	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1484	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	1485	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	1486	)
321c1729db5b initial checkin penk parents: diff changeset	1487	#(#'FileBrowserV2UISpecifications::PanelSpec'
321c1729db5b initial checkin penk parents: diff changeset	1488	#name: 'VerticalPanel'
321c1729db5b initial checkin penk parents: diff changeset	1489	#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	1490	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	1491	#whichView: #last
321c1729db5b initial checkin penk parents: diff changeset	1492	#orientation: #vertical
321c1729db5b initial checkin penk parents: diff changeset	1493	#visibility: #errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	1494	#component:
321c1729db5b initial checkin penk parents: diff changeset	1495	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	1496	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	1497	#(#DataSetSpec
321c1729db5b initial checkin penk parents: diff changeset	1498	#name: 'Table1'
321c1729db5b initial checkin penk parents: diff changeset	1499	#model: #selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	1500	#menu: #fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1501	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1502	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1503	#dataList: #archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	1504	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1505	#has3Dsepartors: false
321c1729db5b initial checkin penk parents: diff changeset	1506	#doubleClickSelector: #dblClick
321c1729db5b initial checkin penk parents: diff changeset	1507	#columnHolder: #tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1508	#multipleSelectOk: true
321c1729db5b initial checkin penk parents: diff changeset	1509	#verticalSpacing: 0
321c1729db5b initial checkin penk parents: diff changeset	1510	#postBuildCallback: #postBuildFileTable:
321c1729db5b initial checkin penk parents: diff changeset	1511	#properties:
321c1729db5b initial checkin penk parents: diff changeset	1512	#(#PropertyListDictionary
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1513	#enterSelector: #dropEnter:
3892 321c1729db5b initial checkin penk parents: diff changeset	1514	#dragArgument: #archivApplication
321c1729db5b initial checkin penk parents: diff changeset	1515	#startDragSelector: #doStartDrag:in:
321c1729db5b initial checkin penk parents: diff changeset	1516	#displayObjectSelector: #getDisplayObjects:
321c1729db5b initial checkin penk parents: diff changeset	1517	#dropObjectSelector: #getDropObjects:
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1518	#overSelector: nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1519	#dropArgument: #archivApplication
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	1520	#canDropSelector: #canDrop:
af8ef74cb43b next stage penk parents: 3950 diff changeset	1521	#leaveSelector: #dropLeave:
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1522	#dropSelector: #doDrop:
3892 321c1729db5b initial checkin penk parents: diff changeset	1523	)
321c1729db5b initial checkin penk parents: diff changeset	1524	)
321c1729db5b initial checkin penk parents: diff changeset	1525	#(#SequenceViewSpec
321c1729db5b initial checkin penk parents: diff changeset	1526	#name: 'ErrorList'
321c1729db5b initial checkin penk parents: diff changeset	1527	#initiallyDisabled: true
321c1729db5b initial checkin penk parents: diff changeset	1528	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1529	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	1530	#backgroundColor: #(#Color 100.0 100.0 100.0)
321c1729db5b initial checkin penk parents: diff changeset	1531	#isMultiSelect: true
321c1729db5b initial checkin penk parents: diff changeset	1532	#useIndex: false
321c1729db5b initial checkin penk parents: diff changeset	1533	#sequenceList: #errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	1534	)
321c1729db5b initial checkin penk parents: diff changeset	1535	)
321c1729db5b initial checkin penk parents: diff changeset	1536
321c1729db5b initial checkin penk parents: diff changeset	1537	)
321c1729db5b initial checkin penk parents: diff changeset	1538	#handles: #(#Any 0.5 1.0)
321c1729db5b initial checkin penk parents: diff changeset	1539	)
321c1729db5b initial checkin penk parents: diff changeset	1540	)
321c1729db5b initial checkin penk parents: diff changeset	1541
321c1729db5b initial checkin penk parents: diff changeset	1542	)
321c1729db5b initial checkin penk parents: diff changeset	1543	)
321c1729db5b initial checkin penk parents: diff changeset	1544	! !
321c1729db5b initial checkin penk parents: diff changeset	1545
321c1729db5b initial checkin penk parents: diff changeset	1546	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	1547
321c1729db5b initial checkin penk parents: diff changeset	1548	fileListMenu
321c1729db5b initial checkin penk parents: diff changeset	1549	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1550	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1551
321c1729db5b initial checkin penk parents: diff changeset	1552	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1553	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1554
321c1729db5b initial checkin penk parents: diff changeset	1555	"
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1556	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#fileListMenu
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1557	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication fileListMenu)) startUp
3892 321c1729db5b initial checkin penk parents: diff changeset	1558	"
321c1729db5b initial checkin penk parents: diff changeset	1559
321c1729db5b initial checkin penk parents: diff changeset	1560	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1561
321c1729db5b initial checkin penk parents: diff changeset	1562	^
321c1729db5b initial checkin penk parents: diff changeset	1563	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1564	#(
321c1729db5b initial checkin penk parents: diff changeset	1565	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1566	#enabled: #hasListEntriesHolder
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1567	#label: 'Select All'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1568	#itemValue: #selectAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1569	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1570	)
321c1729db5b initial checkin penk parents: diff changeset	1571	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1572	#label: '-'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1573	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1574	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1575	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1576	#label: 'Copy Filenames'
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1577	#itemValue: #copyFilesToClipboard
3892 321c1729db5b initial checkin penk parents: diff changeset	1578	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1579	)
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1580	#(#MenuItem
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1581	#label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	1582	)
321c1729db5b initial checkin penk parents: diff changeset	1583	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1584	#enabled: #hasSelectionInList
deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1585	#label: 'Extract to Directory...'
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1586	#itemValue: #extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1587	#translateLabel: true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1588	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1589	#(#MenuItem
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1590	#label: 'Extract All to Directory...'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1591	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1592	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1593	)
321c1729db5b initial checkin penk parents: diff changeset	1594	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1595	#enabled: #canDelete
4476 e4d58ec911c8 menu item Claus Gittinger <cg@exept.de> parents: 4475 diff changeset	1596	#label: 'Delete from Archive'
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	1597	#itemValue: #removeFilesFromArchive
3892 321c1729db5b initial checkin penk parents: diff changeset	1598	#translateLabel: true
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1599	#shortcutKey: #Delete
3892 321c1729db5b initial checkin penk parents: diff changeset	1600	)
321c1729db5b initial checkin penk parents: diff changeset	1601	#(#MenuItem
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1602	#label: '-'
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1603	)
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1604	#(#MenuItem
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1605	#enabled: #canViewFile
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1606	#label: 'Show Contents'
4475 deb39868dfa9 menu items resorted Claus Gittinger <cg@exept.de> parents: 4473 diff changeset	1607	#itemValue: #viewFile
3892 321c1729db5b initial checkin penk parents: diff changeset	1608	#translateLabel: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1609	#isVisible: #closeButtonShown
3892 321c1729db5b initial checkin penk parents: diff changeset	1610	)
321c1729db5b initial checkin penk parents: diff changeset	1611	)
321c1729db5b initial checkin penk parents: diff changeset	1612	nil
321c1729db5b initial checkin penk parents: diff changeset	1613	nil
321c1729db5b initial checkin penk parents: diff changeset	1614	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1615
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1616	"Modified: / 12-01-2012 / 00:34:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1617	!
321c1729db5b initial checkin penk parents: diff changeset	1618
321c1729db5b initial checkin penk parents: diff changeset	1619	menu
321c1729db5b initial checkin penk parents: diff changeset	1620	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1621	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1622
321c1729db5b initial checkin penk parents: diff changeset	1623	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1624	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1625
321c1729db5b initial checkin penk parents: diff changeset	1626	"
321c1729db5b initial checkin penk parents: diff changeset	1627	MenuEditor new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	1628	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ArchiveViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1629	"
321c1729db5b initial checkin penk parents: diff changeset	1630
321c1729db5b initial checkin penk parents: diff changeset	1631	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1632
321c1729db5b initial checkin penk parents: diff changeset	1633	^
321c1729db5b initial checkin penk parents: diff changeset	1634	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	1635	#(
321c1729db5b initial checkin penk parents: diff changeset	1636	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1637	#activeHelpKey: #stopButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1638	#enabled: #enableStopButton
3892 321c1729db5b initial checkin penk parents: diff changeset	1639	#label: 'Stop'
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1640	#itemValue: #doStopProcess
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1641	#nameKey: #Stop
3892 321c1729db5b initial checkin penk parents: diff changeset	1642	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1643	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	1644	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)
321c1729db5b initial checkin penk parents: diff changeset	1645	)
321c1729db5b initial checkin penk parents: diff changeset	1646	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1647	#activeHelpKey: #extractItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1648	#enabled: #hasListEntriesHolder
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1649	#label: 'Extract'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1650	#itemValue: #extractAll
3892 321c1729db5b initial checkin penk parents: diff changeset	1651	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1652	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1653	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #extract28x28Icon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1654	)
321c1729db5b initial checkin penk parents: diff changeset	1655	#(#MenuItem
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1656	#activeHelpKey: #removeOutputButton
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1657	#enabled: #enableRemoveErrorOutput
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1658	#label: 'Remove Output'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1659	#itemValue: #removeErrorOutput
3892 321c1729db5b initial checkin penk parents: diff changeset	1660	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	1661	#isButton: true
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1662	#labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ArchiveViewApplication' #removeBug28x28Icon)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1663	)
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1664	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	1665	#activeHelpKey: #closeTabButton
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1666	#label: 'Close'
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1667	#itemValue: #doClose
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1668	#translateLabel: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1669	#isButton: true
feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1670	#startGroup: #right
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1671	#isVisible: #closeButtonShown
4392 feb0bffd27b8 add new Text Editor tab penk parents: 4375 diff changeset	1672	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	1673	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	1674	)
321c1729db5b initial checkin penk parents: diff changeset	1675	)
321c1729db5b initial checkin penk parents: diff changeset	1676	nil
321c1729db5b initial checkin penk parents: diff changeset	1677	nil
321c1729db5b initial checkin penk parents: diff changeset	1678	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1679
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	1680	"Modified: / 12-01-2012 / 00:34:06 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1681	! !
321c1729db5b initial checkin penk parents: diff changeset	1682
321c1729db5b initial checkin penk parents: diff changeset	1683	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1684
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1685	canOpenItem:anItem
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1686	\|suffix mimeType\|
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1687
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1688	"/ "avoid autoloading the archiver if its definitely not an archive"
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1689	"/ OperatingSystem isUNIXlike ifFalse:[
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1690	"/ "until Archiver supports windows archives..."
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1691	"/ ^ false.
2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1692	"/ ].
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1693
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1694	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	1695	( #('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	1696
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1697	( #('xlsx' 'ets') includes:suffix) ifTrue:[^ true].
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1698
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1699	mimeType := anItem mimeType.
693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1700	( #('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	1701
5315 7384fe48ec1e * empty log message * Claus Gittinger <cg@exept.de> parents: 5307 diff changeset	1702	Archiver isNil ifTrue:[^ false].
6518 cc70159b7a85 stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 6484 diff changeset	1703	^ (Archiver classForMimeType:mimeType fileName:anItem fileName) notNil
10706 2c487f44a355 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 10566 diff changeset	1704
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1705	"Modified: / 29-11-2011 / 18:59:35 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1706	!
321c1729db5b initial checkin penk parents: diff changeset	1707
321c1729db5b initial checkin penk parents: diff changeset	1708	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	1709
321c1729db5b initial checkin penk parents: diff changeset	1710	^ false
321c1729db5b initial checkin penk parents: diff changeset	1711	! !
321c1729db5b initial checkin penk parents: diff changeset	1712
321c1729db5b initial checkin penk parents: diff changeset	1713	!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
321c1729db5b initial checkin penk parents: diff changeset	1714
321c1729db5b initial checkin penk parents: diff changeset	1715	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	1716	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1717	by the DataSetBuilder of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1718
321c1729db5b initial checkin penk parents: diff changeset	1719	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1720	the DataSetBuilder may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1721
321c1729db5b initial checkin penk parents: diff changeset	1722	"
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1723	DataSetBuilder new openOnClass:FileApplicationNoteBook::ArchiveViewApplication andSelector:#tableColumns
3892 321c1729db5b initial checkin penk parents: diff changeset	1724	"
321c1729db5b initial checkin penk parents: diff changeset	1725
321c1729db5b initial checkin penk parents: diff changeset	1726	<resource: #tableColumns>
321c1729db5b initial checkin penk parents: diff changeset	1727
321c1729db5b initial checkin penk parents: diff changeset	1728	^#(
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1729	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1730	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1731	labelActionSelector: sortFileListsBy:
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1732	labelActionArgument: 'directory'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1733	width: 25
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1734	minWidth: 20
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1735	height: 16
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1736	model: icon
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1737	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1738	isResizeable: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1739	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1740	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1741	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1742	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1743	label: 'File Name'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1744	id: 'fileName'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1745	labelAlignment: left
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1746	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1747	model: fileName
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1748	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1749	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1750	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1751	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1752	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1753	label: 'Perm'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1754	id: 'permissions'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1755	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1756	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1757	width: 75
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1758	model: permissions
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1759	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1760	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1761	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1762	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1763	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1764	label: 'Version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1765	id: 'version'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1766	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1767	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1768	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1769	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1770	model: version
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1771	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1772	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1773	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1774	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1775	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1776	label: 'Type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1777	id: 'type'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1778	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1779	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1780	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1781	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1782	model: type
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1783	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1784	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1785	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1786	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1787	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1788	label: 'Owner/Group'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1789	id: 'ownerGroup'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1790	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1791	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1792	width: 100
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1793	minWidth: 50
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1794	model: ownerGroup
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1795	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1796	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1797	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1798	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1799	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1800	label: 'Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1801	id: 'size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1802	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1803	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1804	width: 80
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1805	model: size
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1806	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1807	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1808	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1809	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1810	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1811	label: 'Date & Time'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1812	id: 'dateAndTime'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1813	labelAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1814	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1815	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1816	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1817	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1818	model: dateAndTime
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1819	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1820	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1821	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1822	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1823	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1824	label: 'Method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1825	id: 'method'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1826	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1827	columnAlignment: center
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1828	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1829	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1830	model: method
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1831	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1832	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1833	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1834	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1835	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1836	label: 'CRC'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1837	id: 'crc'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1838	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1839	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1840	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1841	model: crc
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1842	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1843	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1844	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1845	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1846	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1847	label: 'Compress Size'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1848	id: 'compressSize'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1849	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1850	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1851	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1852	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1853	model: compressSize
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1854	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1855	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1856	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1857	)
5222 a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1858	(DataSetColumnSpec
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1859	label: 'Ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1860	id: 'ratio'
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1861	labelButtonType: Button
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1862	columnAlignment: right
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1863	usePreferredWidth: true
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1864	width: 140
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1865	model: ratio
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1866	canSelect: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1867	showRowSeparator: false
a9bad3ac536e sort archive table columns disabled no selector was available penk parents: 5221 diff changeset	1868	showColSeparator: false
3892 321c1729db5b initial checkin penk parents: diff changeset	1869	)
321c1729db5b initial checkin penk parents: diff changeset	1870	)
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	1871
3892 321c1729db5b initial checkin penk parents: diff changeset	1872	! !
321c1729db5b initial checkin penk parents: diff changeset	1873
321c1729db5b initial checkin penk parents: diff changeset	1874	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	1875
321c1729db5b initial checkin penk parents: diff changeset	1876	archiver
321c1729db5b initial checkin penk parents: diff changeset	1877	"return the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1878
321c1729db5b initial checkin penk parents: diff changeset	1879	^ archiver
321c1729db5b initial checkin penk parents: diff changeset	1880	!
321c1729db5b initial checkin penk parents: diff changeset	1881
321c1729db5b initial checkin penk parents: diff changeset	1882	archiver:something
321c1729db5b initial checkin penk parents: diff changeset	1883	"set the value of the instance variable 'archiver' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1884
321c1729db5b initial checkin penk parents: diff changeset	1885	archiver := something.
321c1729db5b initial checkin penk parents: diff changeset	1886	!
321c1729db5b initial checkin penk parents: diff changeset	1887
321c1729db5b initial checkin penk parents: diff changeset	1888	columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1889	"return the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1890
321c1729db5b initial checkin penk parents: diff changeset	1891	^ columnDescriptors
321c1729db5b initial checkin penk parents: diff changeset	1892	!
321c1729db5b initial checkin penk parents: diff changeset	1893
321c1729db5b initial checkin penk parents: diff changeset	1894	columnDescriptors:aListOfColumns
321c1729db5b initial checkin penk parents: diff changeset	1895	"set the value of the instance variable 'columnDescriptors' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1896
321c1729db5b initial checkin penk parents: diff changeset	1897	columnDescriptors = aListOfColumns ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1898	^ self
321c1729db5b initial checkin penk parents: diff changeset	1899	].
321c1729db5b initial checkin penk parents: diff changeset	1900
321c1729db5b initial checkin penk parents: diff changeset	1901	columnDescriptors := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1902
321c1729db5b initial checkin penk parents: diff changeset	1903	aListOfColumns keysAndValuesDo:[:anIndex :aDesc\| \|col\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1904	col := aDesc isSequenceable ifTrue:[DataSetColumnSpec decodeFromLiteralArray:aDesc]
3892 321c1729db5b initial checkin penk parents: diff changeset	1905	ifFalse:[aDesc].
321c1729db5b initial checkin penk parents: diff changeset	1906	columnDescriptors add:col.
321c1729db5b initial checkin penk parents: diff changeset	1907	].
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1908
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	1909	"Modified: / 27-03-2007 / 08:46:06 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1910	!
321c1729db5b initial checkin penk parents: diff changeset	1911
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1912	item:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1913	super item:anItem.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1914
4375 05dd38dadc66 archivapplication errors removed penk parents: 4360 diff changeset	1915	self removeErrorOutput.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1916	archiver := Archiver newFor:self fileName.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1917
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1918	archiver notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1919	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1920	makeProcessFor:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1921	self archiver:archiver.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1922	self setColumnsForArchiver.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1923	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1924	with:'Setup archive'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1925	^ true
321c1729db5b initial checkin penk parents: diff changeset	1926	].
321c1729db5b initial checkin penk parents: diff changeset	1927	^ false
321c1729db5b initial checkin penk parents: diff changeset	1928	!
321c1729db5b initial checkin penk parents: diff changeset	1929
321c1729db5b initial checkin penk parents: diff changeset	1930	temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1931	"return the value of the instance variable 'temporaryDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	1932
321c1729db5b initial checkin penk parents: diff changeset	1933	temporaryDirectory isNil ifTrue:[
13112 ade9575b2a32 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12830 diff changeset	1934	temporaryDirectory := Filename newTemporaryDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1935	].
321c1729db5b initial checkin penk parents: diff changeset	1936	^ temporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1937	! !
321c1729db5b initial checkin penk parents: diff changeset	1938
321c1729db5b initial checkin penk parents: diff changeset	1939	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	1940
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1941	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	1942	self item:anItem.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1943	self clearFileList.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1944	self listAllFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	1945	^ true
321c1729db5b initial checkin penk parents: diff changeset	1946	!
321c1729db5b initial checkin penk parents: diff changeset	1947
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1948	clearFileList
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1949
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1950	self archiveFileList value removeAll.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1951	!
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	1952
3892 321c1729db5b initial checkin penk parents: diff changeset	1953	copyFilesToClipboard
321c1729db5b initial checkin penk parents: diff changeset	1954	\|sel list stream\|
321c1729db5b initial checkin penk parents: diff changeset	1955
321c1729db5b initial checkin penk parents: diff changeset	1956	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1957	list := self archiveFileList.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	1958	(sel notEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1959	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	1960	sel do:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	1961	stream nextPutAll:(key fileName asString).
321c1729db5b initial checkin penk parents: diff changeset	1962	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	1963	].
6033 9393b570b70a * empty log message * ca parents: 5968 diff changeset	1964	self window setClipboardText:stream contents.
3892 321c1729db5b initial checkin penk parents: diff changeset	1965	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1966	].
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1967
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1968	"Modified (format): / 29-11-2011 / 18:57:40 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1969	!
321c1729db5b initial checkin penk parents: diff changeset	1970
321c1729db5b initial checkin penk parents: diff changeset	1971	dblClick
321c1729db5b initial checkin penk parents: diff changeset	1972
321c1729db5b initial checkin penk parents: diff changeset	1973	self viewFile.
321c1729db5b initial checkin penk parents: diff changeset	1974	!
321c1729db5b initial checkin penk parents: diff changeset	1975
321c1729db5b initial checkin penk parents: diff changeset	1976	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	1977	\| archiver \|
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1978
3892 321c1729db5b initial checkin penk parents: diff changeset	1979	self stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1980	archiver := self archiver.
321c1729db5b initial checkin penk parents: diff changeset	1981	archiver notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1982	self archiver stopProcess.
321c1729db5b initial checkin penk parents: diff changeset	1983	].
321c1729db5b initial checkin penk parents: diff changeset	1984	self enableStopButton value:false.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1985
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	1986	"Modified (format): / 29-11-2011 / 18:57:50 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1987	!
321c1729db5b initial checkin penk parents: diff changeset	1988
321c1729db5b initial checkin penk parents: diff changeset	1989	removeErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	1990
321c1729db5b initial checkin penk parents: diff changeset	1991	self viewErrorList value:false.
321c1729db5b initial checkin penk parents: diff changeset	1992	self errorListHolder removeAll.
321c1729db5b initial checkin penk parents: diff changeset	1993	!
321c1729db5b initial checkin penk parents: diff changeset	1994
321c1729db5b initial checkin penk parents: diff changeset	1995	removeTemporaryDirectory
321c1729db5b initial checkin penk parents: diff changeset	1996
321c1729db5b initial checkin penk parents: diff changeset	1997	temporaryDirectory notNil ifTrue:[
4923 1aced17a14a7 Do not use obsolete FileDirectory Stefan Vogel <sv@exept.de> parents: 4913 diff changeset	1998	temporaryDirectory removeDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1999	temporaryDirectory := nil.
321c1729db5b initial checkin penk parents: diff changeset	2000	].
321c1729db5b initial checkin penk parents: diff changeset	2001	!
321c1729db5b initial checkin penk parents: diff changeset	2002
321c1729db5b initial checkin penk parents: diff changeset	2003	selectAll
321c1729db5b initial checkin penk parents: diff changeset	2004
321c1729db5b initial checkin penk parents: diff changeset	2005	\| sel listOfFiles\|
321c1729db5b initial checkin penk parents: diff changeset	2006
321c1729db5b initial checkin penk parents: diff changeset	2007	sel := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2008	listOfFiles := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2009	1 to:(listOfFiles size) do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	2010	sel add:el
321c1729db5b initial checkin penk parents: diff changeset	2011	].
321c1729db5b initial checkin penk parents: diff changeset	2012	self selectionHolder value:sel.
321c1729db5b initial checkin penk parents: diff changeset	2013	!
321c1729db5b initial checkin penk parents: diff changeset	2014
321c1729db5b initial checkin penk parents: diff changeset	2015	updateFileBrowserIfPresentWith:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2016
321c1729db5b initial checkin penk parents: diff changeset	2017	\| master\|
321c1729db5b initial checkin penk parents: diff changeset	2018
321c1729db5b initial checkin penk parents: diff changeset	2019	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	2020	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2021	master updateAndSelect:(OrderedCollection with:aDirectory).
321c1729db5b initial checkin penk parents: diff changeset	2022	].
321c1729db5b initial checkin penk parents: diff changeset	2023	!
321c1729db5b initial checkin penk parents: diff changeset	2024
321c1729db5b initial checkin penk parents: diff changeset	2025	viewFile
321c1729db5b initial checkin penk parents: diff changeset	2026
321c1729db5b initial checkin penk parents: diff changeset	2027	\| master item file tempDir\|
321c1729db5b initial checkin penk parents: diff changeset	2028
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2029	self canViewFile ifFalse:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	2030	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	2031	self selectionHolder value size = 1 ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2032	Dialog warn:'only one file have to be selected'.
321c1729db5b initial checkin penk parents: diff changeset	2033	^ self.
321c1729db5b initial checkin penk parents: diff changeset	2034	].
321c1729db5b initial checkin penk parents: diff changeset	2035	tempDir := self temporaryDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2036	self extractSelectedFilesTo:tempDir askForExtractOptions:false.
321c1729db5b initial checkin penk parents: diff changeset	2037	process notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2038	process waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	2039	].
321c1729db5b initial checkin penk parents: diff changeset	2040	file := tempDir construct:self selectionHolder value first fileName.
321c1729db5b initial checkin penk parents: diff changeset	2041	file exists ifTrue:[
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	2042	item := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	2043	].
321c1729db5b initial checkin penk parents: diff changeset	2044	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2045	master openApplByFileItem:item.
321c1729db5b initial checkin penk parents: diff changeset	2046	].
321c1729db5b initial checkin penk parents: diff changeset	2047	! !
321c1729db5b initial checkin penk parents: diff changeset	2048
321c1729db5b initial checkin penk parents: diff changeset	2049	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	2050
321c1729db5b initial checkin penk parents: diff changeset	2051	archiveFileList
321c1729db5b initial checkin penk parents: diff changeset	2052
321c1729db5b initial checkin penk parents: diff changeset	2053	archiveFileList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2054	archiveFileList := List new.
321c1729db5b initial checkin penk parents: diff changeset	2055	archiveFileList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	2056	].
321c1729db5b initial checkin penk parents: diff changeset	2057	^ archiveFileList.
321c1729db5b initial checkin penk parents: diff changeset	2058	!
321c1729db5b initial checkin penk parents: diff changeset	2059
321c1729db5b initial checkin penk parents: diff changeset	2060	enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	2061	"return/create the 'enableRemoveErrorOutput' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2062
321c1729db5b initial checkin penk parents: diff changeset	2063	enableRemoveErrorOutput isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2064	enableRemoveErrorOutput := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2065	].
321c1729db5b initial checkin penk parents: diff changeset	2066	^ enableRemoveErrorOutput
321c1729db5b initial checkin penk parents: diff changeset	2067	!
321c1729db5b initial checkin penk parents: diff changeset	2068
321c1729db5b initial checkin penk parents: diff changeset	2069	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	2070
321c1729db5b initial checkin penk parents: diff changeset	2071	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2072	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2073	].
321c1729db5b initial checkin penk parents: diff changeset	2074	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	2075	!
321c1729db5b initial checkin penk parents: diff changeset	2076
321c1729db5b initial checkin penk parents: diff changeset	2077	errorListHolder
321c1729db5b initial checkin penk parents: diff changeset	2078
321c1729db5b initial checkin penk parents: diff changeset	2079	errorListHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2080	errorListHolder := List new.
321c1729db5b initial checkin penk parents: diff changeset	2081	].
321c1729db5b initial checkin penk parents: diff changeset	2082	^ errorListHolder.
321c1729db5b initial checkin penk parents: diff changeset	2083	!
321c1729db5b initial checkin penk parents: diff changeset	2084
321c1729db5b initial checkin penk parents: diff changeset	2085	errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	2086
321c1729db5b initial checkin penk parents: diff changeset	2087	errorListVisibilityHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2088	errorListVisibilityHolder := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2089	].
321c1729db5b initial checkin penk parents: diff changeset	2090	^ errorListVisibilityHolder
321c1729db5b initial checkin penk parents: diff changeset	2091	!
321c1729db5b initial checkin penk parents: diff changeset	2092
321c1729db5b initial checkin penk parents: diff changeset	2093	hasSelectionInList
321c1729db5b initial checkin penk parents: diff changeset	2094	\| sel \|
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2095
3892 321c1729db5b initial checkin penk parents: diff changeset	2096	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2097	^ sel notEmptyOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	2098	!
321c1729db5b initial checkin penk parents: diff changeset	2099
321c1729db5b initial checkin penk parents: diff changeset	2100	selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	2101	selectionHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2102	selectionHolder := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	2103	selectionHolder addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	2104	].
321c1729db5b initial checkin penk parents: diff changeset	2105	^ selectionHolder.
321c1729db5b initial checkin penk parents: diff changeset	2106	!
321c1729db5b initial checkin penk parents: diff changeset	2107
321c1729db5b initial checkin penk parents: diff changeset	2108	tableColumns
321c1729db5b initial checkin penk parents: diff changeset	2109
321c1729db5b initial checkin penk parents: diff changeset	2110	tableColumns isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2111	tableColumns := self class tableColumns asValue.
321c1729db5b initial checkin penk parents: diff changeset	2112	].
321c1729db5b initial checkin penk parents: diff changeset	2113	^ tableColumns.
321c1729db5b initial checkin penk parents: diff changeset	2114	!
321c1729db5b initial checkin penk parents: diff changeset	2115
321c1729db5b initial checkin penk parents: diff changeset	2116	viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	2117	"return/create the 'viewErrorList' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2118
321c1729db5b initial checkin penk parents: diff changeset	2119	viewErrorList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2120	viewErrorList := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	2121	viewErrorList onChangeSend:#viewErrorListChanged to:self.
321c1729db5b initial checkin penk parents: diff changeset	2122	].
321c1729db5b initial checkin penk parents: diff changeset	2123	^ viewErrorList
321c1729db5b initial checkin penk parents: diff changeset	2124	! !
321c1729db5b initial checkin penk parents: diff changeset	2125
321c1729db5b initial checkin penk parents: diff changeset	2126	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	2127
321c1729db5b initial checkin penk parents: diff changeset	2128	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2129	changedObject == self archiveFileList ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2130	self hasListEntriesHolder value:(changedObject notEmpty).
321c1729db5b initial checkin penk parents: diff changeset	2131	^ self
321c1729db5b initial checkin penk parents: diff changeset	2132	].
321c1729db5b initial checkin penk parents: diff changeset	2133	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2134	!
321c1729db5b initial checkin penk parents: diff changeset	2135
321c1729db5b initial checkin penk parents: diff changeset	2136	viewErrorListChanged
321c1729db5b initial checkin penk parents: diff changeset	2137
321c1729db5b initial checkin penk parents: diff changeset	2138	\| viewListValue\|
321c1729db5b initial checkin penk parents: diff changeset	2139
321c1729db5b initial checkin penk parents: diff changeset	2140	viewListValue := self viewErrorList value.
321c1729db5b initial checkin penk parents: diff changeset	2141	self enableRemoveErrorOutput value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	2142	self errorListVisibilityHolder value:viewListValue.
321c1729db5b initial checkin penk parents: diff changeset	2143	! !
321c1729db5b initial checkin penk parents: diff changeset	2144
321c1729db5b initial checkin penk parents: diff changeset	2145	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
321c1729db5b initial checkin penk parents: diff changeset	2146
321c1729db5b initial checkin penk parents: diff changeset	2147	getErrorBlock
321c1729db5b initial checkin penk parents: diff changeset	2148
321c1729db5b initial checkin penk parents: diff changeset	2149	^
321c1729db5b initial checkin penk parents: diff changeset	2150	[: x \|
321c1729db5b initial checkin penk parents: diff changeset	2151	self viewErrorList value:true.
321c1729db5b initial checkin penk parents: diff changeset	2152	self errorListHolder value add:x.
321c1729db5b initial checkin penk parents: diff changeset	2153	]
321c1729db5b initial checkin penk parents: diff changeset	2154	!
321c1729db5b initial checkin penk parents: diff changeset	2155
321c1729db5b initial checkin penk parents: diff changeset	2156	getErrorStream
321c1729db5b initial checkin penk parents: diff changeset	2157
321c1729db5b initial checkin penk parents: diff changeset	2158	\|errStream\|
321c1729db5b initial checkin penk parents: diff changeset	2159
321c1729db5b initial checkin penk parents: diff changeset	2160	errStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2161	errStream nextPutLineBlock:(self getErrorBlock).
321c1729db5b initial checkin penk parents: diff changeset	2162	^ errStream
321c1729db5b initial checkin penk parents: diff changeset	2163	!
321c1729db5b initial checkin penk parents: diff changeset	2164
321c1729db5b initial checkin penk parents: diff changeset	2165	getOutBlock
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2166	\|archiveOutputParser\|
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2167
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2168	archiveOutputParser := archiver listFilesReader.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2169
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2170	^ [: line \| \|item\|
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2171	item := archiveOutputParser parseLine:line forItemClass:ArchivItem.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2172	item notNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2173	self archiveFileList value add:item
321c1729db5b initial checkin penk parents: diff changeset	2174	].
321c1729db5b initial checkin penk parents: diff changeset	2175	]
321c1729db5b initial checkin penk parents: diff changeset	2176	!
321c1729db5b initial checkin penk parents: diff changeset	2177
321c1729db5b initial checkin penk parents: diff changeset	2178	getOutStream
321c1729db5b initial checkin penk parents: diff changeset	2179
321c1729db5b initial checkin penk parents: diff changeset	2180	\|outStream\|
321c1729db5b initial checkin penk parents: diff changeset	2181
321c1729db5b initial checkin penk parents: diff changeset	2182	outStream := ActorStream new.
321c1729db5b initial checkin penk parents: diff changeset	2183	outStream nextPutLineBlock:(self getOutBlock).
321c1729db5b initial checkin penk parents: diff changeset	2184	^ outStream
321c1729db5b initial checkin penk parents: diff changeset	2185	!
321c1729db5b initial checkin penk parents: diff changeset	2186
321c1729db5b initial checkin penk parents: diff changeset	2187	makeProcessFor:aBlock
321c1729db5b initial checkin penk parents: diff changeset	2188	self makeProcessFor:aBlock with:''
321c1729db5b initial checkin penk parents: diff changeset	2189	!
321c1729db5b initial checkin penk parents: diff changeset	2190
321c1729db5b initial checkin penk parents: diff changeset	2191	makeProcessFor:aBlock with:string
321c1729db5b initial checkin penk parents: diff changeset	2192	process notNil ifTrue:[
6054 ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2193	(process waitUntilTerminatedWithTimeout:10) ifTrue:[
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2194	(Dialog confirm:'Terminate the current active archive operation ?') ifFalse:[^ self].
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2195	process terminate.
ef93df40e07d * empty log message * Claus Gittinger <cg@exept.de> parents: 6033 diff changeset	2196	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2197	terminateByMe ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2198	terminateByMe := false.
321c1729db5b initial checkin penk parents: diff changeset	2199	^ self
321c1729db5b initial checkin penk parents: diff changeset	2200	].
321c1729db5b initial checkin penk parents: diff changeset	2201	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2202
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2203	process := [ [
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2204	self notify:string.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2205	aBlock value.
6190 b3ab1d955319 * empty log message * Claus Gittinger <cg@exept.de> parents: 6173 diff changeset	2206	self notify:nil.
4890 b3f7edcf4981 Stream streamErrorSignal -> StreamError Stefan Vogel <sv@exept.de> parents: 4880 diff changeset	2207	] ensure:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2208	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2209	self enableStopButton value:false.
321c1729db5b initial checkin penk parents: diff changeset	2210	]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2211	] newProcess.
3892 321c1729db5b initial checkin penk parents: diff changeset	2212	process priority:(Processor systemBackgroundPriority).
321c1729db5b initial checkin penk parents: diff changeset	2213	process name:'ArchiveApplicationProcess'.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2214	process resume.
3892 321c1729db5b initial checkin penk parents: diff changeset	2215	self enableStopButton value:true.
321c1729db5b initial checkin penk parents: diff changeset	2216	!
321c1729db5b initial checkin penk parents: diff changeset	2217
321c1729db5b initial checkin penk parents: diff changeset	2218	setColumnsForArchiver
321c1729db5b initial checkin penk parents: diff changeset	2219
321c1729db5b initial checkin penk parents: diff changeset	2220	\| newColumns archiverColumns allColumns iconColumn\|
321c1729db5b initial checkin penk parents: diff changeset	2221
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2222	archiverColumns := archiver columns collect:[:el\| el first].
3892 321c1729db5b initial checkin penk parents: diff changeset	2223	allColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2224	newColumns := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	2225	self class tableColumns do:[:el\|
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2226	allColumns add:(DataSetColumnSpec decodeFromLiteralArray:el).
3892 321c1729db5b initial checkin penk parents: diff changeset	2227	].
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2228	iconColumn := allColumns detect:[: col \| (col readSelector asSymbol) = #icon] ifNone:[nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2229	iconColumn notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2230	newColumns add:iconColumn.
321c1729db5b initial checkin penk parents: diff changeset	2231	].
321c1729db5b initial checkin penk parents: diff changeset	2232	allColumns do:[:col\|
4965 a251b39fb4a2 dont use a column-descriptors id-field Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2233	(archiverColumns includes:(col readSelector asSymbol)) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2234	newColumns add:col.
321c1729db5b initial checkin penk parents: diff changeset	2235	].
321c1729db5b initial checkin penk parents: diff changeset	2236	].
321c1729db5b initial checkin penk parents: diff changeset	2237	self tableColumns value:newColumns.
321c1729db5b initial checkin penk parents: diff changeset	2238	self columnDescriptors:(self tableColumns value).
7765 82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2239
82784792b24e menu Claus Gittinger <cg@exept.de> parents: 7693 diff changeset	2240	"Modified: / 27-03-2007 / 08:46:03 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2241	!
321c1729db5b initial checkin penk parents: diff changeset	2242
321c1729db5b initial checkin penk parents: diff changeset	2243	stopProcess
321c1729db5b initial checkin penk parents: diff changeset	2244
321c1729db5b initial checkin penk parents: diff changeset	2245	\|task\|
321c1729db5b initial checkin penk parents: diff changeset	2246
321c1729db5b initial checkin penk parents: diff changeset	2247	terminateByMe := true.
321c1729db5b initial checkin penk parents: diff changeset	2248	(task := process) notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2249	process := nil.
321c1729db5b initial checkin penk parents: diff changeset	2250
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2251	Error handle:[:ex\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2252	Dialog warn:ex description.
4645 fcf36da5b305 Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4626 diff changeset	2253	] do:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2254	task isDead ifFalse:[
3919 c3cb2ca2f2c8 next stage penk parents: 3906 diff changeset	2255	task terminateWithAllSubprocessesInGroup.
3892 321c1729db5b initial checkin penk parents: diff changeset	2256	task waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	2257	]
321c1729db5b initial checkin penk parents: diff changeset	2258	]
321c1729db5b initial checkin penk parents: diff changeset	2259	].
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:'command helper'!
321c1729db5b initial checkin penk parents: diff changeset	2263
321c1729db5b initial checkin penk parents: diff changeset	2264	selectDirectoryDialog
321c1729db5b initial checkin penk parents: diff changeset	2265
321c1729db5b initial checkin penk parents: diff changeset	2266	\| dir directory haveDirectory\|
321c1729db5b initial checkin penk parents: diff changeset	2267
321c1729db5b initial checkin penk parents: diff changeset	2268	directory := self fileName directory.
321c1729db5b initial checkin penk parents: diff changeset	2269	haveDirectory := false.
321c1729db5b initial checkin penk parents: diff changeset	2270	[haveDirectory] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2271	dir := Dialog requestDirectoryName:'Which directory ?' default:dir.
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2272	dir isEmpty ifTrue:[ ^ nil].
3892 321c1729db5b initial checkin penk parents: diff changeset	2273	dir := dir asFilename.
321c1729db5b initial checkin penk parents: diff changeset	2274	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2275	Dialog warn:'cant write to: ', dir asString.
321c1729db5b initial checkin penk parents: diff changeset	2276	].
321c1729db5b initial checkin penk parents: diff changeset	2277	haveDirectory := true.
321c1729db5b initial checkin penk parents: diff changeset	2278	].
321c1729db5b initial checkin penk parents: diff changeset	2279	^ dir
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2280	!
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2281
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2282	selectDirectoryDialog:message
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2283	\|dir haveDirectory answer\|
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2284
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2285	dir := self masterApplication currentDirectory.
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2286	dir isNil ifTrue:[
7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2287	dir := archiver fileName withoutSuffix.
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2288	"/ (fn exists and:[fn isDirectory]) ifTrue:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2289	"/ dir := fn
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2290	"/ ] ifFalse:[
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2291	"/ dir := fn directory
e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2292	"/ ].
4981 0476a3d2d4ef archiver fix in SelectDirectoryDialog (nil fileName) Claus Gittinger <cg@exept.de> parents: 4977 diff changeset	2293	].
5221 e18f159cd2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5202 diff changeset	2294
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2295	haveDirectory := false.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2296	[haveDirectory] whileFalse:[
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2297	dir := Dialog requestDirectoryName:message default:dir.
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2298	dir isEmpty ifTrue:[ ^ nil].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2299
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2300	dir := dir asFilename.
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2301	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2302	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	2303	answer isNil ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2304	^ nil
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2305	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2306	answer ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2307	dir makeDirectory.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2308	dir exists ifFalse:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2309	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	2310	]
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2311	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2312	].
4396 eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2313	dir exists ifTrue:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2314	(dir isExecutable not or:[dir isWritable not]) ifTrue:[
5610 bbb8d7ef1de8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5609 diff changeset	2315	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	2316	] ifFalse:[
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2317	haveDirectory := true.
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2318	].
eb8622726488 dialog strings; added create directory to extract operation Claus Gittinger <cg@exept.de> parents: 4393 diff changeset	2319	].
3988 fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2320	].
fd7cc4e7983f * empty log message * ca parents: 3987 diff changeset	2321	^ dir
3892 321c1729db5b initial checkin penk parents: diff changeset	2322	! !
321c1729db5b initial checkin penk parents: diff changeset	2323
321c1729db5b initial checkin penk parents: diff changeset	2324	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
321c1729db5b initial checkin penk parents: diff changeset	2325
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2326	addFilesToArchive:colOfFiles
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
4961 7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2332	"/ self
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2333	"/ makeProcessFor:[
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2334	"/ self archiver addFilesToArchive:colOfFiles.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2335	"/ ]
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2336	"/ with:'Adding files to archive'.
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2337	"/ synchronous - otherwise list below fails
7b1d05219028 no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 4953 diff changeset	2338	self archiver addFilesToArchive:colOfFiles.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2339
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2340	"/ ugly code alarm.
3892 321c1729db5b initial checkin penk parents: diff changeset	2341	(self archiver class == Archiver zipArchive) ifTrue:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2342	self listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2343	] ifFalse:[
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2344	self listFiles:colOfFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2345	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2346	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	2347	! !
321c1729db5b initial checkin penk parents: diff changeset	2348
321c1729db5b initial checkin penk parents: diff changeset	2349	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
321c1729db5b initial checkin penk parents: diff changeset	2350
321c1729db5b initial checkin penk parents: diff changeset	2351	extractAll
321c1729db5b initial checkin penk parents: diff changeset	2352
321c1729db5b initial checkin penk parents: diff changeset	2353	self extractSelectedFilesTo:nil withSelection:#all
321c1729db5b initial checkin penk parents: diff changeset	2354	!
321c1729db5b initial checkin penk parents: diff changeset	2355
321c1729db5b initial checkin penk parents: diff changeset	2356	extractSelectedFilesTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2357
321c1729db5b initial checkin penk parents: diff changeset	2358	self extractSelectedFilesTo:aDirectory withSelection:#selection askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2359	!
321c1729db5b initial checkin penk parents: diff changeset	2360
321c1729db5b initial checkin penk parents: diff changeset	2361	extractSelectedFilesTo:aDirectory withSelection:selectOrAll
321c1729db5b initial checkin penk parents: diff changeset	2362
321c1729db5b initial checkin penk parents: diff changeset	2363	self extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:true.
321c1729db5b initial checkin penk parents: diff changeset	2364	!
321c1729db5b initial checkin penk parents: diff changeset	2365
321c1729db5b initial checkin penk parents: diff changeset	2366	extractSelectedFilesTo:aDirectory withSelection:selectOrAll askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2367
321c1729db5b initial checkin penk parents: diff changeset	2368	\| dir\|
321c1729db5b initial checkin penk parents: diff changeset	2369
321c1729db5b initial checkin penk parents: diff changeset	2370	aDirectory isNil ifTrue:[
5413 7d58900ca76e extract in the current selected directory penk parents: 5406 diff changeset	2371	dir := self selectDirectoryDialog:'Extract into Directory?'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2372	dir isNil ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2373	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2374	dir := aDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2375	].
321c1729db5b initial checkin penk parents: diff changeset	2376	selectOrAll == #all ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2377	self extractAllTo:dir.
321c1729db5b initial checkin penk parents: diff changeset	2378	].
321c1729db5b initial checkin penk parents: diff changeset	2379	selectOrAll == #selection ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2380	self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2381	].
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2382	"/ self updateFileBrowserIfPresentWith:dir.
3892 321c1729db5b initial checkin penk parents: diff changeset	2383	! !
321c1729db5b initial checkin penk parents: diff changeset	2384
321c1729db5b initial checkin penk parents: diff changeset	2385	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
321c1729db5b initial checkin penk parents: diff changeset	2386
321c1729db5b initial checkin penk parents: diff changeset	2387	extractAllTo:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2388
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2389	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2390	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2391	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2392	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2393	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2394	makeProcessFor:[ self archiver extractFilesTo:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2395	with:'Extracting all files'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2396	^ true.
321c1729db5b initial checkin penk parents: diff changeset	2397	!
321c1729db5b initial checkin penk parents: diff changeset	2398
5415 20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2399	extractSelection
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2400	self extractSelectedFilesTo:nil withSelection:#selection askForExtractOptions:true
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2401	!
20210169445f allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2402
3892 321c1729db5b initial checkin penk parents: diff changeset	2403	extractSelectionTo:aDirectory askForExtractOptions:askForExtractOptionsBoolean
321c1729db5b initial checkin penk parents: diff changeset	2404	\| sel index extractWithDirectoryPart extractAllFilesInSelectedDirectories extractFiles\|
321c1729db5b initial checkin penk parents: diff changeset	2405
321c1729db5b initial checkin penk parents: diff changeset	2406	extractWithDirectoryPart := true.
321c1729db5b initial checkin penk parents: diff changeset	2407	extractAllFilesInSelectedDirectories := false.
321c1729db5b initial checkin penk parents: diff changeset	2408	sel := self selectionHolder value.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	2409	(sel isEmptyOrNil) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	2410	sel := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2411	].
321c1729db5b initial checkin penk parents: diff changeset	2412	sel := sel do:[:item\|
321c1729db5b initial checkin penk parents: diff changeset	2413	item fileName: item fileName
321c1729db5b initial checkin penk parents: diff changeset	2414	].
321c1729db5b initial checkin penk parents: diff changeset	2415	(askForExtractOptionsBoolean and:[self archiver class ~= Archiver zipArchive]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2416	extractFiles := self selRemoveFilesForDirs:sel.
321c1729db5b initial checkin penk parents: diff changeset	2417	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2418	extractFiles := sel.
321c1729db5b initial checkin penk parents: diff changeset	2419	].
321c1729db5b initial checkin penk parents: diff changeset	2420
321c1729db5b initial checkin penk parents: diff changeset	2421	askForExtractOptionsBoolean ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2422	index := extractFiles findFirst:[: el \| el hasDirectoryPart].
321c1729db5b initial checkin penk parents: diff changeset	2423	index ~= 0 ifTrue:[
4964 911fb209dcfc output parsing refactored; Claus Gittinger <cg@exept.de> parents: 4961 diff changeset	2424	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	2425	extractWithDirectoryPart isNil ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	2426	].
321c1729db5b initial checkin penk parents: diff changeset	2427	].
321c1729db5b initial checkin penk parents: diff changeset	2428	extractWithDirectoryPart ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2429	self extractWithDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2430	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2431	self extractWithOutDirectoryPartTo:aDirectory with:extractFiles.
321c1729db5b initial checkin penk parents: diff changeset	2432	].
321c1729db5b initial checkin penk parents: diff changeset	2433	^ true
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2434
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2435	"Modified (format): / 29-11-2011 / 18:57:54 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2436	!
321c1729db5b initial checkin penk parents: diff changeset	2437
321c1729db5b initial checkin penk parents: diff changeset	2438	extractWithDirectoryPartTo:aDirectory with:extractFiles
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2439	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2440	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2441	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2442	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2443	self
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2444	makeProcessFor:[ self archiver extractFiles:extractFiles to:aDirectory ]
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2445	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2446	^ true.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2447
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2448	"Modified (format): / 29-11-2011 / 18:57:58 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2449	!
321c1729db5b initial checkin penk parents: diff changeset	2450
321c1729db5b initial checkin penk parents: diff changeset	2451	extractWithOutDirectoryPartTo:aDirectory with:extractFiles
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2452	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2453	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2454	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2455	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2456	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2457	makeProcessFor:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2458	self archiver
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2459	extractFiles:(extractFiles collect:[:item\| item fileName])
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2460	withoutDirectoryTo:aDirectory.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2461	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2462	with:('Extracting files to %1' bindWith:aDirectory asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2463	^ true.
10922 ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2464
ad955bd3b4b1 added: #doAddArchiverOn: Claus Gittinger <cg@exept.de> parents: 10761 diff changeset	2465	"Modified (format): / 29-11-2011 / 18:58:01 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	2466	! !
321c1729db5b initial checkin penk parents: diff changeset	2467
321c1729db5b initial checkin penk parents: diff changeset	2468	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
321c1729db5b initial checkin penk parents: diff changeset	2469
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2470	listAllFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	2471	self archiveFileList value removeAll.
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2472	self listFiles:nil
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2473	!
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2474
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2475	listFiles:aColOfFilesOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	2476	process notNil ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2477	process waitUntilTerminated
3892 321c1729db5b initial checkin penk parents: diff changeset	2478	].
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2479
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2480	archiver notNil ifTrue:[
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2481	self archiver
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2482	outStream:(self getOutStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2483	errorStream:(self getErrorStream)
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2484	synchron:true.
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2485
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2486	self
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2487	makeProcessFor:[self archiver listFiles:aColOfFilesOrNil]
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2488	with:'List files'
2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2489	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2490	! !
321c1729db5b initial checkin penk parents: diff changeset	2491
321c1729db5b initial checkin penk parents: diff changeset	2492	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
321c1729db5b initial checkin penk parents: diff changeset	2493
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2494	removeFilesFromArchive
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2495	\|sel realSel list firtsPre stringCol stringRealSel\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2496
321c1729db5b initial checkin penk parents: diff changeset	2497	sel := self selectionHolder value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2498	stringCol := sel collect:[:item \| item fileName].
3892 321c1729db5b initial checkin penk parents: diff changeset	2499	firtsPre := stringCol at:1.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2500	stringCol from:2 do:[:el \| firtsPre := firtsPre commonPrefixWith:el].
3892 321c1729db5b initial checkin penk parents: diff changeset	2501	list := self archiveFileList value.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2502	"/ realSel := OrderedCollection new.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2503	"/ list do:[:item \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2504	"/ ((item fileName) startsWith:firtsPre) ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2505	"/ realSel add:item
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2506	"/ ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2507	"/ ].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2508	realSel := list select:[:item \| (item fileName) startsWith:firtsPre].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2509	stringRealSel := realSel collect:[:item \| item fileName].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2510
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2511	self archiver
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2512	outStream:nil
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2513	errorStream:(self getErrorStream)
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2514	synchron:true.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2515	self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2516	makeProcessFor:[ self archiver removeFilesFromArchive:stringCol ]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2517	with:'Remove files'.
4462 b14fcc67ff8e removeAll: changed to removeAllFoundIn: Michael Beyl <mb@exept.de> parents: 4417 diff changeset	2518	self archiveFileList value removeAllFoundIn:realSel
3892 321c1729db5b initial checkin penk parents: diff changeset	2519	! !
321c1729db5b initial checkin penk parents: diff changeset	2520
321c1729db5b initial checkin penk parents: diff changeset	2521	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
321c1729db5b initial checkin penk parents: diff changeset	2522
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2523	canDrop:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2524
af8ef74cb43b next stage penk parents: 3950 diff changeset	2525	^ inDropMode
3892 321c1729db5b initial checkin penk parents: diff changeset	2526	!
321c1729db5b initial checkin penk parents: diff changeset	2527
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2528	doDrop:aContext
3892 321c1729db5b initial checkin penk parents: diff changeset	2529	\|col source arg objects\|
321c1729db5b initial checkin penk parents: diff changeset	2530
321c1729db5b initial checkin penk parents: diff changeset	2531	source := aContext dropSource.
321c1729db5b initial checkin penk parents: diff changeset	2532	arg := source argument.
321c1729db5b initial checkin penk parents: diff changeset	2533	objects := aContext dropObjects.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2534	col := objects collect:[:dropObject \| dropObject theObject].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2535	^ self addFilesToArchive:col
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	doStartDrag:aDropSource in:aView
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2539	"set the cursors before starting the drag & drop operation"
3892 321c1729db5b initial checkin penk parents: diff changeset	2540
4018 43e02c59719d * empty log message * penk parents: 4001 diff changeset	2541	archiver class canDragnDrop ifFalse:[^ self].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2542	super doStartDrag:aDropSource in:aView
3892 321c1729db5b initial checkin penk parents: diff changeset	2543	!
321c1729db5b initial checkin penk parents: diff changeset	2544
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2545	dropEnter:aContext
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2546	\| dropObjects\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2547
af8ef74cb43b next stage penk parents: 3950 diff changeset	2548	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2549	(aContext dropSource receiver == self) ifTrue:[^ self].
6377 5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2550	dropObjects := aContext dropObjects.
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2551
5c3a4c5d70cc * empty log message * Claus Gittinger <cg@exept.de> parents: 6376 diff changeset	2552	dropObjects do:[:aObject\| \|checkObject checkObjectString\|
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2553	aObject isFileObject ifFalse:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2554	checkObject := aObject theObject.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	2555	checkObject isFilename ifFalse:[^ self].
3951 af8ef74cb43b next stage penk parents: 3950 diff changeset	2556	checkObject isSpecialFile ifTrue:[^ self].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2557	].
af8ef74cb43b next stage penk parents: 3950 diff changeset	2558	inDropMode := true.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2559	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2560
af8ef74cb43b next stage penk parents: 3950 diff changeset	2561	dropLeave:aContext
af8ef74cb43b next stage penk parents: 3950 diff changeset	2562
af8ef74cb43b next stage penk parents: 3950 diff changeset	2563	inDropMode := false.
af8ef74cb43b next stage penk parents: 3950 diff changeset	2564	!
af8ef74cb43b next stage penk parents: 3950 diff changeset	2565
3892 321c1729db5b initial checkin penk parents: diff changeset	2566	getDisplayObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2567	"retrieve the objects displayed during a drag"
3892 321c1729db5b initial checkin penk parents: diff changeset	2568
321c1729db5b initial checkin penk parents: diff changeset	2569	\| sel string size fnName stream\|
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2570
3892 321c1729db5b initial checkin penk parents: diff changeset	2571	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	2572	size := sel size.
321c1729db5b initial checkin penk parents: diff changeset	2573	size == 0 ifTrue:[^ ''].
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2574
3892 321c1729db5b initial checkin penk parents: diff changeset	2575	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	2576	stream nextPutAll:(sel first fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2577	size == 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2578	fnName := 'ui_menuitem.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2579	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2580	fnName := 'ui_submenu_open.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	2581	stream nextPutAll:' ... '.
321c1729db5b initial checkin penk parents: diff changeset	2582	stream nextPutAll:(sel last fileName asFilename baseName asString).
321c1729db5b initial checkin penk parents: diff changeset	2583	].
321c1729db5b initial checkin penk parents: diff changeset	2584	string := stream contents.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2585
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2586	^ Array with:(LabelAndIcon
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2587	icon:(Image fromFile:fnName)
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2588	string:(Text string:string emphasis:#bold))
3892 321c1729db5b initial checkin penk parents: diff changeset	2589	!
321c1729db5b initial checkin penk parents: diff changeset	2590
321c1729db5b initial checkin penk parents: diff changeset	2591	getDropObjects:anArgument
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2592	"common code, used in subclasses"
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2593
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2594	\|sel\|
44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2595
3892 321c1729db5b initial checkin penk parents: diff changeset	2596	sel := self selectionHolder value.
9359 44d36e85cb39 support drag&drop from the find-file resultlist Claus Gittinger <cg@exept.de> parents: 9172 diff changeset	2597	^ sel collect:[:el\| DropObject newFileInArchive:(el fileName asFilename) ].
3892 321c1729db5b initial checkin penk parents: diff changeset	2598	! !
321c1729db5b initial checkin penk parents: diff changeset	2599
321c1729db5b initial checkin penk parents: diff changeset	2600	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	2601
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2602	processEvent:anEvent
3892 321c1729db5b initial checkin penk parents: diff changeset	2603	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	2604	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	2605
12115 2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	2606	<resource: #keyboard (#Delete )>
2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	2607
3892 321c1729db5b initial checkin penk parents: diff changeset	2608	\|focusView key rawKey\|
321c1729db5b initial checkin penk parents: diff changeset	2609
321c1729db5b initial checkin penk parents: diff changeset	2610	anEvent isKeyPressEvent ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2611	focusView := anEvent targetView.
321c1729db5b initial checkin penk parents: diff changeset	2612	key := anEvent key.
321c1729db5b initial checkin penk parents: diff changeset	2613	rawKey := anEvent rawKey.
321c1729db5b initial checkin penk parents: diff changeset	2614	(focusView isSameOrComponentOf:self window) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2615	(key == #Delete) ifTrue:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2616	self removeFilesFromArchive.
3892 321c1729db5b initial checkin penk parents: diff changeset	2617	^ true
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2618	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2619	]
321c1729db5b initial checkin penk parents: diff changeset	2620	].
321c1729db5b initial checkin penk parents: diff changeset	2621	^ false
321c1729db5b initial checkin penk parents: diff changeset	2622	! !
321c1729db5b initial checkin penk parents: diff changeset	2623
321c1729db5b initial checkin penk parents: diff changeset	2624	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	2625
321c1729db5b initial checkin penk parents: diff changeset	2626	postBuildFileTable:aWidget
321c1729db5b initial checkin penk parents: diff changeset	2627
321c1729db5b initial checkin penk parents: diff changeset	2628	fileTable := aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	2629	fileTable wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	2630	"/ FileBrowser icons keysAndValuesDo:[:aKey :anIcon\|
321c1729db5b initial checkin penk parents: diff changeset	2631	"/ fileTable registerImage:anIcon key:aKey.
321c1729db5b initial checkin penk parents: diff changeset	2632	"/ ].
321c1729db5b initial checkin penk parents: diff changeset	2633	self columnDescriptors:(self class tableColumns).
321c1729db5b initial checkin penk parents: diff changeset	2634	!
321c1729db5b initial checkin penk parents: diff changeset	2635
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2636	postOpenWith:aBuilder
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2637	\|currentDir contents suffix fileName file archivItem\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2638
321c1729db5b initial checkin penk parents: diff changeset	2639	self windowGroup addPreEventHook:self.
321c1729db5b initial checkin penk parents: diff changeset	2640	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2641	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	2642	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2643	contents := currentDir directoryContents.
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2644	fileName := contents
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2645	detect:[:file \|
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2646	suffix := file asFilename suffix asLowercase.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2647	suffix = 'tgz'
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2648	]
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2649	ifNone:[nil].
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2650	fileName isNil ifTrue:[
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2651	Dialog warn:'cant find a Zip file in ' , currentDir asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2652	^ self
321c1729db5b initial checkin penk parents: diff changeset	2653	].
321c1729db5b initial checkin penk parents: diff changeset	2654	file := currentDir construct:fileName.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	2655	archivItem := DirectoryContentsBrowser itemClass fileName:file.
3892 321c1729db5b initial checkin penk parents: diff changeset	2656	(self item:archivItem) ifFalse:[
4803 9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2657	Dialog warn:'file type of ' , item fileName asString , ' not supported'.
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2658	^ self
9224c562e352 archiv -> archive Claus Gittinger <cg@exept.de> parents: 4774 diff changeset	2659	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2660	].
4905 2fa2537a4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2661	self listAllFiles.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	2662	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	2663	!
321c1729db5b initial checkin penk parents: diff changeset	2664
321c1729db5b initial checkin penk parents: diff changeset	2665	release
321c1729db5b initial checkin penk parents: diff changeset	2666	self archiver release.
14065 a6da1191dfc5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13905 diff changeset	2667	super release.
3892 321c1729db5b initial checkin penk parents: diff changeset	2668	! !
321c1729db5b initial checkin penk parents: diff changeset	2669
321c1729db5b initial checkin penk parents: diff changeset	2670	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	2671
321c1729db5b initial checkin penk parents: diff changeset	2672	canDelete
321c1729db5b initial checkin penk parents: diff changeset	2673
321c1729db5b initial checkin penk parents: diff changeset	2674	^ (self hasOneSelectionInList and:[archiver class canRemoveFiles])
321c1729db5b initial checkin penk parents: diff changeset	2675	!
321c1729db5b initial checkin penk parents: diff changeset	2676
4001 ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2677	canViewFile
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2678
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2679	^ self archiver class canViewFile and:[self hasOneSelectionInList]
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2680	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2681
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2682	hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2683	"return/create the 'hasListEntriesHolder' value holder (automatically generated)"
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2684
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2685	hasListEntriesHolder isNil ifTrue:[
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2686	hasListEntriesHolder := false asValue.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2687	].
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2688	^ hasListEntriesHolder
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2689	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2690
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2691	hasOneSelectionInList
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2692
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2693	\| sel \|
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2694	sel := self selectionHolder value.
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2695	^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2696	!
ef0ac34526b0 archiver dont goes to extracted file penk parents: 3989 diff changeset	2697
3892 321c1729db5b initial checkin penk parents: diff changeset	2698	selRemoveFilesForDirs:aSel
321c1729db5b initial checkin penk parents: diff changeset	2699
321c1729db5b initial checkin penk parents: diff changeset	2700	\|stringCol newSel string\|
321c1729db5b initial checkin penk parents: diff changeset	2701
321c1729db5b initial checkin penk parents: diff changeset	2702	stringCol := (aSel collect:[: item\| item fileName]).
321c1729db5b initial checkin penk parents: diff changeset	2703	newSel := aSel copy.
321c1729db5b initial checkin penk parents: diff changeset	2704	aSel do:[:item \|
321c1729db5b initial checkin penk parents: diff changeset	2705	item isDirectory ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2706	string := item fileName.
321c1729db5b initial checkin penk parents: diff changeset	2707	stringCol doWithIndex:[:filename : index\|
321c1729db5b initial checkin penk parents: diff changeset	2708	(filename ~= string and:[filename startsWith:string]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2709	newSel remove:(aSel at:index) ifAbsent:[nil].
321c1729db5b initial checkin penk parents: diff changeset	2710	]
321c1729db5b initial checkin penk parents: diff changeset	2711	]
321c1729db5b initial checkin penk parents: diff changeset	2712	].
321c1729db5b initial checkin penk parents: diff changeset	2713	].
321c1729db5b initial checkin penk parents: diff changeset	2714	^ newSel.
321c1729db5b initial checkin penk parents: diff changeset	2715	! !
321c1729db5b initial checkin penk parents: diff changeset	2716
321c1729db5b initial checkin penk parents: diff changeset	2717	!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
321c1729db5b initial checkin penk parents: diff changeset	2718
321c1729db5b initial checkin penk parents: diff changeset	2719	generateSortBlock:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2720
321c1729db5b initial checkin penk parents: diff changeset	2721	\| aSymbol cmpOp sortCaselessLocal\|
321c1729db5b initial checkin penk parents: diff changeset	2722
321c1729db5b initial checkin penk parents: diff changeset	2723	aSymbol := instanceName asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2724	sortCaselessLocal := self sortCaseless value.
321c1729db5b initial checkin penk parents: diff changeset	2725	currentSortOrder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2726	currentSortOrder := aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2727	currentSortOrder := Dictionary new.
321c1729db5b initial checkin penk parents: diff changeset	2728	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2729	currentSortOrder at:#reverse put:false.
321c1729db5b initial checkin penk parents: diff changeset	2730	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
321c1729db5b initial checkin penk parents: diff changeset	2731	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2732	(currentSortOrder at:#column) = aSymbol ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2733	"/ same column like before - change sort order
321c1729db5b initial checkin penk parents: diff changeset	2734	\| isReverse \|
321c1729db5b initial checkin penk parents: diff changeset	2735	isReverse := currentSortOrder at:#reverse.
321c1729db5b initial checkin penk parents: diff changeset	2736	currentSortOrder at:#reverse put:(isReverse not).
321c1729db5b initial checkin penk parents: diff changeset	2737	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2738	"/ another column - remark column
321c1729db5b initial checkin penk parents: diff changeset	2739	currentSortOrder at:#column put:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2740	]
321c1729db5b initial checkin penk parents: diff changeset	2741	].
321c1729db5b initial checkin penk parents: diff changeset	2742	(currentSortOrder at:#reverse) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2743	cmpOp := #'>'
321c1729db5b initial checkin penk parents: diff changeset	2744	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2745	cmpOp := #'<'
321c1729db5b initial checkin penk parents: diff changeset	2746	].
321c1729db5b initial checkin penk parents: diff changeset	2747	^ [:a :b \|
321c1729db5b initial checkin penk parents: diff changeset	2748	\|entry1 entry2\|
321c1729db5b initial checkin penk parents: diff changeset	2749
321c1729db5b initial checkin penk parents: diff changeset	2750	entry1 := (a perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2751	entry2 := (b perform:aSymbol).
321c1729db5b initial checkin penk parents: diff changeset	2752	aSymbol = #fileName ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2753	sortCaselessLocal ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	2754	entry1 := entry1 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2755	entry2 := entry2 asString asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	2756	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	2757	entry1 := entry1 asString.
321c1729db5b initial checkin penk parents: diff changeset	2758	entry2 := entry2 asString.
321c1729db5b initial checkin penk parents: diff changeset	2759	].
321c1729db5b initial checkin penk parents: diff changeset	2760	].
321c1729db5b initial checkin penk parents: diff changeset	2761	entry1 perform:cmpOp with:entry2
321c1729db5b initial checkin penk parents: diff changeset	2762	].
321c1729db5b initial checkin penk parents: diff changeset	2763	!
321c1729db5b initial checkin penk parents: diff changeset	2764
321c1729db5b initial checkin penk parents: diff changeset	2765	sortList:instanceName
321c1729db5b initial checkin penk parents: diff changeset	2766
321c1729db5b initial checkin penk parents: diff changeset	2767
321c1729db5b initial checkin penk parents: diff changeset	2768	\|sortBlock fileList sortCol\|
321c1729db5b initial checkin penk parents: diff changeset	2769
321c1729db5b initial checkin penk parents: diff changeset	2770	sortBlock := self generateSortBlock:instanceName.
321c1729db5b initial checkin penk parents: diff changeset	2771	fileList := self archiveFileList value.
321c1729db5b initial checkin penk parents: diff changeset	2772	sortCol := SortedCollection sortBlock:sortBlock.
321c1729db5b initial checkin penk parents: diff changeset	2773	sortCol addAll:fileList.
321c1729db5b initial checkin penk parents: diff changeset	2774	fileList removeAll.
321c1729db5b initial checkin penk parents: diff changeset	2775	fileList addAll:sortCol.
321c1729db5b initial checkin penk parents: diff changeset	2776	! !
321c1729db5b initial checkin penk parents: diff changeset	2777
321c1729db5b initial checkin penk parents: diff changeset	2778	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	2779
321c1729db5b initial checkin penk parents: diff changeset	2780	compressSize
321c1729db5b initial checkin penk parents: diff changeset	2781	"return the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2782
321c1729db5b initial checkin penk parents: diff changeset	2783	^ compressSize
321c1729db5b initial checkin penk parents: diff changeset	2784	!
321c1729db5b initial checkin penk parents: diff changeset	2785
321c1729db5b initial checkin penk parents: diff changeset	2786	compressSize:something
321c1729db5b initial checkin penk parents: diff changeset	2787	"set the value of the instance variable 'compressSize' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2788
321c1729db5b initial checkin penk parents: diff changeset	2789	compressSize := something.
321c1729db5b initial checkin penk parents: diff changeset	2790	!
321c1729db5b initial checkin penk parents: diff changeset	2791
321c1729db5b initial checkin penk parents: diff changeset	2792	crc
321c1729db5b initial checkin penk parents: diff changeset	2793	"return the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2794
321c1729db5b initial checkin penk parents: diff changeset	2795	^ crc
321c1729db5b initial checkin penk parents: diff changeset	2796	!
321c1729db5b initial checkin penk parents: diff changeset	2797
321c1729db5b initial checkin penk parents: diff changeset	2798	crc:something
321c1729db5b initial checkin penk parents: diff changeset	2799	"set the value of the instance variable 'crc' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2800
321c1729db5b initial checkin penk parents: diff changeset	2801	crc := something.
321c1729db5b initial checkin penk parents: diff changeset	2802	!
321c1729db5b initial checkin penk parents: diff changeset	2803
321c1729db5b initial checkin penk parents: diff changeset	2804	dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2805	"return the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2806
321c1729db5b initial checkin penk parents: diff changeset	2807	^ dateAndTime
321c1729db5b initial checkin penk parents: diff changeset	2808	!
321c1729db5b initial checkin penk parents: diff changeset	2809
321c1729db5b initial checkin penk parents: diff changeset	2810	dateAndTime:something
321c1729db5b initial checkin penk parents: diff changeset	2811	"set the value of the instance variable 'dateAndTime' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2812
321c1729db5b initial checkin penk parents: diff changeset	2813	dateAndTime := something.
321c1729db5b initial checkin penk parents: diff changeset	2814	!
321c1729db5b initial checkin penk parents: diff changeset	2815
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2816	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2817	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2818
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2819	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2820	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2821	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2822	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2823	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2824
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2825	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2826	year:ts year
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2827	month:ts month
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2828	day:day
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2829	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2830	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2831	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2832	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2833
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2834	dayString:dayString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2835	self day:(Integer readFrom:dayString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2836	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2837
3892 321c1729db5b initial checkin penk parents: diff changeset	2838	fileName
321c1729db5b initial checkin penk parents: diff changeset	2839	"return the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2840
321c1729db5b initial checkin penk parents: diff changeset	2841	^ fileName
321c1729db5b initial checkin penk parents: diff changeset	2842	!
321c1729db5b initial checkin penk parents: diff changeset	2843
321c1729db5b initial checkin penk parents: diff changeset	2844	fileName:something
321c1729db5b initial checkin penk parents: diff changeset	2845	"set the value of the instance variable 'fileName' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2846
321c1729db5b initial checkin penk parents: diff changeset	2847	fileName := something withoutSpaces.
321c1729db5b initial checkin penk parents: diff changeset	2848	!
321c1729db5b initial checkin penk parents: diff changeset	2849
321c1729db5b initial checkin penk parents: diff changeset	2850	icon
321c1729db5b initial checkin penk parents: diff changeset	2851	"return the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2852
321c1729db5b initial checkin penk parents: diff changeset	2853	^ icon
321c1729db5b initial checkin penk parents: diff changeset	2854	!
321c1729db5b initial checkin penk parents: diff changeset	2855
321c1729db5b initial checkin penk parents: diff changeset	2856	icon:something
321c1729db5b initial checkin penk parents: diff changeset	2857	"set the value of the instance variable 'icon' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2858
321c1729db5b initial checkin penk parents: diff changeset	2859	icon := something.
321c1729db5b initial checkin penk parents: diff changeset	2860	!
321c1729db5b initial checkin penk parents: diff changeset	2861
321c1729db5b initial checkin penk parents: diff changeset	2862	isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2863	"return the value of the instance variable 'directory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2864
321c1729db5b initial checkin penk parents: diff changeset	2865	^ isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2866	!
321c1729db5b initial checkin penk parents: diff changeset	2867
321c1729db5b initial checkin penk parents: diff changeset	2868	isDirectory:something
321c1729db5b initial checkin penk parents: diff changeset	2869	"set the value of the instance variable 'isDirectory' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2870
321c1729db5b initial checkin penk parents: diff changeset	2871	isDirectory := something.
321c1729db5b initial checkin penk parents: diff changeset	2872	!
321c1729db5b initial checkin penk parents: diff changeset	2873
321c1729db5b initial checkin penk parents: diff changeset	2874	method
321c1729db5b initial checkin penk parents: diff changeset	2875	"return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2876
321c1729db5b initial checkin penk parents: diff changeset	2877	^ method
321c1729db5b initial checkin penk parents: diff changeset	2878	!
321c1729db5b initial checkin penk parents: diff changeset	2879
321c1729db5b initial checkin penk parents: diff changeset	2880	method:something
321c1729db5b initial checkin penk parents: diff changeset	2881	"set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2882
321c1729db5b initial checkin penk parents: diff changeset	2883	method := something.
321c1729db5b initial checkin penk parents: diff changeset	2884	!
321c1729db5b initial checkin penk parents: diff changeset	2885
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2886	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2887	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2888
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2889	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2890	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2891	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2892	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2893	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2894
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2895	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2896	year:ts year
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2897	month:month
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2898	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2899	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2900	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2901	second:ts minutes
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
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2904	monthName:monthName
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2905	self month:(Date indexOfMonth:monthName)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2906	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2907
3892 321c1729db5b initial checkin penk parents: diff changeset	2908	ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2909	"return the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2910
321c1729db5b initial checkin penk parents: diff changeset	2911	^ ownerGroup
321c1729db5b initial checkin penk parents: diff changeset	2912	!
321c1729db5b initial checkin penk parents: diff changeset	2913
321c1729db5b initial checkin penk parents: diff changeset	2914	ownerGroup:something
321c1729db5b initial checkin penk parents: diff changeset	2915	"set the value of the instance variable 'owner' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2916
321c1729db5b initial checkin penk parents: diff changeset	2917	ownerGroup := something.
321c1729db5b initial checkin penk parents: diff changeset	2918	!
321c1729db5b initial checkin penk parents: diff changeset	2919
321c1729db5b initial checkin penk parents: diff changeset	2920	permissions
321c1729db5b initial checkin penk parents: diff changeset	2921	"return the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2922
321c1729db5b initial checkin penk parents: diff changeset	2923	^ permissions
321c1729db5b initial checkin penk parents: diff changeset	2924	!
321c1729db5b initial checkin penk parents: diff changeset	2925
321c1729db5b initial checkin penk parents: diff changeset	2926	permissions:something
321c1729db5b initial checkin penk parents: diff changeset	2927	"set the value of the instance variable 'permissions' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2928
321c1729db5b initial checkin penk parents: diff changeset	2929	permissions := something.
321c1729db5b initial checkin penk parents: diff changeset	2930	!
321c1729db5b initial checkin penk parents: diff changeset	2931
321c1729db5b initial checkin penk parents: diff changeset	2932	ratio
321c1729db5b initial checkin penk parents: diff changeset	2933	"return the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2934
321c1729db5b initial checkin penk parents: diff changeset	2935	^ ratio
321c1729db5b initial checkin penk parents: diff changeset	2936	!
321c1729db5b initial checkin penk parents: diff changeset	2937
321c1729db5b initial checkin penk parents: diff changeset	2938	ratio:something
321c1729db5b initial checkin penk parents: diff changeset	2939	"set the value of the instance variable 'ratio' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2940
321c1729db5b initial checkin penk parents: diff changeset	2941	ratio := something.
321c1729db5b initial checkin penk parents: diff changeset	2942	!
321c1729db5b initial checkin penk parents: diff changeset	2943
321c1729db5b initial checkin penk parents: diff changeset	2944	size
321c1729db5b initial checkin penk parents: diff changeset	2945	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2946
321c1729db5b initial checkin penk parents: diff changeset	2947	^ size
321c1729db5b initial checkin penk parents: diff changeset	2948	!
321c1729db5b initial checkin penk parents: diff changeset	2949
321c1729db5b initial checkin penk parents: diff changeset	2950	size:something
321c1729db5b initial checkin penk parents: diff changeset	2951	"set the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2952
321c1729db5b initial checkin penk parents: diff changeset	2953	size := something.
321c1729db5b initial checkin penk parents: diff changeset	2954	!
321c1729db5b initial checkin penk parents: diff changeset	2955
321c1729db5b initial checkin penk parents: diff changeset	2956	sizeAsNumber
321c1729db5b initial checkin penk parents: diff changeset	2957	"return the value of the instance variable 'size' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2958
321c1729db5b initial checkin penk parents: diff changeset	2959	^ size asInteger
321c1729db5b initial checkin penk parents: diff changeset	2960	!
321c1729db5b initial checkin penk parents: diff changeset	2961
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2962	time:time
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2963	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2964
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2965	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2966	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2967	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2968	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2969	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2970
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	2971	dateAndTime := Timestamp
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2972	year:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2973	month:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2974	day:ts day
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2975	hour:time hours
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2976	minute:time minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	2977	second:time seconds
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2978	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2979
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2980	timeString:timeString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2981	self time:(Time readFrom:timeString)
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2982	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	2983
3892 321c1729db5b initial checkin penk parents: diff changeset	2984	type
321c1729db5b initial checkin penk parents: diff changeset	2985	"return the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2986
321c1729db5b initial checkin penk parents: diff changeset	2987	^ type
321c1729db5b initial checkin penk parents: diff changeset	2988	!
321c1729db5b initial checkin penk parents: diff changeset	2989
321c1729db5b initial checkin penk parents: diff changeset	2990	type:something
321c1729db5b initial checkin penk parents: diff changeset	2991	"set the value of the instance variable 'type' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2992
321c1729db5b initial checkin penk parents: diff changeset	2993	type := something.
321c1729db5b initial checkin penk parents: diff changeset	2994	!
321c1729db5b initial checkin penk parents: diff changeset	2995
321c1729db5b initial checkin penk parents: diff changeset	2996	version
321c1729db5b initial checkin penk parents: diff changeset	2997	"return the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	2998
321c1729db5b initial checkin penk parents: diff changeset	2999	^ version
321c1729db5b initial checkin penk parents: diff changeset	3000	!
321c1729db5b initial checkin penk parents: diff changeset	3001
321c1729db5b initial checkin penk parents: diff changeset	3002	version:something
321c1729db5b initial checkin penk parents: diff changeset	3003	"set the value of the instance variable 'version' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3004
321c1729db5b initial checkin penk parents: diff changeset	3005	version := something.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3006	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3007
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3008	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3009	\|ts\|
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3010
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3011	dateAndTime isNil ifTrue:[
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	3012	ts := Timestamp now.
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3013	] ifFalse:[
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3014	ts := dateAndTime
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3015	].
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3016
5784 11ee27b3b78f Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5745 diff changeset	3017	dateAndTime := Timestamp
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3018	year:year
9402 74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3019	month:ts month
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3020	day:ts day
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3021	hour:ts hour
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3022	minute:ts minutes
74b2643f677b Do not use obsolete methods Stefan Vogel <sv@exept.de> parents: 9399 diff changeset	3023	second:ts minutes
5414 41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3024	!
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3025
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3026	yearString:yearString
41ac318add1f more initializers Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	3027	self year:(Integer readFrom:yearString)
3892 321c1729db5b initial checkin penk parents: diff changeset	3028	! !
321c1729db5b initial checkin penk parents: diff changeset	3029
321c1729db5b initial checkin penk parents: diff changeset	3030	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	3031
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3032	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3033	aStream nextPutAll:self fileName asString
3892 321c1729db5b initial checkin penk parents: diff changeset	3034	! !
321c1729db5b initial checkin penk parents: diff changeset	3035
321c1729db5b initial checkin penk parents: diff changeset	3036	!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	3037
321c1729db5b initial checkin penk parents: diff changeset	3038	hasDirectoryPart
321c1729db5b initial checkin penk parents: diff changeset	3039
321c1729db5b initial checkin penk parents: diff changeset	3040	^ self fileName asFilename components size ~= 1
321c1729db5b initial checkin penk parents: diff changeset	3041	! !
321c1729db5b initial checkin penk parents: diff changeset	3042
321c1729db5b initial checkin penk parents: diff changeset	3043	!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3044
321c1729db5b initial checkin penk parents: diff changeset	3045	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3046	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3047
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3048	^ 'Command Output'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3049
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3050	"Modified: / 01-03-2007 / 21:43:31 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3051	!
321c1729db5b initial checkin penk parents: diff changeset	3052
321c1729db5b initial checkin penk parents: diff changeset	3053	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	3054
321c1729db5b initial checkin penk parents: diff changeset	3055	^ false
321c1729db5b initial checkin penk parents: diff changeset	3056	! !
321c1729db5b initial checkin penk parents: diff changeset	3057
321c1729db5b initial checkin penk parents: diff changeset	3058	!FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3059
321c1729db5b initial checkin penk parents: diff changeset	3060	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3061	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3062	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3063
321c1729db5b initial checkin penk parents: diff changeset	3064	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3065	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3066
321c1729db5b initial checkin penk parents: diff changeset	3067	"
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3068	UIPainter new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3069	FileApplicationNoteBook::CommandResult new openInterface:#windowSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3070	FileApplicationNoteBook::CommandResult open
3892 321c1729db5b initial checkin penk parents: diff changeset	3071	"
321c1729db5b initial checkin penk parents: diff changeset	3072
321c1729db5b initial checkin penk parents: diff changeset	3073	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3074
321c1729db5b initial checkin penk parents: diff changeset	3075	^
321c1729db5b initial checkin penk parents: diff changeset	3076	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3077	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3078	#window:
321c1729db5b initial checkin penk parents: diff changeset	3079	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3080	#label: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	3081	#name: 'NoteBookApplication::CommandResult'
321c1729db5b initial checkin penk parents: diff changeset	3082	#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	3083	#bounds: #(#Rectangle 220 193 723 546)
3892 321c1729db5b initial checkin penk parents: diff changeset	3084	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3085	)
321c1729db5b initial checkin penk parents: diff changeset	3086	#component:
321c1729db5b initial checkin penk parents: diff changeset	3087	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3088	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3089	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	3090	#name: 'ToolBar1'
321c1729db5b initial checkin penk parents: diff changeset	3091	#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	3092	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3093	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3094	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3095	)
321c1729db5b initial checkin penk parents: diff changeset	3096	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	3097	#name: 'ArbitraryComponent1'
321c1729db5b initial checkin penk parents: diff changeset	3098	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	3099	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3100	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3101	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3102	#component: #TextCollector
321c1729db5b initial checkin penk parents: diff changeset	3103	#postBuildCallback: #postBuildTextCollector:
321c1729db5b initial checkin penk parents: diff changeset	3104	)
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3105	#(#ProgressIndicatorSpec
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3106	#name: 'ProgressIndicator1'
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3107	#layout: #(#LayoutFrame 125 0 11 0 231 0 21 0)
4180 e3e587a5fe65 change the window label penk parents: 4177 diff changeset	3108	#visibilityChannel: #enableStopButton
4169 ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3109	#backgroundColor: #(#Color 0.0 66.9993 66.9993)
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3110	#showPercentage: false
ff1be729f504 progressIndicator added penk parents: 4161 diff changeset	3111	#isActivityIndicator: true
3892 321c1729db5b initial checkin penk parents: diff changeset	3112	)
321c1729db5b initial checkin penk parents: diff changeset	3113	)
321c1729db5b initial checkin penk parents: diff changeset	3114
321c1729db5b initial checkin penk parents: diff changeset	3115	)
321c1729db5b initial checkin penk parents: diff changeset	3116	)
321c1729db5b initial checkin penk parents: diff changeset	3117	! !
321c1729db5b initial checkin penk parents: diff changeset	3118
321c1729db5b initial checkin penk parents: diff changeset	3119	!FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3120
321c1729db5b initial checkin penk parents: diff changeset	3121	menu
321c1729db5b initial checkin penk parents: diff changeset	3122	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3123	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3124
321c1729db5b initial checkin penk parents: diff changeset	3125	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3126	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3127
321c1729db5b initial checkin penk parents: diff changeset	3128	"
321c1729db5b initial checkin penk parents: diff changeset	3129	MenuEditor new openOnClass:FileApplicationNoteBook::CommandResult andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3130	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::CommandResult menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3131	"
321c1729db5b initial checkin penk parents: diff changeset	3132
321c1729db5b initial checkin penk parents: diff changeset	3133	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3134
321c1729db5b initial checkin penk parents: diff changeset	3135	^
321c1729db5b initial checkin penk parents: diff changeset	3136	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	3137	#(
321c1729db5b initial checkin penk parents: diff changeset	3138	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	3139	#label: 'Stop'
321c1729db5b initial checkin penk parents: diff changeset	3140	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3141	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3142	#nameKey: #Stop
321c1729db5b initial checkin penk parents: diff changeset	3143	#value: #doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	3144	#enabled: #enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3145	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon 'Stop')
321c1729db5b initial checkin penk parents: diff changeset	3146	)
321c1729db5b initial checkin penk parents: diff changeset	3147	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3148	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	3149	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	3150	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3151	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	3152	#nameKey: #Close
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3153	#isVisible: #closeButtonShown
3892 321c1729db5b initial checkin penk parents: diff changeset	3154	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	3155	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3156	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3157	)
321c1729db5b initial checkin penk parents: diff changeset	3158	)
321c1729db5b initial checkin penk parents: diff changeset	3159	nil
321c1729db5b initial checkin penk parents: diff changeset	3160	nil
321c1729db5b initial checkin penk parents: diff changeset	3161	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3162
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	3163	"Modified: / 12-01-2012 / 00:33:56 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3164	! !
321c1729db5b initial checkin penk parents: diff changeset	3165
321c1729db5b initial checkin penk parents: diff changeset	3166	!FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3167
321c1729db5b initial checkin penk parents: diff changeset	3168	resultStream
321c1729db5b initial checkin penk parents: diff changeset	3169	"return the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3170
321c1729db5b initial checkin penk parents: diff changeset	3171	^ resultStream
321c1729db5b initial checkin penk parents: diff changeset	3172	!
321c1729db5b initial checkin penk parents: diff changeset	3173
321c1729db5b initial checkin penk parents: diff changeset	3174	resultStream:something
321c1729db5b initial checkin penk parents: diff changeset	3175	"set the value of the instance variable 'resultStream' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3176
321c1729db5b initial checkin penk parents: diff changeset	3177	resultStream := something.
321c1729db5b initial checkin penk parents: diff changeset	3178	! !
321c1729db5b initial checkin penk parents: diff changeset	3179
321c1729db5b initial checkin penk parents: diff changeset	3180	!FileApplicationNoteBook::CommandResult methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3181
321c1729db5b initial checkin penk parents: diff changeset	3182	changeTabTo:aString
321c1729db5b initial checkin penk parents: diff changeset	3183
321c1729db5b initial checkin penk parents: diff changeset	3184	\| masterApplication \|
321c1729db5b initial checkin penk parents: diff changeset	3185
321c1729db5b initial checkin penk parents: diff changeset	3186	masterApplication := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	3187	masterApplication isNil ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	3188	masterApplication tabStringChangeTo:aString for:self.
321c1729db5b initial checkin penk parents: diff changeset	3189	].
321c1729db5b initial checkin penk parents: diff changeset	3190	!
321c1729db5b initial checkin penk parents: diff changeset	3191
321c1729db5b initial checkin penk parents: diff changeset	3192	doStopProcess
321c1729db5b initial checkin penk parents: diff changeset	3193
321c1729db5b initial checkin penk parents: diff changeset	3194	\| myProcess \|
321c1729db5b initial checkin penk parents: diff changeset	3195
321c1729db5b initial checkin penk parents: diff changeset	3196	myProcess := self process value.
321c1729db5b initial checkin penk parents: diff changeset	3197	myProcess notNil ifTrue:[
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	3198	self notify:('kill ', myProcess name).
3892 321c1729db5b initial checkin penk parents: diff changeset	3199	myProcess terminate.
321c1729db5b initial checkin penk parents: diff changeset	3200	].
321c1729db5b initial checkin penk parents: diff changeset	3201	! !
321c1729db5b initial checkin penk parents: diff changeset	3202
321c1729db5b initial checkin penk parents: diff changeset	3203	!FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3204
321c1729db5b initial checkin penk parents: diff changeset	3205	enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3206
321c1729db5b initial checkin penk parents: diff changeset	3207	enableStopButton isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3208	enableStopButton := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	3209	].
321c1729db5b initial checkin penk parents: diff changeset	3210	^ enableStopButton
321c1729db5b initial checkin penk parents: diff changeset	3211	!
321c1729db5b initial checkin penk parents: diff changeset	3212
321c1729db5b initial checkin penk parents: diff changeset	3213	process
321c1729db5b initial checkin penk parents: diff changeset	3214	"return/create the 'process' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3215
321c1729db5b initial checkin penk parents: diff changeset	3216	process isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3217	process := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	3218	process addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	3219	].
321c1729db5b initial checkin penk parents: diff changeset	3220	^ process
321c1729db5b initial checkin penk parents: diff changeset	3221	! !
321c1729db5b initial checkin penk parents: diff changeset	3222
321c1729db5b initial checkin penk parents: diff changeset	3223	!FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	3224
321c1729db5b initial checkin penk parents: diff changeset	3225	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3226	changedObject == self process ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3227	self enableStopButton value:changedObject value notNil.
321c1729db5b initial checkin penk parents: diff changeset	3228	^ self
321c1729db5b initial checkin penk parents: diff changeset	3229	].
321c1729db5b initial checkin penk parents: diff changeset	3230	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	3231	! !
321c1729db5b initial checkin penk parents: diff changeset	3232
321c1729db5b initial checkin penk parents: diff changeset	3233	!FileApplicationNoteBook::CommandResult methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3234
321c1729db5b initial checkin penk parents: diff changeset	3235	postBuildTextCollector:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3236
321c1729db5b initial checkin penk parents: diff changeset	3237	self resultStream:aBuilder scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3238	!
321c1729db5b initial checkin penk parents: diff changeset	3239
321c1729db5b initial checkin penk parents: diff changeset	3240	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	3241	"This is a hook method generated by the Browser.
321c1729db5b initial checkin penk parents: diff changeset	3242	It will be invoked right after the applications window has been opened.
321c1729db5b initial checkin penk parents: diff changeset	3243	Add any app-specific actions here (starting background processes etc.).
321c1729db5b initial checkin penk parents: diff changeset	3244	See also #postBuildWith:, which is invoked before opening."
321c1729db5b initial checkin penk parents: diff changeset	3245
321c1729db5b initial checkin penk parents: diff changeset	3246	"/ add any code here ...
321c1729db5b initial checkin penk parents: diff changeset	3247
321c1729db5b initial checkin penk parents: diff changeset	3248	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3249	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3250	].
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3251	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	3252	!
321c1729db5b initial checkin penk parents: diff changeset	3253
321c1729db5b initial checkin penk parents: diff changeset	3254	release
321c1729db5b initial checkin penk parents: diff changeset	3255
321c1729db5b initial checkin penk parents: diff changeset	3256	self doStopProcess.
14065 a6da1191dfc5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13905 diff changeset	3257	super release
3892 321c1729db5b initial checkin penk parents: diff changeset	3258	! !
321c1729db5b initial checkin penk parents: diff changeset	3259
321c1729db5b initial checkin penk parents: diff changeset	3260	!FileApplicationNoteBook::CommandResult methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	3261
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3262	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	3263	aStream nextPutAll:'CommandResult Application'.
3892 321c1729db5b initial checkin penk parents: diff changeset	3264	! !
321c1729db5b initial checkin penk parents: diff changeset	3265
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3266	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'defaults'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3267
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3268	tabStringFor:anApplicationType
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3269	"the formatString shown in a tab (language translated)"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3270
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3271	^ 'Note in %1'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3272
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3273	"Modified: / 01-03-2007 / 21:43:23 / cg"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3274	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3275
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3276	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3277
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3278	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3279	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3280	a previewer-plugin for digital-notepad recordings as
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3281	provided by the waltop (tevion) MD85276 digital ink notepad.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3282	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3283	! !
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	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3286
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3287	flyByHelpSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3288	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3289	by the UIHelpTool of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3290
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3291	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3292	the UIHelpTool may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3293
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3294	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3295	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
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	<resource: #help>
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	^ super flyByHelpSpec addPairsFrom:#(
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	#'fitImageSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3303	'Shrink to Fit View'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3304
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3305	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3306	! !
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	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'interface specs'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3309
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3310	windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3311	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3312	by the UIPainter of ST/X."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3313
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3314	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3315	the UIPainter may not be able to read the specification."
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3316
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	UIPainter new openOnClass:FileApplicationNoteBook::DigitalNotepadFileViewApplication andSelector:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3319	FileApplicationNoteBook::DigitalNotepadFileViewApplication new openInterface:#windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3320	FileApplicationNoteBook::DigitalNotepadFileViewApplication open
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3321	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3322
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3323	<resource: #canvas>
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3324
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3325	^
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3326	#(FullSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3327	name: windowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3328	window:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3329	(WindowSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3330	label: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3331	name: 'NotepadViewer'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3332	min: (Point 10 10)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3333	bounds: (Rectangle 0 0 676 492)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3334	menu: mainMenu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3335	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3336	component:
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3337	(SpecCollection
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3338	collection: (
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3339	(MenuPanelSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3340	name: 'Menu'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3341	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	3342	level: 0
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3343	visibilityChannel: isEmbeddedApplication
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3344	menu: menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3345	textDefault: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3346	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3347	(ArbitraryComponentSpec
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3348	name: 'TOPFileView'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3349	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	3350	hasHorizontalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3351	hasVerticalScrollBar: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3352	miniScrollerHorizontal: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3353	miniScrollerVertical: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3354	hasBorder: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3355	component: TOPFileViewer
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3356	postBuildCallback: postBuildImageView:
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	)
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	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3363
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3364	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'menu specs'!
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	menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3367	"This resource specification was automatically generated
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3368	by the MenuEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3371	the MenuEditor may not be able to read the specification."
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	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3374	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3375	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
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
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3378	<resource: #menu>
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	#(#Menu
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3382	#(
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3383	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3384	"/ #label: 'Edit'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3385	"/ #itemValue: #editImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3386	"/ #nameKey: #EditImage
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3387	"/ #translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3388	"/ #isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3389	"/ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
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	"/ #(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3392	"/ #label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3393	"/ )
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3394	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3395	#activeHelpKey: #fitImageSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3396	#label: 'FitSize'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3397	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3398	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3399	#triggerOnDown: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3400	#indication: #fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3401	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3402	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3403	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3404	#label: '-'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3405	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3406	#(#MenuItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3407	#activeHelpKey: #closeTabButton
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3408	#label: 'Close'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3409	#itemValue: #doClose
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3410	#translateLabel: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3411	#isButton: true
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3412	#startGroup: #right
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3413	#hideMenuOnActivated: false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3414	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3415	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3416	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3417	nil
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3418	nil
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3419	)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3420	! !
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	!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'queries'!
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	canOpenItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3425	^ anItem mimeType = 'application/x-waltop-digital-notepad'
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
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3428	wantNewApplicationAnyway
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3429
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3430	^ false
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3431	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3432
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3433	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'accessing'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3434
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3435	imageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3436	^ imageView
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	imageView:something
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3440	imageView := something.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3441	!
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	updateImageInfo
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3444	"/ \|fn msg\|
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	"/ image notNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3447	"/ fn := image fileName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3448	"/ fn isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3449	"/ fn := 'unnamed'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3450	"/ ] ifFalse:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3451	"/ fn := fn asFilename baseName.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3452	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3453	"/ msg := '%1 %2x%3 depth:%4'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3454	"/ bindWith:fn allBold
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3455	"/ with:image width
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3456	"/ with:image height
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3457	"/ with:image depth.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3458	"/ ].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3459	"/ self notify:msg.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3460	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3461
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3462	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'actions'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3463
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3464	changeItem:anItem
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3465
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3466	self item:anItem.
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	^ true
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
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3471	setupImageView
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3472	imageView readFile:self fileName
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3473	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3474
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3475	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'aspects'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3476
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3477	fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3478	"return/create the 'fitSize' value holder (automatically generated)"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3479
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3480	fitSize isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3481	fitSize := ValueHolder new.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3482	fitSize addDependent:self.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3483	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3484	^ fitSize
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3485	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3486
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3487	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'change & update'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3488
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3489	update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3490	changedObject == self fitSize ifTrue:[
7910 cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3491	changedObject value ifTrue:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3492	imageView adjust:#fit.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3493	] ifFalse:[
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3494	imageView adjust:nil.
cd3856f32730 * empty log message * Claus Gittinger <cg@exept.de> parents: 7909 diff changeset	3495	].
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3496	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3497	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3498	super update:something with:aParameter from:changedObject
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3499	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3500
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3501	!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'initialization & release'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3502
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3503	postBuildImageView:aWidget
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3504
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3505	self imageView: aWidget scrolledView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3506	"/ self imageView wantsFocusWithPointerEnter.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3507	!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3508
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3509	postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3510	"only invoked if the application is not started from a master"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3511
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3512	\|currentDir contents fileName\|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3513
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3514	self masterApplication isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3515	self masterApplication:nil.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3516	currentDir := Filename currentDirectory.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3517	contents := currentDir directoryContents.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3518	fileName := contents
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3519	detect:[:file \|
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3520	file asFilename mimeTypeOfContents = 'application/x-waltop-digital-notepad'
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3521	]
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3522	ifNone:[nil].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3523	fileName isNil ifTrue:[
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3524	Dialog warn:'Cant find a TOP-file in ' , currentDir asString.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3525	^ self
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3526	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3527	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3528	].
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3529	self setupImageView.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3530	super postOpenWith:aBuilder
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3531	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3532
3892 321c1729db5b initial checkin penk parents: diff changeset	3533	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3534
321c1729db5b initial checkin penk parents: diff changeset	3535	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3536	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3537
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3538	^ 'HTML View for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3539
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3540	"Modified: / 01-03-2007 / 21:43:18 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3541	! !
321c1729db5b initial checkin penk parents: diff changeset	3542
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3543	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3544
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3545	helpSpec
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3546	"This resource specification was automatically generated
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3547	by the UIHelpTool of ST/X."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3548
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3549	"Do not manually edit this!! If it is corrupted,
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3550	the UIHelpTool may not be able to read the specification."
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3551
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3552	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3553	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3554	"
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3555
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3556	<resource: #help>
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3557
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3558	^ super helpSpec addPairsFrom:#(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3559
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3560	#'Edit Source'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3561	''
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3562
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3563	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3564	! !
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3565
3892 321c1729db5b initial checkin penk parents: diff changeset	3566	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	3567
321c1729db5b initial checkin penk parents: diff changeset	3568	windowSpec
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3569
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3570	\| webKitView \|
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3571
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3572	^((webKitView := (Smalltalk at:#WebKitView)) notNil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3573	and:[webKitView isAvailable])
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3574	ifTrue:[self windowSpec_WebBrowserPage]
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3575	ifFalse:[self windowSpec_HTMLView]
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3576
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3577	"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	3578	!
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	windowSpec_HTMLView
3892 321c1729db5b initial checkin penk parents: diff changeset	3581	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3582	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3583
321c1729db5b initial checkin penk parents: diff changeset	3584	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3585	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3586
321c1729db5b initial checkin penk parents: diff changeset	3587	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	3588	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	3589	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	3590	FileApplicationNoteBook::HtmlViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	3591	"
321c1729db5b initial checkin penk parents: diff changeset	3592
321c1729db5b initial checkin penk parents: diff changeset	3593	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	3594
321c1729db5b initial checkin penk parents: diff changeset	3595	^
321c1729db5b initial checkin penk parents: diff changeset	3596	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	3597	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	3598	#window:
321c1729db5b initial checkin penk parents: diff changeset	3599	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	3600	#label: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3601	#name: 'NoteBookApplication::HtmlView'
321c1729db5b initial checkin penk parents: diff changeset	3602	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	3603	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	3604	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	3605	)
321c1729db5b initial checkin penk parents: diff changeset	3606	#component:
321c1729db5b initial checkin penk parents: diff changeset	3607	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	3608	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	3609	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	3610	#name: 'MenuHtml'
321c1729db5b initial checkin penk parents: diff changeset	3611	#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	3612	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	3613	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	3614	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	3615	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	3616	)
321c1729db5b initial checkin penk parents: diff changeset	3617	#(#ArbitraryComponentSpec
321c1729db5b initial checkin penk parents: diff changeset	3618	#name: 'HTMLView'
321c1729db5b initial checkin penk parents: diff changeset	3619	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1)
321c1729db5b initial checkin penk parents: diff changeset	3620	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3621	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	3622	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	3623	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	3624	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	3625	#component: #HTMLDocumentView
321c1729db5b initial checkin penk parents: diff changeset	3626	#postBuildCallback: #postBuildHtmlView:
321c1729db5b initial checkin penk parents: diff changeset	3627	)
321c1729db5b initial checkin penk parents: diff changeset	3628	#(#LabelSpec
321c1729db5b initial checkin penk parents: diff changeset	3629	#label: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3630	#name: 'FileLabel'
321c1729db5b initial checkin penk parents: diff changeset	3631	#layout: #(#LayoutFrame 212 0 2 0 -73 1 30 0)
321c1729db5b initial checkin penk parents: diff changeset	3632	#level: -1
321c1729db5b initial checkin penk parents: diff changeset	3633	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	3634	#labelChannel: #labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3635	#adjust: #left
321c1729db5b initial checkin penk parents: diff changeset	3636	)
321c1729db5b initial checkin penk parents: diff changeset	3637	)
321c1729db5b initial checkin penk parents: diff changeset	3638
321c1729db5b initial checkin penk parents: diff changeset	3639	)
321c1729db5b initial checkin penk parents: diff changeset	3640	)
10566 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	"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	3643	!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3644
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3645	windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3646	"This resource specification was automatically generated
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3647	by the UIPainter of ST/X."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3648
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3649	"Do not manually edit this!! If it is corrupted,
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3650	the UIPainter may not be able to read the specification."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3651
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3652	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3653	UIPainter new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3654	FileApplicationNoteBook::HtmlViewApplication new openInterface:#windowSpec_WebBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3655	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3656
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3657	<resource: #canvas>
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3658
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3659	^
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3660	#(FullSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3661	name: #'windowSpec_WebBrowserPage'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3662	window:
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3663	(WindowSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3664	label: 'NoteBookApplication::HtmlView'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3665	name: 'NoteBookApplication::HtmlView'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3666	min: (Point 10 10)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3667	bounds: (Rectangle 0 0 676 492)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3668	menu: menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3669	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3670	component:
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3671	(SpecCollection
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3672	collection: (
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3673	(MenuPanelSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3674	name: 'MenuClose'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3675	layout: (LayoutFrame -25 1 0 0 0 1.0 30 0)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3676	level: 0
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3677	visibilityChannel: isEmbeddedApplication
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3678	menu: menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3679	textDefault: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3680	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3681	(SubCanvasSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3682	name: 'ToolBar'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3683	layout: (LayoutFrame 0 0 0 0 -25 1 30 0)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3684	hasHorizontalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3685	hasVerticalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3686	minorKey: toolBarSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3687	clientKey: webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3688	createNewBuilder: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3689	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3690	(SubCanvasSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3691	name: 'Content'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3692	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3693	hasHorizontalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3694	hasVerticalScrollBar: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3695	minorKey: contentSpec
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3696	clientKey: webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3697	createNewBuilder: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3698	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3699	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3700
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3701	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3702	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3703
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3704	"Modified: / 11-08-2011 / 00:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3892 321c1729db5b initial checkin penk parents: diff changeset	3705	! !
321c1729db5b initial checkin penk parents: diff changeset	3706
321c1729db5b initial checkin penk parents: diff changeset	3707	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	3708
321c1729db5b initial checkin penk parents: diff changeset	3709	menu
321c1729db5b initial checkin penk parents: diff changeset	3710	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	3711	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	3712
321c1729db5b initial checkin penk parents: diff changeset	3713	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	3714	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	3715
321c1729db5b initial checkin penk parents: diff changeset	3716	"
321c1729db5b initial checkin penk parents: diff changeset	3717	MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	3718	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	3719	"
321c1729db5b initial checkin penk parents: diff changeset	3720
321c1729db5b initial checkin penk parents: diff changeset	3721	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	3722
321c1729db5b initial checkin penk parents: diff changeset	3723	^
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3724	#(Menu
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3725	(
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3726	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3727	label: 'Reload'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3728	itemValue: doReload
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3729	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3730	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3731	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3732	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3733	(MenuItem
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3734	label: 'Back'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3735	itemValue: doGoBack
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3736	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3737	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3738	labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3739	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3740	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3741	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3742	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3743	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3744	label: 'Print'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3745	itemValue: doPrint
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3746	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3747	isButton: true
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	3748	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3749	)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3750	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3751	label: '-'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3752	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3753	(MenuItem
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3754	activeHelpKey: #'Edit Source'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3755	label: 'Edit'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3756	itemValue: doEdit
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3757	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3758	isButton: true
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3759	labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3760	)
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3761	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	3762	activeHelpKey: closeTabButton
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3763	label: 'Close'
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3764	itemValue: doClose
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3765	translateLabel: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3766	isButton: true
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3767	startGroup: right
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3768	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	3769	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	3770	)
321c1729db5b initial checkin penk parents: diff changeset	3771	)
321c1729db5b initial checkin penk parents: diff changeset	3772	nil
321c1729db5b initial checkin penk parents: diff changeset	3773	nil
321c1729db5b initial checkin penk parents: diff changeset	3774	)
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3775	!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3776
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3777	menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3778	"This resource specification was automatically generated
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3779	by the MenuEditor of ST/X."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3780
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3781	"Do not manually edit this!! If it is corrupted,
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3782	the MenuEditor may not be able to read the specification."
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3783
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3784	"
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3785	MenuEditor new openOnClass:FileApplicationNoteBook::HtmlViewApplication andSelector:#menuJustClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3786	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::HtmlViewApplication menuJustClose)) startUp
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
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3789	<resource: #menu>
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3790
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	#(Menu
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	(MenuItem
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3795	activeHelpKey: closeTabButton
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3796	label: 'Close'
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3797	itemValue: doClose
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3798	translateLabel: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3799	isButton: true
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3800	startGroup: right
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3801	hideMenuOnActivated: false
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3802	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3803	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3804	)
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3805	nil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3806	nil
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3807	)
3892 321c1729db5b initial checkin penk parents: diff changeset	3808	! !
321c1729db5b initial checkin penk parents: diff changeset	3809
321c1729db5b initial checkin penk parents: diff changeset	3810	!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	3811
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3812	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3813
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	3814	^ (anItem hasMimeType and:[anItem mimeType isHtmlType])
3892 321c1729db5b initial checkin penk parents: diff changeset	3815	!
321c1729db5b initial checkin penk parents: diff changeset	3816
321c1729db5b initial checkin penk parents: diff changeset	3817	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	3818
321c1729db5b initial checkin penk parents: diff changeset	3819	^ false
321c1729db5b initial checkin penk parents: diff changeset	3820	! !
321c1729db5b initial checkin penk parents: diff changeset	3821
321c1729db5b initial checkin penk parents: diff changeset	3822	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	3823
321c1729db5b initial checkin penk parents: diff changeset	3824	htmlView
321c1729db5b initial checkin penk parents: diff changeset	3825	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3826
321c1729db5b initial checkin penk parents: diff changeset	3827	^ htmlView
321c1729db5b initial checkin penk parents: diff changeset	3828	!
321c1729db5b initial checkin penk parents: diff changeset	3829
321c1729db5b initial checkin penk parents: diff changeset	3830	htmlView:something
321c1729db5b initial checkin penk parents: diff changeset	3831	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	3832
321c1729db5b initial checkin penk parents: diff changeset	3833	htmlView := something.
321c1729db5b initial checkin penk parents: diff changeset	3834	!
321c1729db5b initial checkin penk parents: diff changeset	3835
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3836	item:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	3837
321c1729db5b initial checkin penk parents: diff changeset	3838	\|retVal\|
321c1729db5b initial checkin penk parents: diff changeset	3839
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3840	self labelHolder value:anItem fileName asString.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3841	retVal := super item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	3842	self setupHtmlView.
321c1729db5b initial checkin penk parents: diff changeset	3843	^ retVal
321c1729db5b initial checkin penk parents: diff changeset	3844	! !
321c1729db5b initial checkin penk parents: diff changeset	3845
10566 8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3846	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing - subapps'!
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3847
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3848	webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3849
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3850	webBrowserPage isNil ifTrue:[
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3851	webBrowserPage := Tools::WebBrowserPage new.
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3852	webBrowserPage urlHolder: self labelHolder
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3853	].
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3854	^webBrowserPage
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3855
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3856	"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	3857	! !
8b18bf86bef4 Uses WebKit based WebBrowserPage if available vrany parents: 10382 diff changeset	3858
3892 321c1729db5b initial checkin penk parents: diff changeset	3859	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	3860
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3861	doEdit
7540 69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3862	self masterApplication
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3863	openTextEditorForFile:(htmlView currentDocument)
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3864	"/ openTextEditorOn:item.
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3865
69a739c09f2c edit the shown (not the initial) file of the html view Claus Gittinger <cg@exept.de> parents: 7487 diff changeset	3866	"Modified: / 24-11-2006 / 11:14:51 / cg"
5406 abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3867	!
abf2d30dfb17 add edit button fot HTML Viewer penk parents: 5335 diff changeset	3868
3892 321c1729db5b initial checkin penk parents: diff changeset	3869	doGoBack
321c1729db5b initial checkin penk parents: diff changeset	3870
321c1729db5b initial checkin penk parents: diff changeset	3871	self htmlView menu_back.
321c1729db5b initial checkin penk parents: diff changeset	3872	!
321c1729db5b initial checkin penk parents: diff changeset	3873
321c1729db5b initial checkin penk parents: diff changeset	3874	doGoHome
321c1729db5b initial checkin penk parents: diff changeset	3875
321c1729db5b initial checkin penk parents: diff changeset	3876	self htmlView menu_home.
321c1729db5b initial checkin penk parents: diff changeset	3877	!
321c1729db5b initial checkin penk parents: diff changeset	3878
321c1729db5b initial checkin penk parents: diff changeset	3879	doHelp
321c1729db5b initial checkin penk parents: diff changeset	3880
321c1729db5b initial checkin penk parents: diff changeset	3881	self htmlView menu_help.
321c1729db5b initial checkin penk parents: diff changeset	3882	!
321c1729db5b initial checkin penk parents: diff changeset	3883
321c1729db5b initial checkin penk parents: diff changeset	3884	doPrint
321c1729db5b initial checkin penk parents: diff changeset	3885
321c1729db5b initial checkin penk parents: diff changeset	3886	self htmlView menu_print.
321c1729db5b initial checkin penk parents: diff changeset	3887	!
321c1729db5b initial checkin penk parents: diff changeset	3888
321c1729db5b initial checkin penk parents: diff changeset	3889	doReload
321c1729db5b initial checkin penk parents: diff changeset	3890
321c1729db5b initial checkin penk parents: diff changeset	3891	self htmlView menu_reload.
321c1729db5b initial checkin penk parents: diff changeset	3892	!
321c1729db5b initial checkin penk parents: diff changeset	3893
321c1729db5b initial checkin penk parents: diff changeset	3894	setupHtmlView
321c1729db5b initial checkin penk parents: diff changeset	3895
321c1729db5b initial checkin penk parents: diff changeset	3896	\| html file directory\|
321c1729db5b initial checkin penk parents: diff changeset	3897
321c1729db5b initial checkin penk parents: diff changeset	3898	html := self htmlView.
321c1729db5b initial checkin penk parents: diff changeset	3899	html isNil ifTrue:[^ self].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3900
3892 321c1729db5b initial checkin penk parents: diff changeset	3901	file := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	3902	directory := file directoryName.
321c1729db5b initial checkin penk parents: diff changeset	3903	html homeDocument:(file asString).
321c1729db5b initial checkin penk parents: diff changeset	3904	html setTopDirectoryName:directory.
321c1729db5b initial checkin penk parents: diff changeset	3905	html uriHolder:self labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3906	html infoHolder:self notifyChannel.
321c1729db5b initial checkin penk parents: diff changeset	3907	html linkButtonPanel:nil.
321c1729db5b initial checkin penk parents: diff changeset	3908	^ html
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3909
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3910	"Modified: / 17-02-2011 / 14:01:35 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3911	! !
321c1729db5b initial checkin penk parents: diff changeset	3912
321c1729db5b initial checkin penk parents: diff changeset	3913	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	3914
321c1729db5b initial checkin penk parents: diff changeset	3915	labelHolder
321c1729db5b initial checkin penk parents: diff changeset	3916
321c1729db5b initial checkin penk parents: diff changeset	3917	labelHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3918	labelHolder := '' asValue.
321c1729db5b initial checkin penk parents: diff changeset	3919	].
321c1729db5b initial checkin penk parents: diff changeset	3920	^ labelHolder.
321c1729db5b initial checkin penk parents: diff changeset	3921	! !
321c1729db5b initial checkin penk parents: diff changeset	3922
321c1729db5b initial checkin penk parents: diff changeset	3923	!FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	3924
321c1729db5b initial checkin penk parents: diff changeset	3925	postBuildHtmlView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	3926
321c1729db5b initial checkin penk parents: diff changeset	3927	self htmlView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	3928	self htmlView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	3929	!
321c1729db5b initial checkin penk parents: diff changeset	3930
321c1729db5b initial checkin penk parents: diff changeset	3931	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3932	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	3933
321c1729db5b initial checkin penk parents: diff changeset	3934	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	3935
321c1729db5b initial checkin penk parents: diff changeset	3936	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3937	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	3938	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	3939
321c1729db5b initial checkin penk parents: diff changeset	3940	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	3941	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	3942	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	3943	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	3944	suffix = 'html'
321c1729db5b initial checkin penk parents: diff changeset	3945	]
321c1729db5b initial checkin penk parents: diff changeset	3946	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	3947	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	3948	Dialog warn:'cant find a HTML file in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	3949	^ self
321c1729db5b initial checkin penk parents: diff changeset	3950	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3951	self item:(DirectoryContentsBrowser itemClass
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3952	fileName:('../../doc/online/english/TOP.html') asFilename asAbsoluteFilename).
3892 321c1729db5b initial checkin penk parents: diff changeset	3953	].
321c1729db5b initial checkin penk parents: diff changeset	3954	self setupHtmlView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	3955	super postOpenWith:aBuilder
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3956
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	3957	"Modified: / 17-02-2011 / 13:27:12 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3958	! !
321c1729db5b initial checkin penk parents: diff changeset	3959
321c1729db5b initial checkin penk parents: diff changeset	3960	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	3961
321c1729db5b initial checkin penk parents: diff changeset	3962	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3963	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3964
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3965	^ 'Image in %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3966
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	3967	"Modified: / 01-03-2007 / 21:43:23 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	3968	! !
321c1729db5b initial checkin penk parents: diff changeset	3969
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3970	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3971
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3972	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3973	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3974	a previewer-plugin for bitmap images (jpg, xpm, tiff, gif, etc.)
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3975	Offers edit and adjust-size button functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3976	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3977	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	3978
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3979	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3980
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3981	flyByHelpSpec
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3982	"This resource specification was automatically generated
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3983	by the UIHelpTool of ST/X."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3984
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3985	"Do not manually edit this!! If it is corrupted,
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3986	the UIHelpTool may not be able to read the specification."
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3987
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3988	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3989	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3990	"
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3991
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3992	<resource: #help>
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3993
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3994	^ super flyByHelpSpec addPairsFrom:#(
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3995
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3996	#'fitImageSize'
6310 75c523340406 * empty log message * Claus Gittinger <cg@exept.de> parents: 6295 diff changeset	3997	'Shrink Image to Fit View'
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3998
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	3999	)
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4000	! !
cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4001
3892 321c1729db5b initial checkin penk parents: diff changeset	4002	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	4003
321c1729db5b initial checkin penk parents: diff changeset	4004	fitSize20x20Icon
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4005	<resource: #image>
3892 321c1729db5b initial checkin penk parents: diff changeset	4006	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4007	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4008	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4009	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4010	"
321c1729db5b initial checkin penk parents: diff changeset	4011	self fitSize20x20Icon inspect
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4012	ImageEditor openOnClass:self andSelector:#fitSize20x20Icon"
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4013
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4014	^ Icon
3892 321c1729db5b initial checkin penk parents: diff changeset	4015	constantNamed:#'FileApplicationNoteBook::ImageViewApplication class fitSize20x20Icon'
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4016	ifAbsentPut:[
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4017	(Depth4Image new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4018	width:20;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4019	height:20;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4020	photometric:(#palette);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4021	bitsPerSample:(#( 4 ));
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4022	samplesPerPixel:(1);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4023	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4024	fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	4025	@@DQDQDQDQDP@@@PDQDQDQDQ@P@A@ADQDQDQDP@PD@@PDQDQDPD@@QDQ@ADQDQ@@DQDQD@@@@@@@@@DQDQDPQDQDQ@DQDQDQDDQUUTPADQDQDQAEUUUT@QDQ
321c1729db5b initial checkin penk parents: diff changeset	4026	DQDPQEUUQ@DQDQDQDDQFQDPADQDQDQADQ$QD@QDQDQDPL3X3Q@DQDQDQDCL3L3LADQDQD@@@@@@@@@DQDQD@DQDQDP@QDQ@@DADQDQDA@@DA@ADQDQDQDP@P
321c1729db5b initial checkin penk parents: diff changeset	4027	@@@QDQDQDQDA@@@ADQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	4028	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4029	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4030	colorMapFromArray:#[ 0 0 0 255 255 255 0 0 0 0 137 0 174 218 230 0 206 0 133 60 36 ];
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4031	mask:((ImageMask new)
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4032	width:20;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4033	height:20;
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4034	bits:(ByteArray
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4035	fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	4036	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	4037	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	4038	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	4039	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14412 7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4040	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4041	yourself);
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4042	yourself
7440739e2b8b Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14124 diff changeset	4043	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4044	! !
321c1729db5b initial checkin penk parents: diff changeset	4045
321c1729db5b initial checkin penk parents: diff changeset	4046	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	4047
321c1729db5b initial checkin penk parents: diff changeset	4048	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4049	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4050	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4051
321c1729db5b initial checkin penk parents: diff changeset	4052	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4053	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4054
321c1729db5b initial checkin penk parents: diff changeset	4055	"
321c1729db5b initial checkin penk parents: diff changeset	4056	UIPainter new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4057	FileApplicationNoteBook::ImageViewApplication new openInterface:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4058	FileApplicationNoteBook::ImageViewApplication open
321c1729db5b initial checkin penk parents: diff changeset	4059	"
321c1729db5b initial checkin penk parents: diff changeset	4060
321c1729db5b initial checkin penk parents: diff changeset	4061	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4062
321c1729db5b initial checkin penk parents: diff changeset	4063	^
321c1729db5b initial checkin penk parents: diff changeset	4064	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	4065	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4066	#window:
321c1729db5b initial checkin penk parents: diff changeset	4067	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	4068	#label: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	4069	#name: 'ImageViewer'
321c1729db5b initial checkin penk parents: diff changeset	4070	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	4071	#bounds: #(#Rectangle 16 42 692 534)
321c1729db5b initial checkin penk parents: diff changeset	4072	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	4073	)
321c1729db5b initial checkin penk parents: diff changeset	4074	#component:
321c1729db5b initial checkin penk parents: diff changeset	4075	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	4076	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	4077	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	4078	#name: 'MenuImage'
3892 321c1729db5b initial checkin penk parents: diff changeset	4079	#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	4080	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	4081	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	4082	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	4083	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	4084	)
321c1729db5b initial checkin penk parents: diff changeset	4085	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	4086	#name: 'ImageView'
3892 321c1729db5b initial checkin penk parents: diff changeset	4087	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	4088	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4089	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4090	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	4091	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	4092	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	4093	#component: #ImageView
321c1729db5b initial checkin penk parents: diff changeset	4094	#postBuildCallback: #postBuildImageView:
321c1729db5b initial checkin penk parents: diff changeset	4095	)
321c1729db5b initial checkin penk parents: diff changeset	4096	)
321c1729db5b initial checkin penk parents: diff changeset	4097
321c1729db5b initial checkin penk parents: diff changeset	4098	)
321c1729db5b initial checkin penk parents: diff changeset	4099	)
321c1729db5b initial checkin penk parents: diff changeset	4100	! !
321c1729db5b initial checkin penk parents: diff changeset	4101
321c1729db5b initial checkin penk parents: diff changeset	4102	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4103
321c1729db5b initial checkin penk parents: diff changeset	4104	menu
321c1729db5b initial checkin penk parents: diff changeset	4105	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4106	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4107
321c1729db5b initial checkin penk parents: diff changeset	4108	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4109	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4110
321c1729db5b initial checkin penk parents: diff changeset	4111	"
321c1729db5b initial checkin penk parents: diff changeset	4112	MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4113	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4114	"
321c1729db5b initial checkin penk parents: diff changeset	4115
321c1729db5b initial checkin penk parents: diff changeset	4116	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4117
321c1729db5b initial checkin penk parents: diff changeset	4118	^
321c1729db5b initial checkin penk parents: diff changeset	4119	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	4120	#(
321c1729db5b initial checkin penk parents: diff changeset	4121	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4122	#label: 'Edit'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4123	#itemValue: #editImage
fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4124	#nameKey: #EditImage
3892 321c1729db5b initial checkin penk parents: diff changeset	4125	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4126	#isButton: true
6106 b9f7c407542d * empty log message * Claus Gittinger <cg@exept.de> parents: 6100 diff changeset	4127	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4128	)
321c1729db5b initial checkin penk parents: diff changeset	4129	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4130	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	4131	)
321c1729db5b initial checkin penk parents: diff changeset	4132	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4133	#activeHelpKey: #fitImageSize
3892 321c1729db5b initial checkin penk parents: diff changeset	4134	#label: 'FitSize'
321c1729db5b initial checkin penk parents: diff changeset	4135	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4136	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	4137	#triggerOnDown: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4138	#indication: #fitSize
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4139	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4140	)
321c1729db5b initial checkin penk parents: diff changeset	4141	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	4142	#label: '-'
321c1729db5b initial checkin penk parents: diff changeset	4143	)
321c1729db5b initial checkin penk parents: diff changeset	4144	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	4145	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	4146	#label: 'Close'
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4147	#itemValue: #doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	4148	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	4149	#isButton: true
4353 fe7b65eee458 * empty log message * Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	4150	#startGroup: #right
3892 321c1729db5b initial checkin penk parents: diff changeset	4151	#hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	4152	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4153	)
321c1729db5b initial checkin penk parents: diff changeset	4154	)
321c1729db5b initial checkin penk parents: diff changeset	4155	nil
321c1729db5b initial checkin penk parents: diff changeset	4156	nil
321c1729db5b initial checkin penk parents: diff changeset	4157	)
321c1729db5b initial checkin penk parents: diff changeset	4158	! !
321c1729db5b initial checkin penk parents: diff changeset	4159
321c1729db5b initial checkin penk parents: diff changeset	4160	!FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4161
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4162	canOpenItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4163
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	4164	^ (anItem hasMimeType and:[anItem mimeType isImageType])
3892 321c1729db5b initial checkin penk parents: diff changeset	4165	!
321c1729db5b initial checkin penk parents: diff changeset	4166
321c1729db5b initial checkin penk parents: diff changeset	4167	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	4168
321c1729db5b initial checkin penk parents: diff changeset	4169	^ false
321c1729db5b initial checkin penk parents: diff changeset	4170	! !
321c1729db5b initial checkin penk parents: diff changeset	4171
321c1729db5b initial checkin penk parents: diff changeset	4172	!FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4173
321c1729db5b initial checkin penk parents: diff changeset	4174	image:something
321c1729db5b initial checkin penk parents: diff changeset	4175	image := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4176	self updateImageInfo.
3892 321c1729db5b initial checkin penk parents: diff changeset	4177	!
321c1729db5b initial checkin penk parents: diff changeset	4178
321c1729db5b initial checkin penk parents: diff changeset	4179	imageView
321c1729db5b initial checkin penk parents: diff changeset	4180	^ imageView
321c1729db5b initial checkin penk parents: diff changeset	4181	!
321c1729db5b initial checkin penk parents: diff changeset	4182
321c1729db5b initial checkin penk parents: diff changeset	4183	imageView:something
321c1729db5b initial checkin penk parents: diff changeset	4184	imageView := something.
4417 8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4185	!
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4186
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4187	updateImageInfo
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4188	\|fn msg\|
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4189
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4190	image notNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4191	fn := image fileName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4192	fn isNil ifTrue:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4193	fn := 'unnamed'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4194	] ifFalse:[
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4195	fn := fn asFilename baseName.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4196	].
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4197	msg := '%1 %2x%3 depth:%4'
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4198	bindWith:fn allBold
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4199	with:image width
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4200	with:image height
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4201	with:image depth.
8f0a9e2bafc1 image info Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	4202	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	4203	self notify:msg.
3892 321c1729db5b initial checkin penk parents: diff changeset	4204	! !
321c1729db5b initial checkin penk parents: diff changeset	4205
321c1729db5b initial checkin penk parents: diff changeset	4206	!FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4207
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4208	changeItem:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4209
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4210	self item:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	4211	self setupImageView.
321c1729db5b initial checkin penk parents: diff changeset	4212	^ true
321c1729db5b initial checkin penk parents: diff changeset	4213	!
321c1729db5b initial checkin penk parents: diff changeset	4214
321c1729db5b initial checkin penk parents: diff changeset	4215	editImage
321c1729db5b initial checkin penk parents: diff changeset	4216	\|img\|
321c1729db5b initial checkin penk parents: diff changeset	4217
321c1729db5b initial checkin penk parents: diff changeset	4218	img := self image.
321c1729db5b initial checkin penk parents: diff changeset	4219	img notNil ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4220	"/ self withWaitCursorDo:[
4855 c113852ec9ba waitCursor Claus Gittinger <cg@exept.de> parents: 4803 diff changeset	4221	img edit.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4222	"/ ]
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4223	].
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4224
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	4225	"Modified: / 25-07-2006 / 09:09:20 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4226	!
321c1729db5b initial checkin penk parents: diff changeset	4227
321c1729db5b initial checkin penk parents: diff changeset	4228	image
321c1729db5b initial checkin penk parents: diff changeset	4229	\|img fn e\|
321c1729db5b initial checkin penk parents: diff changeset	4230
321c1729db5b initial checkin penk parents: diff changeset	4231	fn := self fileName.
14819 0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4232	Image badImageFormatQuerySignal handle:[:ex \|
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4233	e := ex description.
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4234	] do:[
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4235	img := Image fromFile:fn.
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4236	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4237	img isNil ifTrue:[
14819 0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4238	e isNil ifTrue:[
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4239	fn exists ifTrue:[
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4240	e := 'Unknown/unsupported image format'
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4241	] ifFalse:[
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4242	e := 'No such image'
0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	4243	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4244	].
321c1729db5b initial checkin penk parents: diff changeset	4245	Dialog warn:e.
321c1729db5b initial checkin penk parents: diff changeset	4246	^ nil
321c1729db5b initial checkin penk parents: diff changeset	4247	].
321c1729db5b initial checkin penk parents: diff changeset	4248	^ img.
321c1729db5b initial checkin penk parents: diff changeset	4249	! !
321c1729db5b initial checkin penk parents: diff changeset	4250
321c1729db5b initial checkin penk parents: diff changeset	4251	!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	4252
321c1729db5b initial checkin penk parents: diff changeset	4253	fitSize
321c1729db5b initial checkin penk parents: diff changeset	4254	"return/create the 'fitSize' value holder (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4255
321c1729db5b initial checkin penk parents: diff changeset	4256	fitSize isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4257	fitSize := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	4258	fitSize addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	4259	].
321c1729db5b initial checkin penk parents: diff changeset	4260	^ fitSize
321c1729db5b initial checkin penk parents: diff changeset	4261	! !
321c1729db5b initial checkin penk parents: diff changeset	4262
321c1729db5b initial checkin penk parents: diff changeset	4263	!FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	4264
321c1729db5b initial checkin penk parents: diff changeset	4265	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	4266	changedObject == self fitSize ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4267	changedObject value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4268	imageView adjust:#fitBig.
321c1729db5b initial checkin penk parents: diff changeset	4269	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	4270	imageView adjust:nil.
321c1729db5b initial checkin penk parents: diff changeset	4271	].
321c1729db5b initial checkin penk parents: diff changeset	4272	^ self
321c1729db5b initial checkin penk parents: diff changeset	4273	].
321c1729db5b initial checkin penk parents: diff changeset	4274	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	4275	! !
321c1729db5b initial checkin penk parents: diff changeset	4276
14576 c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4277	!FileApplicationNoteBook::ImageViewApplication methodsFor:'event handling'!
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4278
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4279	processEvent:anEvent
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4280	\|view rawKey key\|
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4281
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4282	view := anEvent view.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4283	anEvent isKeyPressEvent ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4284	(imageView notNil
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4285	and:[view notNil
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4286	and:[(view == imageView)]]
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4287	) ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4288	rawKey := anEvent rawKey.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4289	key := anEvent key.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4290	(rawKey == #CursorDown) ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4291	masterApplication selectNextFile; enterAction.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4292	^ true.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4293	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4294	(rawKey == #CursorUp) ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4295	masterApplication selectPreviousFile; enterAction.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4296	^ true.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4297	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4298	key == $q ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4299	self doClose.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4300	^ true.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4301	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4302	((key == #Escape) or:[key == $x]) ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4303	self topView collapse.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4304	^ true.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4305	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4306	((key == #Cut)
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4307	or:[(key == #BackSpace)
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4308	or:[key == #Delete]]) ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4309	masterApplication deleteFiles.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4310	^ true
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4311	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4312	^ false
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4313	]
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4314	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4315	^ false
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4316	! !
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4317
3892 321c1729db5b initial checkin penk parents: diff changeset	4318	!FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4319
321c1729db5b initial checkin penk parents: diff changeset	4320	postBuildImageView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	4321
321c1729db5b initial checkin penk parents: diff changeset	4322	self imageView: aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	4323	self imageView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	4324	!
321c1729db5b initial checkin penk parents: diff changeset	4325
14576 c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4326	postOpenAsSubcanvasWith:aBuilder
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4327	"invoked if the application is embedded in some other view"
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4328
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4329	self imageView windowGroup addPreEventHook:self.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4330	super postOpenAsSubcanvasWith:aBuilder
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4331	!
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4332
3892 321c1729db5b initial checkin penk parents: diff changeset	4333	postOpenWith:aBuilder
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4334	"only invoked if the application is not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	4335
321c1729db5b initial checkin penk parents: diff changeset	4336	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	4337
321c1729db5b initial checkin penk parents: diff changeset	4338	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4339	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	4340	currentDir := Filename currentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	4341	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	4342	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	4343	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	4344	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	4345	Image isImageFileSuffix:suffix
321c1729db5b initial checkin penk parents: diff changeset	4346	]
321c1729db5b initial checkin penk parents: diff changeset	4347	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	4348	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4349	Dialog warn:'cant find a Image in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	4350	^ self
321c1729db5b initial checkin penk parents: diff changeset	4351	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4352	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName))
3892 321c1729db5b initial checkin penk parents: diff changeset	4353	].
321c1729db5b initial checkin penk parents: diff changeset	4354	self setupImageView.
14576 c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4355	self imageView windowGroup addPreEventHook:self.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4356	super postOpenWith:aBuilder
14576 c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4357	!
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4358
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4359	setupImageView
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4360	[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4361	\|img\|
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4362
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4363	"/ imageView withCursor:(Cursor wait) do:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4364	img := self image.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4365	img notNil ifTrue:[
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4366	self image:img.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4367	imageView image:img
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4368	].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4369	"/ ].
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4370	] fork.
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4371
c9b94a8aacb5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14517 diff changeset	4372	"Modified: / 25-07-2006 / 09:09:33 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4373	! !
321c1729db5b initial checkin penk parents: diff changeset	4374
321c1729db5b initial checkin penk parents: diff changeset	4375	!FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4376
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4377	defaultLineLimit
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4378	"the number of buffered lines"
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4379
4759 cdc53b0b3e52 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4758 diff changeset	4380	^ DefaultLineLimit ? TextCollector defaultLineLimit
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4381
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4382	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4383	DefaultLineLimit := 30000
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4384	"
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4385
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	4386	"Modified: / 05-04-2007 / 17:03:11 / cg"
4758 553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4387	!
553688ada6b3 transcript buffer size Claus Gittinger <cg@exept.de> parents: 4744 diff changeset	4388
3892 321c1729db5b initial checkin penk parents: diff changeset	4389	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4390	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4391
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4392	^ 'Terminal'
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4393
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4394	"Modified: / 01-03-2007 / 21:43:38 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4395	! !
321c1729db5b initial checkin penk parents: diff changeset	4396
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4397	!FileApplicationNoteBook::Terminal class methodsFor:'help specs'!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4398
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4399	helpSpec
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4400	"This resource specification was automatically generated
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4401	by the UIHelpTool of ST/X."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4402
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4403	"Do not manually edit this!! If it is corrupted,
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4404	the UIHelpTool may not be able to read the specification."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4405
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4406	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4407	UIHelpTool openOnClass:FileApplicationNoteBook::Terminal
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4408	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4409
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4410	<resource: #help>
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4411
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4412	^ super helpSpec addPairsFrom:#(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4413
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4414	#closeTabButton
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4415	''
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4416
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4417	)
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4418	! !
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4419
3892 321c1729db5b initial checkin penk parents: diff changeset	4420	!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	4421
321c1729db5b initial checkin penk parents: diff changeset	4422	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4423	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4424	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4425
321c1729db5b initial checkin penk parents: diff changeset	4426	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4427	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4428
321c1729db5b initial checkin penk parents: diff changeset	4429	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	4430	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	4431	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	4432	FileApplicationNoteBook::Terminal open
3892 321c1729db5b initial checkin penk parents: diff changeset	4433	"
321c1729db5b initial checkin penk parents: diff changeset	4434
321c1729db5b initial checkin penk parents: diff changeset	4435	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4436
321c1729db5b initial checkin penk parents: diff changeset	4437	^
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4438	#(FullSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4439	name: windowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4440	window:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4441	(WindowSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4442	label: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4443	name: 'Terminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4444	min: (Point 10 10)
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4445	bounds: (Rectangle 0 0 692 537)
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4446	"/ menu: mainMenu
3892 321c1729db5b initial checkin penk parents: diff changeset	4447	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4448	component:
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4449	(SpecCollection
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4450	collection: (
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4451	(MenuPanelSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4452	name: 'MenuTerminal'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4453	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	4454	level: 0
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4455	menu: toolbarMenu
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4456	textDefault: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4457	)
5661 706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4458	(ArbitraryComponentSpec
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4459	name: 'TerminalView'
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4460	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	4461	hasHorizontalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4462	hasVerticalScrollBar: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4463	miniScrollerHorizontal: true
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4464	miniScrollerVertical: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4465	autoHideScrollBars: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4466	hasBorder: false
706b3e6cfd1f terminal has a fixed scrollbar to avoid Claus Gittinger <cg@exept.de> parents: 5646 diff changeset	4467	component: terminalView
3892 321c1729db5b initial checkin penk parents: diff changeset	4468	)
321c1729db5b initial checkin penk parents: diff changeset	4469	)
321c1729db5b initial checkin penk parents: diff changeset	4470
321c1729db5b initial checkin penk parents: diff changeset	4471	)
321c1729db5b initial checkin penk parents: diff changeset	4472	)
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::Terminal class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4476
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4477	toolbarMenu
3892 321c1729db5b initial checkin penk parents: diff changeset	4478	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4479	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4480
321c1729db5b initial checkin penk parents: diff changeset	4481	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4482	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4483
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4484
3892 321c1729db5b initial checkin penk parents: diff changeset	4485	"
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4486	MenuEditor new openOnClass:FileApplicationNoteBook::Terminal andSelector:#toolbarMenu
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4487	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::Terminal toolbarMenu)) startUp
3892 321c1729db5b initial checkin penk parents: diff changeset	4488	"
321c1729db5b initial checkin penk parents: diff changeset	4489
321c1729db5b initial checkin penk parents: diff changeset	4490	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4491
321c1729db5b initial checkin penk parents: diff changeset	4492	^
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4493	#(Menu
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4494	(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4495	(MenuItem
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4496	label: 'Save As...'
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4497	itemValue: saveAs
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4498	nameKey: Save
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4499	isButton: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4500	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4501	)
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4502	(MenuItem
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4503	activeHelpKey: closeTabButton
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4504	label: 'Close'
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4505	itemValue: doClose
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4506	isButton: true
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4507	startGroup: right
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4508	isVisible: closeButtonShown
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4509	hideMenuOnActivated: false
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4510	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4511	)
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4512	(MenuItem
14801 3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4513	label: 'Scroll Lock'
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4514	itemValue: scrollLockedChanged
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4515	isButton: true
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4516	startGroup: right
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4517	indication: scrollLockedHolder
14802 99e863c55e0f class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14801 diff changeset	4518	labelImage: (ResourceRetriever ToolbarIconLibrary scrollLockIcon)
14801 3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4519	)
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4520	(MenuItem
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4521	label: 'Clear Console Output'
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4522	itemValue: menuClearConsole
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4523	isButton: true
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4524	startGroup: right
14802 99e863c55e0f class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14801 diff changeset	4525	labelImage: (ResourceRetriever ToolbarIconLibrary clearConsoleIcon)
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4526	)
3892 321c1729db5b initial checkin penk parents: diff changeset	4527	)
321c1729db5b initial checkin penk parents: diff changeset	4528	nil
321c1729db5b initial checkin penk parents: diff changeset	4529	nil
321c1729db5b initial checkin penk parents: diff changeset	4530	)
321c1729db5b initial checkin penk parents: diff changeset	4531	! !
321c1729db5b initial checkin penk parents: diff changeset	4532
321c1729db5b initial checkin penk parents: diff changeset	4533	!FileApplicationNoteBook::Terminal methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4534
321c1729db5b initial checkin penk parents: diff changeset	4535	terminalView
321c1729db5b initial checkin penk parents: diff changeset	4536
321c1729db5b initial checkin penk parents: diff changeset	4537	terminalView isNil ifTrue:[
13905 519c20b1a23c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13812 diff changeset	4538	(OperatingSystem isUNIXlike
14458 bba439082438 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14444 diff changeset	4539	"/ mhm - xterm embedding seems to no longer work; the default from user prefs is therefore false
bba439082438 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14444 diff changeset	4540	and:[UserPreferences current useXTermViewIfAvailable
13905 519c20b1a23c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13812 diff changeset	4541	and:[XTermView notNil
519c20b1a23c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13812 diff changeset	4542	and:[XTermView isAvailable]]]) ifTrue:[
13812 d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4543	terminalView := XTermView new.
13905 519c20b1a23c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13812 diff changeset	4544	terminalView workingDirectory: item fileName pathName.
519c20b1a23c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13812 diff changeset	4545	terminalView lineLimit:(self class defaultLineLimit).
13812 d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4546	] ifFalse:[
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4547	VT100TerminalView isNil ifTrue:[
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4548	Dialog warn:('Missing class: ' , 'VT100TerminalView' allBold).
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4549	AbortOperationRequest raise
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4550	].
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4551	terminalView := VT100TerminalView new.
6435 a8b5ed32c036 * empty log message * Claus Gittinger <cg@exept.de> parents: 6377 diff changeset	4552	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4553	].
321c1729db5b initial checkin penk parents: diff changeset	4554	^ terminalView.
13812 d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4555
d797f0c1e183 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13776 diff changeset	4556	"Modified: / 05-04-2012 / 15:58:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3892 321c1729db5b initial checkin penk parents: diff changeset	4557	! !
321c1729db5b initial checkin penk parents: diff changeset	4558
321c1729db5b initial checkin penk parents: diff changeset	4559	!FileApplicationNoteBook::Terminal methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4560
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4561	menuClearConsole
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4562	terminalView clear.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4563	!
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4564
3892 321c1729db5b initial checkin penk parents: diff changeset	4565	saveAs
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4566	"open a save-as dialog"
3892 321c1729db5b initial checkin penk parents: diff changeset	4567
321c1729db5b initial checkin penk parents: diff changeset	4568	self terminalView save.
14801 3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4569	!
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4570
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4571	scrollLockedChanged
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4572	terminalView scrollLock:scrollLockedHolder value.
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4573	!
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4574
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4575	scrollLockedHolder
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4576	scrollLockedHolder isNil ifTrue:[
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4577	scrollLockedHolder := false asValue
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4578	].
3706d48d3c1b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14799 diff changeset	4579	^ scrollLockedHolder.
3892 321c1729db5b initial checkin penk parents: diff changeset	4580	! !
321c1729db5b initial checkin penk parents: diff changeset	4581
321c1729db5b initial checkin penk parents: diff changeset	4582	!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	4583
14462 293b9728e748 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14458 diff changeset	4584	doClose
293b9728e748 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14458 diff changeset	4585	terminalView closeDownShell.
293b9728e748 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14458 diff changeset	4586	^ super doClose.
293b9728e748 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14458 diff changeset	4587	!
293b9728e748 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14458 diff changeset	4588
3892 321c1729db5b initial checkin penk parents: diff changeset	4589	shellFinished
321c1729db5b initial checkin penk parents: diff changeset	4590	\| master text string\|
321c1729db5b initial checkin penk parents: diff changeset	4591
321c1729db5b initial checkin penk parents: diff changeset	4592	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	4593	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4594	string := ' - closed'.
321c1729db5b initial checkin penk parents: diff changeset	4595	master tabStringAdd:string for:self.
321c1729db5b initial checkin penk parents: diff changeset	4596	].
4523 ae3d65269e21 added notify: method; Claus Gittinger <cg@exept.de> parents: 4520 diff changeset	4597	self notify:'shell in ' , self fileName asString, ' finished'.
3892 321c1729db5b initial checkin penk parents: diff changeset	4598	terminalView cr.
4515 5345a8da0455 * empty log message * Claus Gittinger <cg@exept.de> parents: 4508 diff changeset	4599
5305 5e3c955b7c4d * empty log message * Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4600	text := '>> shell terminated.' allBold.
3892 321c1729db5b initial checkin penk parents: diff changeset	4601	text colorizeAllWith:Color red.
321c1729db5b initial checkin penk parents: diff changeset	4602	terminalView nextPutAll:text.
321c1729db5b initial checkin penk parents: diff changeset	4603	!
321c1729db5b initial checkin penk parents: diff changeset	4604
321c1729db5b initial checkin penk parents: diff changeset	4605	startShell
321c1729db5b initial checkin penk parents: diff changeset	4606	\|vt100\|
321c1729db5b initial checkin penk parents: diff changeset	4607
321c1729db5b initial checkin penk parents: diff changeset	4608	vt100 := self terminalView.
321c1729db5b initial checkin penk parents: diff changeset	4609	vt100 shellTerminateAction:[ self shellFinished ].
321c1729db5b initial checkin penk parents: diff changeset	4610	vt100 startShellIn:(self fileName).
321c1729db5b initial checkin penk parents: diff changeset	4611	! !
321c1729db5b initial checkin penk parents: diff changeset	4612
321c1729db5b initial checkin penk parents: diff changeset	4613	!FileApplicationNoteBook::Terminal methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	4614
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4615	printOn:aStream
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4616	aStream nextPutAll:'Terminal on:'.
031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	4617	self fileName baseName printOn:aStream.
3892 321c1729db5b initial checkin penk parents: diff changeset	4618	! !
321c1729db5b initial checkin penk parents: diff changeset	4619
321c1729db5b initial checkin penk parents: diff changeset	4620	!FileApplicationNoteBook::Terminal methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4621
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4622	getTabIcon
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4623	"the item shown in a tab"
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4624
14802 99e863c55e0f class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14801 diff changeset	4625	^ ToolbarIconLibrary console13x13Icon
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4626	!
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	4627
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4628	getTabValueString
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4629	"the item shown in a tab (not language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4630
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4631	^ nil
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4632
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4633	"Created: / 01-03-2007 / 21:39:56 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4634	! !
321c1729db5b initial checkin penk parents: diff changeset	4635
321c1729db5b initial checkin penk parents: diff changeset	4636	!FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	4637
321c1729db5b initial checkin penk parents: diff changeset	4638	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4639	"only invoked if the application not started from a master"
06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4640
3892 321c1729db5b initial checkin penk parents: diff changeset	4641	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4642	self masterApplication:nil.
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	4643	self item:(DirectoryContentsBrowser itemClass fileName:(Filename currentDirectory asAbsoluteFilename)).
3892 321c1729db5b initial checkin penk parents: diff changeset	4644	].
321c1729db5b initial checkin penk parents: diff changeset	4645	self startShell.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	4646	super postOpenWith:aBuilder.
14444 cea130516cc0 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14412 diff changeset	4647	terminalView requestFocus.
3892 321c1729db5b initial checkin penk parents: diff changeset	4648	! !
321c1729db5b initial checkin penk parents: diff changeset	4649
321c1729db5b initial checkin penk parents: diff changeset	4650	!FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	4651
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4652	checkModifiedDelayTime
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	4653	^ 30 "seconds"
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4654	!
acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	4655
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4656	defaultTagsBrowserVisible
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4657	^ DefaultTagsBrowserVisible ? true
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4658
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4659	"Created: / 06-10-2011 / 12:45:58 / cg"
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4660	!
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	4661
3892 321c1729db5b initial checkin penk parents: diff changeset	4662	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4663	"the formatString shown in a tab (language translated)"
3892 321c1729db5b initial checkin penk parents: diff changeset	4664
321c1729db5b initial checkin penk parents: diff changeset	4665	aApplicationType == #directoryDescription ifTrue:[
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4666	^ 'Directory Description of %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4667	].
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4668	^ '%1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4669
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	4670	"Modified: / 01-03-2007 / 21:46:24 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	4671	!
321c1729db5b initial checkin penk parents: diff changeset	4672
321c1729db5b initial checkin penk parents: diff changeset	4673	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	4674
321c1729db5b initial checkin penk parents: diff changeset	4675	^ false
321c1729db5b initial checkin penk parents: diff changeset	4676	! !
321c1729db5b initial checkin penk parents: diff changeset	4677
7909 db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4678	!FileApplicationNoteBook::TextEditor class methodsFor:'documentation'!
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4679
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4680	documentation
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4681	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4682	a previewer-plugin for plain text
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4683	Offers edit, hex-display and diff functions.
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4684	"
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4685	! !
db9abaf71a0b top file support Claus Gittinger <cg@exept.de> parents: 7840 diff changeset	4686
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4687	!FileApplicationNoteBook::TextEditor class methodsFor:'help specs'!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4688
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4689	helpSpec
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4690	"This resource specification was automatically generated
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4691	by the UIHelpTool of ST/X."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4692
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4693	"Do not manually edit this!! If it is corrupted,
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4694	the UIHelpTool may not be able to read the specification."
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4695
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4696	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4697	UIHelpTool openOnClass:FileApplicationNoteBook::TextEditor
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4698	"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4699
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4700	<resource: #help>
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4701
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4702	^ super helpSpec addPairsFrom:#(
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4703
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4704	#closeTabButton
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4705	'Close this tab'
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4706
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4707	#hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4708	'Hide the additional editor operations menu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4709
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4710	#indentCode
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4711	'Indent the selected lines (or the cursor line) by 4'
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4712
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4713	#showEditOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4714	'Show the additional editor operations menu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4715
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4716	#undentCode
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4717	'Undent the selected lines (or the cursor line) by 4'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4718
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4719	#toggleBold
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4720	'Toggle the selection''s bold attribute (if bold, turn off; if not, turn on)'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4721
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4722	#toggleItalic
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4723	'Toggle the selection''s italic attribute (if italic, turn off; if not, turn on)'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4724
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4725	#toggleCode
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4726	'Toggle the selection''s code+pre attribute (if code, turn off; if not, turn on)'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4727
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	4728	#toggleEscape
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	4729	'Escape the selected characters with &; escape sequences.\(i.e. change "<" into "<")'
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	4730
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4731	#addAnchor
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4732	'Make the selection an an anchor element'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4733
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4734	#addImage
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4735	'Insert a bitmap image element'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	4736
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4737
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4738	)
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4739	! !
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4740
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4741	!FileApplicationNoteBook::TextEditor class methodsFor:'image specs'!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4742
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4743	hideToolBarIcon
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4744	<resource: #programImage>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4745
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4746	^ ToolbarIconLibrary hideToolBarIcon
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4747
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4748	"Created: / 02-08-2013 / 16:03:09 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4749	! !
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4750
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	4751	!FileApplicationNoteBook::TextEditor class methodsFor:'interface specs'!
3892 321c1729db5b initial checkin penk parents: diff changeset	4752
321c1729db5b initial checkin penk parents: diff changeset	4753	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4754	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4755	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4756
321c1729db5b initial checkin penk parents: diff changeset	4757	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4758	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4759
321c1729db5b initial checkin penk parents: diff changeset	4760	"
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4761	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4762	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4763	FileApplicationNoteBook::TextEditor open
3892 321c1729db5b initial checkin penk parents: diff changeset	4764	"
321c1729db5b initial checkin penk parents: diff changeset	4765
321c1729db5b initial checkin penk parents: diff changeset	4766	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	4767
321c1729db5b initial checkin penk parents: diff changeset	4768	^
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4769	#(FullSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4770	name: windowSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4771	window:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4772	(WindowSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4773	label: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4774	name: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4775	min: (Point 10 10)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4776	bounds: (Rectangle 0 0 650 300)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4777	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4778	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4779	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4780	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4781	(VariableHorizontalPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4782	name: 'Panel'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4783	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4784	showHandle: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4785	snapMode: max
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4786	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4787	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4788	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4789	(ViewSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4790	name: 'EditorBox'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4791	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4792	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4793	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4794	(MenuPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4795	name: 'MenuTextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4796	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4797	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4798	menu: menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4799	textDefault: true
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	4800	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4801	(ViewSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4802	name: 'EditorOperationsToolBar'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4803	layout: (LayoutFrame 0 0 30 0 0 1 60 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4804	level: 0
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4805	visibilityChannel: editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4806	component:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4807	(SpecCollection
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4808	collection: (
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4809	(ActionButtonSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4810	label: 'hideToolBarIcon'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4811	name: 'HideEditorOperationsToolBarButton'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4812	layout: (LayoutFrame 0 0 0 0 13 0 0 1)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4813	activeHelpKey: hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4814	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4815	hasCharacterOrientedLabel: false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4816	translateLabel: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4817	model: hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4818	postBuildCallback: hideEditorOperationsToolBarButtonCreated:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4819	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4820	(MenuPanelSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4821	name: 'EditorOperationsToolBarMenu'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4822	layout: (LayoutFrame 13 0 0 0 0 1 30 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4823	level: 1
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4824	menu: editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4825	textDefault: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4826	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4827	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4828
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4829	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4830	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4831	(TextEditorSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4832	name: 'TextEditor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4833	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	4834	model: fileContentsModel
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4835	hasHorizontalScrollBar: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4836	hasVerticalScrollBar: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4837	modifiedChannel: viewModifiedChannel
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4838	acceptCallBack: accept
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4839	allowDoIt: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4840	hasKeyboardFocusInitially: false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4841	postBuildCallback: postBuildTextEditor:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4842	viewClassName: 'getEditorClass'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4843	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4844	(ActionButtonSpec
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4845	label: '...'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4846	name: 'Button1'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4847	layout: (LayoutFrame -56 1 5 0 -36 1 27 0)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4848	activeHelpKey: showEditOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4849	visibilityChannel: editorOperationsToolBarNotVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4850	translateLabel: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4851	model: showEditorOperationsToolBar
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	)
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	4856	)
13295 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	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4860	handles: (Any 1.0)
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4861	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4862	)
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	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	4865	)
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4866	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4867
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4868	xwindowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4869	"This resource specification was automatically generated
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4870	by the UIPainter of ST/X."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4871
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4872	"Do not manually edit this!! If it is corrupted,
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4873	the UIPainter may not be able to read the specification."
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4874
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4875	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4876	UIPainter new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4877	FileApplicationNoteBook::TextEditor new openInterface:#windowSpec
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4878	FileApplicationNoteBook::TextEditor open
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4879	"
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4880
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4881	<resource: #canvas>
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4882
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	4883	^
3892 321c1729db5b initial checkin penk parents: diff changeset	4884	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	4885	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	4886	#window:
321c1729db5b initial checkin penk parents: diff changeset	4887	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	4888	#label: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4889	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4890	#min: #(#Point 10 10)
321c1729db5b initial checkin penk parents: diff changeset	4891	#max: #(#Point 1024 768)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	4892	#bounds: #(#Rectangle 16 42 666 342)
3892 321c1729db5b initial checkin penk parents: diff changeset	4893	)
321c1729db5b initial checkin penk parents: diff changeset	4894	#component:
321c1729db5b initial checkin penk parents: diff changeset	4895	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	4896	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	4897	#(#MenuPanelSpec
321c1729db5b initial checkin penk parents: diff changeset	4898	#name: 'MenuTextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4899	#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	4900	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	4901	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	4902	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	4903	)
321c1729db5b initial checkin penk parents: diff changeset	4904	#(#TextEditorSpec
321c1729db5b initial checkin penk parents: diff changeset	4905	#name: 'TextEditor'
321c1729db5b initial checkin penk parents: diff changeset	4906	#layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	4907	#model: #fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	4908	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	4909	#hasVerticalScrollBar: true
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	4910	#modifiedChannel: #viewModifiedChannel
3892 321c1729db5b initial checkin penk parents: diff changeset	4911	#acceptCallBack: #accept
3950 b16ce71ea664 allowDoIt Claus Gittinger <cg@exept.de> parents: 3948 diff changeset	4912	#allowDoIt: true
3892 321c1729db5b initial checkin penk parents: diff changeset	4913	#postBuildCallback: #postBuildTextEditor:
321c1729db5b initial checkin penk parents: diff changeset	4914	)
321c1729db5b initial checkin penk parents: diff changeset	4915	)
321c1729db5b initial checkin penk parents: diff changeset	4916
321c1729db5b initial checkin penk parents: diff changeset	4917	)
321c1729db5b initial checkin penk parents: diff changeset	4918	)
321c1729db5b initial checkin penk parents: diff changeset	4919	! !
321c1729db5b initial checkin penk parents: diff changeset	4920
321c1729db5b initial checkin penk parents: diff changeset	4921	!FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	4922
321c1729db5b initial checkin penk parents: diff changeset	4923	menu
321c1729db5b initial checkin penk parents: diff changeset	4924	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	4925	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	4926
321c1729db5b initial checkin penk parents: diff changeset	4927	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	4928	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	4929
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4930
3892 321c1729db5b initial checkin penk parents: diff changeset	4931	"
321c1729db5b initial checkin penk parents: diff changeset	4932	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	4933	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	4934	"
321c1729db5b initial checkin penk parents: diff changeset	4935
321c1729db5b initial checkin penk parents: diff changeset	4936	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	4937
321c1729db5b initial checkin penk parents: diff changeset	4938	^
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4939	#(Menu
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4940	(
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4941	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4942	activeHelpKey: saveFile
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4943	enabled: enableSave
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4944	label: 'Save'
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4945	itemValue: accept
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4946	nameKey: Save
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4947	translateLabel: true
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4948	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4949	isVisible: saveButtonVisible
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4950	labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon)
5429 2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4951	)
2567fdcf2d8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	4952	(MenuItem
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4953	activeHelpKey: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4954	enabled: enableSaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4955	label: 'Save As...'
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4956	itemValue: saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4957	nameKey: SaveAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4958	translateLabel: true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4959	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4960	isVisible: saveAsButtonVisible
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4961	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4962	)
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	4963	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4964	activeHelpKey: reloadFile
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4965	enabled: enableReload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4966	label: 'Reload'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4967	itemValue: reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4968	nameKey: Reload
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4969	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4970	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4971	isVisible: reloadButtonVisible
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4972	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4973	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4974	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4975	activeHelpKey: findInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4976	enabled: enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4977	label: 'Select in Browser'
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4978	itemValue: selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4979	nameKey: SelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4980	translateLabel: true
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4981	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	4982	isVisible: selectInBrowserButtonVisible
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4983	labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4984	)
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4985	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4986	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	4987	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4988	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	4989	activeHelpKey: print
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4990	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4991	label: 'Print'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4992	itemValue: doPrint
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4993	nameKey: Print
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4994	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4995	isButton: true
6117 14c3f5a404b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6106 diff changeset	4996	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	4997	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	4998	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	4999	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	5000	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5001	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5002	activeHelpKey: toggleHexDisplay
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5003	enabled: enableHexToggle
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5004	label: 'Hex'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5005	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5006	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5007	indication: printAsHexDump
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	5008	labelImage: (ResourceRetriever ToolbarIconLibrary hexToggleIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	5009	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5010	(MenuItem
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5011	label: ''
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5012	isVisible: diffTextButtonVisible
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5013	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5014	(MenuItem
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5015	activeHelpKey: showDifferences
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5016	label: 'Diff to Current'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5017	itemValue: openDiffView
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5018	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5019	isButton: true
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	5020	isVisible: diffTextButtonVisible
6096 ad7437953ee4 * empty log message * Claus Gittinger <cg@exept.de> parents: 6093 diff changeset	5021	labelImage: (ResourceRetriever ToolbarIconLibrary diffIcon)
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5022	)
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5023	(MenuItem
6681 b93c9a6b607d * empty log message * Claus Gittinger <cg@exept.de> parents: 6626 diff changeset	5024	activeHelpKey: closeTabButton
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5025	label: 'Close'
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5026	itemValue: doClose
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5027	translateLabel: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5028	isButton: true
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5029	startGroup: right
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	5030	isVisible: closeButtonShown
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5031	hideMenuOnActivated: false
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	5032	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	5033	)
321c1729db5b initial checkin penk parents: diff changeset	5034	)
321c1729db5b initial checkin penk parents: diff changeset	5035	nil
321c1729db5b initial checkin penk parents: diff changeset	5036	nil
321c1729db5b initial checkin penk parents: diff changeset	5037	)
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5038	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5039
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5040	menuEditorOperationsForHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5041	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5042	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5043
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5044	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5045	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5046
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5047
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5048	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5049	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5050	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForHTML)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5051	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5052
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5053	<resource: #menu>
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	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5056	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5057	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5058	(MenuItem
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5059	activeHelpKey: toggleBold
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5060	label: 'bold'
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5061	itemValue: editOperationToggleBoldHTML
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5062	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_bold_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5063	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5064	(MenuItem
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5065	activeHelpKey: toggleItalic
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5066	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5067	label: 'italic'
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5068	itemValue: editOperationToggleItalicHTML
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5069	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5070	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_italic_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5071	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5072	(MenuItem
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5073	activeHelpKey: toggleCode
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5074	enabled: canEdit
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5075	label: 'code'
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5076	itemValue: editOperationToggleCodeHTML
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5077	isButton: true
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5078	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_code_15x15')
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5079	)
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5080	(MenuItem
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5081	activeHelpKey: toggleEscape
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5082	enabled: canEdit
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5083	label: 'escape'
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5084	itemValue: editOperationEscapeSpecialCharactersHTML
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5085	isButton: true
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5086	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_escapeHTMLCharacters')
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5087	)
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5088	(MenuItem
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5089	activeHelpKey: addAnchor
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5090	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5091	label: 'anchor'
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5092	itemValue: editOperationAddAnchorHTML
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5093	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5094	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_anchor15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5095	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5096	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5097	activeHelpKey: addImage
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5098	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5099	label: 'image'
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5100	itemValue: editOperationAddImageHTML
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5101	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5102	labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_image_15x15')
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5103	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5104	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5105	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5106	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5107	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5108	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5109
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5110	menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5111	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5112	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5113
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5114	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5115	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5116
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5117
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5118	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5119	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5120	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForNormalText)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5121	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5122
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5123	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5124
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5125	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5126	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5127	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5128	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5129	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5130	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5131	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5132	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5133	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5134	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5135	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5136	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5137	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5138	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5139	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5140	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5141	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5142	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5143	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5144	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5145	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5146	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5147	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5148	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5149	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5150
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5151	"Modified: / 02-08-2013 / 18:21:42 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5152	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5153
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5154	menuEditorOperationsForOther
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5155	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5156	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5157
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5158	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5159	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5160
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5161
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5162	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5163	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForNormalText
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5164	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForNormalText)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5165	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5166
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5167	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5168
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5169	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5170	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5171	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5172	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5173	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5174	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5175	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5176	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5177	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5178	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5179	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5180	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5181	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5182	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5183	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5184	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5185	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5186	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5187	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5188	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5189	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5190	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5191	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5192	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5193	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5194
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5195	"Created: / 02-08-2013 / 17:09:31 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5196	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5197
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5198	menuEditorOperationsForSourceCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5199	"This resource specification was automatically generated
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5200	by the MenuEditor of ST/X."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5201
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5202	"Do not manually edit this!! If it is corrupted,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5203	the MenuEditor may not be able to read the specification."
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5204
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5205
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5206	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5207	MenuEditor new openOnClass:FileApplicationNoteBook::TextEditor andSelector:#menuEditorOperationsForSourceCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5208	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::TextEditor menuEditorOperationsForSourceCode)) startUp
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5209	"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5210
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5211	<resource: #menu>
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5212
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5213	^
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5214	#(Menu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5215	(
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5216	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5217	activeHelpKey: #'help_doIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5218	label: 'DoIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5219	itemValue: doIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5220	isButton: true
13729 6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	5221	isVisible: doItMenuButtonVisible
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5222	labelImage: (ResourceRetriever ToolbarIconLibrary doItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5223	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5224	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5225	activeHelpKey: #'help_printIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5226	label: 'PrintIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5227	itemValue: printIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5228	isButton: true
13729 6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	5229	isVisible: printItMenuButtonVisible
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5230	labelImage: (ResourceRetriever ToolbarIconLibrary printItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5231	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5232	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5233	activeHelpKey: #'help_inspectIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5234	label: 'InspectIt'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5235	itemValue: inspectIt
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5236	isButton: true
13729 6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	5237	isVisible: inspectItMenuButtonVisible
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5238	labelImage: (ResourceRetriever ToolbarIconLibrary inspectItIcon)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5239	)
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5240	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5241	activeHelpKey: undentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5242	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5243	label: 'Undent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5244	itemValue: editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5245	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5246	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5247	labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
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	(MenuItem
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5250	activeHelpKey: indentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5251	enabled: canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5252	label: 'Indent'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5253	itemValue: editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5254	isButton: true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5255	startGroup: right
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5256	labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
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	nil
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5260	nil
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
13729 6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	5263	"Modified: / 17-12-2013 / 16:37:59 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5264	! !
321c1729db5b initial checkin penk parents: diff changeset	5265
321c1729db5b initial checkin penk parents: diff changeset	5266	!FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	5267
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5268	fileEncoding
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5269	^ self fileEncodingHolder value
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5270	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5271
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5272	fileEncoding:newEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5273	self fileEncodingHolder value:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5274
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5275	editView notNil ifTrue:[
5705 e7559e531af5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5693 diff changeset	5276	self enableReload value:true.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5277	editView externalEncoding:newEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5278	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5279	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5280
3892 321c1729db5b initial checkin penk parents: diff changeset	5281	item:aDirContentsItem
321c1729db5b initial checkin penk parents: diff changeset	5282
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5283	self releaseCheckModify.
4620 59601a37cc0b hexDump from tools menu implemented penk parents: 4616 diff changeset	5284	(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	5285
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5286	self askForChangeWithReload:false "true".
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5287
3892 321c1729db5b initial checkin penk parents: diff changeset	5288	super item:aDirContentsItem.
4698 14a71be57ecf dont load twice on startup TextEditor penk parents: 4677 diff changeset	5289	self printAsHexDump value:(self presentation == #hexDump) withoutNotifying:self.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5290	self updateTagsBrowser.
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	5291	self setContents ifFalse:[ ^ false].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5292
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5293	self setUpTextView.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5294
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	5295	textEditorModificationTime := self fileName modificationTime.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5296	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5297	self setupCheckModify.
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5298	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	5299	^ true
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5300
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5301	"Modified: / 23-06-2011 / 16:45:13 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5302	!
321c1729db5b initial checkin penk parents: diff changeset	5303
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5304	lockFileEncoding:aBoolean
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5305	self lockFileEncodingHolder value:aBoolean.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5306	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5307
3892 321c1729db5b initial checkin penk parents: diff changeset	5308	presentation
321c1729db5b initial checkin penk parents: diff changeset	5309	"return the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5310
321c1729db5b initial checkin penk parents: diff changeset	5311	presentation isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5312	presentation := #asText.
321c1729db5b initial checkin penk parents: diff changeset	5313	].
321c1729db5b initial checkin penk parents: diff changeset	5314	^ presentation
321c1729db5b initial checkin penk parents: diff changeset	5315	!
321c1729db5b initial checkin penk parents: diff changeset	5316
321c1729db5b initial checkin penk parents: diff changeset	5317	presentation:something
321c1729db5b initial checkin penk parents: diff changeset	5318	"set the value of the instance variable 'presentation' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5319
321c1729db5b initial checkin penk parents: diff changeset	5320	presentation := something.
321c1729db5b initial checkin penk parents: diff changeset	5321	!
321c1729db5b initial checkin penk parents: diff changeset	5322
321c1729db5b initial checkin penk parents: diff changeset	5323	semaChangeItem
321c1729db5b initial checkin penk parents: diff changeset	5324	^ semaChangeItem
5459 d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5325	!
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5326
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5327	type:aType
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5328
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5329	super type:aType.
d90defc58d51 window label and tab string changed penk parents: 5458 diff changeset	5330	self changeInformation.
3892 321c1729db5b initial checkin penk parents: diff changeset	5331	! !
321c1729db5b initial checkin penk parents: diff changeset	5332
321c1729db5b initial checkin penk parents: diff changeset	5333	!FileApplicationNoteBook::TextEditor methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	5334
321c1729db5b initial checkin penk parents: diff changeset	5335	accept
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5336	self saveWithAskForFilename:false.
3892 321c1729db5b initial checkin penk parents: diff changeset	5337	!
321c1729db5b initial checkin penk parents: diff changeset	5338
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5339	askForChangeWithReload:doReload
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5340	"ask for save changes;
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5341	if modified and answered true, the current contents is written back (accepted)
3892 321c1729db5b initial checkin penk parents: diff changeset	5342	"
321c1729db5b initial checkin penk parents: diff changeset	5343
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5344	self askForChangeWithReload:doReload forClose:false
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5345	!
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5346
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5347	askForChangeWithReload:doReload forClose:forClose
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5348	"ask for save changes;
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5349	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	5350	"
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5351
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5352	\|fn answer string arg\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5353
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5354	self modifiedChannel value ifFalse:[ ^ false].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5355
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5356	fn := self fileName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5357	fn isNil ifTrue:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5358	fn := 'unknown'
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5359	] ifFalse:[
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5360	fn := fn baseName.
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5361	].
ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5362	arg := fn allBold.
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5363
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5364	string := 'Save changed file "%1" ?'.
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5365
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5366	forClose ifTrue:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5367	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5368	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	5369	] ifFalse:[
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5370	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5371	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	5372	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5373	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5374	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5375	self itemChanged value ifTrue:[
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5376	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	5377	] ifFalse:[
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5378	self itemRemoved value ifTrue:[
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5379	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	5380	]
068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5381	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5382	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5383
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5384	answer := OptionBox
6376 2d3996297468 * empty log message * Claus Gittinger <cg@exept.de> parents: 6336 diff changeset	5385	request:(resources stringWithCRs:string with:arg)
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5386	buttonLabels:(resources array:#('Cancel' 'Show Diffs' 'No' 'Yes'))
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5387	values:#(nil showDiffs false true)
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5388	default:nil.
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5389
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5390	answer isNil ifTrue:[^ AbortOperationRequest raise ].
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5391
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5392	answer == #showDiffs ifTrue:[
5201 979c36ed9a22 * empty log message * Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	5393	self openDiffView.
5199 f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5394	AbortOperationRequest raise
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5395	].
f8f257045045 added showDiffs option to askForChange Claus Gittinger <cg@exept.de> parents: 5198 diff changeset	5396
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5397	answer ifTrue:[
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5398	self accept
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	5399	] ifFalse:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5400	doReload ifTrue:[
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5401	self setContents.
ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	5402	]
3892 321c1729db5b initial checkin penk parents: diff changeset	5403	].
321c1729db5b initial checkin penk parents: diff changeset	5404	^ answer
9568 24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5405
24784f4fcafd info message Claus Gittinger <cg@exept.de> parents: 9459 diff changeset	5406	"Modified: / 11-09-2010 / 13:07:37 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	5407	!
321c1729db5b initial checkin penk parents: diff changeset	5408
321c1729db5b initial checkin penk parents: diff changeset	5409	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	5410
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5411	\|string win\|
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5412
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5413	string := self getTabString.
3892 321c1729db5b initial checkin penk parents: diff changeset	5414	masterApplication isNil ifTrue:[
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5415	win := self window.
d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5416	win notNil ifTrue:[
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5417	self window label:string asString string.
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	5418	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5419	] ifFalse:[
14799 9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5420	masterApplication tabStringChangeTo:string for:self.
9931a2248312 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14660 diff changeset	5421	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5422	!
321c1729db5b initial checkin penk parents: diff changeset	5423
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5424	changeInformationForModified:aSymbol
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5425	masterApplication isNil ifTrue:[ ^ self].
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	5426	masterApplication changeModified:aSymbol for:self.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5427	!
9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5428
3892 321c1729db5b initial checkin penk parents: diff changeset	5429	doClose
321c1729db5b initial checkin penk parents: diff changeset	5430
5578 068f032a49ee dialog box string Claus Gittinger <cg@exept.de> parents: 5574 diff changeset	5431	self askForChangeWithReload:false forClose:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	5432	self masterApplication notNil ifTrue:[
3954 78e29a3ea4c1 next stage penk parents: 3951 diff changeset	5433	^ super doClose
3892 321c1729db5b initial checkin penk parents: diff changeset	5434	].
321c1729db5b initial checkin penk parents: diff changeset	5435	^ true
321c1729db5b initial checkin penk parents: diff changeset	5436	!
321c1729db5b initial checkin penk parents: diff changeset	5437
321c1729db5b initial checkin penk parents: diff changeset	5438	doPrint
321c1729db5b initial checkin penk parents: diff changeset	5439	"print the contents
321c1729db5b initial checkin penk parents: diff changeset	5440	"
4473 a0ab7a61208e * empty log message * Claus Gittinger <cg@exept.de> parents: 4462 diff changeset	5441	(Dialog confirm:'Print contents of editView ?') ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	5442	editView doPrint.
321c1729db5b initial checkin penk parents: diff changeset	5443	].
321c1729db5b initial checkin penk parents: diff changeset	5444	!
321c1729db5b initial checkin penk parents: diff changeset	5445
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5446	doSaveAs
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5447	self saveWithAskForFilename:true.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5448	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5449
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5450	editOperationAddAnchorHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5451	\|sel new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5452
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5453	sel := editView selectionAsString.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5454	sel isNil ifTrue:[^ self].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5455
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5456	new := '<A HREF="xxx">',editView selectionAsString,'</A>'.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5457	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5458	undoableDo:[
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	5459	editView replaceSelectionBy:new keepCursor:false select:true
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5460	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5461	info:'Add Anchor'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5462
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5463	"Created: / 02-08-2013 / 18:16:44 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5464	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5465
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5466	editOperationAddImageHTML
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5467	\|new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5468
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5469	new := '<IMG NOPRINT ALIGN="middle" SRC="xxx.png">'.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5470	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5471	undoableDo:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5472	editView insertStringAtCursor:new
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5473	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5474	info:'Add Image'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5475
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5476	"Created: / 02-08-2013 / 18:17:26 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5477	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5478
14808 e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5479	editOperationEscapeSpecialCharactersHTML
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5480	\|sel escaped\|
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5481
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5482	sel := editView selectionAsString.
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5483	sel isNil ifTrue:[^ self].
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5484
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5485	escaped := HTMLUtilities withSpecialHTMLCharactersEscaped:sel.
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5486	editView
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5487	undoableDo:[
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5488	editView replaceSelectionBy:escaped keepCursor:false select:true
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5489	]
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5490	info:'Escape HTML characters'
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5491	!
e36c7a43aee4 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14802 diff changeset	5492
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5493	editOperationIndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5494	editView indentBy4
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5495
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5496	"Created: / 02-08-2013 / 18:20:18 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5497	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5498
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5499	editOperationToggleBoldHTML
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5500	self editOperationToggleHTML:'Toggle Bold' start:'<b>' end:'</b>'
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5501
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5502	"Created: / 02-08-2013 / 18:04:27 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5503	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5504
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5505	editOperationToggleCodeHTML
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5506	self editOperationToggleHTML:'Toggle Code' start:'<code><pre>' end:'</pre></code>'
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5507	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5508
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5509	editOperationToggleHTML:info start:whatStart end:whatEnd
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5510	\|sel new\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5511
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5512	sel := editView selectionAsString.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5513	sel isNil ifTrue:[^ self].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5514
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5515	(sel asLowercase startsWith:whatStart) ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5516	new := sel copyFrom: whatStart size+1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5517	(new asLowercase endsWith:whatEnd) ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5518	new := new copyButLast:whatEnd size.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5519	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5520	] ifFalse:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5521	new := whatStart,editView selectionAsString,whatEnd
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5522	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5523	editView
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5524	undoableDo:[
13298 0e2817ce7e77 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13295 diff changeset	5525	editView replaceSelectionBy:new keepCursor:false select:true
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5526	]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5527	info:info
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5528
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5529	"Created: / 02-08-2013 / 18:14:25 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5530	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5531
13377 2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5532	editOperationToggleItalicHTML
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5533	self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>'
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5534
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5535	"Created: / 02-08-2013 / 18:14:55 / cg"
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5536	!
2f8afe7d9426 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13298 diff changeset	5537
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5538	editOperationUndentCode
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5539	editView undentBy4
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5540
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5541	"Created: / 02-08-2013 / 18:22:47 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5542	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5543
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5544	getContents
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5545	\|file fileSize contents presentation alreadyConfirmed answer sizeLimit showLastPart
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5546	dontAskAgainHolder\|
3892 321c1729db5b initial checkin penk parents: diff changeset	5547
321c1729db5b initial checkin penk parents: diff changeset	5548	file := self fileName.
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5549	file isNil ifTrue:[
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5550	^ nil
6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5551	].
7487 d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5552	fileSize := file fileSize.
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5553	fileSize isNil ifTrue:[
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5554	^ nil
d1b696d27ff9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7467 diff changeset	5555	].
5831 6db521464804 care for no-selection when toggling hex-mode Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	5556
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5557	self enableSelectInBrowser value:true.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5558
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5559	presentation := self presentation.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5560	presentation == #asText ifTrue:[
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5561	fileSize > (MaxFileSizeLoadedWithoutAsking ? (8 * 1024 * 1024)) ifTrue:[
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5562	dontAskAgainHolder := false asValue.
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5563	answer := Dialog
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5564	confirmWithCancel:(resources
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5565	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	5566	with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5567	with:(UnitConverter fileSizeStringFor:fileSize))
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5568	labels:(resources array:#('Cancel' 'Show All' 'Show Last Part' 'Show First Part' ))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5569	values:#(#abort #all #last #first)
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5570	default:#abort
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5571	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	5572	title:(resources string:'Large File').
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5573
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5574	answer == #all ifTrue:[
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5575	dontAskAgainHolder value ifTrue:[
12348 bf878489e196 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12346 diff changeset	5576	MaxFileSizeLoadedWithoutAsking := fileSize + 4096
12346 7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5577	]
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5578	].
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5579
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5580	"/ old
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5581	"/ answer := OptionBox
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5582	"/ request:(resources
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5583	"/ 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	5584	"/ with:file baseName allBold
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5585	"/ with:(UnitConverter fileSizeStringFor:fileSize))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5586	"/ label:(resources string:'Large File')
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5587	"/ buttonLabels:(resources array:#('Cancel' 'Show All' 'Show Last Part' 'Show First Part' ))
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5588	"/ values:#(#abort #all #last #first)
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5589	"/ default:#abort.
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5590
7d832383f007 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12121 diff changeset	5591	"/ very old
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5592	"/ answer := Dialog
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5593	"/ confirmWithCancel:(resources
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5594	"/ 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	5595	"/ with:file baseName allBold
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5596	"/ with:(UnitConverter fileSizeStringFor:fileSize))
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5597	"/ labels:#('Cancel' 'Show All' 'Show First Part' ).
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5598	"/ answer isNil ifTrue:[^ nil].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5599	"/ answer ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5600	"/ sizeLimit := 4 * 1024 * 1024
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5601	"/ ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5602	answer == #abort ifTrue:[^ nil ].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5603	answer ~~ #all ifTrue:[
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5604	sizeLimit := 4 * 1024 * 1024.
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5605	showLastPart := (answer == #last).
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5606	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5607	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5608	].
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5609
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5610	ExternalStream readErrorSignal handle:[:ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5611	(Dialog confirm:('Read Error.\\Retry ?' withCRs))
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	5612	ifTrue:[
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5613	^ ex restart
5019 f54a8b10ac1b * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	5614	].
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5615	] do:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5616	ExternalStream lineTooLongErrorSignal handle:[ :ex \|
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5617	(alreadyConfirmed==true
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5618	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	5619	ifTrue:[
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5620	alreadyConfirmed := true.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5621	^ ex parameter second , ex parameter first nextLine
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5622	].
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5623	^ nil.
d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5624	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5625	presentation == #asText ifTrue:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5626	contents := self getContentsAsTextWithSizeLimit:sizeLimit lastPart:showLastPart.
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5627	] ifFalse:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5628	presentation == #hexDump ifTrue:[
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5629	"/ self withWaitCursorDo:[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5630	contents := AbstractFileBrowser
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5631	contentsOfFileAsHexDump:file
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5632	withLimit:sizeLimit
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5633	lastPart:showLastPart.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5634	"/ ]
4677 549c732836f6 wait cursor Claus Gittinger <cg@exept.de> parents: 4645 diff changeset	5635	]
3892 321c1729db5b initial checkin penk parents: diff changeset	5636	]
5037 d40f57420be0 read error handling Claus Gittinger <cg@exept.de> parents: 5019 diff changeset	5637	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5638	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5639	^ contents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5640
7769 6cd2993fa017 * empty log message * Claus Gittinger <cg@exept.de> parents: 7765 diff changeset	5641	"Modified: / 27-03-2007 / 13:41:35 / cg"
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5642	!
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5643
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5644	getContentsAsTextWithSizeLimit:sizeLimitOrNil
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5645	"returns the contents as unicode"
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5646
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5647	^ self getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:false
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5648	!
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5649
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5650	getContentsAsTextWithSizeLimit:sizeLimitOrNil lastPart:showLastPartOrNil
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5651	"returns the contents as unicode"
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5652
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5653	\|text guessedEncoding s\|
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5654
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5655	(self lockFileEncodingHolder value ? false) ifFalse:[
6173 4ba4589e4952 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 6120 diff changeset	5656	guessedEncoding := CharacterEncoder guessEncodingOfFile:item fileName asFilename.
11589 bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	5657	guessedEncoding := guessedEncoding ? #'iso8859-1' "(self fileEncoding)".
bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	5658	self fileEncoding:guessedEncoding asSymbol.
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	5659	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5660
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5661	editView notNil ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5662	"/ self validateEditViewsFontEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5663	editView externalEncoding:self fileEncoding.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5664	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5665
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5666	s := self fileName readStream.
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5667	[
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5668	showLastPartOrNil == true ifTrue:[
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5669	s position:(s fileSize - sizeLimitOrNil).
8471 4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5670	].
4f7900a058bd last part Claus Gittinger <cg@exept.de> parents: 8390 diff changeset	5671
7594 86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5672	text := self
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5673	readStream:s
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5674	lineDelimiter:(Character cr)
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5675	sizeLimit:sizeLimitOrNil
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5676	encoding:self fileEncoding.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5677	] ensure:[
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5678	s close.
86a9efd53284 Close file after reading Stefan Vogel <sv@exept.de> parents: 7582 diff changeset	5679	].
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5680	^ text
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5681	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5682
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5683	getHashForContents:contents
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5684	\| hashStream\|
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5685
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5686	self hasMD5 ifFalse:[^ nil].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5687
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5688	hashStream := MD5Stream new.
11284 ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5689	(contents isCollection and:[ contents isString not ]) ifTrue:[
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5690	contents do:[:eachLine \|
4616 e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5691	eachLine notNil ifTrue:[
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5692	hashStream nextPutAll:(eachLine string withTabs).
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5693	].
e877ab5a2237 hashing for empty lines Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	5694	hashStream nextPut:Character cr.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5695	].
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5696	] ifFalse:[
990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5697	hashStream nextPutAll:(contents string).
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5698	].
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	5699	^ hashStream hashValue.
11284 ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5700
ebb519afb53d handle non-string collections as contents (virtualArray) Claus Gittinger <cg@exept.de> parents: 11104 diff changeset	5701	"Modified: / 27-02-2012 / 22:10:18 / cg"
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5702	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	5703
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5704	hideEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5705	self editorOperationsToolBarVisibleHolder value:false
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5706
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5707	"Created: / 02-08-2013 / 16:12:00 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5708	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5709
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5710	openDiffView
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5711	\|fn diffView text1 l1 text2 l2\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5712
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5713	(fn := self fileName) notNil ifTrue:[
14124 8dfb9e38a4d6 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14065 diff changeset	5714	text1 := editView contentsAsString "asText".
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5715	l1 := 'Editor'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5716	text2 := self getContents.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5717	l2 := 'File: ' , fn baseName.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5718	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	5719	diffView topView label:'File ' , fn baseName , ' vs. Editor Contents'.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5720	].
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5721	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5722
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5723	readStream:aStream lineDelimiter:aCharacter encoding:fileEncodingArg
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5724	"read from aStream, answer its contents as StringCollection.
14498 16ebee6b698d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14496 diff changeset	5725	The file's lines are delimited by aCharacter.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5726	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	5727	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	5728	Always returns a unicode string."
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5729
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5730	^ self readStream:aStream lineDelimiter:aCharacter sizeLimit:nil encoding:fileEncodingArg
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5731	!
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5732
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	5733	readStream:aStream lineDelimiter:lineDelimiter sizeLimit:sizeLimitOrNil encoding:fileEncodingArg
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5734	"read from aStream, answer its contents as StringCollection.
14498 16ebee6b698d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14496 diff changeset	5735	The file's lines are delimited by aCharacter.
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5736	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	5737	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	5738	Always returns a unicode string."
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5739
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5740	\|text fileEncoding decoder firstDecoderError line lineNr\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5741
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5742	fileEncoding := fileEncodingArg ? #'iso8859-1'.
5718 a16c274a18ef * empty log message * ca parents: 5717 diff changeset	5743	decoder := CharacterEncoder encoderFor:fileEncoding.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5744
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5745	text := StringCollection new.
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5746
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5747	firstDecoderError := true.
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5748	lineNr := 1.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5749
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5750	DecodingError handle:[:ex \|
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5751	\|msg answer labels values\|
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5752
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5753	firstDecoderError ifTrue:[
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5754	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	5755	ex mayProceed ifTrue:[
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5756	labels := #('Cancel' 'Ignore' 'Ignore All' 'Inspect Line').
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5757	values := #(nil ignore ignoreAll inspectLine).
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5758	] ifFalse:[
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5759	labels := #('Cancel' 'Inspect Line').
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5760	values := #(nil inspectLine).
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5761	].
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5762
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5763	answer := Dialog
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5764	confirmWithCancel:msg
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5765	labels:(resources array:labels)
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5766	values:values
dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5767	default:1
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5768	title:'Error during decode'.
5646 123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5769	answer isNil ifTrue:[ AbortOperationRequest raise ].
123550dd90f6 handle decoder errors Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	5770	answer == #ignoreAll ifTrue:[ firstDecoderError := false ].
8390 f03711c97860 encoder error reporting Claus Gittinger <cg@exept.de> parents: 8389 diff changeset	5771	answer == #inspectLine ifTrue:[ line inspect. AbortOperationRequest raise ].
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5772	].
8389 0c1050ff7f88 encoding error handling Claus Gittinger <cg@exept.de> parents: 8366 diff changeset	5773	ex proceedWith:(ex defaultValue).
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5774	] do:[
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5775	FileStream lineTooLongErrorSignal handle:[:ex \|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5776	\|s partialLine\|
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5777
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5778	s := ex parameter at:1.
11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5779	partialLine := ex parameter at:2.
6796 23a7b7f0bd39 bug in long line handling fixed Claus Gittinger <cg@exept.de> parents: 6793 diff changeset	5780	ex proceedWith:(partialLine , (s upTo:lineDelimiter))
6295 11ae28df92c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5781	] do:[
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5782	(decoder characterSize:0) == 2 ifTrue:[
12066 dc7b890d8b7d comment only Claus Gittinger <cg@exept.de> parents: 11590 diff changeset	5783	"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	5784
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5785	\|buffer\|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5786
11590 dc5935e9387b Fix decoding error handling Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5787	buffer := line := aStream upToEnd.
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5788	buffer := decoder decodeString:buffer.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5789	buffer asCollectionOfLines do:[:line \|
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5790	text add:line withTabsExpanded.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5791	].
9172 e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5792	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5793	[aStream atEnd] whileFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5794	lineDelimiter == Character cr ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5795	line := aStream nextLine.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5796	] ifFalse:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5797	line := aStream upTo:lineDelimiter.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5798	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5799
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5800	line := line withTabsExpanded.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5801	text add:(decoder decodeString:line).
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5802	sizeLimitOrNil notNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5803	aStream position > sizeLimitOrNil ifTrue:[
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5804	^ text
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5805	]
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5806	].
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5807	lineNr := lineNr + 1.
e7632f98f762 handle utf16 encoded files more gracefully Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5808	]
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5809	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5810	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5811	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5812	^ text
7693 d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5813
d266b8b66638 * empty log message * Claus Gittinger <cg@exept.de> parents: 7687 diff changeset	5814	"Modified: / 02-03-2007 / 15:09:30 / cg"
12066 dc7b890d8b7d comment only Claus Gittinger <cg@exept.de> parents: 11590 diff changeset	5815	"Modified (comment): / 22-11-2012 / 13:06:03 / cg"
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5816	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5817
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5818	reload
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5819
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5820	textEditorModificationTime := self fileName modificationTime.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5821	"/ self withWaitCursorDo:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	5822	self setContents.
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5823	"/ ].
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	5824	self setUpTextView
6833 caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5825
caeedd92f25c wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6796 diff changeset	5826	"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	5827	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5828
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5829	saveFileAs
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5830	self saveWithAskForFilename:true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5831	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5832
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5833	saveWithAskForFilename:ask
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5834
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5835	\|answer fn master defaultDir dir base fnDir\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5836
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5837	master := self masterApplication.
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5838	(fn := self fileName) notNil ifTrue:[
2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5839	dir := fn directory.
2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5840	base := fn baseName.
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5841	].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5842
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5843	ask ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5844	defaultDir := master notNil ifTrue:[ master currentDirectory ] ifFalse:[ nil ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5845	defaultDir isNil ifTrue:[
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5846	fn notNil ifTrue:[
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5847	defaultDir := dir.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5848	]
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5849	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5850	answer := Dialog
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5851	requestFileNameForSave:(resources string:'Save contents in:')
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5852	default:base
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5853	fromDirectory:defaultDir.
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5854	answer isEmptyOrNil ifTrue:[^ self].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5855	fn := answer asFilename.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5856	].
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	5857
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5858	(master notNil and:[master class openAnotherApplicationOnSameItem]) ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5859	(self updateSameFilesFor:fn) ifFalse:[ ^ self ].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5860	].
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5861
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5862	fnDir := fn directory.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6214 diff changeset	5863	fnDir exists ifFalse:[
12079 50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5864	[
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5865	fnDir recursiveMakeDirectory.
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5866	] on:OperatingSystem accessDeniedErrorSignal do:[:ex\|
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5867	Dialog warn:(ex description).
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5868	^ self.
50a553319d07 class: FileApplicationNoteBook Stefan Vogel <sv@exept.de> parents: 12066 diff changeset	5869	]
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5870	].
12480 2d1bd93f29d1 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5871
14660 39afddf6eea3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14576 diff changeset	5872	(editView saveAs:fn doAppend:false compressTabs:master compressTabsOnSave eolMode:master lineEndConvention) ifFalse:[^ self].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5873
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5874	textEditorModificationTime := self fileName modificationTime.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5875
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5876	self hasMD5 ifTrue:[
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5877	md5CheckSum := self getHashForContents:self fileContentsModel value.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5878	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	5879
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5880	self enableReload value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5881	self itemChanged value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5882	self itemRemoved value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5883	self modifiedChannel value:false.
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5884	self notify:self fileName asString, ' saved'.
13760 60a6ffe379a7 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13729 diff changeset	5885	tagsBrowser notNil ifTrue:[
60a6ffe379a7 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13729 diff changeset	5886	tagsBrowser updateTagList
60a6ffe379a7 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13729 diff changeset	5887	].
9611 095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5888
095c6b7a30b0 x Claus Gittinger <cg@exept.de> parents: 9568 diff changeset	5889	"Modified: / 27-10-2010 / 10:41:29 / cg"
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5890	!
c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5891
4146 c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5892	searchForPattern:aContentsPattern ignoreCase:ign
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5893
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5894	\| pattern \|
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5895
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5896	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	5897	pattern notEmpty ifTrue:[
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5898	editView rememberSearchPattern:pattern.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5899	editView searchFwd:pattern ignoreCase:ign.
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5900	]
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5901	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	5902
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5903	selectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5904	\|application\|
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5905
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5906	application := self masterApplication.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5907	application notNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5908	application gotoFile:(self fileName).
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5909	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5910	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	5911
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5912	setContents
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	5913	\|text\|
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	5914
7970 337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5915	self withReadCursorDo:[
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5916	text := self getContents.
337b8efd934e readcursor while reading a file Claus Gittinger <cg@exept.de> parents: 7947 diff changeset	5917	].
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4188 diff changeset	5918	text isNil ifTrue:[ ^ false].
9885 62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5919	self withWaitCursorDo:[
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5920	self setContentsFor:text.
62bac7ad7d0c changed: #startApplication: ab parents: 9882 diff changeset	5921	].
4953 d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5922	^ true
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5923	!
d6561bb214d5 red text color for outdated files only penk parents: 4946 diff changeset	5924
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5925	setContentsFor:aUnicodeText
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	5926	self itemChanged value:false.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5927
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5928	self validateEditViewsFontEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5929
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5930	self fileContentsModel value:aUnicodeText.
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5931
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5932	self hasMD5 ifTrue:[
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	5933	md5CheckSum := self getHashForContents:aUnicodeText.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	5934	].
3892 321c1729db5b initial checkin penk parents: diff changeset	5935	self enableReload value:false.
321c1729db5b initial checkin penk parents: diff changeset	5936	self itemChanged value:false.
4045 9271a4ffbba4 make tab to red for changed file penk parents: 4020 diff changeset	5937	self modifiedChannel value:false.
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	5938	self notify:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	5939	^ true
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5940
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5941
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5942	"/
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5943	"/ oldEncoding := editView characterEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5944	"/ oldEncoding ~= newEncoding ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5945	"/self halt.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5946	"/ (lines := editView contents) size > 0 ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5947	"/ (Dialog
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5948	"/ confirm:('Re-Encode contents (from %1 to %2) ?'
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5949	"/ bindWith:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5950	"/ with:newEncoding)
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5951	"/ ) ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5952	"/ recoder := CharacterEncoder
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5953	"/ encoderToEncodeFrom:oldEncoding
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5954	"/ into:newEncoding.
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5955	"/ lines keysAndValuesDo:[:lineNr :line \|
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5956	"/ line notNil ifTrue:[
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5957	"/ editView at:lineNr put:(recoder encodeString:line).
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5958	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5959	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5960	"/ ]
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5961	"/ ].
1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	5962	"/ ].
3892 321c1729db5b initial checkin penk parents: diff changeset	5963	!
321c1729db5b initial checkin penk parents: diff changeset	5964
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5965	showEditorOperationsToolBar
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5966	self editorOperationsToolBarVisibleHolder value:true
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5967
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5968	"Created: / 02-08-2013 / 16:11:52 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5969	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	5970
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5971	tagSelected:aTag
11032 67fc45edcaac tag-selection fix (when textselection is present) Claus Gittinger <cg@exept.de> parents: 10955 diff changeset	5972	editView deselect. "/ otherwise, it might jump back to show the selection
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5973	editView cursorLine:(aTag lineNumber) col:1.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5974
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5975	"Created: / 23-06-2011 / 16:38:07 / cg"
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5976	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	5977
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5978	updateSameFilesFor:aFilename
3892 321c1729db5b initial checkin penk parents: diff changeset	5979
321c1729db5b initial checkin penk parents: diff changeset	5980	\| master modifiedApplications stream filename action\|
321c1729db5b initial checkin penk parents: diff changeset	5981
321c1729db5b initial checkin penk parents: diff changeset	5982	master := self masterApplication.
321c1729db5b initial checkin penk parents: diff changeset	5983	master notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5984	modifiedApplications := master getSameFilesModifiedFor:self.
6482 00207f456339 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 6481 diff changeset	5985	(modifiedApplications isEmptyOrNil) ifTrue:[^ true ].
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	5986	filename := aFilename asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	5987	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	5988	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5989	stream nextPutAll:' is modified in tab'.
321c1729db5b initial checkin penk parents: diff changeset	5990	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5991	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	5992	].
321c1729db5b initial checkin penk parents: diff changeset	5993	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	5994	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	5995	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5996	stream nextPutAll:filename.
321c1729db5b initial checkin penk parents: diff changeset	5997	stream space.
321c1729db5b initial checkin penk parents: diff changeset	5998	el sameFileIndex notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	5999	stream nextPutAll:el sameFileIndex asString.
321c1729db5b initial checkin penk parents: diff changeset	6000	].
321c1729db5b initial checkin penk parents: diff changeset	6001	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	6002	].
321c1729db5b initial checkin penk parents: diff changeset	6003	stream nextPutAll:'forget changes on other tab'.
321c1729db5b initial checkin penk parents: diff changeset	6004	modifiedApplications size > 1 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6005	stream nextPutAll:'s'.
321c1729db5b initial checkin penk parents: diff changeset	6006	].
321c1729db5b initial checkin penk parents: diff changeset	6007	stream nextPutAll:' ?'.
321c1729db5b initial checkin penk parents: diff changeset	6008	action := Dialog
321c1729db5b initial checkin penk parents: diff changeset	6009	choose:stream contents
13406 b3cb3f94b100 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13377 diff changeset	6010	labels:#('Cancel' 'No' 'Yes')
3892 321c1729db5b initial checkin penk parents: diff changeset	6011	values:#(#cancel #no #yes)
321c1729db5b initial checkin penk parents: diff changeset	6012	default:#cancel.
321c1729db5b initial checkin penk parents: diff changeset	6013
321c1729db5b initial checkin penk parents: diff changeset	6014	stream close.
321c1729db5b initial checkin penk parents: diff changeset	6015	action == #cancel ifTrue:[ ^ false ].
321c1729db5b initial checkin penk parents: diff changeset	6016	action == #yes ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6017	"/ here force reload for other applications
321c1729db5b initial checkin penk parents: diff changeset	6018	modifiedApplications do:[ : el \|
321c1729db5b initial checkin penk parents: diff changeset	6019	el reload.
321c1729db5b initial checkin penk parents: diff changeset	6020	]
321c1729db5b initial checkin penk parents: diff changeset	6021	].
321c1729db5b initial checkin penk parents: diff changeset	6022	].
321c1729db5b initial checkin penk parents: diff changeset	6023	^ true.
13406 b3cb3f94b100 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13377 diff changeset	6024
b3cb3f94b100 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13377 diff changeset	6025	"Modified: / 29-08-2013 / 01:37:18 / cg"
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6026	!
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6027
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6028	validateEditViewsFontEncoding
5717 f2ec29a73239 do not ask again about encoding penk parents: 5705 diff changeset	6029	\|fileEncoding preferredFontEncoding fontsEncoding action\|
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6030
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6031	editView isNil ifTrue:[^ self].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6032
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6033	fileEncoding := self fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6034
11589 bb69ef59a32f Return symbols for encoding Stefan Vogel <sv@exept.de> parents: 11588 diff changeset	6035	fontsEncoding := editView font encoding ? #'iso8859-1'.
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6036
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6037	preferredFontEncoding := FontDescription preferredFontEncodingFor:fileEncoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6038	(CharacterEncoder isEncoding:preferredFontEncoding subSetOf:fontsEncoding) ifFalse:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6039	doNotShowFontDialog == true ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6040	action := #show
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6041	] ifFalse:[
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	6042	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	6043	with:self fileName baseName
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6044	with:preferredFontEncoding allBold
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6045	with:fileEncoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6046	labels:(resources array:#('Cancel' 'Show' 'Don''t Ask Again' 'Change Font'))
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6047	values:#(nil #show #showAlways #encoding)
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6048	default:#encoding.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6049	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6050	action == #showAlways ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6051	doNotShowFontDialog := true.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6052	action := #show.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6053	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6054	action isNil ifTrue:[
13776 fd15b128241f AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 13760 diff changeset	6055	AbortOperationRequest raise
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6056	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6057	action == #encoding ifTrue:[
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6058	editView validateFontEncodingFor:fileEncoding ask:false.
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6059	].
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5534 diff changeset	6060	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6061	! !
321c1729db5b initial checkin penk parents: diff changeset	6062
321c1729db5b initial checkin penk parents: diff changeset	6063	!FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	6064
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6065	canEdit
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6066	^ editView notNil and:[editView isReadOnly not]
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6067
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6068	"Created: / 02-08-2013 / 16:45:34 / cg"
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
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6071	cursorColLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6072	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6073	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6074	argument:editView cursorColHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6075	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6076
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6077	cursorLineLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6078	^ BlockValue
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6079	with:[:v \| v printString]
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6080	argument:editView cursorLineHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6081	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6082
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6083	editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6084	editView editModeInsert
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6085
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6086	"Created: / 11-09-2006 / 12:46:50 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6087	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6088
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6089	editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6090	editView editModeInsertAndSelect
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6091
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6092	"Created: / 11-09-2006 / 12:47:01 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6093	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6094
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6095	editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6096	editView editModeOverwrite
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6097
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6098	"Created: / 11-09-2006 / 12:46:47 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6099	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6100
7596 6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	6101	editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	6102	^ editView
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	6103	!
6ea35d883f1f gotoLine on double-click line-nr-label Claus Gittinger <cg@exept.de> parents: 7594 diff changeset	6104
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6105	editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6106	editorOperationsMenuSpecHolder isNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6107	editorOperationsMenuSpecHolder := self class menuEditorOperationsForNormalText asValue.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6108	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6109	^ editorOperationsMenuSpecHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6110
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6111	"Created: / 02-08-2013 / 16:35:49 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6112	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6113
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6114	editorOperationsToolBarNotVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6115	^ BlockValue forLogicalNot:self editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6116
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6117	"Created: / 02-08-2013 / 16:11:02 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6118	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6119
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6120	editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6121	editorOperationsToolBarVisibleHolder isNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6122	editorOperationsToolBarVisibleHolder := (DefaultEditorOperationsToolBarVisible ? true) asValue.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6123	editorOperationsToolBarVisibleHolder onChangeSend:#editorOperationsToolBarVisibilityChanged to:self.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6124	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6125	^ editorOperationsToolBarVisibleHolder
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6126
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6127	"Created: / 02-08-2013 / 15:59:43 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6128	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6129
3892 321c1729db5b initial checkin penk parents: diff changeset	6130	enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	6131	enableHexToggle isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6132	enableHexToggle := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	6133	].
321c1729db5b initial checkin penk parents: diff changeset	6134	^ enableHexToggle
321c1729db5b initial checkin penk parents: diff changeset	6135	!
321c1729db5b initial checkin penk parents: diff changeset	6136
321c1729db5b initial checkin penk parents: diff changeset	6137	enableReload
321c1729db5b initial checkin penk parents: diff changeset	6138	enableReload isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6139	enableReload := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6140	].
321c1729db5b initial checkin penk parents: diff changeset	6141	^ enableReload.
321c1729db5b initial checkin penk parents: diff changeset	6142	!
321c1729db5b initial checkin penk parents: diff changeset	6143
321c1729db5b initial checkin penk parents: diff changeset	6144	enableSave
321c1729db5b initial checkin penk parents: diff changeset	6145	enableSave isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6146	enableSave := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6147	].
321c1729db5b initial checkin penk parents: diff changeset	6148	^ enableSave.
321c1729db5b initial checkin penk parents: diff changeset	6149	!
321c1729db5b initial checkin penk parents: diff changeset	6150
8783 5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	6151	enableSaveAs
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	6152	^ true.
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	6153	!
5dddc5a42858 * empty log message * Claus Gittinger <cg@exept.de> parents: 8684 diff changeset	6154
8087 584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6155	enableSelectInBrowser
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6156	enableSelectInBrowser isNil ifTrue:[
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6157	enableSelectInBrowser := false asValue.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6158	].
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6159	^ enableSelectInBrowser.
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6160	!
584a2658a4fe menu & flyByHelp Claus Gittinger <cg@exept.de> parents: 8004 diff changeset	6161
3892 321c1729db5b initial checkin penk parents: diff changeset	6162	fileContentsModel
321c1729db5b initial checkin penk parents: diff changeset	6163	fileContentsModel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6164	fileContentsModel := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	6165	].
321c1729db5b initial checkin penk parents: diff changeset	6166	^ fileContentsModel.
321c1729db5b initial checkin penk parents: diff changeset	6167	!
321c1729db5b initial checkin penk parents: diff changeset	6168
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6169	fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6170	fileEncodingHolder isNil ifTrue:[
5534 1536730810c0 encoding stuff Claus Gittinger <cg@exept.de> parents: 5528 diff changeset	6171	fileEncodingHolder := #'iso8859-1' asValue
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6172	].
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6173	^ fileEncodingHolder
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6174	!
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6175
3892 321c1729db5b initial checkin penk parents: diff changeset	6176	itemChanged
321c1729db5b initial checkin penk parents: diff changeset	6177	itemChanged isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6178	itemChanged := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6179	itemChanged addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	6180	].
321c1729db5b initial checkin penk parents: diff changeset	6181	^ itemChanged
321c1729db5b initial checkin penk parents: diff changeset	6182	!
321c1729db5b initial checkin penk parents: diff changeset	6183
321c1729db5b initial checkin penk parents: diff changeset	6184	itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	6185	itemRemoved isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6186	itemRemoved := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6187	itemRemoved addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	6188	].
321c1729db5b initial checkin penk parents: diff changeset	6189	^ itemRemoved
321c1729db5b initial checkin penk parents: diff changeset	6190	!
321c1729db5b initial checkin penk parents: diff changeset	6191
5737 c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6192	lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6193	lockFileEncodingHolder isNil ifTrue:[
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6194	lockFileEncodingHolder := false asValue.
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6195	].
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6196	^ lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6197	!
c5a659e2c4c7 added lockFileEncoding Claus Gittinger <cg@exept.de> parents: 5718 diff changeset	6198
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6199	modeLabelHolder
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6200	^ editView modeLabelHolder.
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6201	!
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6202
7103 a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6203	modeLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6204	^ FileBrowserV2 editModeInfoLabelMenu
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6205
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6206	"Created: / 11-09-2006 / 12:36:26 / cg"
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6207	!
a95f550bd9bd edit mode menu Claus Gittinger <cg@exept.de> parents: 6833 diff changeset	6208
3892 321c1729db5b initial checkin penk parents: diff changeset	6209	modifiedChannel
321c1729db5b initial checkin penk parents: diff changeset	6210	modifiedChannel isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6211	modifiedChannel := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6212	modifiedChannel addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	6213	].
321c1729db5b initial checkin penk parents: diff changeset	6214	^ modifiedChannel.
321c1729db5b initial checkin penk parents: diff changeset	6215	!
321c1729db5b initial checkin penk parents: diff changeset	6216
321c1729db5b initial checkin penk parents: diff changeset	6217	printAsHexDump
321c1729db5b initial checkin penk parents: diff changeset	6218	printAsHexDump isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6219	printAsHexDump := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	6220	printAsHexDump addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	6221	].
321c1729db5b initial checkin penk parents: diff changeset	6222	^ printAsHexDump.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6223	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6224
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6225	viewModifiedChannel
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6226	viewModifiedChannel isNil ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6227	viewModifiedChannel := false asValue.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6228	viewModifiedChannel addDependent:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6229	].
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6230	^ viewModifiedChannel.
3892 321c1729db5b initial checkin penk parents: diff changeset	6231	! !
321c1729db5b initial checkin penk parents: diff changeset	6232
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6233	!FileApplicationNoteBook::TextEditor methodsFor:'aspects-visibility'!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6234
11099 588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6235	closeButtonShown
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6236	^ false.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6237	"/ ^ self isEmbeddedApplication.
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6238
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6239	"Created: / 12-01-2012 / 00:32:15 / cg"
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6240	!
588f93b5f145 added: #destroyTabAt: Claus Gittinger <cg@exept.de> parents: 11056 diff changeset	6241
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6242	diffTextButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6243	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6244	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6245
13729 6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6246	doItMenuButtonVisible
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6247	^true
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6248
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6249	"Created: / 17-12-2013 / 16:31:40 / cg"
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6250	!
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6251
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6252	inspectItMenuButtonVisible
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6253	^true
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6254
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6255	"Created: / 17-12-2013 / 16:31:49 / cg"
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6256	!
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6257
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6258	printItMenuButtonVisible
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6259	^true
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6260
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6261	"Created: / 17-12-2013 / 16:31:45 / cg"
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6262	!
6d0268de5de9 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13715 diff changeset	6263
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6264	reloadButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6265	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6266	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6267
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6268	saveAsButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6269	^ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6270	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6271
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6272	saveButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6273	^ self fileName notNil "/ true
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6274	!
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6275
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6276	selectInBrowserButtonVisible
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6277	^ self masterApplication notNil
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6278	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6279
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6280	tagsBrowserVisibleHolder
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6281	tagsBrowserVisibleHolder isNil ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6282	masterApplication notNil ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6283	tagsBrowserVisibleHolder := masterApplication tagsBrowserVisibleHolder.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6284	] ifFalse:[
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6285	tagsBrowserVisibleHolder := self class defaultTagsBrowserVisible asValue.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6286	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6287	tagsBrowserVisibleHolder addDependent:self.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6288	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6289	^ tagsBrowserVisibleHolder
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6290
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6291	"Created: / 23-06-2011 / 09:19:18 / cg"
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6292	"Modified: / 06-10-2011 / 12:46:41 / cg"
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6293	! !
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6294
3892 321c1729db5b initial checkin penk parents: diff changeset	6295	!FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	6296
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6297	changeTextColorForChanged
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6298	\|text prevCursorBehavior\|
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6299
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6300	prevCursorBehavior := editView cursorMovementWhenUpdating.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6301	editView cursorMovementWhenUpdating:nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6302
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6303	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	6304	text := editView contents.
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4476 diff changeset	6305	self fileContentsModel
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6306	value:(text asText emphasizeAllWith:UserPreferences current emphasisForChangedCode).
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6307	[editView flash] fork.
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6308	] ifFalse:[
5287 693e3ca577aa avoid autoloading Archiver if an obviously non-archive is double clicked. Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	6309	"/ self fileContentsModel value:text string.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6310	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6311	editView cursorMovementWhenUpdating:prevCursorBehavior.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6312	"/ self fileContentsModel changed:#value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6313	!
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6314
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6315	editorOperationsToolBarVisibilityChanged
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6316	\|editorToolBar editorOperationsToolBar editor topOffset editorOperationsToolBarVisible\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6317
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6318	editorToolBar := self componentAt:#MenuTextEditor.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6319
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6320	editorOperationsToolBar := self componentAt:#EditorOperationsToolBar.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6321	editor := self componentAt:#TextEditor.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6322
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6323	topOffset := editorToolBar height.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6324	editorOperationsToolBarVisible := self editorOperationsToolBarVisibleHolder value.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6325	DefaultEditorToolBarVisible := editorOperationsToolBarVisible.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6326	editorOperationsToolBarVisible ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6327	topOffset := topOffset + editorOperationsToolBar height.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6328	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6329
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6330	topOffset := topOffset - 1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6331	editor layout topOffset:topOffset.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6332	editor container notNil ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6333	editor containerChangedSize.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6334	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6335
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6336	"Created: / 02-08-2013 / 16:01:01 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6337	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6338
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6339	itemModified
e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6340
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6341	\| modified outDated removed\|
3892 321c1729db5b initial checkin penk parents: diff changeset	6342
321c1729db5b initial checkin penk parents: diff changeset	6343	modified := self modifiedChannel value.
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6344	outDated := self itemChanged value.
3892 321c1729db5b initial checkin penk parents: diff changeset	6345	removed := self itemRemoved value.
321c1729db5b initial checkin penk parents: diff changeset	6346
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6347	((modified or:[outDated]) or:[removed]) ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6348	modified ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6349	self changeInformationForModified:#modified.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6350	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6351	outDated ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6352	self changeInformationForModified:#outDated.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6353	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6354	removed ifTrue:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6355	self changeInformationForModified:#removed.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6356	].
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6357	] ifFalse:[
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6358	self changeInformationForModified:#unchanged.
a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6359	].
5471 ad6c1fc272de care for no-filename-editors Claus Gittinger <cg@exept.de> parents: 5461 diff changeset	6360
4161 a318d1adcf08 treeBrowser has his own sort now penk parents: 4146 diff changeset	6361	self enableReload value:((modified or:[outDated]) and:[removed not]).
3892 321c1729db5b initial checkin penk parents: diff changeset	6362	!
321c1729db5b initial checkin penk parents: diff changeset	6363
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6364	postBuildTagsBrowser:aTagsBrowserCanvas
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6365	tagsBrowser := aTagsBrowserCanvas application.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6366	tagsBrowser action:[:selectedTag \| self tagSelected:selectedTag ].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6367	self updateTagsBrowser.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6368
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6369	"Created: / 23-06-2011 / 16:30:00 / cg"
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6370	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6371
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6372	tagsBrowserVisibilityChanged
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6373	\|visible tagsBrowserCanvas\|
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6374
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6375	tagsBrowser notNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6376	tagsBrowserCanvas := tagsBrowser window.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6377	].
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6378
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6379	(visible := self tagsBrowserVisibleHolder value) ifTrue:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6380	tagsBrowser isNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6381	tagsBrowserCanvas := ApplicationSubView new.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6382
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6383	tagsBrowser := Tools::TagsBrowser new.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6384	tagsBrowser window:tagsBrowserCanvas.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6385	tagsBrowser allButOpen.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6386
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6387	(self builder componentAt:#Panel)
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6388	addComponent:tagsBrowserCanvas;
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6389	relativeCorners:#(0.75 1.0).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6390	tagsBrowserCanvas realize.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6391	self postBuildTagsBrowser:tagsBrowserCanvas.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6392	] ifFalse:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6393	tagsBrowserCanvas map.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6394	(self builder componentAt:#Panel)
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6395	relativeCorners:#(0.75 1.0).
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6396	].
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6397
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6398	self updateTagsBrowser.
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6399	] ifFalse:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6400	tagsBrowser notNil ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6401	tagsBrowserCanvas unmap.
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6402	(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	6403	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6404	].
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6405	DefaultTagsBrowserVisible := visible
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6406
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6407	"Created: / 27-06-2011 / 16:06:00 / cg"
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	6408	"Modified: / 06-10-2011 / 12:45:20 / cg"
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6409	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6410
3892 321c1729db5b initial checkin penk parents: diff changeset	6411	update:something with:aParameter from:changedObject
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6412	\|itemRem contMd5CheckSum viewModified p\|
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6413
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6414	changedObject == self viewModifiedChannel ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6415	viewModified := changedObject value.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6416	self hasMD5 ifTrue:[
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6417	self viewModifiedChannel value:false withoutNotifying:self.
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6418	viewModified ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6419	(p := md5HashValueComputationProcess) notNil ifTrue:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6420	p terminate.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6421	].
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6422	md5HashValueComputationProcess :=
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6423	[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6424	contMd5CheckSum := self getHashForContents:(editView list).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6425	self modifiedChannel value:(contMd5CheckSum ~= md5CheckSum).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6426	md5HashValueComputationProcess := nil.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6427	] newProcess.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6428	md5HashValueComputationProcess priority:(Processor userBackgroundPriority).
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6429	md5HashValueComputationProcess resume.
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6430	].
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6431	] ifFalse:[
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6432	self modifiedChannel value:viewModified.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6433	]
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6434	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6435	changedObject == self modifiedChannel ifTrue:[
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6436	self enableSave value:changedObject value.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6437	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6438	^ self
321c1729db5b initial checkin penk parents: diff changeset	6439	].
321c1729db5b initial checkin penk parents: diff changeset	6440	changedObject == self itemRemoved ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6441	itemRem := changedObject value.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6442	self enableSave value:(itemRem ? false).
3892 321c1729db5b initial checkin penk parents: diff changeset	6443	self enableHexToggle value:itemRem not.
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6444	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6445	^ self
321c1729db5b initial checkin penk parents: diff changeset	6446	].
321c1729db5b initial checkin penk parents: diff changeset	6447	changedObject == self itemChanged ifTrue:[
8228 6be70d6b485c * empty log message * Claus Gittinger <cg@exept.de> parents: 8176 diff changeset	6448	self enqueueMessage:#changeTextColorForChanged for:self arguments:#().
4047 e432ab54d1e7 contents color changed to red if modified by someone else penk parents: 4045 diff changeset	6449	self itemModified.
3892 321c1729db5b initial checkin penk parents: diff changeset	6450	^ self
321c1729db5b initial checkin penk parents: diff changeset	6451	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6452
3892 321c1729db5b initial checkin penk parents: diff changeset	6453	changedObject == self printAsHexDump ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6454	AbortOperationRequest handle:[:ex \|
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6455	self printAsHexDump value:false withoutNotifying:self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6456	^ self.
17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6457	] do:[
5198 ea3f838e1353 do not attempt to reload when closing Claus Gittinger <cg@exept.de> parents: 5197 diff changeset	6458	self askForChangeWithReload:true.
3892 321c1729db5b initial checkin penk parents: diff changeset	6459	].
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6460	self presentation:(changedObject value ifTrue:[#hexDump] ifFalse:[#asText]).
3892 321c1729db5b initial checkin penk parents: diff changeset	6461	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	6462	self setContents.
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	6463	editView notNil ifTrue:[
5197 17755f89feab save changed fixed Claus Gittinger <cg@exept.de> parents: 5186 diff changeset	6464	editView readOnly:(self presentation == #hexDump).
3892 321c1729db5b initial checkin penk parents: diff changeset	6465	].
4621 d033f85c8cc3 hexDump from tools menu implemented penk parents: 4620 diff changeset	6466	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	6467	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6468	changedObject == editView cursorLineHolder ifTrue:[
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6469	tagsBrowser notNil ifTrue:[
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6470	tagsBrowser updateForLine:(changedObject value).
c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6471	].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6472	^ self
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6473	].
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6474	changedObject == tagsBrowserVisibleHolder ifTrue:[
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6475	self tagsBrowserVisibilityChanged.
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6476	^ self
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6477	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6478
321c1729db5b initial checkin penk parents: diff changeset	6479	super update:something with:aParameter from:changedObject
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6480
9951 c7c44f14cf8e ouch Claus Gittinger <cg@exept.de> parents: 9949 diff changeset	6481	"Modified: / 29-06-2011 / 19:36:03 / cg"
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6482	!
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6483
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6484	updateTagsBrowser
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6485	tagsBrowser notNil ifTrue:[
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6486	self tagsBrowserVisibleHolder value ifTrue:[
d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6487	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	6488	]
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6489	]
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6490
f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6491	"Created: / 23-06-2011 / 16:32:44 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6492	! !
321c1729db5b initial checkin penk parents: diff changeset	6493
9399 dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6494	!FileApplicationNoteBook::TextEditor methodsFor:'initialization'!
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6495
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6496	initialize
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6497	super initialize.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6498	semaChangeItem := Semaphore forMutualExclusion.
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6499	! !
dae73aa739a8 no lazy initialization of semas and locks, please Claus Gittinger <cg@exept.de> parents: 9359 diff changeset	6500
3892 321c1729db5b initial checkin penk parents: diff changeset	6501	!FileApplicationNoteBook::TextEditor methodsFor:'printing'!
321c1729db5b initial checkin penk parents: diff changeset	6502
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	6503	printOn:aStream
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6504	\|fn\|
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6505
8002 031dca544927 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7970 diff changeset	6506	aStream nextPutAll:'TextEditor for:'.
8684 61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6507	(fn := self fileName) notNil ifTrue:[
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6508	fn baseName printOn:aStream.
61529797005d care for stand alone usage Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	6509	]
3892 321c1729db5b initial checkin penk parents: diff changeset	6510	! !
321c1729db5b initial checkin penk parents: diff changeset	6511
6481 fd4f39c392fb * empty log message * Claus Gittinger <cg@exept.de> parents: 6477 diff changeset	6512	!FileApplicationNoteBook::TextEditor methodsFor:'private-process'!
3892 321c1729db5b initial checkin penk parents: diff changeset	6513
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6514	checkItemForChanges
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6515	\|exists fileModificationTime message\|
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6516
5612 7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6517	item isNil ifTrue:[
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6518	^ self
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6519	].
7b0fa57f046e Allow opening of a file in an empty text editor Stefan Vogel <sv@exept.de> parents: 5610 diff changeset	6520
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6521	exists := self item exists.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6522	self itemRemoved value:(exists not).
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6523	exists ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6524	fileModificationTime := self fileName modificationTime.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6525	textEditorModificationTime isNil ifTrue:[
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6526	textEditorModificationTime := fileModificationTime.
4608 990e5559a904 md5 computation fixed and tuned Claus Gittinger <cg@exept.de> parents: 4572 diff changeset	6527	].
5584 6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6528	message := '%1 was changed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6529	] ifFalse:[
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6530	message := '%1 was removed by someone else.'.
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6531	].
6f7e25365480 * empty log message * Claus Gittinger <cg@exept.de> parents: 5578 diff changeset	6532
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6533	(textEditorModificationTime ~= fileModificationTime) ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6534	"file contents has been changed by someone else"
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6535	message := (resources string:message with:item fileName baseName) allBold
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6536	emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer).
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6537	message = self notifyChannel value ifFalse:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6538	self notify:message.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6539	self itemChanged value:true.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6540	].
3892 321c1729db5b initial checkin penk parents: diff changeset	6541	].
5457 204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6542	!
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6543
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6544	checkItemForChangesWithNewSetup
204d1be00e9a add new item if it is modified in the meanwhile penk parents: 5456 diff changeset	6545	self checkItemForChanges.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6546	self setupCheckModify.
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6547	!
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6548
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6549	releaseCheckModify
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6550	checkModifiedBlock notNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6551	Processor removeTimedBlock:checkModifiedBlock.
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6552	].
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6553	!
621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6554
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6555	setupCheckModify
61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6556
8614 6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6557	checkModifiedBlock isNil ifTrue:[
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6558	checkModifiedBlock := [
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6559	self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6560	enqueueMessage:#checkItemForChangesWithNewSetup
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6561	for:self
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6562	arguments:#().
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6563	].
6712b6367808 Clean up TextEditor modification checks Stefan Vogel <sv@exept.de> parents: 8514 diff changeset	6564	].
5461 acf501391ddd change delay time for check files in text editor penk parents: 5459 diff changeset	6565	Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
3892 321c1729db5b initial checkin penk parents: diff changeset	6566	! !
321c1729db5b initial checkin penk parents: diff changeset	6567
321c1729db5b initial checkin penk parents: diff changeset	6568	!FileApplicationNoteBook::TextEditor methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	6569
7467 7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6570	additionalInfo
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6571	^ '[',editView numberOfLines printString , ' lines]'.
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6572
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6573	"Created: / 24-10-2006 / 12:27:07 / cg"
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6574	!
7dd3132cf29a show numlines Claus Gittinger <cg@exept.de> parents: 7288 diff changeset	6575
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	6576	hasMD5
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6577	^ ( MD5Stream notNil and:[MD5Stream isLoaded])
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6578	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	6579
3892 321c1729db5b initial checkin penk parents: diff changeset	6580	isModified
5456 91c198c1c3e9 add new item if it is modified penk parents: 5447 diff changeset	6581	self checkItemForChanges.
5317 8f813402542f item modified penk parents: 5315 diff changeset	6582	^ self modifiedChannel value
8f813402542f item modified penk parents: 5315 diff changeset	6583	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	6584	!
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6585
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6586	isTextEditor
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6587
c7c4e3044e50 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4111 diff changeset	6588	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	6589	! !
321c1729db5b initial checkin penk parents: diff changeset	6590
321c1729db5b initial checkin penk parents: diff changeset	6591	!FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	6592
321c1729db5b initial checkin penk parents: diff changeset	6593	closeRequest
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6594	"asks for permission before closing"
3892 321c1729db5b initial checkin penk parents: diff changeset	6595
321c1729db5b initial checkin penk parents: diff changeset	6596	(self doClose) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	6597	^ super closeRequest.
321c1729db5b initial checkin penk parents: diff changeset	6598	].
321c1729db5b initial checkin penk parents: diff changeset	6599	!
321c1729db5b initial checkin penk parents: diff changeset	6600
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6601	editorOperationsMenuSpecForMimeType:mimeType
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	6602	mimeType isHtmlType ifTrue:[
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6603	^ self class menuEditorOperationsForHTML.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6604	].
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	6605	mimeType isSmalltalkSourceType ifTrue:[
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6606	^ self class menuEditorOperationsForSourceCode.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6607	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6608	mimeType isTextType ifTrue:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6609	^ self class menuEditorOperationsForNormalText.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6610	].
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6611
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6612	^ self class menuEditorOperationsForOther.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6613
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6614	"Created: / 02-08-2013 / 18:00:39 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6615	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6616
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6617	getEditorClass
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6618	UserPreferences current useCodeView2InTools ifTrue:[
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6619	^ Tools::CodeView2 ? CodeView
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6620	].
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6621	^ CodeView
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6622
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6623	"Created: / 06-10-2011 / 11:21:43 / cg"
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6624	!
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6625
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6626	hideEditorOperationsToolBarButtonCreated:aButton
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6627	aButton passiveLevel:(MenuPanel defaultLevel).
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6628	aButton activeLevel:-1.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6629	aButton backgroundColor:(MenuPanel defaultBackgroundColor).
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6630
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6631	"Created: / 02-08-2013 / 16:01:49 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6632	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6633
3892 321c1729db5b initial checkin penk parents: diff changeset	6634	postBuildTextEditor:aWidget
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6635	editView := aWidget scrolledView.
10955 7d8ae8e205b9 x Claus Gittinger <cg@exept.de> parents: 10922 diff changeset	6636	"/ 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	6637	editView isCodeView2 ifTrue:[
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6638	editView languageHolder value:nil.
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6639	editView services:#().
20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6640	].
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	6641	editView saveAction:[ self doSaveAs ].
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6642	editView cursorLineHolder addDependent:self.
5430 e500bd438cc7 save as changed penk parents: 5429 diff changeset	6643
5417 c4caf51053e2 add save as for TextEditor penk parents: 5415 diff changeset	6644	aWidget modifiedChannel:self viewModifiedChannel.
5528 54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6645
54e3fbee2822 fileEncoding Claus Gittinger <cg@exept.de> parents: 5506 diff changeset	6646	editView externalEncoding:self fileEncoding.
5609 9ea9d7e7ef95 characterEncoding stuff Claus Gittinger <cg@exept.de> parents: 5586 diff changeset	6647	"/ editView characterEncoding:'unicode'. - thats the default anyway
9946 f79a40a4cbb3 tags Claus Gittinger <cg@exept.de> parents: 9885 diff changeset	6648
10754 20b2f75fe420 can now use CodeView2 Claus Gittinger <cg@exept.de> parents: 10706 diff changeset	6649	"Modified: / 06-10-2011 / 11:43:40 / cg"
10955 7d8ae8e205b9 x Claus Gittinger <cg@exept.de> parents: 10922 diff changeset	6650	"Modified (comment): / 03-12-2011 / 10:27:47 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6651	!
321c1729db5b initial checkin penk parents: diff changeset	6652
321c1729db5b initial checkin penk parents: diff changeset	6653	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	6654
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6655	"/ self item isNil ifTrue:[
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6656	"/ self item:(DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory construct:'.bashrc')).
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5109 diff changeset	6657	"/ ].
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6658	(self componentAt:#EditorOperationsToolBar) menuHolder:self editorOperationsMenuSpecHolder.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6659
3892 321c1729db5b initial checkin penk parents: diff changeset	6660	self setUpTextView.
321c1729db5b initial checkin penk parents: diff changeset	6661	self changeInformation.
9949 d1161d3fbd19 tags view handling inside a panel Claus Gittinger <cg@exept.de> parents: 9947 diff changeset	6662	self tagsBrowserVisibilityChanged.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	6663	super postOpenWith:aBuilder
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6664
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6665	"Modified: / 02-08-2013 / 17:57:50 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6666	!
321c1729db5b initial checkin penk parents: diff changeset	6667
321c1729db5b initial checkin penk parents: diff changeset	6668	release
321c1729db5b initial checkin penk parents: diff changeset	6669	"release my resources
321c1729db5b initial checkin penk parents: diff changeset	6670	"
4977 621cc3cb454d checkModify have to reset the mofication time for the file after file change in TextEditor penk parents: 4971 diff changeset	6671	self releaseCheckModify.
4969 61bfe248d137 file modification handling refactored penk parents: 4968 diff changeset	6672	checkModifiedBlock := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	6673	super release.
321c1729db5b initial checkin penk parents: diff changeset	6674	!
321c1729db5b initial checkin penk parents: diff changeset	6675
321c1729db5b initial checkin penk parents: diff changeset	6676	setUpTextView
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6677	"care for any contents specific settings for the editor
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6678	For example:
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6679	- change the parenthesis-spec of the editor to include $< .. $> if the
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6680	shown document is an html- or xml document,
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6681	- change the editorOperationsMenu
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6682	"
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	6683
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6684	\|item mimeType suffix parenthesis commentStrings parentesisSpec col\|
4945 f68e794d2d30 valid parenthesisSpec. Claus Gittinger <cg@exept.de> parents: 4923 diff changeset	6685
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6686	editView notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6687	item := self item.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6688	item notNil ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6689	item hasMimeType ifTrue:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6690	mimeType := item mimeType.
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6691	suffix := self fileName asFilename suffix.
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6692
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	6693	(mimeType isHtmlType or:[mimeType isXmlType]) ifTrue:[
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6694	parenthesis := editView parenthesisSpecification copy.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6695	((parenthesis at:#open) includes:$<) ifFalse:[
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6696	col := ((parenthesis at:#open) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6697	col add:$<.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6698	parenthesis at:#open put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6699
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6700	col := ((parenthesis at:#close) asOrderedCollection).
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6701	col add:$>.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6702	parenthesis at:#close put:col.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6703
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6704	editView parenthesisSpecification:parenthesis
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6705	].
5548 7449b01c95b1 checkin from browser Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	6706	].
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6707
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6708	commentStrings := MIMETypes
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	6709	commentStringsForMimeType:mimeType
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6710	suffix:suffix
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6711	ifUnknown:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6712	"/ st:
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6713	#('"/' ('"' '"'))
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6714	].
6477 bbc1872ec339 comment strings Claus Gittinger <cg@exept.de> parents: 6470 diff changeset	6715
5574 d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6716	commentStrings notNil ifTrue:[
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6717	editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6718	].
d4a872f4b8b7 set comment strings for fileType Claus Gittinger <cg@exept.de> parents: 5567 diff changeset	6719
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6720	parentesisSpec := MIMETypes
8176 64c5b7c41f3d fix spelling of MIMETypes>>#parenthesis* methods Stefan Vogel <sv@exept.de> parents: 8087 diff changeset	6721	parenthesisSpecForMimeType:mimeType
12089 4690e72f5af3 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12079 diff changeset	6722	suffix:suffix
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6723	ifUnknown:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6724	\|spec\|
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6725	spec := IdentityDictionary new.
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6726	spec at:#open put:#( $( $[ ${) .
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6727	spec at:#close put:#( $) $] $}).
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6728	spec
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6729	].
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6730
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6731	parentesisSpec notNil ifTrue:[
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6732	editView perform:#parenthesisSpecification: with:parentesisSpec ifNotUnderstood:nil
244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6733	].
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6734	self setupEditorOperationsMenuForMimeType:mimeType.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6735	] ifFalse:[
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6736	self setupEditorOperationsMenuForMimeType:(MIMETypes mimeTypeFromString:'text/plain').
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6737	]
3892 321c1729db5b initial checkin penk parents: diff changeset	6738	].
5550 9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6739	editView externalEncoding:self fileEncoding.
9e8440512c02 checkin from browser Claus Gittinger <cg@exept.de> parents: 5548 diff changeset	6740	]
7787 244eed4800de parentesis spec Claus Gittinger <cg@exept.de> parents: 7769 diff changeset	6741
13295 30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6742	"Modified: / 02-08-2013 / 16:34:34 / cg"
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6743	!
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6744
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6745	setupEditorOperationsMenuForMimeType:mimeType
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6746	\|spec\|
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6747
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6748	spec := self editorOperationsMenuSpecForMimeType:mimeType.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6749
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6750	"/ does not work - why?
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6751	"/ self editorOperationsMenuSpecHolder value:spec.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6752
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6753	(self componentAt:#EditorOperationsToolBarMenu) menu:spec.
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6754
30d3cb0c4f6c class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13112 diff changeset	6755	"Created: / 02-08-2013 / 16:35:21 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	6756	! !
321c1729db5b initial checkin penk parents: diff changeset	6757
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6758	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'defaults'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6759
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6760	tabStringFor:aApplicationType
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6761	"the formatString shown in a tab (language translated)"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6762
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6763	^ 'XML View for %1'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6764
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6765	"Modified: / 17-02-2011 / 13:28:22 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6766	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6767
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6768	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'help specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6769
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6770	helpSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6771	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6772	by the UIHelpTool of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6773
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6774	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6775	the UIHelpTool may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6776
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6777	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6778	UIHelpTool openOnClass:FileApplicationNoteBook::HtmlViewApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6779	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6780
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6781	<resource: #help>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6782
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6783	^ super helpSpec addPairsFrom:#(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6784
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6785
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6786	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6787
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6788	"Modified: / 17-02-2011 / 13:28:28 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6789	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6790
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6791	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'interface specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6792
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6793	windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6794	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6795	by the UIPainter of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6796
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6797	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6798	the UIPainter may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6799
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6800	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6801	UIPainter new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6802	FileApplicationNoteBook::XMLViewApplication new openInterface:#windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6803	FileApplicationNoteBook::XMLViewApplication open
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6804	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6805
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6806	<resource: #canvas>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6807
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6808	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6809	#(FullSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6810	name: windowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6811	window:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6812	(WindowSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6813	label: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6814	name: 'NoteBookApplication::HtmlView'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6815	min: (Point 10 10)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6816	bounds: (Rectangle 0 0 676 492)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6817	menu: mainMenu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6818	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6819	component:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6820	(SpecCollection
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6821	collection: (
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6822	(MenuPanelSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6823	name: 'MenuXml'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6824	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6825	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6826	visibilityChannel: isEmbeddedApplication
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6827	menu: menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6828	textDefault: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6829	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6830	(SubCanvasSpec
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6831	name: 'XMLCanvas'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6832	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	6833	level: 0
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6834	hasHorizontalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6835	hasVerticalScrollBar: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6836	majorKey: #'XML::XMLInspector'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6837	createNewApplication: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6838	createNewBuilder: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6839	postBuildCallback: postBuildXMLCanvas:
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6840	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6841	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6842
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6843	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6844	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6845	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6846
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6847	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'menu specs'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6848
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6849	menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6850	"This resource specification was automatically generated
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6851	by the MenuEditor of ST/X."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6852
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6853	"Do not manually edit this!! If it is corrupted,
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6854	the MenuEditor may not be able to read the specification."
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6855
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6856	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6857	MenuEditor new openOnClass:FileApplicationNoteBook::XMLViewApplication andSelector:#menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6858	(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::XMLViewApplication menu)) startUp
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6859	"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6860
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6861	<resource: #menu>
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6862
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6863	^
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6864	#(Menu
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6865	(
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6866	(MenuItem
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6867	activeHelpKey: reloadFile
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6868	isVisible: reloadButtonVisible
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6869	enabled: enableReload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6870	label: 'Reload'
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6871	itemValue: reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6872	nameKey: Reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6873	translateLabel: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6874	isButton: true
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6875	labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6876	)
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6877	(MenuItem
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6878	activeHelpKey: closeTabButton
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6879	label: 'Close'
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6880	itemValue: doClose
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6881	translateLabel: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6882	isButton: true
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6883	startGroup: right
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6884	hideMenuOnActivated: false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6885	labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6886	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6887	)
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6888	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6889	nil
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6890	)
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6891
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6892	"Modified: / 17-02-2011 / 17:30:26 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6893	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6894
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6895	!FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6896
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6897	canOpenItem:anItem
12121 57a6e8face3b class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 12115 diff changeset	6898	(Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ false].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6899
13715 dab7e512b771 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13406 diff changeset	6900	^ (anItem hasMimeType and:[anItem mimeType isXmlType])
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6901
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6902	"Modified: / 17-02-2011 / 13:34:08 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6903	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6904
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6905	wantNewApplicationAnyway
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6906
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6907	^ false
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6908	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6909
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6910	!FileApplicationNoteBook::XMLViewApplication methodsFor:'accessing'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6911
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6912	item:anItem
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6913	\|retVal\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6914
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6915	self labelHolder value:anItem fileName asString.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6916	retVal := super item:anItem.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6917	xmlTreeApp notNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6918	self updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6919	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6920	^ retVal
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6921
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6922	"Modified: / 17-02-2011 / 13:38:53 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6923	!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6924
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6925	updateXMLTree
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6926	\|inStream dom\|
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6927
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6928	self withWaitCursorDo:[
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6929	XML::XMLSignal handle:[:ex \|
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6930	Dialog
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6931	information:
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6932	(resources
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6933	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	6934	with:inStream lineNumber
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6935	with:ex description).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6936	Error raise.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6937	] do:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6938	inStream := LineNumberReadStream on:(self fileName readStream).
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6939	[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6940	dom := XML::XMLParser
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6941	processDocumentStream:inStream
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6942	beforeScanDo:[:parser \| parser validate:false. ].
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6943	xmlTreeApp model:dom.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6944	] ensure:[
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6945	inStream close
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6946	]
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6947	].
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6948	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6949
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6950	"Created: / 17-02-2011 / 13:39:07 / cg"
9786 be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6951	"Modified: / 17-02-2011 / 17:39:15 / cg"
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6952	! !
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6953
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6954	!FileApplicationNoteBook::XMLViewApplication methodsFor:'actions'!
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6955
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6956	reload
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6957	self updateXMLTree.
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6958
be0b10d85572 changed: #openApplByFileItem: Claus Gittinger <cg@exept.de> parents: 9785 diff changeset	6959	"Created: / 17-02-2011 / 17:46:36 / cg"
9785 eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6960	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6961
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6962	!FileApplicationNoteBook::XMLViewApplication methodsFor:'aspects'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6963
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6964	labelHolder
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6965
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6966	labelHolder isNil ifTrue:[
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6967	labelHolder := '' asValue.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6968	].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6969	^ labelHolder.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6970	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6971
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6972	!FileApplicationNoteBook::XMLViewApplication methodsFor:'initialization & release'!
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6973
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6974	postBuildXMLCanvas:aWidget
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6975	xmlTreeApp := aWidget client.
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6976	item notNil ifTrue:[self updateXMLTree].
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6977
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6978	"Modified: / 17-02-2011 / 13:39:18 / cg"
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6979	! !
eebe4073813f changed: #applicationList Claus Gittinger <cg@exept.de> parents: 9611 diff changeset	6980
3892 321c1729db5b initial checkin penk parents: diff changeset	6981	!FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	6982
321c1729db5b initial checkin penk parents: diff changeset	6983	maxNumberOfVNCRestarts
321c1729db5b initial checkin penk parents: diff changeset	6984
321c1729db5b initial checkin penk parents: diff changeset	6985	^ 10
321c1729db5b initial checkin penk parents: diff changeset	6986	!
321c1729db5b initial checkin penk parents: diff changeset	6987
321c1729db5b initial checkin penk parents: diff changeset	6988	mimeTypeUnixApplicationMapping
321c1729db5b initial checkin penk parents: diff changeset	6989
321c1729db5b initial checkin penk parents: diff changeset	6990	" here insert the application and mime type pairs to open by XviewApplication
321c1729db5b initial checkin penk parents: diff changeset	6991	"
321c1729db5b initial checkin penk parents: diff changeset	6992
321c1729db5b initial checkin penk parents: diff changeset	6993	^
321c1729db5b initial checkin penk parents: diff changeset	6994	#(
14496 4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	6995	#(#'application/postscript' 'gv %1' )
4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	6996	#(#'application/pdf' 'acroread %1' )
3892 321c1729db5b initial checkin penk parents: diff changeset	6997	)
321c1729db5b initial checkin penk parents: diff changeset	6998	!
321c1729db5b initial checkin penk parents: diff changeset	6999
321c1729db5b initial checkin penk parents: diff changeset	7000	tabStringFor:aApplicationType
7687 22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	7001	"the formatString shown in a tab (language translated)"
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	7002
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	7003	^ 'VNC for %1'
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	7004
22b90cc3328f code cleanup Claus Gittinger <cg@exept.de> parents: 7596 diff changeset	7005	"Modified: / 01-03-2007 / 21:43:43 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	7006	!
321c1729db5b initial checkin penk parents: diff changeset	7007
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7008	unixVNCCommand
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7009
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7010	^ 'Xvnc'
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7011	!
b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7012
3892 321c1729db5b initial checkin penk parents: diff changeset	7013	wantNewApplicationAnyway
321c1729db5b initial checkin penk parents: diff changeset	7014
4500 9f0b8d6ae2be make a new XView for a new item if an XView already open penk parents: 4499 diff changeset	7015	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	7016	! !
321c1729db5b initial checkin penk parents: diff changeset	7017
321c1729db5b initial checkin penk parents: diff changeset	7018	!FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	7019
321c1729db5b initial checkin penk parents: diff changeset	7020	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	7021	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	7022	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	7023
321c1729db5b initial checkin penk parents: diff changeset	7024	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	7025	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	7026
321c1729db5b initial checkin penk parents: diff changeset	7027	"
4336 b4228ddf2183 change level of buttons bfor notebook applications and remove directory for label of terminal app penk parents: 4293 diff changeset	7028	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	7029	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	7030	FileApplicationNoteBook::XViewApplication open
3892 321c1729db5b initial checkin penk parents: diff changeset	7031	"
321c1729db5b initial checkin penk parents: diff changeset	7032
321c1729db5b initial checkin penk parents: diff changeset	7033	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	7034
321c1729db5b initial checkin penk parents: diff changeset	7035	^
321c1729db5b initial checkin penk parents: diff changeset	7036	#(#FullSpec
321c1729db5b initial checkin penk parents: diff changeset	7037	#name: #windowSpec
321c1729db5b initial checkin penk parents: diff changeset	7038	#window:
321c1729db5b initial checkin penk parents: diff changeset	7039	#(#WindowSpec
321c1729db5b initial checkin penk parents: diff changeset	7040	#label: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	7041	#name: 'XView'
321c1729db5b initial checkin penk parents: diff changeset	7042	#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	7043	#bounds: #(#Rectangle 16 42 692 534)
3892 321c1729db5b initial checkin penk parents: diff changeset	7044	#menu: #mainMenu
321c1729db5b initial checkin penk parents: diff changeset	7045	)
321c1729db5b initial checkin penk parents: diff changeset	7046	#component:
321c1729db5b initial checkin penk parents: diff changeset	7047	#(#SpecCollection
321c1729db5b initial checkin penk parents: diff changeset	7048	#collection: #(
321c1729db5b initial checkin penk parents: diff changeset	7049	#(#MenuPanelSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	7050	#name: 'MenuVNC'
3892 321c1729db5b initial checkin penk parents: diff changeset	7051	#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	7052	#level: 0
3892 321c1729db5b initial checkin penk parents: diff changeset	7053	#visibilityChannel: #isEmbeddedApplication
321c1729db5b initial checkin penk parents: diff changeset	7054	#menu: #menu
321c1729db5b initial checkin penk parents: diff changeset	7055	#textDefault: true
321c1729db5b initial checkin penk parents: diff changeset	7056	)
321c1729db5b initial checkin penk parents: diff changeset	7057	#(#ArbitraryComponentSpec
4261 8cfc011b2c0c checkin from browser Claus Gittinger <cg@exept.de> parents: 4201 diff changeset	7058	#name: 'VNCView'
3892 321c1729db5b initial checkin penk parents: diff changeset	7059	#layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
321c1729db5b initial checkin penk parents: diff changeset	7060	#hasHorizontalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	7061	#hasVerticalScrollBar: true
321c1729db5b initial checkin penk parents: diff changeset	7062	#miniScrollerHorizontal: false
321c1729db5b initial checkin penk parents: diff changeset	7063	#miniScrollerVertical: false
321c1729db5b initial checkin penk parents: diff changeset	7064	#hasBorder: false
321c1729db5b initial checkin penk parents: diff changeset	7065	#component: #VNCFrameBufferView
321c1729db5b initial checkin penk parents: diff changeset	7066	#postBuildCallback: #postBuildXView:
321c1729db5b initial checkin penk parents: diff changeset	7067	)
321c1729db5b initial checkin penk parents: diff changeset	7068	)
321c1729db5b initial checkin penk parents: diff changeset	7069
321c1729db5b initial checkin penk parents: diff changeset	7070	)
321c1729db5b initial checkin penk parents: diff changeset	7071	)
321c1729db5b initial checkin penk parents: diff changeset	7072	! !
321c1729db5b initial checkin penk parents: diff changeset	7073
321c1729db5b initial checkin penk parents: diff changeset	7074	!FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	7075
321c1729db5b initial checkin penk parents: diff changeset	7076	menu
321c1729db5b initial checkin penk parents: diff changeset	7077	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	7078	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	7079
321c1729db5b initial checkin penk parents: diff changeset	7080	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	7081	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	7082
321c1729db5b initial checkin penk parents: diff changeset	7083	"
321c1729db5b initial checkin penk parents: diff changeset	7084	MenuEditor new openOnClass:NoteBookApplication::ImageViewApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	7085	(Menu new fromLiteralArrayEncoding:(NoteBookApplication::ImageViewApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	7086	"
321c1729db5b initial checkin penk parents: diff changeset	7087
321c1729db5b initial checkin penk parents: diff changeset	7088	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	7089
321c1729db5b initial checkin penk parents: diff changeset	7090	^
321c1729db5b initial checkin penk parents: diff changeset	7091	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	7092	#(
321c1729db5b initial checkin penk parents: diff changeset	7093	#(#MenuItem
6100 cfed9da80b68 * empty log message * Claus Gittinger <cg@exept.de> parents: 6096 diff changeset	7094	#activeHelpKey: #closeTabButton
3892 321c1729db5b initial checkin penk parents: diff changeset	7095	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	7096	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	7097	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	7098	#hideMenuOnActivated: false
321c1729db5b initial checkin penk parents: diff changeset	7099	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	7100	#value: #doClose
6093 cab3a82eaa34 * empty log message * Claus Gittinger <cg@exept.de> parents: 6091 diff changeset	7101	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
3892 321c1729db5b initial checkin penk parents: diff changeset	7102	)
321c1729db5b initial checkin penk parents: diff changeset	7103	)
321c1729db5b initial checkin penk parents: diff changeset	7104	nil
321c1729db5b initial checkin penk parents: diff changeset	7105	nil
321c1729db5b initial checkin penk parents: diff changeset	7106	)
321c1729db5b initial checkin penk parents: diff changeset	7107	! !
321c1729db5b initial checkin penk parents: diff changeset	7108
321c1729db5b initial checkin penk parents: diff changeset	7109	!FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	7110
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7111	canOpenItem:anItem
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	7112	\| keySym\|
3892 321c1729db5b initial checkin penk parents: diff changeset	7113
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7114	keySym := anItem mimeType asSymbol.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7115	OperatingSystem isUNIXlike ifFalse:[^ false].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7116
5265 277aaeb1eb45 checkin from browser Claus Gittinger <cg@exept.de> parents: 5259 diff changeset	7117	(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	7118
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7119	(OperatingSystem executeCommand:('which ', self unixVNCCommand)) ifFalse:[
14496 4c671a13ba46 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14462 diff changeset	7120	"/ Dialog warn:'Cannot start a viewer for ' , anItem fileName baseName.
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7121	^ false.
3892 321c1729db5b initial checkin penk parents: diff changeset	7122	].
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7123
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7124	VNCFrameBufferView notNil ifFalse:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7125	Dialog warn:'VNC support classes are missing (package not loaded?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7126	^ false.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7127	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7128	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	7129	! !
321c1729db5b initial checkin penk parents: diff changeset	7130
321c1729db5b initial checkin penk parents: diff changeset	7131	!FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	7132
321c1729db5b initial checkin penk parents: diff changeset	7133	xView
321c1729db5b initial checkin penk parents: diff changeset	7134	"return the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	7135
321c1729db5b initial checkin penk parents: diff changeset	7136	^ xView
321c1729db5b initial checkin penk parents: diff changeset	7137	!
321c1729db5b initial checkin penk parents: diff changeset	7138
321c1729db5b initial checkin penk parents: diff changeset	7139	xView:something
321c1729db5b initial checkin penk parents: diff changeset	7140	"set the value of the instance variable 'imageView' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	7141
321c1729db5b initial checkin penk parents: diff changeset	7142	xView := something.
321c1729db5b initial checkin penk parents: diff changeset	7143	! !
321c1729db5b initial checkin penk parents: diff changeset	7144
321c1729db5b initial checkin penk parents: diff changeset	7145	!FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	7146
321c1729db5b initial checkin penk parents: diff changeset	7147	changeInformation
321c1729db5b initial checkin penk parents: diff changeset	7148
321c1729db5b initial checkin penk parents: diff changeset	7149	\| stream\|
321c1729db5b initial checkin penk parents: diff changeset	7150
321c1729db5b initial checkin penk parents: diff changeset	7151	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	7152	stream nextPutAll:'XView on: '.
321c1729db5b initial checkin penk parents: diff changeset	7153	stream nextPutAll:self fileName baseName.
321c1729db5b initial checkin penk parents: diff changeset	7154	masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7155	self window label:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	7156
321c1729db5b initial checkin penk parents: diff changeset	7157	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7158	masterApplication tabStringChangeTo:stream contents for:self.
321c1729db5b initial checkin penk parents: diff changeset	7159	].
321c1729db5b initial checkin penk parents: diff changeset	7160	stream close.
321c1729db5b initial checkin penk parents: diff changeset	7161	!
321c1729db5b initial checkin penk parents: diff changeset	7162
321c1729db5b initial checkin penk parents: diff changeset	7163	setupXView
321c1729db5b initial checkin penk parents: diff changeset	7164
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	7165	\|xExt yExt mainView\|
3892 321c1729db5b initial checkin penk parents: diff changeset	7166
321c1729db5b initial checkin penk parents: diff changeset	7167	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	7168	xExt := self xView width asString.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	7169	self masterApplication notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7170	mainView := self builder windowGroup mainView.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7171	"/ 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	7172	(mainView application class == (Smalltalk at:#FileBrowserV2 ifAbsent:nil)) notNil ifTrue:[
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7173	yExt := mainView height asString.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7174	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7175	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	7176	yExt isNil ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	7177	yExt := self xView height asString.
321c1729db5b initial checkin penk parents: diff changeset	7178	].
321c1729db5b initial checkin penk parents: diff changeset	7179	ext := xExt, 'x', yExt.
321c1729db5b initial checkin penk parents: diff changeset	7180	self startViewer.
321c1729db5b initial checkin penk parents: diff changeset	7181	! !
321c1729db5b initial checkin penk parents: diff changeset	7182
321c1729db5b initial checkin penk parents: diff changeset	7183	!FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
321c1729db5b initial checkin penk parents: diff changeset	7184
321c1729db5b initial checkin penk parents: diff changeset	7185	setupView
321c1729db5b initial checkin penk parents: diff changeset	7186	\| renderer view\|
321c1729db5b initial checkin penk parents: diff changeset	7187
321c1729db5b initial checkin penk parents: diff changeset	7188	view := xView.
321c1729db5b initial checkin penk parents: diff changeset	7189	renderer := VNCRenderer for:vncConnection targetWindow:view device:xView device.
321c1729db5b initial checkin penk parents: diff changeset	7190
321c1729db5b initial checkin penk parents: diff changeset	7191	view renderer:renderer.
321c1729db5b initial checkin penk parents: diff changeset	7192	view connection:vncConnection.
321c1729db5b initial checkin penk parents: diff changeset	7193
321c1729db5b initial checkin penk parents: diff changeset	7194	VNCException handle:[:ex\|
321c1729db5b initial checkin penk parents: diff changeset	7195	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	7196	] do:[
321c1729db5b initial checkin penk parents: diff changeset	7197	vncConnection
321c1729db5b initial checkin penk parents: diff changeset	7198	startMessageHandlerProcessForRenderer:renderer
321c1729db5b initial checkin penk parents: diff changeset	7199	errorHandler:[:ex \| self stopViewer].
321c1729db5b initial checkin penk parents: diff changeset	7200	].
321c1729db5b initial checkin penk parents: diff changeset	7201	!
321c1729db5b initial checkin penk parents: diff changeset	7202
321c1729db5b initial checkin penk parents: diff changeset	7203	startVNCserver
321c1729db5b initial checkin penk parents: diff changeset	7204	\|cmd blocked connected numberOfVncStarts\|
321c1729db5b initial checkin penk parents: diff changeset	7205
5008 3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7206
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7207	VNCAuthenticationFailure isNil ifTrue:[
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7208	Dialog warn:'VNC Classes missing (package not laoded ?)'.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7209	^ self.
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7210	].
3f24f5a9f740 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 5007 diff changeset	7211
3892 321c1729db5b initial checkin penk parents: diff changeset	7212	connected := false.
321c1729db5b initial checkin penk parents: diff changeset	7213	numberOfVncStarts isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7214	numberOfVncStarts := 1.
321c1729db5b initial checkin penk parents: diff changeset	7215	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7216	numberOfVncStarts := numberOfVncStarts + 1.
321c1729db5b initial checkin penk parents: diff changeset	7217	].
321c1729db5b initial checkin penk parents: diff changeset	7218
321c1729db5b initial checkin penk parents: diff changeset	7219	vncLock isNil ifTrue:[vncLock := Semaphore forMutualExclusion].
321c1729db5b initial checkin penk parents: diff changeset	7220
321c1729db5b initial checkin penk parents: diff changeset	7221	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	7222	cmd := ('/usr/X11R6/bin/', self class unixVNCCommand).
3892 321c1729db5b initial checkin penk parents: diff changeset	7223	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	7224	cmd := self class unixVNCCommand.
3892 321c1729db5b initial checkin penk parents: diff changeset	7225	].
321c1729db5b initial checkin penk parents: diff changeset	7226	vncPortNr isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7227	vncPortNr := 29
321c1729db5b initial checkin penk parents: diff changeset	7228	].
321c1729db5b initial checkin penk parents: diff changeset	7229	cmd := cmd , ' :' , vncPortNr printString , ' nologo -nevershared -localhost -depth 16 -geometry 1024x1024'.
321c1729db5b initial checkin penk parents: diff changeset	7230
321c1729db5b initial checkin penk parents: diff changeset	7231	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	7232
321c1729db5b initial checkin penk parents: diff changeset	7233	vncServerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	7234	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	7235	vncServerIsTerminated := false.
321c1729db5b initial checkin penk parents: diff changeset	7236	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	7237	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	7238	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	7239	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	7240	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	7241	fork:true
321c1729db5b initial checkin penk parents: diff changeset	7242	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	7243	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	7244	]
321c1729db5b initial checkin penk parents: diff changeset	7245	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	7246	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7247	OperatingSystem closePid:vncServerPID.
321c1729db5b initial checkin penk parents: diff changeset	7248	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	7249	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7250	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7251	].
321c1729db5b initial checkin penk parents: diff changeset	7252	].
321c1729db5b initial checkin penk parents: diff changeset	7253	].
321c1729db5b initial checkin penk parents: diff changeset	7254
321c1729db5b initial checkin penk parents: diff changeset	7255	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7256	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	7257	].
321c1729db5b initial checkin penk parents: diff changeset	7258	].
321c1729db5b initial checkin penk parents: diff changeset	7259
321c1729db5b initial checkin penk parents: diff changeset	7260	self waitForTerminationOfServer ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7261	"/ Transcript showCR:'server has terminated really - try with next port'.
321c1729db5b initial checkin penk parents: diff changeset	7262	(numberOfVncStarts < self class maxNumberOfVNCRestarts) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7263	vncPortNr := vncPortNr + 1.
321c1729db5b initial checkin penk parents: diff changeset	7264	"/ Transcript showCR:'try next port ', vncPortNr asString.
321c1729db5b initial checkin penk parents: diff changeset	7265	self startVNCserver.
321c1729db5b initial checkin penk parents: diff changeset	7266	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7267	Dialog warn:'have started servers from port '
321c1729db5b initial checkin penk parents: diff changeset	7268	, (vncPortNr - self class maxNumberOfVNCRestarts) asString
321c1729db5b initial checkin penk parents: diff changeset	7269	, ' to '
321c1729db5b initial checkin penk parents: diff changeset	7270	, vncPortNr
321c1729db5b initial checkin penk parents: diff changeset	7271	, ' - cant connect anyway'.
321c1729db5b initial checkin penk parents: diff changeset	7272	"/ Transcript showCR:'have started servers from port ', vncPortNr - self class maxNumberOfVNCRestarts, ' to ', vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	7273	].
321c1729db5b initial checkin penk parents: diff changeset	7274	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7275	vncLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	7276	vncServerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7277	Dialog warn:'Cannot start Xvnc'.
321c1729db5b initial checkin penk parents: diff changeset	7278	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7279	VNCAuthenticationFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	7280	Dialog warn:'Wrong password'.
321c1729db5b initial checkin penk parents: diff changeset	7281	] do:[
321c1729db5b initial checkin penk parents: diff changeset	7282	connected := self vncConnect.
321c1729db5b initial checkin penk parents: diff changeset	7283	].
321c1729db5b initial checkin penk parents: diff changeset	7284	connected ifTrue:[self setupView].
321c1729db5b initial checkin penk parents: diff changeset	7285	].
321c1729db5b initial checkin penk parents: diff changeset	7286	].
321c1729db5b initial checkin penk parents: diff changeset	7287	].
321c1729db5b initial checkin penk parents: diff changeset	7288	!
321c1729db5b initial checkin penk parents: diff changeset	7289
321c1729db5b initial checkin penk parents: diff changeset	7290	stopVNCServer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7291	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7292
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7293	(pid := vncServerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7294	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7295	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	7296	vncServerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7297	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7298	vncServerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7299	].
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7300	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	7301	].
321c1729db5b initial checkin penk parents: diff changeset	7302	self vncServerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7303	!
321c1729db5b initial checkin penk parents: diff changeset	7304
321c1729db5b initial checkin penk parents: diff changeset	7305	vncConnect
321c1729db5b initial checkin penk parents: diff changeset	7306	\| tryConnects\|
321c1729db5b initial checkin penk parents: diff changeset	7307
321c1729db5b initial checkin penk parents: diff changeset	7308	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7309	vncConnection close
321c1729db5b initial checkin penk parents: diff changeset	7310	].
321c1729db5b initial checkin penk parents: diff changeset	7311
321c1729db5b initial checkin penk parents: diff changeset	7312	vncConnection := VNCServerConnection new.
321c1729db5b initial checkin penk parents: diff changeset	7313	tryConnects := 1.
321c1729db5b initial checkin penk parents: diff changeset	7314	[tryConnects < 3] whileTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7315	VNCConnectionFailure handle:[:ex \|
321c1729db5b initial checkin penk parents: diff changeset	7316	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	7317	tryConnects := tryConnects + 1.
321c1729db5b initial checkin penk parents: diff changeset	7318	] do:[
321c1729db5b initial checkin penk parents: diff changeset	7319	vncConnection connectTo:'localhost' port:vncPortNr.
321c1729db5b initial checkin penk parents: diff changeset	7320	^ true.
321c1729db5b initial checkin penk parents: diff changeset	7321	].
321c1729db5b initial checkin penk parents: diff changeset	7322	].
321c1729db5b initial checkin penk parents: diff changeset	7323	^ false
321c1729db5b initial checkin penk parents: diff changeset	7324	!
321c1729db5b initial checkin penk parents: diff changeset	7325
321c1729db5b initial checkin penk parents: diff changeset	7326	vncServerTerminated
321c1729db5b initial checkin penk parents: diff changeset	7327	"/ Transcript showCR:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7328	"/ 'vnc server has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	7329	"/ Dialog information:'vnc server has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7330
321c1729db5b initial checkin penk parents: diff changeset	7331	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	7332	vncConnection notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7333	vncConnection close.
321c1729db5b initial checkin penk parents: diff changeset	7334	vncConnection := nil
321c1729db5b initial checkin penk parents: diff changeset	7335	].
321c1729db5b initial checkin penk parents: diff changeset	7336	vncServerIsTerminated := true.
321c1729db5b initial checkin penk parents: diff changeset	7337	!
321c1729db5b initial checkin penk parents: diff changeset	7338
321c1729db5b initial checkin penk parents: diff changeset	7339	waitForTerminationOfServer
321c1729db5b initial checkin penk parents: diff changeset	7340	\| cycles \|
321c1729db5b initial checkin penk parents: diff changeset	7341
321c1729db5b initial checkin penk parents: diff changeset	7342	cycles := 1.
321c1729db5b initial checkin penk parents: diff changeset	7343	[vncServerIsTerminated] whileFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7344	(cycles > 3) ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	7345	cycles := cycles + 1.
321c1729db5b initial checkin penk parents: diff changeset	7346	Delay waitForSeconds:0.5.
321c1729db5b initial checkin penk parents: diff changeset	7347	].
321c1729db5b initial checkin penk parents: diff changeset	7348	^ true
321c1729db5b initial checkin penk parents: diff changeset	7349	! !
321c1729db5b initial checkin penk parents: diff changeset	7350
321c1729db5b initial checkin penk parents: diff changeset	7351	!FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
321c1729db5b initial checkin penk parents: diff changeset	7352
321c1729db5b initial checkin penk parents: diff changeset	7353	startViewer
321c1729db5b initial checkin penk parents: diff changeset	7354	\|cmd keySym applItem \|
321c1729db5b initial checkin penk parents: diff changeset	7355
321c1729db5b initial checkin penk parents: diff changeset	7356	keySym := self item mimeType asSymbol.
321c1729db5b initial checkin penk parents: diff changeset	7357	applItem := self class mimeTypeUnixApplicationMapping detect:[ : el \| (el at:1) == keySym ] ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	7358	applItem isNil ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	7359
321c1729db5b initial checkin penk parents: diff changeset	7360	cmd := (applItem at:2) asString, ' -geometry ', ext, ' -display :' , vncPortNr printString , ' ' , self fileName asString.
321c1729db5b initial checkin penk parents: diff changeset	7361	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	7362	!
321c1729db5b initial checkin penk parents: diff changeset	7363
321c1729db5b initial checkin penk parents: diff changeset	7364	startViewer:viewerCommand
321c1729db5b initial checkin penk parents: diff changeset	7365	\|blocked\|
321c1729db5b initial checkin penk parents: diff changeset	7366
321c1729db5b initial checkin penk parents: diff changeset	7367	viewerPID notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7368	^ self
321c1729db5b initial checkin penk parents: diff changeset	7369	].
321c1729db5b initial checkin penk parents: diff changeset	7370
321c1729db5b initial checkin penk parents: diff changeset	7371	blocked := OperatingSystem blockInterrupts.
321c1729db5b initial checkin penk parents: diff changeset	7372
321c1729db5b initial checkin penk parents: diff changeset	7373	viewerPID := Processor
321c1729db5b initial checkin penk parents: diff changeset	7374	monitor:[
321c1729db5b initial checkin penk parents: diff changeset	7375	OperatingSystem
321c1729db5b initial checkin penk parents: diff changeset	7376	exec:'/bin/sh'
321c1729db5b initial checkin penk parents: diff changeset	7377	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	7378	environment:nil
3892 321c1729db5b initial checkin penk parents: diff changeset	7379	fileDescriptors:#()
321c1729db5b initial checkin penk parents: diff changeset	7380	fork:true
321c1729db5b initial checkin penk parents: diff changeset	7381	newPgrp:true
321c1729db5b initial checkin penk parents: diff changeset	7382	inDirectory:nil.
321c1729db5b initial checkin penk parents: diff changeset	7383	]
321c1729db5b initial checkin penk parents: diff changeset	7384	action:[:status \|
321c1729db5b initial checkin penk parents: diff changeset	7385	status stillAlive ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7386	OperatingSystem closePid:viewerPID.
321c1729db5b initial checkin penk parents: diff changeset	7387	viewerPID := nil.
321c1729db5b initial checkin penk parents: diff changeset	7388	self viewerTerminated.
321c1729db5b initial checkin penk parents: diff changeset	7389	].
321c1729db5b initial checkin penk parents: diff changeset	7390	].
321c1729db5b initial checkin penk parents: diff changeset	7391
321c1729db5b initial checkin penk parents: diff changeset	7392	blocked ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	7393	OperatingSystem unblockInterrupts
321c1729db5b initial checkin penk parents: diff changeset	7394	].
321c1729db5b initial checkin penk parents: diff changeset	7395
321c1729db5b initial checkin penk parents: diff changeset	7396	viewerPID isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7397	Dialog warn:'Cannot start ', viewerCommand.
321c1729db5b initial checkin penk parents: diff changeset	7398	].
321c1729db5b initial checkin penk parents: diff changeset	7399	!
321c1729db5b initial checkin penk parents: diff changeset	7400
321c1729db5b initial checkin penk parents: diff changeset	7401	startXterm
321c1729db5b initial checkin penk parents: diff changeset	7402	\|cmd\|
321c1729db5b initial checkin penk parents: diff changeset	7403
321c1729db5b initial checkin penk parents: diff changeset	7404	cmd := 'xterm -geometry 600x800 -display :' , vncPortNr printString.
321c1729db5b initial checkin penk parents: diff changeset	7405	self startViewer:cmd
321c1729db5b initial checkin penk parents: diff changeset	7406	!
321c1729db5b initial checkin penk parents: diff changeset	7407
321c1729db5b initial checkin penk parents: diff changeset	7408	stopViewer
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7409	\|pid\|
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7410
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7411	(pid := viewerPID) notNil ifTrue:[
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7412	OperatingSystem terminateProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7413	Delay waitForSeconds:0.2.
321c1729db5b initial checkin penk parents: diff changeset	7414	viewerPID notNil ifTrue:[
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7415	OperatingSystem killProcess:pid.
3892 321c1729db5b initial checkin penk parents: diff changeset	7416	viewerPID := nil.
5259 b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7417	].
b81919da4356 terminateProcess stuff. Claus Gittinger <cg@exept.de> parents: 5223 diff changeset	7418	OperatingSystem closePid:pid
3892 321c1729db5b initial checkin penk parents: diff changeset	7419	].
321c1729db5b initial checkin penk parents: diff changeset	7420	!
321c1729db5b initial checkin penk parents: diff changeset	7421
321c1729db5b initial checkin penk parents: diff changeset	7422	viewerTerminated
321c1729db5b initial checkin penk parents: diff changeset	7423	"/ Transcript showCR:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7424	"/ 'viewer has terminated' errorPrintCR.
321c1729db5b initial checkin penk parents: diff changeset	7425	"/ Dialog information:'viewer has terminated'.
321c1729db5b initial checkin penk parents: diff changeset	7426	! !
321c1729db5b initial checkin penk parents: diff changeset	7427
321c1729db5b initial checkin penk parents: diff changeset	7428	!FileApplicationNoteBook::XViewApplication methodsFor:'initialization & release'!
321c1729db5b initial checkin penk parents: diff changeset	7429
321c1729db5b initial checkin penk parents: diff changeset	7430	postBuildXView:aWidget
321c1729db5b initial checkin penk parents: diff changeset	7431
321c1729db5b initial checkin penk parents: diff changeset	7432	self xView:aWidget scrolledView.
321c1729db5b initial checkin penk parents: diff changeset	7433	self xView wantsFocusWithPointerEnter.
321c1729db5b initial checkin penk parents: diff changeset	7434	aWidget autoHideScrollBars:true.
321c1729db5b initial checkin penk parents: diff changeset	7435	!
321c1729db5b initial checkin penk parents: diff changeset	7436
321c1729db5b initial checkin penk parents: diff changeset	7437	postOpenWith:aBuilder
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	7438	"only invoked if the application not started from a master"
3892 321c1729db5b initial checkin penk parents: diff changeset	7439
321c1729db5b initial checkin penk parents: diff changeset	7440	\|currentDir contents suffix fileName\|
321c1729db5b initial checkin penk parents: diff changeset	7441
321c1729db5b initial checkin penk parents: diff changeset	7442	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7443	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	7444	currentDir := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	7445	contents := currentDir directoryContents.
321c1729db5b initial checkin penk parents: diff changeset	7446	fileName := contents
321c1729db5b initial checkin penk parents: diff changeset	7447	detect:[:file \|
321c1729db5b initial checkin penk parents: diff changeset	7448	suffix := file asFilename suffix asLowercase.
321c1729db5b initial checkin penk parents: diff changeset	7449	suffix = 'pdf'
321c1729db5b initial checkin penk parents: diff changeset	7450	]
321c1729db5b initial checkin penk parents: diff changeset	7451	ifNone:[nil].
321c1729db5b initial checkin penk parents: diff changeset	7452	fileName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	7453	Dialog warn:'cant find a PDF File in ' , currentDir asString.
321c1729db5b initial checkin penk parents: diff changeset	7454	^ self
321c1729db5b initial checkin penk parents: diff changeset	7455	].
3982 fc30449d705d * empty log message * penk parents: 3962 diff changeset	7456	self item:(DirectoryContentsBrowser itemClass fileName:(currentDir construct:fileName)).
3892 321c1729db5b initial checkin penk parents: diff changeset	7457	].
321c1729db5b initial checkin penk parents: diff changeset	7458	self changeInformation.
321c1729db5b initial checkin penk parents: diff changeset	7459	self setupXView.
6626 06553542e9de * empty log message * Claus Gittinger <cg@exept.de> parents: 6518 diff changeset	7460	super postOpenWith:aBuilder
3892 321c1729db5b initial checkin penk parents: diff changeset	7461	!
321c1729db5b initial checkin penk parents: diff changeset	7462
321c1729db5b initial checkin penk parents: diff changeset	7463	release
321c1729db5b initial checkin penk parents: diff changeset	7464	"/Transcript showCR:'release'.
321c1729db5b initial checkin penk parents: diff changeset	7465	self stopViewer.
321c1729db5b initial checkin penk parents: diff changeset	7466	self stopVNCServer.
14065 a6da1191dfc5 class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 13905 diff changeset	7467	super release
3892 321c1729db5b initial checkin penk parents: diff changeset	7468	! !
321c1729db5b initial checkin penk parents: diff changeset	7469
321c1729db5b initial checkin penk parents: diff changeset	7470	!FileApplicationNoteBook class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	7471
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7472	version
14819 0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	7473	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
10761 64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7474	!
64a7f27deb22 defaultTagsBrowserVisible Claus Gittinger <cg@exept.de> parents: 10754 diff changeset	7475
8912 4ee5a8847d06 category changes Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	7476	version_CVS
14819 0248509ac90d class: FileApplicationNoteBook Claus Gittinger <cg@exept.de> parents: 14808 diff changeset	7477	^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
3892 321c1729db5b initial checkin penk parents: diff changeset	7478	! !
12115 2c76fe73e8e0 changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12089 diff changeset	7479

author	Claus Gittinger <cg@exept.de>
	Mon, 10 Nov 2014 23:26:08 +0100
changeset 14819	0248509ac90d
parent 14808	e36c7a43aee4
child 14836	1b64d6930357
permissions	-rw-r--r--