[BUG]MarvinOtlEditor(Object)>>doesNotUnderstand: #scrollbarWidth [was: Outliner]

Klaus D. Witzel klaus.witzel at cobss.com
Fri Aug 25 07:38:12 UTC 2006


Hi Pavel,

is there anything special needed (.image release, other package(s), etc).

/Klaus

25 August 2006 9:33:04 am

VM: Win32 - a SmalltalkImage
Image: Squeak3.9alpha [latest update: #7051]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir ...\kWitzel\My Documents\Squeak3.9
Trusted Dir ...\kWitzel\My Documents\Squeak3.9\kWitzel
Untrusted Dir ...\My Squeak\kWitzel

MarvinOtlEditor(Object)>>doesNotUnderstand: #scrollbarWidth
	Receiver: a MarvinOtlEditor(3637)
	Arguments and temporary variables:
		aMessage: 	scrollbarWidth
	Receiver's instance variables:
		bounds: 	0 at 0 corner: 320 at 120
		owner: 	nil
		submorphs: 	an Array(a MarvinOtlEditorResizingMorph(1979) a  
ScrollBar(2316) a Tr...etc...
		fullBounds: 	nil
		color: 	Color white
		extension: 	a MorphExtension (3809) [other:  (borderStyle -> a  
SimpleBorder) (vS...etc...
		borderWidth: 	2
		borderColor: 	Color black
		model: 	nil
		slotName: 	nil
		open: 	false
		pinSpecs: 	nil
		scrollBar: 	a ScrollBar(2316)
		scroller: 	a TransformMorph(21)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	true
		getMenuSelector: 	nil
		getMenuTitleSelector: 	nil
		scrollBarHidden: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(1084)
		textMorph: 	nil
		getTextSelector: 	nil
		setTextSelector: 	nil
		getSelectionSelector: 	nil
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	nil
		hasEditingConflicts: 	false
		resizingMorph: 	a MarvinOtlEditorResizingMorph(1979)
		resizeAction: 	nil
		resizerOffset: 	0 at 0

MarvinOtlEditor>>initialize
	Receiver: a MarvinOtlEditor(3637)
	Arguments and temporary variables:

	Receiver's instance variables:
		bounds: 	0 at 0 corner: 320 at 120
		owner: 	nil
		submorphs: 	an Array(a MarvinOtlEditorResizingMorph(1979) a  
ScrollBar(2316) a Tr...etc...
		fullBounds: 	nil
		color: 	Color white
		extension: 	a MorphExtension (3809) [other:  (borderStyle -> a  
SimpleBorder) (vS...etc...
		borderWidth: 	2
		borderColor: 	Color black
		model: 	nil
		slotName: 	nil
		open: 	false
		pinSpecs: 	nil
		scrollBar: 	a ScrollBar(2316)
		scroller: 	a TransformMorph(21)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	true
		getMenuSelector: 	nil
		getMenuTitleSelector: 	nil
		scrollBarHidden: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(1084)
		textMorph: 	nil
		getTextSelector: 	nil
		setTextSelector: 	nil
		getSelectionSelector: 	nil
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	nil
		hasEditingConflicts: 	false
		resizingMorph: 	a MarvinOtlEditorResizingMorph(1979)
		resizeAction: 	nil
		resizerOffset: 	0 at 0

MarvinOtlEditor class(Behavior)>>new
	Receiver: MarvinOtlEditor
	Arguments and temporary variables:

	Receiver's instance variables:
		superclass: 	PluggableTextMorph
		methodDict: 	a MethodDictionary(#drawOn:->a CompiledMethod (125)  
#initialize->a ...etc...
		format: 	194
		instanceVariables: 	#('resizingMorph' 'resizeAction' 'resizerOffset')
		organization: 	('as yet unclassified' drawOn: initialize initializeFor:)
('acces...etc...
		subclasses: 	nil
		name: 	#MarvinOtlEditor
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Marvin-Outliner'
		traitComposition: 	nil
		localSelectors: 	nil
		prototype: 	nil

MarvinOtlEditor class(MorphicModel class)>>new
	Receiver: MarvinOtlEditor
	Arguments and temporary variables:

	Receiver's instance variables:
		superclass: 	PluggableTextMorph
		methodDict: 	a MethodDictionary(#drawOn:->a CompiledMethod (125)  
#initialize->a ...etc...
		format: 	194
		instanceVariables: 	#('resizingMorph' 'resizeAction' 'resizerOffset')
		organization: 	('as yet unclassified' drawOn: initialize initializeFor:)
('acces...etc...
		subclasses: 	nil
		name: 	#MarvinOtlEditor
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Marvin-Outliner'
		traitComposition: 	nil
		localSelectors: 	nil
		prototype: 	nil


--- The full stack ---
MarvinOtlEditor(Object)>>doesNotUnderstand: #scrollbarWidth
MarvinOtlEditor>>initialize
MarvinOtlEditor class(Behavior)>>new
MarvinOtlEditor class(MorphicModel class)>>new
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MarvinOtlEditor class(PluggableTextMorph  
class)>>on:text:accept:readSelection:menu:
MarvinOtlEditor class>>on:
MarvinOtlEvaluator>>initialize
MarvinOtlEvaluator class(MarvinOtlComponent class)>>for:
...etc...

On Fri, 25 Aug 2006 00:30:57 +0200, Pavel Krivanek wrote:

> Hi all,
>
> I've got the next toy for you :-)
>
> It's couple of months when I was doing something with Marvin (the Self
> dialect for Squeak). But there's one part of this project that was
> never published and that may be interesting for you - the prototype of
> the Self-like outliner. It's stand-alone code so it's not dependent on
> the rest of this project.
>
> You can download it here:
> http://squeaksource.com/Marvin/Marvin-Outliner-pk.1.mcz
> and it looks like this:
> http://www.comtalk.net/Squeak/uploads/95/outliner.PNG
>
> You can create some outliners using this code
>
> o := MarvinOutliner for: MarvinOtlObjectAbstractModel  new.
> o flyTo: 100 at 100.
>
> Then you can create slots, create sections of slots, open evaluator,
> move slots from one outliner to another, create new object from slots
> and so on. But connectors are not working well now and if I remember
> it well, the code needs some cleanup.
>
> In fact Marvin is not absolutely dead project (the public repository
> doesn't contain the latest version) but SmaCC doesn't have some
> features that I need for working with source code and clone families
> so I need to write new compiler and I don't have enough time for it
> now.
>
> Enjoy!
> -- Pavel
>
>





More information about the Squeak-dev mailing list