newlispfanclub.alh.net

Thinking of professional output on paper let me search for this in newlisp.
But it seems not much native options.

So what are the options:

Using TCL-Extensions?
Generating HTML and lauch a browser?
Generating PDF and use Acro Reader?
Other?

Any thoughts or ideas?

Instead of:
must be

When you want to use commandline arguments in your lisp-processing it might be not good to try to load the parameter as lisp-files. So disable the following code at the end of the TCL-file. foreach arg $argv { NewlispEvaluate "(silent (load \"$arg\"))" } To access the commandline arguments from lisp...

The AboutBox should get the focus, so that hitting the ESC-key
trigger the <Escape> event. Just add the line like this example.

With this code you can set your own custom-icon for the window and the taskbar. wm iconbitmap . /freewrap/MyIco.ico But it causes a little flicker, because you see a small TK-window appearing on startup. Is this the price for it? Also it does not replace the icon of the EXE. Is there a way to replac...

Lutz,

thanks for the hint.
I had thought that it could be a problem with the scope of the vars.
I had tried around, but with no satisfying solution.
So this is short and easy.
Fits very good in the concept of newlisp. :-)

Thanks for posting all these improvements in the Tcl.Tk code. About setting variables in Tcl/Tk: I just try to avoid it and work with the return values from the 'tk' statement stored in LISP variables. To declare Tcl variables from newLISP, I think you would have to create a child interpreter. But ...

When you start newlisp several times it pop up on different locations. Not so nice. Modifying newlisp-tk.tcl helps: Add to global vars: set Ide(WinPosX) "+100" set Ide(WinPosY) "+50" Add to proc Setupconsole wm title . $IDEversion #Behind this line wm geometry . $Ide(WinPosX)$Ide(WinPosY) Then wrapp...

Another little improvment: if { [llength $Ide(DirectConsoleCmd)] > 0 } { set cmdpos [lsearch $Ide(DirectConsoleCmd) [string tolower $lastCommand]] if { $cmdpos > -1 } { set lastCommand "(" append lastCommand [lindex $Ide(DirectLispCmd) $cmdpos] ")" } } With this the commands are case-insensitive.

For a more general solution I do this: #In the global var-section set Ide(DirectConsoleCmd) {dir syms} set Ide(DirectLispCmd) {directory symbols} #in proc ProcessConsoleInput # if { $lastCommand == "dir" } { set lastCommand "(directory)" } # if { $lastCommand == "syms" } { set lastCommand "(symbols)...

I want to access TK-variables > (tk "set test 123") "123" > (tk "set test") > When I do the second I get a message window 'can't read "test": no such variable'. On a native TCL-console it works in that way. It respond with the content of the variable. Would be usefull to access all the global vars '...

Thanks again Lutz,

Exactly what I wanted to do, but I was not so fast as you.
(You know your code best)

That is what I like very much on newlisp:

Powerfull flexibility!!
First class response-quality and time!

After some thoughts about the problem, it should be possible just by modifying the TCL-code of the console. Just compare the input against a command-list and when the input-string is in the command-list, make a proper lisp-call out of it and send it to newlisp. So the define could stay as it is and ...

In autolisp you can define a lisp-command without paranthesis by make an defun with an "C:" before the lisp-function name. (defun C:Testfunc () (setq banana 1)) At the console-prompt you can type "Testfunc" and it's starts. Would it be possible to add such or similar option to newlisp. When we make ...

(context 'EDIT) (define (edit ) (tk "if {[winfo exists .ewin] == 1} {destroy .ewin}") (tk "toplevel .ewin") (tk "text .ewin.edit -width 60 -height 10") (tk "pack .ewin.edit") (tk "bind .ewin.edit <Return> {Newlisp {(silent (EDIT:getEditText))}}") (tk "update idletasks")) (define (getEditText ) (set...

Thanks for the start. I had problems to get it to work. I think this was a problem with this makro from init.lsp (define-macro (edit _func) (save (string _func) _func) (! (string "/usr/bin/vi " _func)) (load (string _func))) So I rename the new edit function to "myedit" and it works as expected. Is ...

A nice feature would be to intergrate a console window in our own TK-Frontend. Like a listener-object in common-lisp, it would allow to output a command-log and input lisp-direct calls. Yes, sounds like an autocad command-line (Teach an old horse somthing new). Would be an subset of the newlisp-TK m...

He has needed the new infix reader!

Hello Lutz, Thank you very much for your fast and great work. And to see how incredible small it is, is still unbelievebel. >Its good to hear how newLISP can solve real world problems. After the great developments in last month, I now believe that it able to do solve such problems. It only has to sh...

> .. I wonder what kind of application you are developing? It's not a new application, it will be a port of an autolisp-app running under autocad. Ths lisp-files comes from a oracle-database with a complete ERP-dataset for calculating sales orders. It is used in an autocad-oem app and is running for...

I did a heavy wrapping test with a complete database with 16600 Lisp-Files from a 5.7 MB ZIP. Unzipped 11.8 MB on Disk (69.4 MB on NTFS because cluster size) Now my newlisp-tk.exe is 9.85 MB. >Is the complete wrapped EXE loaded into memory? Yes it seems so, memory load is about the difference higher...

Is the API not called with calling pascal convention?

My DLL uses CDECL, so may be thats the problem?

I have a DLL which I have called from other enviroments: So I test the following: newLISP v7.2.3 Copyright (c) 2003 Lutz Mueller. All rights reserved. > (import "DllTest.dll" "TestFunc") TestFunc <3787A4> > (TestFunc "Parameterstring from newlisp") Then it hang up and want to sent the problem to MS....

Finaly found the "import" command.
So I could try it out now.

On the homepage is this feature listed:

Shared library interface to import 'C' functions

How is it done. I surfed the doku, but could not find a related command.
Did I read it right, that I can call a functions in a DLL and get a return value?