cells-devel

cells-devel@common-lisp.net

567 discussions

[cells-devel] Cells: file variables.lisp: No more needed?
by Frank Goenninger 03 Dec '07

03 Dec '07

Hi again: While trying to make cells.lpr and cells.asd consistent I noticed that there is file variables.lisp which is no more loaded from cells.lpr. Is it still needed or is it obsolete? I'd like to make Cells 3.0 as clean as possible as I am basing now more and more apps on it ... ;-) Thanks for feedback. Frank

1 0

Re: [cells-devel] UTILS-KT: Latest CVS updates: "ide" causes problems ...
by Frank Goenninger 03 Dec '07

03 Dec '07

Am 03.12.2007 um 00:09 schrieb Ken Tilton: > Frank Goenninger wrote: >> Hi Kenny, >> I just updated from CVS and found several challenges. The most >> intriguing is the IDE related stuff in several files (core, >> detritus). >> As there are now some functions that are only meaningful when >> running on AllegroCL and when having the IDE in the image I'd >> like to know what the IDE pushes on *features* to make these >> functions only being there when Allegro and IDE are available. >> Do you know what the magic #+(allegro ide) or some such string >> would be ? Thx! > > Yes, that is it, but ISTR it should be #+(and allegro ide). Check > me on that. Thx for cleaning up. Check. I was a bit sloppy in the email - it's correct in the source. Frank

1 0

[cells-devel] UTILS-KT: Latest CVS updates: "ide" causes problems ...
by Frank Goenninger 02 Dec '07

02 Dec '07

Hi Kenny, I just updated from CVS and found several challenges. The most intriguing is the IDE related stuff in several files (core, detritus). As there are now some functions that are only meaningful when running on AllegroCL and when having the IDE in the image I'd like to know what the IDE pushes on *features* to make these functions only being there when Allegro and IDE are available. Do you know what the magic #+(allegro ide) or some such string would be ? Thx! Frank

1 0

[cells-devel] Celtk: Any :state slot brings up error ... ?!
by Frank Goenninger 23 Nov '07

23 Nov '07

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

1 2

[cells-devel] Celtk: mk-entry: How to set initial value?
by Frank Goenninger 22 Nov '07

22 Nov '07

Hi Kenny, hi all (would be interesting to see who actually monitors this ?) I have an entry widget like this: (mk-entry :id :callsign-entry :value (c?n (let ((pm (selected-pm (fm^ :pmutil-gui)))) (if pm (callsign pm)))) :enabled (c? (pm-selected-p (fm^ :pmutil-gui))) :width 17 :tk-justify 'left :relief 'sunken :borderwidth 1 :parent-x 424 :parent-y 321 :background (c_? (required-field-color .parent)) :tile? nil) Intention is to be able to set the value initially and afterwards have the rule kick-in and setting the value automagically. Alas, neither the initial setting of the value really works nor does the cell rule fire ... Are the rules off here or is it just another point where a tiny little code fragment is missing in Celtk that drives the entry widget? Any pointers really appreciated! Frank

3 4

[cells-devel] Celtk: Listbox again: new-value does not get propagated ... Or so it seems ; -) ?!
by Frank Goenninger 19 Nov '07

19 Nov '07

Kenny, all: I have still the Listbox problem of not getting a new-value from the listbox after selecting an item. I was able to track it down to the following function in file widget.lisp: (defmethod tk-output-selection (self new-value old-value old-value- boundp) (declare (ignorable old-value old-value-boundp)) (trc "widget.lisp: selection output" self old-value new-value) (when new-value (with-integrity (:client `(:variable ,self)) (let ((v$ (if (stringp new-value) ;; just going slow on switching over to C API before changing tk-send-value new-value (tk-send-value new-value)))) (tcl-set-var *tki* (tk-variable self) v$ (var-flags :tcl- namespace-only)))))) I do get the following line as debug output: 0> 81 widget.lisp: selection output pm-list nil 25681408 So, yeah, there it is: the value of pm-list is changing from NIL to a cffi pointer address. My cell rule (c? (value (fm-other :pm-list))) does not fire ... How should I enable some more debugging ? Thanks! Frank

1 0

[cells-devel] Celtk: mk-scrolled-list / Listbox: How to access the current selection ?
by Frank Goenninger 18 Nov '07

18 Nov '07

Hi all: (I also attached a screendump, but this most likely is stripped by the handler for cells-devel) I have a listbox created via (mk-scrolled-list :id :pm-list :tile? nil :parent-x 10 :parent-y 158 :tkfont (list "Courier New" 14 'roman 'normal) :width 80 :selectforeground "#FFFFFF" :selectbackground "#00257A" :list-height 6 :list-item-keys (c? (pms-as-keys (pm-array-ptr (fm^ :pmutil- gui)) (nr-pms (fm^ :pmutil-gui)))) :list-item-factory (lambda (pm) (when pm (make-instance 'listbox-item :id :pm-listbox :fm-parent *parent* :value pm :item-text (conc$ " # " (serial- number pm) " : " (call-out- device pm) ", \"" (callsign pm) "\", FW Version: " (firmware- version pm))))))) I am trying to access the selection with (value (fm-other :pm-list )) but always get NIL - no matter if a line in the listbox is selected or not.... I double checked with the demos in lotsa-.widgets but could not find any difference from the examples there ... Any help really appreciated. Thx - Frank P.S.: On the screendump there's the line "Info on selected Power..:" - > The second one of the NILs there is the result of (value (fm-other :pm-list)) ...

1 0

[cells-devel] Cells: `=0/ANONCELL/NIL]' is not of the expected type `REAL' ???
by Frank Goenninger 17 Nov '07

17 Nov '07

Hi Kenny, hi all ... i've never had this before ... Or so I think ;-) What may cause `=0/ANONCELL/NIL]' is not of the expected type `REAL' to happen ? It's like some cell is not recognized as such and doesn't get "evaluated" correctly? Or is it? Thx for any pointers... Frank

1 1

[cells-devel] Celtk: Labels no more sunken or raised ... Tile side-effect ?
by Frank Goenninger 16 Nov '07

16 Nov '07

Hi all: I found some strange effect ... I can't seem to get :relief 'sunken make my label really sunken... (mk-label :text (c? (let ((fw-filename (fm^v :choose-fw-file- btn))) (or fw-filename ""))) :parent-x 210 :parent-y 340 :width 30 :borderwidth 1 :relief 'sunken :tile? nil) When browsing through the code in Celtk I found very few places with Tile dependency only. The most complex being: (defgeneric tk-class-options (self) (:method-combination append) (:method :around (self) (or (get (type-of self) 'tk-class-options) (setf (get (type-of self) 'tk-class-options) (loop with all = (remove-duplicates (call-next- method) :key 'second) for old in (when (tile? self) (case (type-of self) (label '(pady padx height indicatoron relief tk-label)) (otherwise '(pady padx #+hmmm height indicatoron relief tk-label))));; do (setf old (delete old all :key 'car)) finally (return all)))))) .. which does what exactly? I see there's a (when (tile? self) in there ... but what if no Tile is loaded? Sorry, random poking here, clearly, but I can't find what I do different than 10 months ago when last working with Celtk ... Thanks for any insight! Frank

1 0

[cells-devel] Celtk: File Open Dialog ?
by Frank Goenninger 16 Nov '07

16 Nov '07

Hi all: I have been trying to get a button with (mk-button :id :choose-fw-file-btn :text "Choose ..." :command "tk_getOpenFile") in order to get an Open File dialog and get a filename back. The dialog opens but I can't get the selected filename as a value... Any ideas? thx!!! All the best Frank

1 0

← Newer
1
...
18
19
20
21
22
23
24
...
57
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-devel