I have tested it on Squeak 3.8 without problems.

-- Pavel

On 8/25/06, Klaus D. Witzel <klaus.witzel at cobss.com> wrote:
> 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
> >
> >
>
>
>
>