[cells-devel] Celtk: Any :state slot brings up error ... ?!

[Frank Goenninger]

Backtrace is:

   1: (ERROR SIMPLE-ERROR :FORMAT-CONTROL "the assertion ~s failed."
             :FORMAT-ARGUMENTS
             ((NOT (CFFI-SYS:NULL-POINTER-P CTK::SELF-TKWIN))))

   2: (CTK::TK-CREATE-EVENT-HANDLER-EX CALLSIGN-ENTRY-BTN
        CTK::WIDGET-EVENT-HANDLER-CALLBACK -1)
       Locals:
         CTK::WIDGET = CALLSIGN-ENTRY-BTN
         CTK::CALLBACK-NAME = CTK::WIDGET-EVENT-HANDLER-CALLBACK
         NIL = -1
         CTK::SELF-TKWIN = 0         <<<<<< ----  Here's the  
problem .... Yeah -why?
         CTK::CALLBACK-NAME = CTK::WIDGET-EVENT-HANDLER-CALLBACK

   3: ((:INTERNAL (METHOD CTK::MAKE-TK-INSTANCE :AFTER (CTK::WIDGET)) 0)
       :USER-Q (:POST-MAKE-TK CALLSIGN-ENTRY-BTN))

   4: (CTK:TK-USER-QUEUE-HANDLER
        (NIL ((:PACK PM-LIST) . #<Closure # @ #x10fcefc2>)))

   5: (CELLS::FINISH-BUSINESS)

   6: (CELLS::CALL-WITH-INTEGRITY NIL NIL
        #<Closure (:INTERNAL CTK::%RUN-WINDOW 1) [PMUTIL-GUI] @  
#x10fbad02>)

   7: (CTK::%RUN-WINDOW)



Am 23.11.2007 um 20:09 schrieb Frank Goenninger:

> * PGP Signed: 11/23/07 at 20:09:42, Decrypted
>
> Ah - no, it's not caused by 'disbled being written incorrectly (I  
> just saw this - sorry).
>
> Frank
>
> Am 23.11.2007 um 20:06 schrieb Frank Goenninger:
>
>> > Old Signed: 11/23/07 at 20:06:41
>>
>> Hi again:
>>
>> I have my entry widget as posted before:
>>
>> (mk-button-ex ("Change!"
>>                    (let* ((pmutil-gui (fm^ :pmutil-gui))
>>                           (pm (selected-pm pmutil-gui)))
>>                      (when pm
>>                        (let ((callsign (fm^v :callsign-entry)))
>>                          (set-status pmutil-gui +PMUTIL-GUI-STATUS- 
>> SETTING-CALLSIGN-IN-PM+)
>>                          (setf (new-callsign pmutil-gui)
>>                                (subseq callsign
>>                                        0
>>                                        (min (length callsign)
>>                                              
>> +PMIO_MAX_CALLSIGN_LENGTH+)
>>                                        ))
>>                          (set-status pmutil-gui +PMUTIL-GUI-STATUS- 
>> READY+)))))
>>                   :id :callsign-entry-btn
>> ;;                   :state (c? (if (pm-selected-p (fm^ :pmutil- 
>> gui))       <--- My intended functionality
>> ;;                                  'enabled
>> ;;                                  'disbled))
>>                   :state (c? (if  
>> 1                                                                   
>> <-- Simple test
>>                                  'enabled
>>                                  'disbled))
>>                   :background (c? (background .parent))
>>                   :parent-x 589
>>                   :parent-y 320
>>                   :tile? nil)
>>
>> As soon as I put the :state part in I get the following error:
>>
>> the assertion (NOT (CFFI-SYS:NULL-POINTER-P CTK::SELF-TKWIN)) failed.
>>    [Condition of type SIMPLE-ERROR]
>>
>> I wasn't able to get a real trace/debug approach to this one ... I  
>> assume this has to do with the order of widget creation. I am sure  
>> I have used this before, so I haven't a clue what's wrong there.  
>> Oh my ... ?!
>>
>> Any help really appreciated...
>>
>> Frank
>>
>> * Frank Goenninger<frgo at mac.com>
>> * 0xED320F02:0x05AE0907
>> _______________________________________________
>> cells-devel site list
>> cells-devel at common-lisp.net
>> http://common-lisp.net/mailman/listinfo/cells-devel
>>
>>
>> > Old Signed: 11/23/07 at 20:06:41
>> * text/plain body
>> * Frank Goenninger<frgo at mac.com>
>> * 0xED320F02:0x05AE0907
>
>
> * Frank Goenninger<frgo at mac.com>
> * 0xED320F02:0x05AE0907

-------------- next part --------------
A non-text attachment was scrubbed...
Name: PGP.sig
Type: application/pgp-signature
Size: 833 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-devel/attachments/20071123/478fcfec/attachment.sig>