[cells-devel] Celtk: Any :state slot brings up error ... ?!
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
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:
* PGP 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@mac.com> * 0xED320F02:0x05AE0907 _______________________________________________ cells-devel site list cells-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cells-devel
* PGP Signed: 11/23/07 at 20:06:41 * text/plain body * Frank Goenninger<frgo@mac.com> * 0xED320F02:0x05AE0907
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@mac.com> >> * 0xED320F02:0x05AE0907 >> _______________________________________________ >> cells-devel site list >> cells-devel@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@mac.com> >> * 0xED320F02:0x05AE0907 > > > * Frank Goenninger<frgo@mac.com> > * 0xED320F02:0x05AE0907
participants (1)
-
Frank Goenninger