hg/jv-libgdbs: GDBFrame.st@472a4841a8b6 (annotated)

91 472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	1	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	2	jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	3	Copyright (C) 2015-now Jan Vrany
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	4
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	5	This library is free software; you can redistribute it and/or
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	6	modify it under the terms of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	7	License as published by the Free Software Foundation; either
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	8	version 2.1 of the License.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	9
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	10	This library is distributed in the hope that it will be useful,
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	13	Lesser General Public License for more details.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	14
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	15	You should have received a copy of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	16	License along with this library; if not, write to the Free Software
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	17	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	18	"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"{ Package: 'jv:libgdbs' }"
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	21	"{ NameSpace: Smalltalk }"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	22
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	23	GDBTransientObject subclass:#GDBFrame
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	24	instanceVariableNames:'thread level addr func file fullname line from variables'
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	classVariableNames:''
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	poolDictionaries:''
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	category:'GDB-Core'
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
91 472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	30	!GDBFrame class methodsFor:'documentation'!
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	31
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	32	copyright
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	33	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	34	jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	35	Copyright (C) 2015-now Jan Vrany
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	36
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	37	This library is free software; you can redistribute it and/or
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	38	modify it under the terms of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	39	License as published by the Free Software Foundation; either
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	40	version 2.1 of the License.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	41
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	42	This library is distributed in the hope that it will be useful,
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	43	but WITHOUT ANY WARRANTY; without even the implied warranty of
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	44	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	45	Lesser General Public License for more details.
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	46
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	47	You should have received a copy of the GNU Lesser General Public
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	48	License along with this library; if not, write to the Free Software
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	49	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	50	"
472a4841a8b6 License this package under 'GNU Lesser General Public License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	51	! !
71 016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	52
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!GDBFrame class methodsFor:'accessing - GDB value descriptors'!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	55	description
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	56	^ (super description)
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	57	define:#level as:Integer;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	58	define:#func as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	59	define:#file as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	60	define:#fullname as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	61	define:#line as:Integer;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	62	define:#from as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	63	define:#addr as:Integer;
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	yourself
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	"Created: / 16-09-2014 / 23:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	! !
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	!GDBFrame methodsFor:'accessing'!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	addr
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	^ addr
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	file
82 7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	76	"Return filename containing frame's function source."
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	77	^ fullname notNil ifTrue:[ fullname ] ifFalse:[ file ]
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	78
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	79	"Modified: / 11-06-2017 / 20:59:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	from
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	^ from
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	fullname
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	^ fullname
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	func
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	^ func
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	level
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	^ level
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	line
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	^ line
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	100	!
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	101
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	102	thread
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	103	^ thread
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	104	!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	105
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	106	variables
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	107	self ensureIsValid.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	108	variables isNil ifTrue:[
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	109	variables := GDBTransientDataHolder debugger: debugger factory:[
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	110	\| result \|
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	111
90 6046abc9ddf4 Replaced Squek computed arrays by more verbose `Array with:...` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 82 diff changeset	112	result := debugger send: (GDBMI_stack_list_variables new arguments: (Array with: '--thread' with: thread id with: '--frame' with: level with: '--simple-values')).
71 016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	113	(result propertyAt: #variables) ? #()
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	114	do:[ :each \| each setFrame: self ];
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	115	yourself
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	116	].
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	117	].
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	118	^ variables value
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	119
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	120	"Created: / 27-02-2015 / 14:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
90 6046abc9ddf4 Replaced Squek computed arrays by more verbose `Array with:...` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 82 diff changeset	121	"Modified: / 17-11-2017 / 20:22:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	! !
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	124	!GDBFrame methodsFor:'printing & storing'!
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	125
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	126	displayString
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	127	^ String streamContents: [ :aStream \|
82 7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	128	\| f \|
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	129
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	130	f := self file.
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	131	level printOn:aStream base: 10 size: 2 fill: Character space.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	132	aStream nextPutAll:' '.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	133	addr printOn:aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	134	aStream nextPutAll:' '.
82 7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	135	func notNil ifTrue:[
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	136	func printOn:aStream.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	137	] ifFalse:[
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	138	aStream nextPutAll: '?'
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	139	].
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	140	f notNil ifTrue:[
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	141	aStream nextPutAll:' ('.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	142	aStream nextPutAll: f startingAt: (f lastIndexOf: Filename separator) + 1.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	143	line notNil ifTrue:[
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	144	aStream nextPutAll:':'.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	145	line printOn:aStream.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	146	].
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	147	aStream nextPutAll:')'.
7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	148	].
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	149	].
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	150
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	151	"Created: / 27-02-2015 / 15:20:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82 7ee72b7a498f Added #enablePrettyPrinting and #enableFrameFilters to allow Python scripts to augment presentation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 71 diff changeset	152	"Modified: / 12-06-2017 / 09:04:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	153	!
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	154
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	155	printOn:aStream
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	156	"append a printed representation if the receiver to the argument, aStream"
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	157
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	158	super printOn: aStream.
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	159	aStream nextPutAll:'('.
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	160	level printOn:aStream base: 10 size: 2 fill: Character space.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	161	aStream nextPutAll:' '.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	162	addr printOn:aStream.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	163	aStream nextPutAll:' '.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	164	func printOn:aStream.
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	165	aStream nextPutAll:' - '.
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	166	file printOn:aStream.
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	167	aStream nextPutAll:':'.
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	168	line printOn:aStream.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	169	aStream nextPutAll:')'.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	170
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	171	"Modified: / 27-02-2015 / 15:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	172	! !
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	173
71 016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	174	!GDBFrame class methodsFor:'documentation'!
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	175
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	176	version_HG
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	177
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	178	^ '$Changeset: <not expanded> $'
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	179	! !
016b716773e3 GDBFrame: fix for framew with empty variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	180

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 23 Nov 2017 22:51:20 +0000
changeset 91	472a4841a8b6
parent 90	6046abc9ddf4
child 103	56bf65352505
permissions	-rw-r--r--