graphic-forms-devel

graphic-forms-devel@common-lisp.net

53 discussions

[graphic-forms-devel] sbcl-callback-patch
by Hugo Duncan 07 Aug '08

07 Aug '08

The sbcl-callback-patch is no longer required with current (tested with 1.0.19.25) SBCL, and indeed causes problems when used with save-lisp-and-die. Hugo __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

2 1

Re: [graphic-forms-devel] opengl
by Jack Unrue 07 Aug '08

07 Aug '08

On Mon, Aug 4, 2008 at 7:33 AM, Hugo Duncan <hugo(a)hugoduncan.org> wrote: > > I'm not sure from your direct reply whether you wanted > this to go to the list. Whoops, my mistake. > I am considering using graphic-forms in an upcoming, non-trivial, > project, but still have a couple of reservations. I see that the list > isn't very active - what are your plans for graphic-forms (if any)? I have not actively worked on it for a number of months. It's always nice to have users, though, so my activity level could increase again. > and I notice that a couple of things are still missing - eg. > combo-box. Oh yes, there is quite a bit of functionality to be added, see the bug tracker at: http://sourceforge.net/tracker/?group_id=163034&atid=826145 > minor annoyances: is there a reason for manually configuring > the paths in config.lisp (rather than using *load-pathname*)? Just that I hadn't thought of a better way than the current mechanism (and back then, I was still inexperienced with Common Lisp). > also, I couldn't access any of the content in the downloadable > chm help file. That is really odd. At one time, the chm file was perfectly usable. But I've now downloaded what is on SourceForge and tried it on two machines, one with IE6 and other with IE7, and I see the same problem. I suspect that simply rebuilding the chm file will result in one that is usable, at which point that could be uploaded to SF.net. > Attached is a small patch for the asd file - I was getting > rgb->color undefined errors... Thanks! > My testing so far has gone very smoothly, and you have > obviously put a lot of effort into the implementation, so I > am positively inclined to use graphic-forms at this point. Thanks for your feedback, Hugo. I can't promise anything specific, but I'm encouraged to make some time available to work on Graphic-Forms and support you and other folks who are trying to use it. Please keep sending your feedback and/or bug reports as you encounter issues. -- Jack

1 0

[graphic-forms-devel] opengl
by Hugo Duncan 30 Jul '08

30 Jul '08

Hi, Firstly, many thanks for creating a functional win32 gui toolkit! I am trying to use opengl with a graphic-forms window. So far this has involved creating a new window style, and adding some initialisation code once the window has been created. So far so good. To actually draw anything, a wglCreateContext call is required to create a context, which must be made current with wglMakeCurrent before gl functions are called. Where would be a good place to store this window specific context, and its destructor function, so that it can be accessed in the paint/resize events, etc? I suppose the graphics-context might be an option, though replacing it with an opengl-context might be better which would entail selecting the correct type of context in the proceess-message methods. Any guidance/thoughts you could give would be gratefully received. Regards, Hugo __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

1 0

[graphic-forms-devel] Corman Lisp
by William Proffitt 27 Oct '07

27 Oct '07

Hello, I'm new to Graphic-Forms and I was curious if any attempt has been made to get it working with Corman Lisp? If so what do I need to do? William

2 1

[graphic-forms-devel] Textedit demo crashing
by Jyrki Jaakkola 15 Sep '07

15 Sep '07

Hello! I have been testing textedit demo and I think may have found a bug. Whenever I enter at the most two characters to *textedit-control* the program halts with error EXCEPTION_ACCESS_VIOLATION. This doesn't happen if I enter at least three characters or if restart application (without restarting sbcl) after entering three characters. I'm running sbcl 1.0.6 on windows xp sp2. My development environment is slime 2.0 running on emacs 21.3. I'm using following libraries: cffi-070901, Closer to Mop 0.42 and lw-compat 0.22. Regards, Jyrki Jaakkola

3 3

[graphic-forms-devel] Problems with dialogs
by Ken Perry 13 Sep '07

13 Sep '07

Since I was having trouble with the layouts looking right I decided to try to make the program with out a layout mangier. If you run this and maximize the dialog you will see that it all lies up now. Now I am having a different problem though it seems with out the layout mangier I lose the default buttons. I have the btn-add set to be the default button but when I hit enter on the edit box it gives me a warning and does nothing. Did I do the default button correctly? The following is the running code: (defclass fruit-events (gfw:event-dispatcher) ()) (defmethod gfw:event-close ((disp fruit-events) (dlg gfw:dialog)) (call-next-method) (let ((ownerp (gfw:owner dlg))) (gfs:dispose dlg) (unless ownerp (gfw:shutdown 0)))) (defun fruit-basket-nl () (gfw:startup "Fruit basket" (lambda () (let* ((dlg (make-instance 'gfw:dialog :owner nil :dispatcher (make-instance 'fruit-events) :style :modeless :text "Fruit basket LISP demonstration")) (fruit-list (make-instance 'gfw:list-box ;:callback (fruit-list-callback) :parent dlg)) (fruit-label (make-instance 'gfw:label :text "Enter fruit:" :parent dlg)) (fruit-edit (make-instance 'gfw:edit :text "" :parent dlg)) (btn-add (make-instance 'gfw:button :style '(:default-button) :callback (lambda (disp btn ) (declare (ignore disp btn)) (gfw:append-item fruit-list (gfw:text fruit-edit ) nil nil) (setf (gfw:text fruit-edit) "") (gfw:give-focus fruit-edit)) :style '(:default-button) :text "Add" :parent dlg)) (btn-remove (make-instance 'gfw:button :callback (lambda (disp btn) (declare (ignore disp btn)) (gfw:delete-selection fruit-list) (gfw:give-focus fruit-edit)) :style '(:default-button) :text "Remove" :parent dlg)) (btn-exit (make-instance 'gfw:button :callback (lambda (disp btn) (declare (ignore disp btn)) (let ((ownerp (gfw:owner dlg))) (gfs:dispose dlg) (unless ownerp (gfw:shutdown 0)))) :style '(:cancel-button) :text "Exit" :parent dlg))) (declare (ignore fruit-label btn-add btn-remove btn-exit)) (setf (gfw:minimum-size dlg) (gfs:make-size :width 186 :height 141 )) (setf (gfw:location fruit-label) (gfs:make-point :x 6 :y 6 )) (setf (gfw:size fruit-label) (gfs:make-size :width 50 :height 23 )) (setf (gfw:location fruit-edit) (gfs:make-point :x 60 :y 6 )) (setf (gfw:size fruit-edit) (gfs:make-size :width 120 :height 23 )) (setf (gfw:location fruit-list) (gfs:make-point :x 33 :y 33 )) (setf (gfw:size fruit-list) (gfs:make-size :width 120 :height 77 )) (setf (gfw:location btn-add) (gfs:make-point :x 6 :y 114 )) (setf (gfw:size btn-add) (gfs:make-size :width 55 :height 23 )) (setf (gfw:location btn-remove) (gfs:make-point :x 65 :y 114 )) (setf (gfw:size btn-remove) (gfs:make-size :width 56 :height 23 )) (setf (gfw:location btn-exit) (gfs:make-point :x 125 :y 114 )) (setf (gfw:size btn-exit) (gfs:make-size :width 55 :height 23 )) (setf (gfw:default-widget dlg) btn-add) (gfw:show dlg t) dlg))))

2 1

[graphic-forms-devel] Layout workings?
by Ken Perry 13 Sep '07

13 Sep '07

First I realize this is in alpha so if the answer is the layout mangier is not working fully that is fine. I just want to know how this is supposed to work. I have created a top level layout mangier that is vertical. inside it I have put a layout mangier that is horizontal and has an label and edit box and separately inside the top level under the first one I have put in a list box. Then finally I put another horizontal layout mangier under the list box that has 3 buttons. So I think what I should get is a row with label and edit box and a second row with the list box and a third row with 3 buttons. If I understand it correctly it should grow the list box to be as long as my edit box and label together. Then finally make the buttons at the bottom all the same length of the longest row. If that is how it is supposed to work it is not. My list box is not the same length as the edit box let alone the edit box and label together. Can you take a look at this and tell me what I should be doing to line these controls up in this dialog? (defclass fruit-events (gfw:event-dispatcher) ()) (defmethod gfw:event-close ((disp fruit-events) (dlg gfw:dialog)) (call-next-method) (let ((ownerp (gfw:owner dlg))) (gfs:dispose dlg) (unless ownerp (gfw:shutdown 0)))) (defun fruit-basket () (gfw:startup "Fruit basket" (lambda () (let* ((dlg (make-instance 'gfw:dialog :owner nil :dispatcher (make-instance 'fruit-events) :layout (make-instance 'gfw:flow-layout :margins 8 :spacing 8 :style '(:vertical)) :style :modeless :text "Fruit basket LISP demonstration")) ; (edit-disp (make-instance 'edit-control-events)) (top-panel (make-instance 'gfw:panel :layout (make-instance 'gfw:flow-layout :spacing 4 :style '(:vertical)) :parent dlg)) (inner-panel (make-instance 'gfw:panel :layout (make-instance 'gfw:flow-layout :spacing 4) :parent top-panel)) (fruit-list (make-instance 'gfw:list-box ;:callback (fruit-list-callback) :parent top-panel)) (fruit-label (make-instance 'gfw:label :text "Enter fruit:" :parent inner-panel)) (fruit-edit (make-instance 'gfw:edit :text "1234567890123456789012345" :parent inner-panel)) (btn-panel (make-instance 'gfw:panel :layout (make-instance 'gfw:flow-layout :spacing 4) :parent top-panel )) (btn-add (make-instance 'gfw:button :callback (lambda (disp btn ) (declare (ignore disp btn)) (gfw:append-item fruit-list (gfw:text fruit-edit ) nil nil) (setf (gfw:text fruit-edit) "") (gfw:give-focus fruit-edit)) :style '(:default-button) :text "Add" :parent btn-panel)) (btn-remove (make-instance 'gfw:button :callback (lambda (disp btn) (declare (ignore disp btn)) (gfw:delete-selection fruit-list) (gfw:give-focus fruit-edit)) :style '(:default-button) :text "Remove" :parent btn-panel)) (btn-exit (make-instance 'gfw:button :callback (lambda (disp btn) (declare (ignore disp btn)) (let ((ownerp (gfw:owner dlg))) (gfs:dispose dlg) (unless ownerp (gfw:shutdown 0)))) :style '(:cancel-button) :text "Exit" :parent btn-panel))) (declare (ignore fruit-label btn-add btn-remove btn-exit)) (gfw:pack dlg) (setf (gfw:minimum-size dlg) (gfs:make-size :width 300 :height 200 )) (setf (gfw:text fruit-edit) "") (gfw:show dlg t) dlg))))

2 1

[graphic-forms-devel] Dialog focus
by Ken Perry 09 Sep '07

09 Sep '07

I have just looked through the documentation for a way to set the initial focused control but have not found one. I could create a focus event that said if the dlg gets focus then focus the one I want but I am wondering if there is another way like for example a :default-focus for the dlg? I add a listbox to the dialog then an edit box and then 3 buttons. It seems no matter if I add the edit box first or last or in the middle some where The dialog when shown always seems to focus the list box which I don't understand why that is. Any ideas are greatly appreciated. Ken

3 4

[graphic-forms-devel] Size of controls
by Ken Perry 08 Sep '07

08 Sep '07

I am using the flow controls to create a dialog. The problem is I am dynamically adding strings to a list-box. The problem is its staying the size of the first string I added. I want to be able to set the width of the list-box but I can't seem to get size or preferred size to work does anyone have an example of a defined list-box with size set. Ken

3 3

[graphic-forms-devel] Fixed my stupid listbox layout problem
by Ken Perry 07 Sep '07

07 Sep '07

Please disregard my layout question. It was one of the banes of coding I blocked and copied a function and didn't even notice it was there. I had a truncate function shortening the string so it wasn't even the lay out manager or the size of the controls causing the problem. Thanks, Ken

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

graphic-forms-devel