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 Goenningerfrgo@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 Goenningerfrgo@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 Goenningerfrgo@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 Goenningerfrgo@mac.com
- 0xED320F02:0x05AE0907
- Frank Goenningerfrgo@mac.com
- 0xED320F02:0x05AE0907
-
Frank Goenninger