Hello Susan!

Welcome to Squeak! Yes, you found a bug. In Squeak you can have
different ToolSets and you've run into a missing switch.
In earlier days bugs were reported here in the mailing list. There is
now [1] that keeps all the reports. Maybe you want to copy and paste the
contents of this mail into a bug report on that site under Project:
Squeak Category: Tools. You can find some details about bug reporting
here [2].

Alex

[1] http://bugs.squeak.org
[2] http://bugs.squeak.org/proj_doc_page.php

Johnson, Susan [SW Eng] schrieb:
> Hello Squeakers.  I am playing around with Squeak and trying to learn it.  I was trying to understand how the Morphic tools work.  I placed a Curve on the desktop and control-clicked to get the Curve menu.  I selected "show actions" to see what it does and got the debug window.  I then picked "mail out bug report" and it created this email.
>
> 15 January 2008 10:33:35 am
>
> VM: Win32 - a SmalltalkImage
> Image: Squeak3.9 [latest update: #7067]
>
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir C:\Squeak\Squeak3.9-7067
> Trusted Dir C:\Squeak\Squeak3.9-7067\johnss1
> Untrusted Dir C:\My Squeak\johnss1
>
> ToolSet class(Object)>>doesNotUnderstand: #openMessageList:name:autoSelect:
>         Receiver: ToolSet
>         Arguments and temporary variables:
>                 aMessage:       openMessageList: a SortedCollection(a MethodReference PolygonMorph >>...etc...
>         Receiver's instance variables:
>                 superclass:     AppRegistry
>                 methodDict:     a MethodDictionary()
>                 format:         2
>                 instanceVariables:      nil
>                 organization:   ('as yet unclassified')
>
>                 subclasses:     nil
>                 name:   #ToolSet
>                 classPool:      nil
>                 sharedPools:    nil
>                 environment:    a SystemDictionary(lots of globals)
>                 category:       #'System-Applications'
>                 traitComposition:       nil
>                 localSelectors:         nil
>                 registeredClasses:      an OrderedCollection(StandardToolSet DEVToolSet)
>                 default:        DEVToolSet
>
> CurveMorph(Morph)>>showActions
>         Receiver: a CurveMorph<Curve>(3522)
>         Arguments and temporary variables:
>                 list:   a SortedCollection(a MethodReference PolygonMorph >> mouseDown:)
>                 cls:    Morph
>                 selector:       nil
>                 adder:  [] in CurveMorph(Morph)>>showActions {[:mrClass :mrSel | list   add: (Me...etc...
>                 mrClass:        PolygonMorph
>                 mrSel:  #mouseDown:
>                 sel:    #doButtonAction
>         Receiver's instance variables:
>                 bounds:         13 at 16 corner: 482 at 527
>                 owner:  a PasteUpMorph(1192) [world]
>                 submorphs:      an Array(a PolygonMorph(2850) an EllipseMorph(2031) a PolygonMorph(2...etc...
>                 fullBounds:     11 at 14 corner: 485 at 530
>                 color:  Color gray
>                 extension:      a MorphExtension (1481) [externalName = Curve ]  [other:  (borderSty...etc...
>                 borderWidth:    2
>                 borderColor:    (Color r: 0.0 g: 0.419 b: 0.935)
>                 vertices:       {59 at 66 . 59 at 457 . 418 at 457 . 418 at 66}
>                 closed:         true
>                 filledForm:     Form(471x513x1)
>                 arrows:         #none
>                 arrowForms:     #()
>                 smoothCurve:    true
>                 curveState:     {#(#(59.0 59.0 418.0 418.0) #(-115.3928571428572 230.7857142857143 ...etc...
>                 borderDashSpec:         nil
>                 handles:        an OrderedCollection(an EllipseMorph(2258) a PolygonMorph(2032) an Ell...etc...
>                 borderForm:     nil
>
> [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [target perform: selector] ...]}
>         Arguments and temporary variables:
>                 evt:    [296 at 678 mouseUp 7377359]
>                 selArgCount:    0
>                 w:      a PasteUpMorph(1192) [world]
>
> BlockContext>>ensure:
>         Receiver: [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [t...etc...
>         Arguments and temporary variables:
>                 aBlock:         [] in CursorWithMask(Cursor)>>showWhile: {[oldcursor show]}
>                 returnValue:    nil
>                 b:      nil
>         Receiver's instance variables:
>                 sender:         BlockContext>>ensure:
>                 pc:     142
>                 stackp:         0
>                 nargs:  0
>                 startpc:        132
>                 home:   MenuItemMorph>>invokeWithEvent:
>
>
> --- The full stack ---
> ToolSet class(Object)>>doesNotUnderstand: #openMessageList:name:autoSelect:
> CurveMorph(Morph)>>showActions
> [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [target perform: selector] ...]}
> BlockContext>>ensure:
>  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> CursorWithMask(Cursor)>>showWhile:
> MenuItemMorph>>invokeWithEvent:
> MenuItemMorph>>mouseUp:
> MenuItemMorph>>handleMouseUp:
> MouseButtonEvent>>sentTo:
> MenuItemMorph(Morph)>>handleEvent:
> MorphicEventDispatcher>>dispatchDefault:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> MenuItemMorph(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchDefault:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> MenuMorph(Morph)>>processEvent:using:
> MenuMorph(Morph)>>processEvent:
> MenuMorph>>handleFocusEvent:
> [] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent := anEvent.  result := focusHolder     han...]}
> [] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
> BlockContext>>on:do:
> PasteUpMorph>>becomeActiveDuring:
> HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h processEvents.  capturingGesture := capturingGest...]}
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> ....etc...
>
>
> ___________________________________________________________________________________________________
> CONFIDENTIALITY AND PRIVACY NOTICE
> Information transmitted by this email is proprietary to Medtronic and is intended for use only by the individual or entity to which it is addressed, and may contain information that is private, privileged, confidential or exempt from disclosure under applicable law. If you are not the intended recipient or it appears that this mail has been forwarded to you without proper authority, you are notified that any use or dissemination of this information in any manner is strictly prohibited. In such cases, please delete this mail from your records.
>
> To view this notice in other languages you can either select the following link or manually copy and paste the link into the address bar of a web browser: http://emaildisclaimer.medtronic.com
>
>