[Seaside] Problem w/ Canvas Submit button callback..

[Rick Flower]

I had some code that had the following item defined in it as part of a form:

html submitButton id: #myDiv; callback: []; text: 'Foo'.

I originally had a liveCallback: block that I was using and it worked 
fine.. However, now I'm trying to use a standard callback as shown 
above, I get the following result when I press the button after its 
rendered.  I get this regardless of whether or not the callback has been 
registered or I remove the "callback:" altogether.. Any ideas?  Also
if it isn't obvious I'm using SeasideAsync here on the same page.

For some reason, the backtrace below doesn't make any sense to me -- 
it's complaining about a completely different area of code .. I guess I
don't follow what Seaside is doing when I switched from using a 
liveCallback to something else (or nothing)..

Any ideas?


This block expects 0 argument(s) but is invoked with 1 argument(s)

     * Error class(GenericException class)>>raiseErrorString:

           self	Error
           temps
           aStringOrValuable	'This block expects 0 argument(s) but is 
invoked with 1 argument(s)'
           inst vars
           superclass	Exception
           methodDict	MethodDictionary (#occuredForTest: )
           format	16394
           subclasses	#(SubclassResponsibilityError ExceededLimitsError 
NPCMapError PrimitiveFailure StreamError InappropriatePaintError 
BadControllerError CodeStorageError QueueOverflowError ParcelError 
SignalError InterruptLockedError...etc...
           instanceVariables	nil
           organization	('sunit' #occuredForTest:)
           name	#Error
           classPool	nil
           environment	Core
           notifierString	an UserMessage('Error - : ', #notifyError, 
#dialogs)

     * BlockClosure(Object)>>error:

           self	BlockClosure [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           temps
           aStringOrMessage	'This block expects 0 argument(s) but is 
invoked with 1 argument(s)'
           lastNonSpace	66
           aString	'This block expects 0 argument(s) but is invoked with 
1 argument(s)'
           inst vars
           method	CompiledBlock [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           outerContext	nil
           copiedValues	a MSWLI_Admin_Organization

     * BlockClosure>>valueWithArguments:

           self	BlockClosure [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           temps
           anArray	#(a MSADBUser)
           inst vars
           method	CompiledBlock [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           outerContext	nil
           copiedValues	a MSWLI_Admin_Organization

     * BlockClosure>>value:

           self	BlockClosure [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           temps
           arg	a MSADBUser
           inst vars
           method	CompiledBlock [] in 
MSWLI_Admin_Organization>>renderFamilySelector:on:
           outerContext	nil
           copiedValues	a MSWLI_Admin_Organization

     * optimized [] in [] in Seaside.WASelectTag>>optionsOn:

           self	BlockClosure [] in [] in Seaside.WASelectTag>>optionsOn:
           temps
           self	a Seaside.WASelectTag
           each	a MSADBUser
           inst vars
           method	CompiledBlock [] in [] in Seaside.WASelectTag>>optionsOn:
           outerContext	nil
           copiedValues	#(a Seaside.WASelectTag a MSADBUser)

     * BlockClosure>>valueWithPossibleArgs:

           self	BlockClosure [] in [] in Seaside.WASelectTag>>optionsOn:
           temps
           anArray	#(nil)
           inst vars
           method	CompiledBlock [] in [] in Seaside.WASelectTag>>optionsOn:
           outerContext	nil
           copiedValues	#(a Seaside.WASelectTag a MSADBUser)

     * Seaside.WAValueCallback>>evaluateWithArgument:

           self	a Seaside.WAValueCallback
           temps
           anObject	nil
           inst vars
           context	a Seaside.WARenderingContext
           owner	a MSWLI_Admin_Organization
           key	'10'
           block	BlockClosure [] in [] in Seaside.WASelectTag>>optionsOn:

     * optimized [] in Seaside.WADispatchCallback>>evaluateWithArgument:

           self	BlockClosure [] in 
Seaside.WADispatchCallback>>evaluateWithArgument:
           temps
           callback	a Seaside.WAValueCallback
           inst vars
           method	CompiledBlock [] in 
Seaside.WADispatchCallback>>evaluateWithArgument:
           outerContext	nil
           copiedValues	#()

     * Seaside.WAValueCallback(Object)>>ifNotNilDo:

           self	a Seaside.WAValueCallback
           temps
           aBlock	BlockClosure [] in 
Seaside.WADispatchCallback>>evaluateWithArgument:
           inst vars
           context	a Seaside.WARenderingContext
           owner	a MSWLI_Admin_Organization
           key	'10'
           block	BlockClosure [] in [] in Seaside.WASelectTag>>optionsOn:

     * Seaside.WADispatchCallback>>evaluateWithArgument:

           self	a Seaside.WADispatchCallback
           temps
           anObject	'10'
           inst vars
           context	a Seaside.WARenderingContext
           owner	a MSWLI_Admin_Organization
           key	'9'

     * Seaside.WADispatchCallback(Seaside.WACallback)>>evaluateWithField:

           self	a Seaside.WADispatchCallback
           temps
           anObject	'10'
           inst vars
           context	a Seaside.WARenderingContext
           owner	a MSWLI_Admin_Organization
           key	'9'

     * Seaside.WACallbackStream>>processCallbacksWithOwner:

           self	a Seaside.WACallbackStream
           temps
           anObject	a MSWLI_Admin_Organization
           callback	a Seaside.WADispatchCallback
           inst vars
           callbacks	a ReadStream
           request	a Seaside.WARequest

     * MSWLI_Admin_Organization(Seaside.WAPresenter)>>processCallbackStream:

           self	a MSWLI_Admin_Organization
           temps
           aCallbackStream	a Seaside.WACallbackStream
           inst vars
           decoration	a Seaside.WAStateHolder(a MSWLI_Admin_Organization)
           viewSelector	#renderAddPaperOrderOn:
           validationDict	nil
           tabIndex	a MSAAutoCounter
           catProxy	nil
           vendorProxy	nil
           scripProxy	nil
           shoppingCart	a MSACart
           cartItem	a MSACartItem
           cartEditing	false

     * optimized [] in Seaside.WAPresenter>>processChildCallbacks:

           self	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           temps
           ea	a MSWLI_Admin_Organization
           aStream	a Seaside.WACallbackStream
           inst vars
           method	CompiledBlock [] in 
Seaside.WAPresenter>>processChildCallbacks:
           outerContext	nil
           copiedValues	a Seaside.WACallbackStream

     * MSWLI_Admin_Organization(Seaside.WAComponent)>>decorationChainDo:

           self	a MSWLI_Admin_Organization
           temps
           aBlock	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           inst vars
           decoration	a Seaside.WAStateHolder(a MSWLI_Admin_Organization)
           viewSelector	#renderAddPaperOrderOn:
           validationDict	nil
           tabIndex	a MSAAutoCounter
           catProxy	nil
           vendorProxy	nil
           scripProxy	nil
           shoppingCart	a MSACart
           cartItem	a MSACartItem
           cartEditing	false

     * optimized [] in Seaside.WAComponent>>nextPresentersDo:

           self	BlockClosure [] in Seaside.WAComponent>>nextPresentersDo:
           temps
           ea	a MSWLI_Admin_Organization
           aBlock	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           inst vars
           method	CompiledBlock [] in Seaside.WAComponent>>nextPresentersDo:
           outerContext	nil
           copiedValues	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:

     * optimized [] in [] in Seaside.WAComponent>>childrenDo:

           self	BlockClosure [] in [] in Seaside.WAComponent>>childrenDo:
           temps
           aBlock	BlockClosure [] in Seaside.WAComponent>>nextPresentersDo:
           ea	a MSWLI_Admin_Organization
           inst vars
           method	CompiledBlock [] in [] in Seaside.WAComponent>>childrenDo:
           outerContext	nil
           copiedValues	#(BlockClosure [] in 
Seaside.WAComponent>>nextPresentersDo: a MSWLI_Admin_Organization)

     * MSWLI_Admin_Organization(Object)>>ifNotNil:

           self	a MSWLI_Admin_Organization
           temps
           aBlock	BlockClosure [] in [] in Seaside.WAComponent>>childrenDo:
           inst vars
           decoration	a Seaside.WAStateHolder(a MSWLI_Admin_Organization)
           viewSelector	#renderAddPaperOrderOn:
           validationDict	nil
           tabIndex	a MSAAutoCounter
           catProxy	nil
           vendorProxy	nil
           scripProxy	nil
           shoppingCart	a MSACart
           cartItem	a MSACartItem
           cartEditing	false

     * optimized [] in Seaside.WAComponent>>childrenDo:

           self	BlockClosure [] in Seaside.WAComponent>>childrenDo:
           temps
           ea	a MSWLI_Admin_Organization
           aBlock	BlockClosure [] in Seaside.WAComponent>>nextPresentersDo:
           inst vars
           method	CompiledBlock [] in Seaside.WAComponent>>childrenDo:
           outerContext	nil
           copiedValues	BlockClosure [] in 
Seaside.WAComponent>>nextPresentersDo:

     * Array(SequenceableCollection)>>do:

           self	#(a MSWCommon_Menu a MSWNLI_Login a MSWNLI_About a 
MSWNLI_Enroll a MSWLI_Contact a MSWNLI_Contact a ...etc...
           temps
           aBlock	BlockClosure [] in Seaside.WAComponent>>childrenDo:
           i	9

     * MSWApplicationMain(Seaside.WAComponent)>>childrenDo:

           self	a MSWApplicationMain
           temps
           aBlock	BlockClosure [] in Seaside.WAComponent>>nextPresentersDo:
           inst vars
           decoration	a Seaside.WAStateHolder(a Seaside.WASessionProtector)
           nliEnrollWidget	a MSWNLI_Enroll
           nliAboutWidget	a MSWNLI_About
           nliLoginWidget	a MSWNLI_Login
           nliContactWidget	a MSWNLI_Contact
           liContactWidget	a MSWLI_Contact
           liOrdersWidget	a MSWLI_Orders
           liReportsWidget	a MSWLI_Reports
           commonMenuWidget	a MSWCommon_Menu
           commonMainCanvasWidget	a MSWCommon_Canvas
           currentWidget	a MSWLI_Admin_Organization
           childArray	#(a MSWCommon_Menu a MSWNLI_Login a MSWNLI_About a 
MSWNLI_Enroll a MSWLI_Contact a MSWNLI_Contact a ...etc...
           liMassOpsOrgWidget	a MSWLI_Admin_Organization
           liMassOpsSiteWidget	a MSWLI_Admin_Sitewide

     * MSWApplicationMain(Seaside.WAComponent)>>nextPresentersDo:

           self	a MSWApplicationMain
           temps
           aBlock	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           inst vars
           decoration	a Seaside.WAStateHolder(a Seaside.WASessionProtector)
           nliEnrollWidget	a MSWNLI_Enroll
           nliAboutWidget	a MSWNLI_About
           nliLoginWidget	a MSWNLI_Login
           nliContactWidget	a MSWNLI_Contact
           liContactWidget	a MSWLI_Contact
           liOrdersWidget	a MSWLI_Orders
           liReportsWidget	a MSWLI_Reports
           commonMenuWidget	a MSWCommon_Menu
           commonMainCanvasWidget	a MSWCommon_Canvas
           currentWidget	a MSWLI_Admin_Organization
           childArray	#(a MSWCommon_Menu a MSWNLI_Login a MSWNLI_About a 
MSWNLI_Enroll a MSWLI_Contact a MSWNLI_Contact a ...etc...
           liMassOpsOrgWidget	a MSWLI_Admin_Organization
           liMassOpsSiteWidget	a MSWLI_Admin_Sitewide

     * MSWApplicationMain(Seaside.WAPresenter)>>processChildCallbacks:

           self	a MSWApplicationMain
           temps
           aStream	a Seaside.WACallbackStream
           inst vars
           decoration	a Seaside.WAStateHolder(a Seaside.WASessionProtector)
           nliEnrollWidget	a MSWNLI_Enroll
           nliAboutWidget	a MSWNLI_About
           nliLoginWidget	a MSWNLI_Login
           nliContactWidget	a MSWNLI_Contact
           liContactWidget	a MSWLI_Contact
           liOrdersWidget	a MSWLI_Orders
           liReportsWidget	a MSWLI_Reports
           commonMenuWidget	a MSWCommon_Menu
           commonMainCanvasWidget	a MSWCommon_Canvas
           currentWidget	a MSWLI_Admin_Organization
           childArray	#(a MSWCommon_Menu a MSWNLI_Login a MSWNLI_About a 
MSWNLI_Enroll a MSWLI_Contact a MSWNLI_Contact a ...etc...
           liMassOpsOrgWidget	a MSWLI_Admin_Organization
           liMassOpsSiteWidget	a MSWLI_Admin_Sitewide

     * MSWApplicationMain(Seaside.WAPresenter)>>processCallbackStream:

           self	a MSWApplicationMain
           temps
           aCallbackStream	a Seaside.WACallbackStream
           inst vars
           decoration	a Seaside.WAStateHolder(a Seaside.WASessionProtector)
           nliEnrollWidget	a MSWNLI_Enroll
           nliAboutWidget	a MSWNLI_About
           nliLoginWidget	a MSWNLI_Login
           nliContactWidget	a MSWNLI_Contact
           liContactWidget	a MSWLI_Contact
           liOrdersWidget	a MSWLI_Orders
           liReportsWidget	a MSWLI_Reports
           commonMenuWidget	a MSWCommon_Menu
           commonMainCanvasWidget	a MSWCommon_Canvas
           currentWidget	a MSWLI_Admin_Organization
           childArray	#(a MSWCommon_Menu a MSWNLI_Login a MSWNLI_About a 
MSWNLI_Enroll a MSWLI_Contact a MSWNLI_Contact a ...etc...
           liMassOpsOrgWidget	a MSWLI_Admin_Organization
           liMassOpsSiteWidget	a MSWLI_Admin_Sitewide

     * optimized [] in Seaside.WAPresenter>>processChildCallbacks:

           self	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           temps
           ea	a MSWApplicationMain
           aStream	a Seaside.WACallbackStream
           inst vars
           method	CompiledBlock [] in 
Seaside.WAPresenter>>processChildCallbacks:
           outerContext	nil
           copiedValues	a Seaside.WACallbackStream

     * Seaside.WASessionProtector(Seaside.WADecoration)>>nextPresentersDo:

           self	a Seaside.WASessionProtector
           temps
           aBlock	BlockClosure [] in 
Seaside.WAPresenter>>processChildCallbacks:
           inst vars
           next	a Seaside.WAStateHolder(a MSWApplicationMain)
           remoteAddress	'127.0.0.1'

     * 
Seaside.WASessionProtector(Seaside.WAPresenter)>>processChildCallbacks:

           self	a Seaside.WASessionProtector
           temps
           aStream	a Seaside.WACallbackStream
           inst vars
           next	a Seaside.WAStateHolder(a MSWApplicationMain)
           remoteAddress	'127.0.0.1'

     * Seaside.WASessionProtector>>processChildCallbacks:

           self	a Seaside.WASessionProtector
           temps
           aStream	a Seaside.WACallbackStream
           inst vars
           next	a Seaside.WAStateHolder(a MSWApplicationMain)
           remoteAddress	'127.0.0.1'

     * 
Seaside.WASessionProtector(Seaside.WAPresenter)>>processCallbackStream:

           self	a Seaside.WASessionProtector
           temps
           aCallbackStream	a Seaside.WACallbackStream
           inst vars
           next	a Seaside.WAStateHolder(a MSWApplicationMain)
           remoteAddress	'127.0.0.1'