newlispfanclub.alh.net

Hi!

Just in case anyone cares, source is now at https://hg.sr.ht/~oofoe/wb (because BitBucket stopped supporting Mercurial). Hope this is helpful!

I have some other NewLisp stuff there as well if you're interested.

Cheers!

OK, see that you're using gs:set-titled-border -- I haven't used that one myself. Does seem that gs:-set-font won't work for that through the GUIServer. However, the SWT (successor to AWT which is used by GUIServer, I think) will allow to set a font with the .setFont() method. Perhaps AWT has the sa...

Can you post source for this GUI display? Not even sure how you're displaying it since NewLisp GUIServer doesn't seem to support the AWT Group widget.

If you're just dropping text over a hand drawn group, you can do it using the gs:set-font function.

Hi! Thanks very much for fixing that. It's a small thing, but it can really trip someone up when they're trying to make something like that work for the first time. Any possibility of getting the "(import LIBRARY)" syntax in Windows too? With maybe some way to list the symbols in the library? Thanks!

Incidentally, here's how to determine if a file is a png image using the standard libpng library: ;; C library functions. (import "msvcrt.dll" "fopen") (import "msvcrt.dll" "fread") ;; PNG library functions. (import "libpng16-16.dll" "png_sig_cmp") (define (pngfile? path) "( path -- f) Determines if...

Hi! In my quest to construct a program to derive the question to the answer of Life, the Universe and Everything (which is, as any schoolchild knows, 42), I wrote a very simple genetic algorithm solver. I don't mean simple as in "simple to use", I mean absolute braindead simple. By some definitions,...

Hi! Hope this is the best place to post this... The first example for import at http://www.newlisp.org/downloads/newlisp_manual.html#import is incorrect. It should have the following marked line added: (define LIBC (lookup ostype '( ("Windows" "msvcrt.dll") ("OSX" "libc.dylib") (import LIBC "printf"...

Hi! I have something like this: (gs:panel 'Panel) (gs:check-box 'Visible 'checkboxing "visible) (gs:add-to 'Panel 'Visible) And it's very nice. I get events when the user changes the value to my checkboxing function and so forth. However, what if I want to set the value from the program? (gs:set-val...

Hi!

Is there anything like the Python webbrowser library to launch a file in the system specific web browser?

I'm currently using where pfile is something like "c:\\temp\\card-preview.html", but this is very specifically Windows...

Thanks!

Thanks for taking a look! Macros are supposed to be useful for "writing the code that you would have written if you had the patience". Since guiserver uses symbols, I figured that they would be perfect for button assembly boilerplate. However, I had to cheat with sending strings to guiserver because...

OK, think I've got it. Here's the revised macro: (define-macro (button3 _parent _name _buttons) (letn ((panel (sym (string (eval _parent) "-" (eval _name)))) (slots '("west" "center" "east")) (bname nil) (i nil)) (gs:panel panel) (gs:set-border-layout panel) (dotimes (i (length (eval _buttons))) (se...

Hi! I am experimenting with macros to do more "declarative" setups in guiserver. Here is a macro that I have created to make a three button setup: (define-macro (button3 _parent _name _buttons) (letn ((panel (sym (string (eval _parent) "-" (eval _name)))) (slots '("west" "center" "east")) (bname nil...

This looks quite interesting! I'll give it a try when I update to the new release.

Thanks for releasing it!

Hi! I ran into a little problem when using %xmlrpc-client.lsp with our python/django XMLRPC server at work. It has a very strict interpretation of how many arguments it will accept for certain functions, like system.listMethods, so the default request with the single dummy argument won't work. I wou...

Christmas is early -- this works great!

The canvas-unclick function was just to show that I had tried to do a gs:update and it hadn't worked either. I wanted to give you a good example to test with.

Thanks very much!

Hi! Thanks for the hint! I am working on repurposing the newlisp-edit.lsp code now. Periodically, you call a function (set-buffer-dirty). I can't seem to find this defined in either newlisp-edit.lsp or guiserver.lsp. Is it something that I need to have? EDIT: Actually it seems that the function was ...

Hi! I'm trying to wire up a text-area with a keyboard event so I can detect if the user presses the escape key while typing. It works fine for text-field Title (see below), but the handler never gets called for keypresses in Body. I have wired the standard handler into gs:no-action because it either...

Hi! I'd like to report a bug with canvases when used with scroll bars. If you run the following code, it creates a 2048x2048 canvas, then places it into a scrolled pane. You can scroll the canvas, but it will not repaint when you stop scrolling. Even forcing a gs:update (click on canvas) will not re...

Hi! The "!" is a shell command -- it has its own environment every time it's run, which is not saved between invocations. So, this: (! "set final_answer=42") is probably working, but when you run this: (! "echo $final_answer") the previous environment is destroyed in favour of the new one. You can u...

Hi! Don't know if this is the best place to post this, but I did use this "in the real world" to compute my weight and balance for my flight yesterday... This program makes it easy to do your weight and balance calculations so you can determine your position in the performance envelope before you ta...

OK, after some head scratching, I figured I must be experiencing some sort of redraw problem. I changed the code to this: (gs:delete-tag 'I false) (gs:draw-image 'I path 0 0 (psize 1) (psize 0)) (gs:draw-text 'I path 21 25 '(0 0 0)) (gs:draw-text 'I path 20 24 '(1 1 0)) (gs:show-tag 'I) Note the add...

Hi! I'm doing a simple picture viewer using the GUI server. However, I am having an odd problem where sometimes the image loads and sometimes it doesn't. If I advance to the next image then come back to one that didn't load, it will often load then. I am using this to clear the previous image, then ...

OK, that's basically what I was suggesting in the last para, except that my modification looked like this: (define (Plane:firewall) (setf (self 1) 2700) (self)) It doesn't seem very efficient to have to replace the entire data structure each time I want to do an update. OOP may not be a good fit for...

Hello! I am trying to set up a little simulation project, but I am running into some problems with FOOPS and pass by value... I have a Plane class, which considers the engine RPM and the altitude of the airplane: (new Class 'Plane) (define (Plane:Plane rpm alt) (list 'Plane rpm alt)) Now, I might ha...

Hi! I'm working through the early examples of the "Stratified Design" paper[1] and I've run (almost immediately!) into something that doesn't seem to work. They describe an average-damp function that given a function, returns a new function that averages the value with the result of the function: (d...