hg/jv-vdb: VDBSourceApplication.st@c5ee4ea44165 (annotated)

16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:vdb' }"
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	VDBAbstractApplication subclass:#VDBSourceApplication
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	4	instanceVariableNames:'frameHolder sourceFileHolder sourceStringHolder sourceView'
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	7	category:'VDB-UI-Source'
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!VDBSourceApplication class methodsFor:'interface specs'!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	windowSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	"This resource specification was automatically generated
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	by the UIPainter of ST/X."
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	"Do not manually edit this!! If it is corrupted,
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	the UIPainter may not be able to read the specification."
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	UIPainter new openOnClass:VDBSourceApplication andSelector:#windowSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	VDBSourceApplication new openInterface:#windowSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	VDBSourceApplication open
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	"
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	<resource: #canvas>
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	^
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	#(FullSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	name: windowSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	window:
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	(WindowSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	label: 'Source View'
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	name: 'Source View'
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	min: (Point 10 10)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	bounds: (Rectangle 0 0 300 300)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	component:
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	(SpecCollection
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	collection: (
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	(TextEditorSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	name: 'SourceView'
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	model: sourceStringHolder
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	hasHorizontalScrollBar: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	hasVerticalScrollBar: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	hasKeyboardFocusInitially: false
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	postBuildCallback: postBuildSourceView:
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	viewClassName: 'Tools::CodeView2'
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	! !
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!VDBSourceApplication class methodsFor:'plugIn spec'!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	aspectSelectors
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	"This resource specification was automatically generated
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	by the UIPainter of ST/X."
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	"Do not manually edit this. If it is corrupted,
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	the UIPainter may not be able to read the specification."
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	"Return a description of exported aspects;
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	these can be connected to aspects of an embedding application
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	(if this app is embedded in a subCanvas)."
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	^ #(
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	#debuggerHolder
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	71	#frameHolder
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	).
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	74	"Modified: / 20-09-2014 / 22:50:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	! !
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	!VDBSourceApplication methodsFor:'aspects'!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	79	frameHolder
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	80	"return/create the 'frameHolder' value holder (automatically generated)"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	82	frameHolder isNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	83	frameHolder := ValueHolder new.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	84	frameHolder addDependent:self.
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	].
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	86	^ frameHolder
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	89	frameHolder:something
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	90	"set the 'frameHolder' value holder (automatically generated)"
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	91
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	92	\|oldValue newValue\|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	93
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	94	frameHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	95	oldValue := frameHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	96	frameHolder removeDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	97	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	98	frameHolder := something.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	99	frameHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	100	frameHolder addDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	101	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	102	newValue := frameHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	103	oldValue ~~ newValue ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	104	self update:#value with:newValue from:frameHolder.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	105	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	106	!
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	107
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	108	sourceFileHolder
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	109	"return/create the 'sourceFileHolder' value holder (automatically generated)"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	111	sourceFileHolder isNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	112	sourceFileHolder := ValueHolder new.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	113	sourceFileHolder addDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	114	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	115	^ sourceFileHolder
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	116	!
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	117
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	118	sourceFileHolder:something
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	119	"set the 'sourceFileHolder' value holder (automatically generated)"
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	120
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	121	\|oldValue newValue\|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	122
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	123	sourceFileHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	124	oldValue := sourceFileHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	125	sourceFileHolder removeDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	126	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	127	sourceFileHolder := something.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	128	sourceFileHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	129	sourceFileHolder addDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	130	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	131	newValue := sourceFileHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	132	oldValue ~~ newValue ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	133	self update:#value with:newValue from:sourceFileHolder.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	134	].
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	sourceStringHolder
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	138	"return/create the 'sourceStringHolder' value holder (automatically generated)"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	sourceStringHolder isNil ifTrue:[
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	141	sourceStringHolder := ValueHolder new.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	142	sourceStringHolder addDependent:self.
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	].
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	^ sourceStringHolder
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	145	!
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	147	sourceStringHolder:something
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	148	"set the 'sourceStringHolder' value holder (automatically generated)"
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	149
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	150	\|oldValue newValue\|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	151
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	152	sourceStringHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	153	oldValue := sourceStringHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	154	sourceStringHolder removeDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	155	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	156	sourceStringHolder := something.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	157	sourceStringHolder notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	158	sourceStringHolder addDependent:self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	159	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	160	newValue := sourceStringHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	161	oldValue ~~ newValue ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	162	self update:#value with:newValue from:sourceStringHolder.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	163	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	164	! !
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	165
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	166	!VDBSourceApplication methodsFor:'change & update'!
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	167
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	168	update:aspect with:param from:sender
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	169	"Invoked when an object that I depend upon sends a change notification."
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	170
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	171	sender == frameHolder ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	172	\| frame \|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	173
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	174	frame := frameHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	175	frame notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	176	\| line \|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	177
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	178	self sourceFileHolder value: frame fullname.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	179	line := frame line.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	180	line notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	181	sourceView selectLine: line.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	182	sourceView makeSelectionVisible.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	183	]
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	184	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	185	^ self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	186	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	187
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	188	sender == sourceFileHolder ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	189	\| file source \|
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	190
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	191	source := nil.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	192	file := sourceFileHolder value.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	193	file notNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	194	file := file asFilename.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	195	file exists ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	196	source := file contents asString.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	197	]
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	198	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	199	self sourceStringHolder value: source.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	200	^ self.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	201	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	202	super update:aspect with:param from:sender
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	203
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	204	"Modified: / 21-09-2014 / 00:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	! !
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	!VDBSourceApplication methodsFor:'hooks'!
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	postBuildSourceView: aCodeView2
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	210	sourceView := aCodeView2.
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	211	sourceView
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	readOnly: true;
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	services: #()
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	215	"Modified: / 21-09-2014 / 00:12:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	! !
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 21 Sep 2014 00:48:39 +0100
changeset 17	c5ee4ea44165
parent 16	fc1898815ab6
child 20	f323725d7b18
permissions	-rw-r--r--