November 2007 - cells-devel - mailman3.common-lisp.net

[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

[cells-devel] celtk expander
by Andy Chambers 06 Nov '07

06 Nov '07

Here's my effort at an expander. It doesn't have the arrow's yet. I was trying to get the expanding bit working correctly first. It works the first time (i.e. you can expand it once, then unexpand) but after that it kills the kids and can't re-create them again. Any hints? (defmodel expander (frame-stack) ((label :initarg :label :accessor label :initform "") (expanded :initarg :expanded :accessor expanded :initform (c-in nil)) (expansion :initarg :expansion :accessor expansion :initform nil)) (:default-initargs)) (defmacro mk-expander ((&rest initargs) &rest kids) `(make-instance 'expander ,@initargs :fm-parent *parent* :expansion (c? (the-kids ,@kids)) :expanded (c-in nil) :kids (c? (the-kids (mk-button-ex ((^label) (setf (expanded (upper self expander)) (not (expanded (upper self expander)))))) (when (^expanded) (^expansion)))))) ;; test the expander (defmodel test-win (window) () (:default-initargs :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-label :text "hi") (mk-expander (:label "expander") (mk-stack () (mk-label :text "expanded"))) (mk-label :text "ho")))))) (defun test () (test-window 'test-win t)) Cheers, Andy

2 2

[cells-devel] Re: cells mailing list
by Ken Tilton 05 Nov '07

05 Nov '07

Andy Chambers wrote: > Hi Kenny, > > Is the cells mailing list active? Is that where I should send > questions/patches related to celtk development? > > I sent a message on Saturday morning about an expander widget but it > hasn't shown up in in the archives yet and I haven't had any bounce > messages. > > Cheers, > Andy > Sorry for the delay in responding, I let this slip. Just checked the list and do not see any issues. I am CCing the list to see what I can see. Celtk questions/patches go to Cells until someone steps up to maintain a standalone project. kt

1 0

[cells-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 05 Nov '07

05 Nov '07

Can you afford to lose 300,000 potential customers per year ? How would You like to divert 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others At $0 cost to you...? ...iNSTANT BOOSTER diverts 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others at $0 cost to you! ...No matter what you are selling or offering - INTSANT BOOSTER will pull in hordes of potential customers to your website - instantly! http://www.promote-busines.com/instantbooster/ http://www.promote-busines.com/remove/

1 0

[cells-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 02 Nov '07

02 Nov '07

Feed Blaster puts your ad right to the screens of millions in 15 Minutes ! More and more people are subscribing to feeds every day and there are millions who are already subscribed. Thus, your ad will reach a very broad range of potential customers with each use of Feed Blaster! Feed Blaster is the first & only submitter that can submit your ads to thousands of feeds within a few minutes! Post your ads where people read them! - What if you could place your ad into all these feeds ? Right, that would mean you would have millions of sites linking to your ad - and millions of users reading your message within minutes - and my idea actually works. http://www.promote-bz.net/feedblaster/ Unsubscribe http://www.promote-bz.net/remove/

1 0