September 2007 - graphic-forms-devel@common-lisp.net

[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

[graphic-forms-devel] List box not resizing.
by Ken Perry 07 Sep '07

07 Sep '07

I followed your instructions and added the minimum size I have tried all kinds of values for my controls but what seems to be happening is when the control is initialized it is one size and after I add the first word it is another size but after I add the third word it doesn't get any bigger. What I want is it to start out at the right size and thus not cut off what I add. If you want to see what I mean run the following program and add the fruits in this order Apple Orange Pine Apple Thanks and the following sizes are after trying everything from 200 by 150 to 400 by 300 for the dialog and all kinds of sizes so it might not be the best look but I am just trying to get it to work then I can pretty it up Thanks, Ken ---c:\graphic-forms\src\tests\uitoolkit\fruitbasket.lisp--- (in-package #:graphic-forms.uitoolkit.tests) (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 move-txt-content (txt lb) (gfw:append-item lb (truncate-text (gfw:text txt )) nil nil) (setf (gfw:text txt) "") (gfw:give-focus txt)) (defun remove-item ( lb txt ) (gfw:delete-selection lb) (gfw:give-focus txt)) ; (defun fruit-dlg (title style parent) (let* ((dlg (make-instance 'gfw:dialog :owner parent :dispatcher (make-instance 'fruit-events) :layout (make-instance 'gfw:flow-layout :margins 8 :spacing 8 :style '(:vertical)) :style style :text title)) (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 :style '(:horizontal)) :parent dlg)) (fruit-label (make-instance 'gfw:label :text "Fruit:" :parent inner-panel)) (fruit-edit (make-instance 'gfw:edit :text "fffffffffffffffffffffffffffffff" :parent inner-panel)) (fruit-list (make-instance 'gfw:list-box ; :callback (fruit-list-callback) :parent top-panel)) (btn-panel (make-instance 'gfw:panel :layout (make-instance 'gfw:flow-layout :spacing 4 :style '(:horizontal :normalize)) :parent dlg)) (btn-add-callback (lambda (disp btn) (declare (ignore disp btn)) (move-txt-content fruit-edit fruit-list ))) (btn-add (make-instance 'gfw:button :callback btn-add-callback :style '(:default-button) :text "Add" :parent btn-panel)) (btn-remove-callback (lambda (disp btn) (declare (ignore disp btn)) (remove-item fruit-list fruit-edit))) (btn-remove (make-instance 'gfw:button :callback btn-remove-callback :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)) (setf (gfw:minimum-size fruit-list) (gfs:make-size :width 300 :height 77)) (setf (gfw:minimum-size dlg) (gfs:make-size :width 400 :height 300 )) (setf (gfw:minimum-size fruit-label) (gfs:make-size :width 50 :height 23)) (setf (gfw:minimum-size fruit-edit) (gfs:make-size :width 120 :height 23)) (setf (gfw:minimum-size fruit-list) (gfs:make-size :width 300 :height 77)) (gfw:pack dlg) (setf (gfw:text fruit-edit) "") (gfw:show dlg t) dlg)) (defun fruit-basket-main () (fruit-dlg "Lisp Fruit basket demo" '(:appli) nil) ) (defun fruitbasket () (gfw:startup "Window/Dialog Tester" #'fruit-basket-main))

2 1

[graphic-forms-devel] Gfw:append-item
by Ken Perry 05 Sep '07

05 Sep '07

I tried the following: (defun move-txt-content (txt lb) (gfw:append-item lb (truncate-text (gfw:text txt))) It says I don't have the right amount of arguments. I was hoping that the arguments in the Documents were not all required so that I could just add a text string from a gfw:edit to a list box. Now that I know more are required. I am wondering if you can explain to me what I am supposed to put in the event dispatcher argument if I am just moving text from an gfw:edit to a gfw:list-box I am sure its some kind of short lambda function since I don't think there is really anything I need to do unless I am making a more robust application than I am. Any help is very much appreciated. Ken

2 1

[graphic-forms-devel] Looking for example
by Ken Perry 03 Sep '07

03 Sep '07

I am looking for a simple dialog based program example. All the examples seem to start with a main with menus and when I try to change it so that its just a dialog I get missing dispose events. I am going to go read up on declare because it seems to be the one part of the language that the two manuals I have read on lisp kind of glossed over and it might be part of my problem. If anyone has a simple dialog example with maybe just two buttons even if it does nothing at all but display the two buttons when you run it that would be great. I have one right now that runs and displays a menu but its not just a dialog it runs up in a main frame and I don't need that. Ken

1 0

[graphic-forms-devel] Half done.
by Ken Perry 01 Sep '07

01 Sep '07

I am half done with my first program with the library but I have ran into a problem that needs fixing before it will work. I am not sure if my last message got to the list but in the flow demo and in the widget-tester demo you can not use tab to go from control to control. I used Microsoft ASM to write my last demo for a group I am on so I know I don't have to do any special event handling to make tab work in regular win32 programs. Is there a reason the tab is not working in the graphic forms library? The windlg seems to allow the tab to work correctly but it doesn't use the flow controls. Also is there a way to put short cuts on menus? I don't' see it in the documentation and the test program Text edit doesn't have them. I understand this is open source so I could help add some of these features if they are wanted but I don't' want to add something that is not wanted. Ken

2 1