- graphic-forms-devel@lists.common-lisp.net

[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

[graphic-forms-devel] Accessibility question
by Ken Perry 01 Sep '07

01 Sep '07

Jack, I just tested your layout tester and found a problem. Is there no tab index property on the controls? You had asked me about accessibility earlier and one big part of accessibility for your forms would be to have tab index working and the ability to add short cut keys. Currently it seems the only way to use the buttons is to click on them with the mouse for example I have 4 buttons on the layout tester and can't tab between them and select them with enter is this true? Or is there a property I have not found in the API to add keyboard access. Ken

2 1

[graphic-forms-devel] Docs work Microsoft is interesting
by Ken Perry 31 Aug '07

31 Aug '07

Here is the trouble I was having with the Document file. I downloaded the chm and opened it by just hitting enter on the file. That nice Microsoft dialog popped up and asked if I really wanted to open the file. I didn't uncheck the box to keep asking if I wanted to open the file. And that caused the chm file not to work. As soon as I unchecked the continue to ask if I want to open the file the problem went away. . I find that really strange but that is a Microsoft strangeness not a Graphic-forms. Thanks, Ken

1 0

[graphic-forms-devel] Documents
by Ken Perry 31 Aug '07

31 Aug '07

I went to source forge to download the chm. After getting it when ever I open a topic the chm tells me it can't get to the web site. Is there something wrong with that chm file that is on source forge? Is there a online manual for Graphic-forms? I don't want to download the stuff for making the manual if I don't have to. Ken

3 2

clbuild, was Re: [graphic-forms-devel] Up and running
by Jack Unrue 31 Aug '07

31 Aug '07

On 8/30/07, David Lichteblau <david(a)lichteblau.com> wrote: > > Okay, the whole ASDF-on-Windows situation is not ideal, so your > configuration file to get people started is probably a good idea. > > I was hoping that the shortcut patch for ASDF makes things a little > easier (because ordinary windows shortcuts created manually can be > used), but that does not help much as long as it's not committed. > > clbuild is something I find valuable to avoid having to install > everything manually, but I don't test it regularly on Windows, so it > might be more trouble than it's worth for others. It's nice to have graphic-forms supported in clbuild, so I thank you for making that happen. I think the trouble is the uneven functionality provided by different Unix-compatibility layers for Windows, not clbuild itself. For instance, MSYS has a broken version of ln which behaves like cp instead. If I were running Cygwin I suspect clbuild would work fine on my machine. One comment to the wider audience. The shortcut patch mentioned above, which is available at: http://www.lichteblau.com/blubba/shortcut/ is very easy to apply, if you're inclined to build SBCL/Win32 from source. -- Jack Unrue

1 0

[graphic-forms-devel] Up and running
by Ken Perry 30 Aug '07

30 Aug '07

Ok I have all the libraries loaded. I also ran config.lisp and it ran fine. I then set the variables I think I set them right since I already have the libraries loaded the readme said to set them to nill so I did something like (setq gfsys::*cffidir* "") (setq gfsys::*gfdir* "c:/graphic-forms") Etc... Then when I ran (gfsys::configure-asdf) I got nill is that correct? I assumed it was so I did the next thing which was (asdf:operate 'asdf:load-op :graphic-forms-uitoolkit) And got this: (asdf:operate 'asdf:load-op :graphic-forms-uitoolkit) ; loading system definition from C:graphic-forms-uitoolkit.asd into #<PACKAGE AS DF0> ;; Loading file C:graphic-forms-uitoolkit.asd ... "Graphic-Forms UI Toolkit" "Copyright (c) 2006-2007 by Jack D. Unrue" " " ; registering #<SYSTEM GRAPHIC-FORMS-UITOOLKIT #x19F63DF5> as GRAPHIC-FORMS-UITO OLKIT WARNING: The generic function #<STANDARD-GENERIC-FUNCTION PERFORM> is being modified, but has already been called. ;; Loaded file C:graphic-forms-uitoolkit.asd *** - component "binary-data" not found, required by #<SYSTEM "graphic-forms-uitoolkit" #x19F18DF5> Did I do something wrong? Ken

3 4

[graphic-forms-devel] For your information
by Ken Perry 30 Aug '07

30 Aug '07

I have ran the Hello-world and textedit demo programs. They work fine for me with my screen reader and now I will go see if I can make my own program. Good job Jack. Thanks, Ken

2 1