[vwnc] WS Wizard problem

> Of Charles Johnson
> Sent: Tuesday, June 17, 2008 5:38 AM
> To: [hidden email]
> Subject: [vwnc] WS Wizard problem
>
> Hi, I'm new to VisualWorks.
> I've been trying to use the WS wizard to expose my program but haven't
> been able to pass the complex type description step.
> It raises a dnu exception for #categoryModule.
>
> Can someone give me a hint on what am I doing wrong ?
>
> Thanks in advance.
>
> CJ.
>

WebServices.GenerateServer(WebServices.GenerateOpentalkClass)>>initializ

#()
> Temporaries:
>     excpt = a MessageNotUnderstood
>     resumeValue = nil
> Context PC = 25
>
> ----------------------------------------------------------------------
>

WebServices.WSSubcanvas>>safelyExecute:
>     outerContext = nil
>     copiedValues = BlockClosure [] in

haven't

> -----Original Message-----
> From: Charles Johnson [mailto:[hidden email]]
> Sent: Friday, June 20, 2008 6:48 AM
> To: Kogan, Tamara
> Subject: Re: [vwnc] WS Wizard problem
>
> Thanks Tamara.
> Now I've been trying to generate some objets using a wsdl, but I keep
> getting an error 'cannot parse Union types' or similar.
> Is it normal ?
> Am I doing something wrong ?
>
> Thanks.
>
> CJ.
>
>
> ----- Original Message ----
> From: "Kogan, Tamara" <[hidden email]>
> To: Charles Johnson <[hidden email]>; [hidden email]
> Sent: Tuesday, June 17, 2008 4:51:42 PM
> Subject: RE: [vwnc] WS Wizard problem
>
> Charles,
>
> It looks like there is a wrong method version got integrated in to the
> VW 76. I'll open AR.
> You can fix the method in your image if you file in the attached file.
>
> Thanks,
> Tamara Kogan
> Smalltalk development,
> Cincom Systems
>
> > -----Original Message-----
> > From: Charles Johnson [mailto:[hidden email]]
> > Sent: Tuesday, June 17, 2008 10:31 AM
> > To: Kogan, Tamara; [hidden email]
> > Subject: Re: [vwnc] WS Wizard problem
> >
> > Hi Tamara, thank you for your answer.
> > I'll paste the stack at the end of the mail.
> >
> > Best regards.
> >
> > CJ.
> >
> > Unhandled exception: Message not understood: #categoryModule
> > DefinitionCreationDialog(Object)>>doesNotUnderstand:
> >
>

> eA
> > spects
> > WebServices.GenerateServer>>initializeAspects
> > optimized [] in WebServices.WSSubcanvas>>setModel:
> > optimized [] in WebServices.WSSubcanvas>>safelyExecute:
> > BlockClosure>>on:do:
> > WebServices.GenerateServer(WebServices.WSSubcanvas)>>safelyExecute:
> > WebServices.GenerateServer(WebServices.WSSubcanvas)>>setModel:
> > WebServices.GenerateServer class(WebServices.WSSubcanvas
> > class)>>model:parent:
> > WebServices.WsdlWizard(WebServices.WSWizard)>>openSubcanvas
> > WebServices.WsdlWizard(WebServices.WSWizard)>>next
> > optimized [] in ApplicationModel>>actionFor:
> > optimized [] in ActionButtonSpec>>typeConvert:
> > PluggableAdaptor>>setValue:
> > PluggableAdaptor(ValueModel)>>value:
> > WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> > TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> > TriggerButtonTracker>>finishSelectionFor:
> > TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> > RedButtonReleasedEvent>>dispatchTo:
> > TriggerButtonTracker(SelectionTracker)>>handleEvent:
> > EventDispatcher>>dispatch:to:
> > EventDispatcher>>dispatchEvent:
> > RedButtonReleasedEvent(Event)>>dispatch
> > RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> > optimized [] in WindowManager>>safelyDispatchForWindowManager:
> > BlockClosure>>on:do:
> > WindowManager>>safelyDispatchForWindowManager:
> > WindowManager>>processNextEvent
> > optimized [] in [] in WindowManager>>newProcess
> > BlockClosure>>on:do:
> > optimized [] in WindowManager>>newProcess
> > BlockClosure>>on:do:
> > optimized [] in Process class>>forBlock:priority:
> >
> >

> > DefinitionCreationDialog(Object)>>doesNotUnderstand:
> > Receiver:
> >    a DefinitionCreationDialog
> > Instance Variables:
> >    dependents = nil
> >    builder = an UIBuilder
> >    uiSession = nil
> >    eventHandlers = nil
> >    close = a ValueHolder on: false
> >    accept = a ValueHolder on: false
> >    cancel = a ValueHolder on: false
> >    preBuildBlock = nil
> >    postBuildBlock = nil
> >    postOpenBlock = nil
> >    escapeIsCancel = true
> >    parentView = nil
> >    packageModule = an EntryWithPasteButtonModule
> >    namespaceModule = an EntryWithPasteButtonModule
> >    nameHolder = nil
> >    privateHolder = nil
> >    importsHolder = nil
> > Arguments:
> >    aMessage = a Message with selector: #categoryModule and

> eA
> > spects
> > Receiver:
> >    a WebServices.GenerateServer
> > Instance Variables:
> >    dependents = nil
> >    builder = nil
> >    uiSession = nil
> >    eventHandlers = nil
> >    parent = a WebServices.WsdlWizard
> >    model = a WebServices.WsdlBuilderModel
> >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> >    urlString = a ValueHolder on:

> <http://localhost:8080/TestServices%27>
> >    generateClassCBAspect = a ValueHolder on: false
> >    classDefinition = a DefinitionCreationDialog
> >    classNameAspect = nil
> >    documentationText = nil
> >    wsdlPortName = nil
> >    wsdlServiceNameAspect = nil
> > Context PC = 53
> >
> >

> > WebServices.GenerateServer>>initializeAspects
> > Receiver:
> >    a WebServices.GenerateServer
> > Instance Variables:
> >    dependents = nil
> >    builder = nil
> >    uiSession = nil
> >    eventHandlers = nil
> >    parent = a WebServices.WsdlWizard
> >    model = a WebServices.WsdlBuilderModel
> >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> >    urlString = a ValueHolder on:

> <http://localhost:8080/TestServices%27>
> >    generateClassCBAspect = a ValueHolder on: false
> >    classDefinition = a DefinitionCreationDialog
> >    classNameAspect = nil
> >    documentationText = nil
> >    wsdlPortName = nil
> >    wsdlServiceNameAspect = nil
> > Context PC = 5
> >
> >

> > BlockClosure>>on:do:
> > Receiver:
> >    a BlockClosure
> > Instance Variables:
> >    method = CompiledBlock [] in
> WebServices.WSSubcanvas>>safelyExecute:
> >    outerContext = nil
> >    copiedValues = BlockClosure [] in
> WebServices.WSSubcanvas>>setModel:
> > Arguments:
> >    anExceptionSelector = Error
> >    handlerBlock = BlockClosure [] in
> > WebServices.WSSubcanvas>>safelyExecute:
> > Context PC = 18
> >
> >

> > WebServices.GenerateServer(WebServices.WSSubcanvas)>>safelyExecute:
> > Receiver:
> >    a WebServices.GenerateServer
> > Instance Variables:
> >    dependents = nil
> >    builder = nil
> >    uiSession = nil
> >    eventHandlers = nil
> >    parent = a WebServices.WsdlWizard
> >    model = a WebServices.WsdlBuilderModel
> >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> >    urlString = a ValueHolder on:

> <http://localhost:8080/TestServices%27>
> >    generateClassCBAspect = a ValueHolder on: false
> >    classDefinition = a DefinitionCreationDialog
> >    classNameAspect = nil
> >    documentationText = nil
> >    wsdlPortName = nil
> >    wsdlServiceNameAspect = nil
> > Arguments:
> >    aBlock = BlockClosure [] in WebServices.WSSubcanvas>>setModel:
> > Context PC = 12
> >
> >

> > WebServices.GenerateServer(WebServices.WSSubcanvas)>>setModel:
> > Receiver:
> >    a WebServices.GenerateServer
> > Instance Variables:
> >    dependents = nil
> >    builder = nil
> >    uiSession = nil
> >    eventHandlers = nil
> >    parent = a WebServices.WsdlWizard
> >    model = a WebServices.WsdlBuilderModel
> >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> >    urlString = a ValueHolder on:

> <http://localhost:8080/TestServices%27>
> >    generateClassCBAspect = a ValueHolder on: false
> >    classDefinition = a DefinitionCreationDialog
> >    classNameAspect = nil
> >    documentationText = nil
> >    wsdlPortName = nil
> >    wsdlServiceNameAspect = nil
> > Arguments:
> >    aWsdlBuilderModel = a WebServices.WsdlBuilderModel
> > Context PC = 10
> >
> >

> > WebServices.GenerateServer class(WebServices.WSSubcanvas
> > class)>>model:parent:
> > Receiver:
> >    a WebServices.GenerateServer class
> > Instance Variables:
> >    superclass = WebServices.GenerateOpentalkClass
> >    methodDict = a MethodDictionary[8]
> >    format = 16398
> >    subclasses = nil
> >    instanceVariables = an Array[3]
> >    organization = ('aspects' #documentationText #wsdlPortName
> > #wsdlServiceNameAspect)
> > ('testing' #shouldUpdate)
> > ('actions' #changedGenerateCB #generate #selectedClass:)
> > ('initialize-release' #initializeAspects)
> >
> >    name = #GenerateServer
> >    classPool = a NameSpaceOfClass[0]
> >    environment = a NameSpace[270]
> >    savedWindowInformation = nil
> > Arguments:
> >    aWsdlBuilderModel = a WebServices.WsdlBuilderModel
> >    aWSWizard = a WebServices.WsdlWizard
> > Context PC = 10
> >
> >

> > WebServices.WsdlWizard(WebServices.WSWizard)>>openSubcanvas
> > Receiver:
> >    a WebServices.WsdlWizard
> > Instance Variables:
> >    dependents = an ApplicationWindow 3211
> >    builder = an UIBuilder
> >    uiSession = a ControlManager
> >    eventHandlers = nil
> >    model = a WebServices.WsdlBuilderModel
> >    pages = an Array[9]
> >    pageIndex = 5
> >    client = a WebServices.BrowseTypes
> >    subcanvasName = a ValueHolder on: an UserMessage('Describe

> > WebServices.WsdlWizard(WebServices.WSWizard)>>next
> > Receiver:
> >    a WebServices.WsdlWizard
> > Instance Variables:
> >    dependents = an ApplicationWindow 3211
> >    builder = an UIBuilder
> >    uiSession = a ControlManager
> >    eventHandlers = nil
> >    model = a WebServices.WsdlBuilderModel
> >    pages = an Array[9]
> >    pageIndex = 5
> >    client = a WebServices.BrowseTypes
> >    subcanvasName = a ValueHolder on: an UserMessage('Describe

> > optimized [] in ActionButtonSpec>>typeConvert:
> > Receiver:
> >    an UndefinedObject
> > Arguments:
> >    b = a ValueHolder on: nil
> >    v = true
> > Temporaries:
> >    .aValue = BlockClosure [] in ApplicationModel>>actionFor:
> > Context PC = 5
> >
> >

> > PluggableAdaptor>>setValue:
> > Receiver:
> >    a PluggableAdaptor
> > Instance Variables:
> >    dependents = a WinXPActionButtonView
> >    model = a ValueHolder on: nil
> >    getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> >    putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> >    updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > Arguments:
> >    newValue = true
> > Context PC = 6
> >
> >

> > PluggableAdaptor(ValueModel)>>value:
> > Receiver:
> >    a PluggableAdaptor
> > Instance Variables:
> >    dependents = a WinXPActionButtonView
> >    model = a ValueHolder on: nil
> >    getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> >    putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> >    updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > Arguments:
> >    newValue = true
> > Context PC = 5
> >
> >

> > WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> > Receiver:
> >    a WinXPTriggerButtonController
> > Instance Variables:
> >    model = a PluggableAdaptor
> >    view = a WinXPActionButtonView
> >    sensor = a TranslatingSensor
> >    keyboardProcessor = a KeyboardProcessor
> >    keyboardHook = nil
> >    dispatcher = nil
> > Context PC = 17
> >
> >

> > TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> > Receiver:
> >    a TriggerButtonTracker
> > Instance Variables:
> >    controller = a WinXPTriggerButtonController
> >    inside = true
> > Arguments:
> >    aPoint = 35@2
> > Context PC = 8
> >
> >

> > TriggerButtonTracker>>finishSelectionFor:
> > Receiver:
> >    a TriggerButtonTracker
> > Instance Variables:
> >    controller = a WinXPTriggerButtonController
> >    inside = true
> > Arguments:
> >    aPoint = 35@2
> > Context PC = 11
> >
> >

> > TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> > Receiver:
> >    a TriggerButtonTracker
> > Instance Variables:
> >    controller = a WinXPTriggerButtonController
> >    inside = true
> > Arguments:
> >    aMouseButtonEvent = a RedButtonReleasedEvent
> > Context PC = 13
> >
> >

> > RedButtonReleasedEvent>>dispatchTo:
> > Receiver:
> >    a RedButtonReleasedEvent
> > Instance Variables:
> >    time = 25539095
> >    initiator = an EventDispatcher
> >    window = an ApplicationWindow 3211
> >    state = 0
> >    x = 786
> >    y = 417
> >    gx = 917
> >    gy = 566
> >    buttonNumber = 1
> > Arguments:
> >    anObject = a TriggerButtonTracker
> > Context PC = 4
> >
> >

> > TriggerButtonTracker(SelectionTracker)>>handleEvent:
> > Receiver:
> >    a TriggerButtonTracker
> > Instance Variables:
> >    controller = a WinXPTriggerButtonController
> >    inside = true
> > Arguments:
> >    anEvent = a RedButtonReleasedEvent
> > Context PC = 4
> >
> >

> > EventDispatcher>>dispatch:to:
> > Receiver:
> >    an EventDispatcher
> > Instance Variables:
> >    windowController = an ApplicationStandardSystemController
> >    currentMouseConsumer = nil
> >    grabbingMouse = false
> >    keyboardProcessor = a KeyboardProcessor
> >    lastControlObject = an EmulatedSequenceController
> >    trapList = nil
> >    state = nil
> >    repairDamageWhenDebugging = true
> >    flushQueueAfterError = true
> >    distributeEventsWhenDebugging = true
> >    dragDropInProgress = false
> >    dragDropTracker = nil
> >    dispatchUnknownEvents = false
> > Arguments:
> >    event = a RedButtonReleasedEvent
> >    object = a TriggerButtonTracker
> > Temporaries:
> >    tmp = nil
> > Context PC = 10
> >
> >

> > EventDispatcher>>dispatchEvent:
> > Receiver:
> >    an EventDispatcher
> > Instance Variables:
> >    windowController = an ApplicationStandardSystemController
> >    currentMouseConsumer = nil
> >    grabbingMouse = false
> >    keyboardProcessor = a KeyboardProcessor
> >    lastControlObject = an EmulatedSequenceController
> >    trapList = nil
> >    state = nil
> >    repairDamageWhenDebugging = true
> >    flushQueueAfterError = true
> >    distributeEventsWhenDebugging = true
> >    dragDropInProgress = false
> >    dragDropTracker = nil
> >    dispatchUnknownEvents = false
> > Arguments:
> >    event = a RedButtonReleasedEvent
> > Temporaries:
> >    objectWantingControl = nil
> >    targetKeyboardProcessor = nil
> > Context PC = 60
> >
> >

> > RedButtonReleasedEvent(Event)>>dispatch
> > Receiver:
> >    a RedButtonReleasedEvent
> > Instance Variables:
> >    time = 25539095
> >    initiator = an EventDispatcher
> >    window = an ApplicationWindow 3211
> >    state = 0
> >    x = 786
> >    y = 417
> >    gx = 917
> >    gy = 566
> >    buttonNumber = 1
> > Context PC = 16
> >
> >

> > RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> > Receiver:
> >    a RedButtonReleasedEvent
> > Instance Variables:
> >    time = 25539095
> >    initiator = an EventDispatcher
> >    window = an ApplicationWindow 3211
> >    state = 0
> >    x = 786
> >    y = 417
> >    gx = 917
> >    gy = 566
> >    buttonNumber = 1
> > Arguments:
> >    aWinMgr = a WindowManager
> > Context PC = 4
> >
> >

> > BlockClosure>>on:do:
> > Receiver:
> >    a BlockClosure
> > Instance Variables:
> >    method = CompiledBlock [] in
> > WindowManager>>safelyDispatchForWindowManager:
> >    outerContext = nil
> >    copiedValues = an Array[2]
> > Arguments:
> >    anExceptionSelector = BadControllerError
> >    handlerBlock = BlockClosure [] in
> > WindowManager>>safelyDispatchForWindowManager:
> > Context PC = 18
> >
> >

> > WindowManager>>safelyDispatchForWindowManager:
> > Receiver:
> >    a WindowManager
> > Instance Variables:
> >    windows = an OrderedCollection[2]
> >    activeController = nil
> >    interruptLock = false
> >    outstandingMetaOrDamage = false
> >    openInProgress = false
> >    eventQueue = an EventQueue
> >    baseProcess = a Process in Semaphore>>wait
> >    dontFilterEvents = false
> > Arguments:
> >    event = a RedButtonReleasedEvent
> > Context PC = 13
> >
> >

> > WindowManager>>processNextEvent
> > Receiver:
> >    a WindowManager
> > Instance Variables:
> >    windows = an OrderedCollection[2]
> >    activeController = nil
> >    interruptLock = false
> >    outstandingMetaOrDamage = false
> >    openInProgress = false
> >    eventQueue = an EventQueue
> >    baseProcess = a Process in Semaphore>>wait
> >    dontFilterEvents = false
> > Temporaries:
> >    event = a RedButtonReleasedEvent
> > Context PC = 9
> >
> >

> > BlockClosure>>on:do:
> > Receiver:
> >    a BlockClosure
> > Instance Variables:
> >    method = CompiledBlock [] in [] in WindowManager>>newProcess
> >    outerContext = nil
> >    copiedValues = a WindowManager
> > Arguments:
> >    anExceptionSelector = TerminateException
> >    handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
> > Context PC = 18
> >
> >

> > BlockClosure>>on:do:
> > Receiver:
> >    a BlockClosure
> > Instance Variables:
> >    method = CompiledBlock [] in WindowManager>>newProcess
> >    outerContext = nil
> >    copiedValues = a WindowManager
> > Arguments:
> >    anExceptionSelector = TerminateException
> >    handlerBlock = BlockClosure [] in [] in Process
> > class>>forBlock:priority:
> > Context PC = 18
> >
> >

> > optimized [] in Process class>>forBlock:priority:
> > Receiver:
> >    an UndefinedObject
> > Temporaries:
> >    .aBlock = BlockClosure [] in WindowManager>>newProcess
> > Context PC = 9
> >
> >
> >
> > ----- Original Message ----
> > From: "Kogan, Tamara" <[hidden email]>
> > To: Charles Johnson <[hidden email]>; [hidden email]
> > Sent: Tuesday, June 17, 2008 3:09:37 PM
> > Subject: RE: [vwnc] WS Wizard problem
> >
> > If you press the Debug" button and send the stack it would help to
> > identify what is wrong.
> > There is the first when the MNU for #categoryModule is reported.
> >
> > Tamara Kogan
> > Smalltalk development,
> > Cincom Systems
> >
> > > -----Original Message-----
> > > From: [hidden email] [mailto:[hidden email]]

> > Behalf
> > > Of Charles Johnson
> > > Sent: Tuesday, June 17, 2008 5:38 AM
> > > To: [hidden email]
> > > Subject: [vwnc] WS Wizard problem
> > >
> > > Hi, I'm new to VisualWorks.
> > > I've been trying to use the WS wizard to expose my program but
> haven't
> > > been able to pass the complex type description step.
> > > It raises a dnu exception for #categoryModule.
> > >
> > > Can someone give me a hint on what am I doing wrong ?
> > >
> > > Thanks in advance.
> > >
> > > CJ.
> > >
> >
> >
>
>

> -----Original Message-----
> From: Charles Johnson [mailto:[hidden email]]
> Sent: Wednesday, June 25, 2008 8:58 AM
> To: Kogan, Tamara
> Cc: [hidden email]
> Subject: Re: [vwnc] WS Wizard problem
>
> One more thing. I don´t think the 'Drop super class' button in the
> 'Describe complex types' is working correctly either.
> Is complaining about some ctmType.
>
> Cheers.
>
> CJ.
>
>
> ----- Original Message ----
> From: "Kogan, Tamara" <[hidden email]>
> To: Charles Johnson <[hidden email]>
> Cc: [hidden email]..edu
> Sent: Friday, June 20, 2008 3:54:14 PM
> Subject: RE: [vwnc] WS Wizard problem
>
> The union type is supported yet. We have opened an AR for the issue and
> plan to address it in 7.7
>
> Tamara Kogan
> Smalltalk development,
> Cincom Systems
>
> > -----Original Message-----
> > From: Charles Johnson [mailto:[hidden email]]
> > Sent: Friday, June 20, 2008 6:48 AM
> > To: Kogan, Tamara
> > Subject: Re: [vwnc] WS Wizard problem
> >
> > Thanks Tamara.
> > Now I've been trying to generate some objets using a wsdl, but I keep
> > getting an error 'cannot parse Union types' or similar.
> > Is it normal ?
> > Am I doing something wrong ?
> >
> > Thanks.
> >
> > CJ.
> >
> >
> > ----- Original Message ----
> > From: "Kogan, Tamara" <[hidden email]>
> > To: Charles Johnson <[hidden email]>; [hidden email]
> > Sent: Tuesday, June 17, 2008 4:51:42 PM
> > Subject: RE: [vwnc] WS Wizard problem
> >
> > Charles,
> >
> > It looks like there is a wrong method version got integrated in to the
> > VW 76. I'll open AR.
> > You can fix the method in your image if you file in the attached file.
> >
> > Thanks,
> > Tamara Kogan
> > Smalltalk development,
> > Cincom Systems
> >
> > > -----Original Message-----
> > > From: Charles Johnson [mailto:[hidden email]]
> > > Sent: Tuesday, June 17, 2008 10:31 AM
> > > To: Kogan, Tamara; [hidden email]
> > > Subject: Re: [vwnc] WS Wizard problem
> > >
> > > Hi Tamara, thank you for your answer.
> > > I'll paste the stack at the end of the mail.
> > >
> > > Best regards.
> > >
> > > CJ.
> > >
> > > Unhandled exception: Message not understood: #categoryModule
> > > DefinitionCreationDialog(Object)>>doesNotUnderstand:
> > >
> >
> WebServices.GenerateServer(WebServices.GenerateOpentalkClass)>>initializ
> > eA
> > > spects
> > > WebServices.GenerateServer>>initializeAspects
> > > optimized [] in WebServices.WSSubcanvas>>setModel:
> > > optimized [] in WebServices.WSSubcanvas>>safelyExecute:
> > > BlockClosure>>on:do:
> > > WebServices.GenerateServer(WebServices.WSSubcanvas)>>safelyExecute:
> > > WebServices.GenerateServer(WebServices.WSSubcanvas)>>setModel:
> > > WebServices.GenerateServer class(WebServices.WSSubcanvas
> > > class)>>model:parent:
> > > WebServices.WsdlWizard(WebServices.WSWizard)>>openSubcanvas
> > > WebServices.WsdlWizard(WebServices.WSWizard)>>next
> > > optimized [] in ApplicationModel>>actionFor:
> > > optimized [] in ActionButtonSpec>>typeConvert:
> > > PluggableAdaptor>>setValue:
> > > PluggableAdaptor(ValueModel)>>value:
> > > WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> > > TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> > > TriggerButtonTracker>>finishSelectionFor:
> > > TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> > > RedButtonReleasedEvent>>dispatchTo:
> > > TriggerButtonTracker(SelectionTracker)>>handleEvent:
> > > EventDispatcher>>dispatch:to:
> > > EventDispatcher>>dispatchEvent:
> > > RedButtonReleasedEvent(Event)>>dispatch
> > > RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> > > optimized [] in WindowManager>>safelyDispatchForWindowManager:
> > > BlockClosure>>on:do:
> > > WindowManager>>safelyDispatchForWindowManager:
> > > WindowManager>>processNextEvent
> > > optimized [] in [] in WindowManager>>newProcess
> > > BlockClosure>>on:do:
> > > optimized [] in WindowManager>>newProcess
> > > BlockClosure>>on:do:
> > > optimized [] in Process class>>forBlock:priority:
> > >
> > >
> ----------------------------------------------------------------------
> > > DefinitionCreationDialog(Object)>>doesNotUnderstand:
> > > Receiver:
> > >    a DefinitionCreationDialog
> > > Instance Variables:
> > >    dependents = nil
> > >    builder = an UIBuilder
> > >    uiSession = nil
> > >    eventHandlers = nil
> > >    close = a ValueHolder on: false
> > >    accept = a ValueHolder on: false
> > >    cancel = a ValueHolder on: false
> > >    preBuildBlock = nil
> > >    postBuildBlock = nil
> > >    postOpenBlock = nil
> > >    escapeIsCancel = true
> > >    parentView = nil
> > >    packageModule = an EntryWithPasteButtonModule
> > >    namespaceModule = an EntryWithPasteButtonModule
> > >    nameHolder = nil
> > >    privateHolder = nil
> > >    importsHolder = nil
> > > Arguments:
> > >    aMessage = a Message with selector: #categoryModule and
> arguments:
> > #()
> > > Temporaries:
> > >    excpt = a MessageNotUnderstood
> > >    resumeValue = nil
> > > Context PC = 25
> > >
> > >
> ----------------------------------------------------------------------
> > >
> >
> WebServices.GenerateServer(WebServices.GenerateOpentalkClass)>>initializ
> > eA
> > > spects
> > > Receiver:
> > >    a WebServices.GenerateServer
> > > Instance Variables:
> > >    dependents = nil
> > >    builder = nil
> > >    uiSession = nil
> > >    eventHandlers = nil
> > >    parent = a WebServices..WsdlWizard
> > >    model = a WebServices.WsdlBuilderModel
> > >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> > >    urlString = a ValueHolder on:
> 'http://localhost:8080/TestServices'
> <http://localhost:8080/TestServices%27>
> > <http://localhost:8080/TestServices%27>
> > >    generateClassCBAspect = a ValueHolder on: false
> > >    classDefinition = a DefinitionCreationDialog
> > >    classNameAspect = nil
> > >    documentationText = nil
> > >    wsdlPortName = nil
> > >    wsdlServiceNameAspect = nil
> > > Context PC = 53
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.GenerateServer>>initializeAspects
> > > Receiver:
> > >    a WebServices.GenerateServer
> > > Instance Variables:
> > >    dependents = nil
> > >    builder = nil
> > >    uiSession = nil
> > >    eventHandlers = nil
> > >    parent = a WebServices.WsdlWizard
> > >    model = a WebServices.WsdlBuilderModel
> > >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> > >    urlString = a ValueHolder on:
> 'http://localhost:8080/TestServices'
> <http://localhost:8080/TestServices%27>
> > <http://localhost:8080/TestServices%27>
> > >    generateClassCBAspect = a ValueHolder on: false
> > >    classDefinition = a DefinitionCreationDialog
> > >    classNameAspect = nil
> > >    documentationText = nil
> > >    wsdlPortName = nil
> > >    wsdlServiceNameAspect = nil
> > > Context PC = 5
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in WebServices.WSSubcanvas>>setModel:
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .super = a WebServices.GenerateServer
> > > Context PC = 6
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in WebServices.WSSubcanvas>>safelyExecute:
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .aBlock = BlockClosure [] in WebServices.WSSubcanvas>>setModel:
> > > Context PC = 5
> > >
> > >
> ----------------------------------------------------------------------
> > > BlockClosure>>on:do:
> > > Receiver:
> > >    a BlockClosure
> > > Instance Variables:
> > >    method = CompiledBlock [] in
> > WebServices.WSSubcanvas>>safelyExecute:
> > >    outerContext = nil
> > >    copiedValues = BlockClosure [] in
> > WebServices.WSSubcanvas>>setModel:
> > > Arguments:
> > >    anExceptionSelector = Error
> > >    handlerBlock = BlockClosure [] in
> > > WebServices.WSSubcanvas>>safelyExecute:
> > > Context PC = 18
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.GenerateServer(WebServices.WSSubcanvas)>>safelyExecute:
> > > Receiver:
> > >    a WebServices.GenerateServer
> > > Instance Variables:
> > >    dependents = nil
> > >    builder = nil
> > >    uiSession = nil
> > >    eventHandlers = nil
> > >    parent = a WebServices.WsdlWizard
> > >    model = a WebServices.WsdlBuilderModel
> > >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> > >    urlString = a ValueHolder on:
> 'http://localhost:8080/TestServices'
> <http://localhost:8080/TestServices%27>
> > <http://localhost:8080/TestServices%27>
> > >    generateClassCBAspect = a ValueHolder on: false
> > >    classDefinition = a DefinitionCreationDialog
> > >    classNameAspect = nil
> > >    documentationText = nil
> > >    wsdlPortName = nil
> > >    wsdlServiceNameAspect = nil
> > > Arguments:
> > >    aBlock = BlockClosure [] in WebServices.WSSubcanvas>>setModel:
> > > Context PC = 12
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.GenerateServer(WebServices.WSSubcanvas)>>setModel:
> > > Receiver:
> > >    a WebServices.GenerateServer
> > > Instance Variables:
> > >    dependents = nil
> > >    builder = nil
> > >    uiSession = nil
> > >    eventHandlers = nil
> > >    parent = a WebServices.WsdlWizard
> > >    model = a WebServices.WsdlBuilderModel
> > >    classNamespaceAspect = a ValueHolder on: 'TestNamespace'
> > >    urlString = a ValueHolder on:
> 'http://localhost:8080/TestServices'
> <http://localhost:8080/TestServices%27>
> > <http://localhost:8080/TestServices%27>
> > >    generateClassCBAspect = a ValueHolder on: false
> > >    classDefinition = a DefinitionCreationDialog
> > >    classNameAspect = nil
> > >    documentationText = nil
> > >    wsdlPortName = nil
> > >    wsdlServiceNameAspect = nil
> > > Arguments:
> > >    aWsdlBuilderModel = a WebServices.WsdlBuilderModel
> > > Context PC = 10
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.GenerateServer class(WebServices.WSSubcanvas
> > > class)>>model:parent:
> > > Receiver:
> > >    a WebServices.GenerateServer class
> > > Instance Variables:
> > >    superclass = WebServices.GenerateOpentalkClass
> > >    methodDict = a MethodDictionary[8]
> > >    format = 16398
> > >    subclasses = nil
> > >    instanceVariables = an Array[3]
> > >    organization = ('aspects' #documentationText #wsdlPortName
> > > #wsdlServiceNameAspect)
> > > ('testing' #shouldUpdate)
> > > ('actions' #changedGenerateCB #generate #selectedClass:)
> > > ('initialize-release' #initializeAspects)
> > >
> > >    name = #GenerateServer
> > >    classPool = a NameSpaceOfClass[0]
> > >    environment = a NameSpace[270]
> > >    savedWindowInformation = nil
> > > Arguments:
> > >    aWsdlBuilderModel = a WebServices.WsdlBuilderModel
> > >    aWSWizard = a WebServices.WsdlWizard
> > > Context PC = 10
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.WsdlWizard(WebServices.WSWizard)>>openSubcanvas
> > > Receiver:
> > >    a WebServices.WsdlWizard
> > > Instance Variables:
> > >    dependents = an ApplicationWindow 3211
> > >    builder = an UIBuilder
> > >    uiSession = a ControlManager
> > >    eventHandlers = nil
> > >    model = a WebServices.WsdlBuilderModel
> > >    pages = an Array[9]
> > >    pageIndex = 5
> > >    client = a WebServices.BrowseTypes
> > >    subcanvasName = a ValueHolder on: an UserMessage('Describe
> complex
> > > types', #DescribeComplexTypes, #webservices)
> > > Context PC = 9
> > >
> > >
> ----------------------------------------------------------------------
> > > WebServices.WsdlWizard(WebServices.WSWizard)>>next
> > > Receiver:
> > >    a WebServices.WsdlWizard
> > > Instance Variables:
> > >    dependents = an ApplicationWindow 3211
> > >    builder = an UIBuilder
> > >    uiSession = a ControlManager
> > >    eventHandlers = nil
> > >    model = a WebServices.WsdlBuilderModel
> > >    pages = an Array[9]
> > >    pageIndex = 5
> > >    client = a WebServices.BrowseTypes
> > >    subcanvasName = a ValueHolder on: an UserMessage('Describe
> complex
> > > types', #DescribeComplexTypes, #webservices)
> > > Context PC = 35
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in ApplicationModel>>actionFor:
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .super = a WebServices.WsdlWizard
> > >    .aKey = #next
> > > Context PC = 7
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in ActionButtonSpec>>typeConvert:
> > > Receiver:
> > >    an UndefinedObject
> > > Arguments:
> > >    b = a ValueHolder on: nil
> > >    v = true
> > > Temporaries:
> > >    .aValue = BlockClosure [] in ApplicationModel>>actionFor:
> > > Context PC = 5
> > >
> > >
> ----------------------------------------------------------------------
> > > PluggableAdaptor>>setValue:
> > > Receiver:
> > >    a PluggableAdaptor
> > > Instance Variables:
> > >    dependents = a WinXPActionButtonView
> > >    model = a ValueHolder on: nil
> > >    getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > >    putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > >    updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > > Arguments:
> > >    newValue = true
> > > Context PC = 6
> > >
> > >
> ----------------------------------------------------------------------
> > > PluggableAdaptor(ValueModel)>>value:
> > > Receiver:
> > >    a PluggableAdaptor
> > > Instance Variables:
> > >    dependents = a WinXPActionButtonView
> > >    model = a ValueHolder on: nil
> > >    getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > >    putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > >    updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:
> > > Arguments:
> > >    newValue = true
> > > Context PC = 5
> > >
> > >
> ----------------------------------------------------------------------
> > > WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> > > Receiver:
> > >    a WinXPTriggerButtonController
> > > Instance Variables:
> > >    model = a PluggableAdaptor
> > >    view = a WinXPActionButtonView
> > >    sensor = a TranslatingSensor
> > >    keyboardProcessor = a KeyboardProcessor
> > >    keyboardHook = nil
> > >    dispatcher = nil
> > > Context PC = 17
> > >
> > >
> ----------------------------------------------------------------------
> > > TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> > > Receiver:
> > >    a TriggerButtonTracker
> > > Instance Variables:
> > >    controller = a WinXPTriggerButtonController
> > >    inside = true
> > > Arguments:
> > >    aPoint = 35@2
> > > Context PC = 8
> > >
> > >
> ----------------------------------------------------------------------
> > > TriggerButtonTracker>>finishSelectionFor:
> > > Receiver:
> > >    a TriggerButtonTracker
> > > Instance Variables:
> > >    controller = a WinXPTriggerButtonController
> > >    inside = true
> > > Arguments:
> > >    aPoint = 35@2
> > > Context PC = 11
> > >
> > >
> ----------------------------------------------------------------------
> > > TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> > > Receiver:
> > >    a TriggerButtonTracker
> > > Instance Variables:
> > >    controller = a WinXPTriggerButtonController
> > >    inside = true
> > > Arguments:
> > >    aMouseButtonEvent = a RedButtonReleasedEvent
> > > Context PC = 13
> > >
> > >
> ----------------------------------------------------------------------
> > > RedButtonReleasedEvent>>dispatchTo:
> > > Receiver:
> > >    a RedButtonReleasedEvent
> > > Instance Variables:
> > >    time = 25539095
> > >    initiator = an EventDispatcher
> > >    window = an ApplicationWindow 3211
> > >    state = 0
> > >    x = 786
> > >    y = 417
> > >    gx = 917
> > >    gy = 566
> > >    buttonNumber = 1
> > > Arguments:
> > >    anObject = a TriggerButtonTracker
> > > Context PC = 4
> > >
> > >
> ----------------------------------------------------------------------
> > > TriggerButtonTracker(SelectionTracker)>>handleEvent:
> > > Receiver:
> > >    a TriggerButtonTracker
> > > Instance Variables:
> > >    controller = a WinXPTriggerButtonController
> > >    inside = true
> > > Arguments:
> > >    anEvent = a RedButtonReleasedEvent
> > > Context PC = 4
> > >
> > >
> ----------------------------------------------------------------------
> > > EventDispatcher>>dispatch:to:
> > > Receiver:
> > >    an EventDispatcher
> > > Instance Variables:
> > >    windowController = an ApplicationStandardSystemController
> > >    currentMouseConsumer = nil
> > >    grabbingMouse = false
> > >    keyboardProcessor = a KeyboardProcessor
> > >    lastControlObject = an EmulatedSequenceController
> > >    trapList = nil
> > >    state = nil
> > >    repairDamageWhenDebugging = true
> > >    flushQueueAfterError = true
> > >    distributeEventsWhenDebugging = true
> > >    dragDropInProgress = false
> > >    dragDropTracker = nil
> > >    dispatchUnknownEvents = false
> > > Arguments:
> > >    event = a RedButtonReleasedEvent
> > >    object = a TriggerButtonTracker
> > > Temporaries:
> > >    tmp = nil
> > > Context PC = 10
> > >
> > >
> ----------------------------------------------------------------------
> > > EventDispatcher>>dispatchEvent:
> > > Receiver:
> > >    an EventDispatcher
> > > Instance Variables:
> > >    windowController = an ApplicationStandardSystemController
> > >    currentMouseConsumer = nil
> > >    grabbingMouse = false
> > >    keyboardProcessor = a KeyboardProcessor
> > >    lastControlObject = an EmulatedSequenceController
> > >    trapList = nil
> > >    state = nil
> > >    repairDamageWhenDebugging = true
> > >    flushQueueAfterError = true
> > >    distributeEventsWhenDebugging = true
> > >    dragDropInProgress = false
> > >    dragDropTracker = nil
> > >    dispatchUnknownEvents = false
> > > Arguments:
> > >    event = a RedButtonReleasedEvent
> > > Temporaries:
> > >    objectWantingControl = nil
> > >    targetKeyboardProcessor = nil
> > > Context PC = 60
> > >
> > >
> ----------------------------------------------------------------------
> > > RedButtonReleasedEvent(Event)>>dispatch
> > > Receiver:
> > >    a RedButtonReleasedEvent
> > > Instance Variables:
> > >    time = 25539095
> > >    initiator = an EventDispatcher
> > >    window = an ApplicationWindow 3211
> > >    state = 0
> > >    x = 786
> > >    y = 417
> > >    gx = 917
> > >    gy = 566
> > >    buttonNumber = 1
> > > Context PC = 16
> > >
> > >
> ----------------------------------------------------------------------
> > > RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> > > Receiver:
> > >    a RedButtonReleasedEvent
> > > Instance Variables:
> > >    time = 25539095
> > >    initiator = an EventDispatcher
> > >    window = an ApplicationWindow 3211
> > >    state = 0
> > >    x = 786
> > >    y = 417
> > >    gx = 917
> > >    gy = 566
> > >    buttonNumber = 1
> > > Arguments:
> > >    aWinMgr = a WindowManager
> > > Context PC = 4
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in WindowManager>>safelyDispatchForWindowManager:
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .event = a RedButtonReleasedEvent
> > >    .super = a WindowManager
> > > Context PC = 6
> > >
> > >
> ----------------------------------------------------------------------
> > > BlockClosure>>on:do:
> > > Receiver:
> > >    a BlockClosure
> > > Instance Variables:
> > >    method = CompiledBlock [] in
> > > WindowManager>>safelyDispatchForWindowManager:
> > >    outerContext = nil
> > >    copiedValues = an Array[2]
> > > Arguments:
> > >    anExceptionSelector = BadControllerError
> > >    handlerBlock = BlockClosure [] in
> > > WindowManager>>safelyDispatchForWindowManager:
> > > Context PC = 18
> > >
> > >
> ----------------------------------------------------------------------
> > > WindowManager>>safelyDispatchForWindowManager:
> > > Receiver:
> > >    a WindowManager
> > > Instance Variables:
> > >    windows = an OrderedCollection[2]
> > >    activeController = nil
> > >    interruptLock = false
> > >    outstandingMetaOrDamage = false
> > >    openInProgress = false
> > >    eventQueue = an EventQueue
> > >    baseProcess = a Process in Semaphore>>wait
> > >    dontFilterEvents = false
> > > Arguments:
> > >    event = a RedButtonReleasedEvent
> > > Context PC = 13
> > >
> > >
> ----------------------------------------------------------------------
> > > WindowManager>>processNextEvent
> > > Receiver:
> > >    a WindowManager
> > > Instance Variables:
> > >    windows = an OrderedCollection[2]
> > >    activeController = nil
> > >    interruptLock = false
> > >    outstandingMetaOrDamage = false
> > >    openInProgress = false
> > >    eventQueue = an EventQueue
> > >    baseProcess = a Process in Semaphore>>wait
> > >    dontFilterEvents = false
> > > Temporaries:
> > >    event = a RedButtonReleasedEvent
> > > Context PC = 9
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in [] in WindowManager>>newProcess
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .super = a WindowManager
> > > Context PC = 13
> > >
> > >
> ----------------------------------------------------------------------
> > > BlockClosure>>on:do:
> > > Receiver:
> > >    a BlockClosure
> > > Instance Variables:
> > >    method = CompiledBlock [] in [] in WindowManager>>newProcess
> > >    outerContext = nil
> > >    copiedValues = a WindowManager
> > > Arguments:
> > >    anExceptionSelector = TerminateException
> > >    handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
> > > Context PC = 18
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in WindowManager>>newProcess
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .super = a WindowManager
> > > Context PC = 15
> > >
> > >
> ----------------------------------------------------------------------
> > > BlockClosure>>on:do:
> > > Receiver:
> > >    a BlockClosure
> > > Instance Variables:
> > >    method = CompiledBlock [] in WindowManager>>newProcess
> > >    outerContext = nil
> > >    copiedValues = a WindowManager
> > > Arguments:
> > >    anExceptionSelector = TerminateException
> > >    handlerBlock = BlockClosure [] in [] in Process
> > > class>>forBlock:priority:
> > > Context PC = 18
> > >
> > >
> ----------------------------------------------------------------------
> > > optimized [] in Process class>>forBlock:priority:
> > > Receiver:
> > >    an UndefinedObject
> > > Temporaries:
> > >    .aBlock = BlockClosure [] in WindowManager>>newProcess
> > > Context PC = 9
> > >
> > >
> > >
> > > ----- Original Message ----
> > > From: "Kogan, Tamara" <[hidden email]>
> > > To: Charles Johnson <firecharl@yahoo..com <mailto:[hidden email]>
> >; [hidden email] <mailto:vwnc@cs..uiuc.edu>
> > > Sent: Tuesday, June 17, 2008 3:09:37 PM
> > > Subject: RE: [vwnc] WS Wizard problem
> > >
> > > If you press the Debug" button and send the stack it would help to
> > > identify what is wrong.
> > > There is the first when the MNU for #categoryModule is reported.
> > >
> > > Tamara Kogan
> > > Smalltalk development,
> > > Cincom Systems
> > >
> > > > -----Original Message-----
> > > > From: [hidden email] <mailto:[hidden email]..edu>
> [mailto:[hidden email]]
> On
> > > Behalf
> > > > Of Charles Johnson
> > > > Sent: Tuesday, June 17, 2008 5:38 AM
> > > > To: [hidden email]
> > > > Subject: [vwnc] WS Wizard problem
> > > >
> > > > Hi, I'm new to VisualWorks.
> > > > I've been trying to use the WS wizard to expose my program but
> > haven't
> > > > been able to pass the complex type description step.
> > > > It raises a dnu exception for #categoryModule.
> > > >
> > > > Can someone give me a hint on what am I doing wrong ?
> > > >
> > > > Thanks in advance.
> > > >
> > > > CJ.
> > > >
> > >
> > >
> >
> >
>
>