Problem w/ Canvas Submit button callback..

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'

_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

Can you paste #renderFamilySelector:on: here please?

-Boris

--
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5
http://tinyurl.com/r7uw4

[hidden email]

CONFIDENTIALITY NOTICE

This email is intended only for the persons named in the message
header. Unless otherwise indicated, it contains information that is
private and confidential. If you have received it in error, please
notify the sender and delete the entire message including any
attachments.

Thank you.
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 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, Seaside.WASelectTag>>optionsOn: Seaside.WASelectTag>>optionsOn: Seaside.WASelectTag>>optionsOn:
>
>      * optimized [] in
Seaside.WADispatchCallback>>evaluateWithArgument: Seaside.WASelectTag>>optionsOn: Seaside.WADispatchCallback(Seaside.WACallback)>>evaluateWithField: MSWLI_Admin_Organization(Seaside.WAComponent)>>decorationChainDo: 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: a a a a Seaside.WASessionProtector(Seaside.WADecoration)>>nextPresentersDo: Seaside.WASessionProtector(Seaside.WAPresenter)>>processChildCallbacks: Seaside.WASessionProtector(Seaside.WAPresenter)>>processCallbackStream: _______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

Boris Popov wrote:
> Can you paste #renderFamilySelector:on: here please?

Soitinly (ala 3 stooges):

renderFamilySelector: aUserList on: html
   html text: '1) Family Name'. html break.
   (html select) list: aUserList; selected: aUserList first;
        labels: [:user | user familyId = 1
               ifTrue:  [user nameLast]
               ifFalse: [user nameLast , ' (#' , user familyId asString , ')'] ];
           callback: [self error: 'Should not come here'];
        liveCallback: [:selectedUser :r | self renderFamilyLiveCallback: selectedUser on: r ]


_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

Boris Popov wrote:
> Can you paste #renderFamilySelector:on: here please?

The odd part is the the code it's complaining about is NOT executed at
that point in time.. The liveCallback has already fired.. I've got
breakpoints set in every block possible in that routine and NONE fire
when I press the "submit" button on the main form.. This just doesn't
make any sense to me..
_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

Rick Flower wrote:
> Boris Popov wrote:
>> Can you paste #renderFamilySelector:on: here please?
>
> The odd part is the the code it's complaining about is NOT executed at
> that point in time.. The liveCallback has already fired.. I've got
> breakpoints set in every block possible in that routine and NONE fire
> when I press the "submit" button on the main form.. This just doesn't
> make any sense to me..
Ok.. Found the culprit..  I had several html select fields on this
particular page and had callbacks such as :

   (html select) list: #('Blah' ); callback: [self error: 'Should not
come here'].

Anyway, Seaside was complaining because in this particular case I was
actually causing the registered
callbacks to be triggered (something I hadn't done when using the
liveCallbacks).. In this case these
html select callbacks take 1 argument not zero as I've got them coded..

I also had the same problem with my html submitButton -- I had one arg
specified but it doesn't get one..
Once I cleaned that up, my problems went away -- no more weird traceback.

That was one of the really odd things I've tracked down recently.. I
guess it would have been nicer had
it told me what block it was executing (the debugger didn't make it very
obvious), etc.. I'll know better
for next time..

_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside