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<[EMAIL PROTECTED]>
* 0xED320F02:0x05AE0907
_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel


> Old Signed: 11/23/07 at 20:06:41
* text/plain body
* Frank Goenninger<[EMAIL PROTECTED]>
* 0xED320F02:0x05AE0907


* Frank Goenninger<[EMAIL PROTECTED]>
* 0xED320F02:0x05AE0907

Attachment: PGP.sig
Description: PGP signature

_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel

Reply via email to