cells-devel November 2007

cells-devel@common-lisp.net

6 participants
14 discussions

[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

Re: [cells-devel] celtk expander
by Andy Chambers 08 Nov '07

08 Nov '07

On Nov 8, 2007 2:20 PM, Ken <kennytilton(a)optonline.net> wrote: > Andy Chambers wrote: > > On Nov 7, 2007 5:56 PM, Ken Tilton <kennytilton(a)optonline.net> wrote: > > OK I've got it working nicely now. > Cool. You are now certified for Cells /and/ Tk. :) > > It's mostly the same as I > > previously posted except the expansion is specified more like a > > row/stack widget (i.e. you don't have to use :expansion you just put > > in the widgets). The specified expansion together with the expander > > button all remain as kids for the life of the widget and an observer > > on the expanded slot packs/unpacks as necessary. > > > You had to do your own? I am just wondering if the existing "packing" > rule had done reasonable things with the visible/collapsed slots. There's a kids-packing rule for the frame widgets but it doesn't know about visible or collapsed slots. In fact, I'm pretty sure celtk doesn't know anything about these. The only reference I could find to either was in the gui-geometry bit of cells which doesn't seem to be used by celtk. Grepping through Celtk for either "visible" or "collapse" yields nothing. Maybe this is another celloism? I was thinking about this though as a further change. We could add a visible slot to tk-object and the kids-packing rule could check it while creating its pack statement. I'll get the expander finished first though. Just need to draw the bitmaps on the buttons. Thanks for all your help. Andy

1 0

Re: [cells-devel] celtk expander
by Andy Chambers 08 Nov '07

08 Nov '07

On 11/6/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > Andy Chambers wrote: > > On 11/6/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > Hmmpph. Too bad Tk does not know about that, we have to unpack and then > repack, no simple "visible" flag. > > > > > So I think that setting the visible attribute is the way to go. > > OK. Don't forget :collapsed (c? (not (^visible))) if that is what you > want. (I /think/ collapsed works in the Tk bit.) grepping the Celtk source, I can't find anything about collapsed (although it does appear in the cells geometer class. I can't find anything in the tk docs about collapse either. Should I inherit from the geometer class itself to get this or am I missing the point entirely. -- Andy

2 2

[cells-devel] porting to cells3
by Andy Chambers 06 Nov '07

06 Nov '07

On 10/29/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > > I think you cannot "upgrade" Cells-Gtk, I think you have to make a giant > leap for guikind and call it Cells-Gtk3 (or 4, I actually forget if I am > at Cells3 or 4, the good thing being I do not think about Cells anymore > (tho every 4-8 months I run into a solid bug (another reason to, um, > upgrade))). Cells-Gtk3 will be an interestingly big job since I /think/ > you will be getting into a user-queue handler that knows about Gtk, but > as did Cells-Gtk Classic you can start by mimicking Celtk. I knew it wouldn't just be a case of moving the asd files around but perhaps I was still underestimating the task. Here's the problems I've come accross so far. 1) def-c-output seems to be called defobserver now. Is there any semantic differences between the two? 2) make-instance 'family now requires an :fm-parent My approach until now has been to update the cells that cells-gtk uses, then load-system, fix errors, load-system.... I'm just communicating this in case it elicits a nugget of insight from someone that might have attempted a similar task before. Cheers, Andy

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-devel November 2007