rdnzl-devel December 2004

rdnzl-devel@common-lisp.net

2 participants
15 discussions

[rdnzl-devel] enable-rdnzl-syntax
by Francisco Rivera 01 Jan '05

01 Jan '05

Hello In LW Personal 4.3.7 I obtain the below errors when in the Editor, on "Calculator function" I select Definitions --> Compile Previously all code was compiled with Buffer --> Compile The problem disappears when evaluate (enable-rdnzl-syntax) on Listener. Why? Debugger pane: -------------- Error: Illegal setf place "Calculador". 1 (continue) Skip compiling form. 2 Skip compiling #<EDITOR::EDITOR-REGION-STREAM #<EDITOR:BUFFER Ejercicio01.lisp> 2157B4DC>. 3 (abort) Abort job 16 :(BIND-STANDARD-STREAMS-AND-EXECUTE #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output> 216868C4> (INTERNAL-DO-WITH-RANDOM-TYPEOUT #<closure (SUBFUNCTION CAPI::WITH-RANDOM-TYPEOUT-FUNC CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX) 2068E242> #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output> 216868C4> #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE 2169D734> #<CAPI:COLLECTOR-PANE LISPWORKS-TOOLS::BACKGROUND-OUTPUT-PANE 21685D9C> T)) Type :b for backtrace, :c <option number> to proceed, or :? for other options Output pane: ------------ ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ;;;*** Warning in CALCULADOR: [%TEXT assumed special ;;;*** Warning in CALCULADOR: FORMA] assumed special Code: ------ (use-package :rdnzl) (enable-rdnzl-syntax) (import-types "System.Windows.Forms" "Application" "DockStyle" "Form" "KeyPressEventHandler" "MessageBox" "MessageBoxButtons" "DialogResult" "TextBox" "Button" "Label") (import-types "System.Drawing" "Point") (import-type "System.EventHandler") (use-namespace "System.Windows.Forms") (use-namespace "System.Drawing") (use-namespace "System") (defun message-box (text &optional (caption "Mensaje")) ;; check if the "OK" button was pressed [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]] [$DialogResult.OK]]) ;; we want the message box to have "OK" and "Cancel" buttons (defun crea-control (tipo &optional (x 0) (y 0) (texto "")) (let ((ctl (new tipo)) (pto (new "Point"))) (setf [%X pto] x [%Y pto] y [%Text ctl] texto [%Name ctl] tipo [%Location ctl] pto) ctl)) (defun calculador () (let ((forma (new "Form")) (tb1 (crea-control "TextBox" 0 0)) (tb2 (crea-control "TextBox" 100 0)) (etiq (crea-control "Label" 0 75)) (boton (crea-control "Button" 0 25 "Sume"))) (setf [%Text forma] "Calculador" [%MaximizeBox forma] nil) [Add [%Controls forma] tb1] [Add [%Controls forma] tb2] [Add [%Controls forma] boton] [Add [%Controls forma] etiq] ;[+Click boton (new "EventHandler" #'clicked)] [+Click boton (new "EventHandler" #'(lambda (&rest args) (declare (ignore args)) (setf [%Text etiq] (format nil "~S" (+ (pn:parse-number [%Text tb1]) (pn:parse-number [%Text tb2]))))))] forma)) (defun display () [Application.Run (calculador)]) (defun run () (mp:process-run-function "Calculador" #+:lispworks nil #'display)) Regards Francisco Rivera jfrivera56(a)hotmail.com

2 1

[rdnzl-devel] New release 0.5.1
by Edi Weitz 28 Dec '04

28 Dec '04

Changelog: Version 0.5.1 2004-12-28 Make delivery examples for CCL and LW self-contained like Charley's AllegroCL example Download: <http://weitz.de/files/RDNZL.tar.gz> Cheers, Edi.

1 0

[rdnzl-devel] New version 0.5.0
by Edi Weitz 28 Dec '04

28 Dec '04

Changelog: Version 0.5.0 2004-12-28 Corman Lisp port now works (thanks to Roger Corman) Added delivery examples for AllegroCL (by Charles A. Cox) and Corman Lisp Download: <http:/weitz.de/files/RDNZL.tar.gz> Have fun, Edi.

1 0

[rdnzl-devel] New release 0.4.5
by Edi Weitz 27 Dec '04

27 Dec '04

Changelog: Version 0.4.5 2004-12-27 Cosmetic changes in AproposGUI.cs Download: <http://weitz.de/files/RDNZL.tar.gz> No need to download this if you already have 0.4.4. Cheers, Edi.

1 0

[rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 6
by Francisco Rivera 25 Dec '04

25 Dec '04

>> Frequently, when I select Buffer -> Compile in the Editor, the >> Lispworks crash with the following error: >> >> Application has generated an exception that could not be handled >> >> Process id=0xb2c (2860), Thread id=0xfc0 (4032) >> >> Click OK to terminate the application. >> >> Click CANCEL to debug the application >> >> Is this a bug in LispWorks Personal 4.3.7 ? > No idea. You should give a description about what exactly you're > doing and you should send the files you're trying to compile. Please > make the example as small and self-contained as possible such that the > error is reproducible. > > Thanks, > Edi. Of course, below is the code. The first time, I open the code into the Editor and use Buffer --> Compile and all works fine. Later I go to the listener and write some forms like (calculador) or (descripcion-forma *f*). Later, I make some change on the Editor. For example, in (let () (defun clicked (&rest args) (declare (ignore args)))) the clicked function is not calling to message-box function After make the correction I recompile the buffer and LW 4.3.7 crash. However, sometimes I only recompile the specific form, but the LW 4.3.7 crash too. The code is only for learn to use RNDZL: (load "C:/Program Files/Xanalys/LispWorks Personal/RDNZL-0.4.4/load.lisp") (use-package :rdnzl) (enable-rdnzl-syntax) (import-types "System.Windows.Forms" "Application" "DockStyle" "Form" "KeyPressEventHandler" "MessageBox" "MessageBoxButtons" "DialogResult" "TextBox" "Button" "Label") (import-types "System.Drawing" "Point") (import-type "System.EventHandler") (use-namespace "System.Windows.Forms") (use-namespace "System.Drawing") (use-namespace "System") (defun message-box (text &optional (caption "Mensaje")) ;; check if the "OK" button was pressed [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]] [$DialogResult.OK]]) ;; we want the message box to have "OK" and "Cancel" buttons (defun saludo () (message-box "Hola mundo!")) (defun crea-control (tipo &optional (x 0) (y 0) (texto "")) (let ((ctl (new tipo)) (pto (new "Point"))) (setf (property pto "X") x (property pto "Y") y) (setf (property ctl "Location") pto (property ctl "Text") texto (property ctl "Name") tipo) ctl)) (defun procesa-vector () (do-rdnzl-array (i (list-to-rdnzl-array '(1 2 3))) (print (unbox (cast i "System.Int32"))))) (let () (defun clicked (&rest args) (declare (ignore args)))) (defun calculador () (let ((forma (new "Form")) (tb1 (crea-control "TextBox" 0 0)) (tb2 (crea-control "TextBox" 100 0)) (etiq (crea-control "Label" 0 75)) (boton (crea-control "Button" 0 25 "Sume"))) (setf (property forma "Text") "Calculador Lisp en .Net") (invoke (property forma "Controls") "Add" boton) (invoke (property forma "Controls") "Add" tb1) (invoke (property forma "Controls") "Add" tb2) (invoke (property forma "Controls") "Add" etiq) [+Click boton (new "EventHandler" #'clicked)] ;[Application.Run forma] forma)) (defparameter *f* (calculador)) (defun descripcion-forma (forma) (format t "~%Forma ~S" forma) (format t "~%Colección de controles ~S" [%Controls forma]) (format t "~%Número de controles ~d" [%Count [%Controls *f*]]) (dotimes (i [%Count [%Controls *f*]]) (format t "~%Control: ~d, Nombre: ~S" i [%Name [%Item [%Controls *f*] i]]))) The original compilation messages were: ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ; (TOP-LEVEL-FORM 2) ; Loading text file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\load.lisp ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\packages.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\specials.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\util.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\port-lw.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\ffi.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\container.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\reader.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\arrays.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\adapter.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks Personal\RDNZL-0.4.4\import.fsl ; (TOP-LEVEL-FORM 3) ; (TOP-LEVEL-FORM 4) ; (TOP-LEVEL-FORM 5) ; (TOP-LEVEL-FORM 6) ; (TOP-LEVEL-FORM 7) ; (TOP-LEVEL-FORM 8) ; (TOP-LEVEL-FORM 9) ; (TOP-LEVEL-FORM 10) ; MESSAGE-BOX ; SALUDO ; CREA-CONTROL ; PROCESA-VECTOR ; (TOP-LEVEL-FORM 11) ; CALCULADOR ; (DEFPARAMETER *F*) ; DESCRIPCION-FORMA ---- Done ---- Regards Francisco Rivera jfrivera56(a)hotmail.com -----Original Message----- From: rdnzl-devel-bounces(a)common-lisp.net [mailto:rdnzl-devel-bounces@common-lisp.net] On Behalf Of rdnzl-devel-request(a)common-lisp.net Sent: Saturday, December 25, 2004 5:02 AM To: rdnzl-devel(a)common-lisp.net Subject: rdnzl-devel Digest, Vol 1, Issue 6 Send rdnzl-devel mailing list submissions to rdnzl-devel(a)common-lisp.net To subscribe or unsubscribe via the World Wide Web, visit http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel or, via email, send a message with subject or body 'help' to rdnzl-devel-request(a)common-lisp.net You can reach the person managing the list at rdnzl-devel-owner(a)common-lisp.net When replying, please edit your Subject line so it is more specific than "Re: Contents of rdnzl-devel digest..." Today's Topics: 1. RE: rdnzl-devel Digest, Vol 1, Issue 5 (Francisco Rivera) 2. Re: RE: rdnzl-devel Digest, Vol 1, Issue 5 (Edi Weitz) 3. Crash Lispworks Personal 4.3.7 (Francisco Rivera) 4. Re: Crash Lispworks Personal 4.3.7 (Edi Weitz) ---------------------------------------------------------------------- Message: 1 Date: Fri, 24 Dec 2004 10:59:49 -0600 From: "Francisco Rivera" <jfrivera56(a)hotmail.com> Subject: [rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 5 To: <rdnzl-devel(a)common-lisp.net> Message-ID: <BAY1-DAV131BDB9DDC045F8467FDA6DBA60(a)phx.gbl> Content-Type: text/plain; charset="iso-8859-1" > That was an oversight of mine, sorry. I forgot to specify an external > format in port-lw.lisp. Please try the 0.4.4 release which should fix > this. Thanks very much, now is working fine. > At least two things need to be fixed in the code above: > > 1. You forgot to import the type "System.EventHandler" which you need. > That's actually the cause for the error message - you should have > checked the backtrace. Add these two lines: > > (import-type "System.EventHandler") > (use-namespace "System") I was using (import-types "System" "EventHandler") (use-namespace "System") but then the program cannot be compiled. The error was: Warning: Returning NULL object from .NET call Error: Type with name "System.EventHandler" not found in assembly "System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089". 1 (abort) Return to level 0. 2 Return to top loop level 0. Merry Christmas. Regards Francisco Rivera jfrivera56(a)hotmail.com -----Original Message----- From: rdnzl-devel-bounces(a)common-lisp.net [mailto:rdnzl-devel-bounces@common-lisp.net] On Behalf Of rdnzl-devel-request(a)common-lisp.net Sent: Friday, December 24, 2004 5:02 AM To: rdnzl-devel(a)common-lisp.net Subject: rdnzl-devel Digest, Vol 1, Issue 5 Send rdnzl-devel mailing list submissions to rdnzl-devel(a)common-lisp.net To subscribe or unsubscribe via the World Wide Web, visit http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel or, via email, send a message with subject or body 'help' to rdnzl-devel-request(a)common-lisp.net You can reach the person managing the list at rdnzl-devel-owner(a)common-lisp.net When replying, please edit your Subject line so it is more specific than "Re: Contents of rdnzl-devel digest..." Today's Topics: 1. Version 0.4.3 (sorry...) (Edi Weitz) 2. Version 0.4.4 (Christmas release) (Edi Weitz) 3. Re: RDNZL (Edi Weitz) ---------------------------------------------------------------------- Message: 1 Date: Thu, 23 Dec 2004 13:37:47 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Version 0.4.3 (sorry...) To: rdnzl-devel(a)common-lisp.net, rdnzl-announce(a)common-lisp.net Message-ID: <u3bxxyyuc.fsf(a)agharta.de> Content-Type: text/plain; charset=us-ascii Changelog: Version 0.4.3 2004-12-23 Argh!!! Version 0.4.2 included a defective DLL due to a typo Download: <http://weitz.de/files/RDNZL.tar.gz> <http://weitz.de/files/RDNZL_cpp.tar.gz> Edi. ------------------------------ Message: 2 Date: Fri, 24 Dec 2004 01:57:04 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Version 0.4.4 (Christmas release) To: rdnzl-devel(a)common-lisp.net, rdnzl-announce(a)common-lisp.net Message-ID: <u652ssecf.fsf(a)agharta.de> Content-Type: text/plain; charset=us-ascii ChangeLog: Version 0.4.4 2004-12-24 Added correct external encoding to :EF-WC-STRING type in port-lw.lisp (caught by Francisco Rivera) Changed some code examples from LW to AllegroCL Download: <http://weitz.de/files/RDNZL.tar.gz> Cheers, Edi. ------------------------------ Message: 3 Date: Fri, 24 Dec 2004 02:05:17 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Re: RDNZL To: "Francisco Rivera" <jfrivera56(a)hotmail.com> Cc: rdnzl-devel(a)common-lisp.net Message-ID: <uwtv8qzea.fsf(a)agharta.de> Content-Type: text/plain; charset=iso-8859-1 Hi! Please use the mailing list for bug reports and questions. Thanks. On Thu, 23 Dec 2004 16:06:22 -0600, "Francisco Rivera" <jfrivera56(a)hotmail.com> wrote: > I have 2 problems: > > 1) with > > (defun message-box (text &optional (caption "Message")) > [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]] > [$DialogResult.OK]]) > > the following problems appears when I use Spanish characters: > > (message-box "botón") > > Error: External format FLI:ASCII-WCHAR got error writing #<Pointer to type > FLI::WCHAR-T = #x008B0258> at position 2: Non-ASCII character #\ó. That was an oversight of mine, sorry. I forgot to specify an external format in port-lw.lisp. Please try the 0.4.4 release which should fix this. > 2) How I can create a push button event (Click)? > > The following is not working: > > (use-package :rdnzl) > > (enable-rdnzl-syntax) > > (import-types "System.Windows.Forms" > "Application" "DockStyle" "Form" > "KeyPressEventHandler" > "MessageBox" "MessageBoxButtons" "DialogResult" > "TextBox" "Button" "Label") > > (import-types "System.Drawing" "Point") > (use-namespace "System.Windows.Forms") > (use-namespace "System.Drawing") > > (let () > (defun clicked () > (message-box "Boton presionado"))) > > (defun make-control (tipo &optional (x 0) (y 0) (texto "")) > (let ((ctl (new tipo)) > (pto (new "Point"))) > (setf (property pto "X") x > (property pto "Y") y > (property ctl "Location") pto > (property ctl "Text") texto) > ctl)) > > (defun calculator () > (let ((forma (new "Form")) > (tb1 (make-control "TextBox" 0 0)) > (tb2 (make-control "TextBox" 100 0)) > (etiq (make-control "Label" 0 75)) > (boton (make-control "Button" 0 25 "ADD"))) > (setf (property forma "Text") "Lisp.Net Calculator") > (invoke (property forma "Controls") "Add" boton) > (invoke (property forma "Controls") "Add" tb1) > (invoke (property forma "Controls") "Add" tb2) > (invoke (property forma "Controls") "Add" etiq) > [+Click boton (new "EventHandler" #'clicked)] > [Application.Run forma] > forma)) > >> (calculator) > > Error: Trying to call function RDNZL::%INVOKE-CONSTRUCTOR with NULL object > #<RDNZL::CONTAINER NULL #xBC4810>. At least two things need to be fixed in the code above: 1. You forgot to import the type "System.EventHandler" which you need. That's actually the cause for the error message - you should have checked the backtrace. Add these two lines: (import-type "System.EventHandler") (use-namespace "System") 2. CLICKED has the wrong signature. It'll get two arguments like any event handler and you have to specify them: (defun CLICKED (object event) ... Of course, you can IGNORE them if you want. I hope that'll bring you on the right track. Let me know if you still have problems. Cheers, Edi. ------------------------------ _______________________________________________ rdnzl-devel mailing list rdnzl-devel(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel End of rdnzl-devel Digest, Vol 1, Issue 5 ***************************************** ------------------------------ Message: 2 Date: Fri, 24 Dec 2004 21:48:51 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: Re: [rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 5 To: "Francisco Rivera" <jfrivera56(a)hotmail.com> Cc: rdnzl-devel(a)common-lisp.net Message-ID: <u652rqv64.fsf(a)agharta.de> Content-Type: text/plain; charset=us-ascii On Fri, 24 Dec 2004 10:59:49 -0600, "Francisco Rivera" <jfrivera56(a)hotmail.com> wrote: >> 1. You forgot to import the type "System.EventHandler" which you need. >> That's actually the cause for the error message - you should have >> checked the backtrace. Add these two lines: >> >> (import-type "System.EventHandler") >> (use-namespace "System") > > I was using > > (import-types "System" "EventHandler") > (use-namespace "System") > > but then the program cannot be compiled. The error was: > > Warning: Returning NULL object from .NET call > Error: Type with name "System.EventHandler" not found in assembly "System, > Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089". > 1 (abort) Return to level 0. > 2 Return to top loop level 0. The first argument to IMPORT-TYPES is the (short) name of an assembly, not a namespace. The .NET System.EventHandler is in the System namespace but /not/ in the assembly named System.dll, it's in Mscorlib.dll, so you have to use IMPORT-TYPE, not IMPORT-TYPES. For details as to which type is in which assembly you need to consult the .NET framework documentation which comes with Visual Studio .NET but is also available online from microsoft.com. Cheers, Edi. ------------------------------ Message: 3 Date: Fri, 24 Dec 2004 17:27:13 -0600 From: "Francisco Rivera" <jfrivera56(a)hotmail.com> Subject: [rdnzl-devel] Crash Lispworks Personal 4.3.7 To: <rdnzl-devel(a)common-lisp.net> Message-ID: <BAY1-DAV83AA684A9CDA51DEFC994DBA60(a)phx.gbl> Content-Type: text/plain; charset="us-ascii" Hello, Frequently, when I select Buffer -> Compile in the Editor, the Lispworks crash with the following error: Application has generated an exception that could not be handled Process id=0xb2c (2860), Thread id=0xfc0 (4032) Click OK to terminate the application. Click CANCEL to debug the application Is this a bug in LispWorks Personal 4.3.7 ? Regards Francisco Rivera jfrivera56(a)hotmail.com

2 1

[rdnzl-devel] Crash Lispworks Personal 4.3.7
by Francisco Rivera 25 Dec '04

25 Dec '04

Hello, Frequently, when I select Buffer -> Compile in the Editor, the Lispworks crash with the following error: Application has generated an exception that could not be handled Process id=0xb2c (2860), Thread id=0xfc0 (4032) Click OK to terminate the application. Click CANCEL to debug the application Is this a bug in LispWorks Personal 4.3.7 ? Regards Francisco Rivera jfrivera56(a)hotmail.com

2 1

[rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 5
by Francisco Rivera 24 Dec '04

24 Dec '04

> That was an oversight of mine, sorry. I forgot to specify an external > format in port-lw.lisp. Please try the 0.4.4 release which should fix > this. Thanks very much, now is working fine. > At least two things need to be fixed in the code above: > > 1. You forgot to import the type "System.EventHandler" which you need. > That's actually the cause for the error message - you should have > checked the backtrace. Add these two lines: > > (import-type "System.EventHandler") > (use-namespace "System") I was using (import-types "System" "EventHandler") (use-namespace "System") but then the program cannot be compiled. The error was: Warning: Returning NULL object from .NET call Error: Type with name "System.EventHandler" not found in assembly "System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089". 1 (abort) Return to level 0. 2 Return to top loop level 0. Merry Christmas. Regards Francisco Rivera jfrivera56(a)hotmail.com -----Original Message----- From: rdnzl-devel-bounces(a)common-lisp.net [mailto:rdnzl-devel-bounces@common-lisp.net] On Behalf Of rdnzl-devel-request(a)common-lisp.net Sent: Friday, December 24, 2004 5:02 AM To: rdnzl-devel(a)common-lisp.net Subject: rdnzl-devel Digest, Vol 1, Issue 5 Send rdnzl-devel mailing list submissions to rdnzl-devel(a)common-lisp.net To subscribe or unsubscribe via the World Wide Web, visit http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel or, via email, send a message with subject or body 'help' to rdnzl-devel-request(a)common-lisp.net You can reach the person managing the list at rdnzl-devel-owner(a)common-lisp.net When replying, please edit your Subject line so it is more specific than "Re: Contents of rdnzl-devel digest..." Today's Topics: 1. Version 0.4.3 (sorry...) (Edi Weitz) 2. Version 0.4.4 (Christmas release) (Edi Weitz) 3. Re: RDNZL (Edi Weitz) ---------------------------------------------------------------------- Message: 1 Date: Thu, 23 Dec 2004 13:37:47 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Version 0.4.3 (sorry...) To: rdnzl-devel(a)common-lisp.net, rdnzl-announce(a)common-lisp.net Message-ID: <u3bxxyyuc.fsf(a)agharta.de> Content-Type: text/plain; charset=us-ascii Changelog: Version 0.4.3 2004-12-23 Argh!!! Version 0.4.2 included a defective DLL due to a typo Download: <http://weitz.de/files/RDNZL.tar.gz> <http://weitz.de/files/RDNZL_cpp.tar.gz> Edi. ------------------------------ Message: 2 Date: Fri, 24 Dec 2004 01:57:04 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Version 0.4.4 (Christmas release) To: rdnzl-devel(a)common-lisp.net, rdnzl-announce(a)common-lisp.net Message-ID: <u652ssecf.fsf(a)agharta.de> Content-Type: text/plain; charset=us-ascii ChangeLog: Version 0.4.4 2004-12-24 Added correct external encoding to :EF-WC-STRING type in port-lw.lisp (caught by Francisco Rivera) Changed some code examples from LW to AllegroCL Download: <http://weitz.de/files/RDNZL.tar.gz> Cheers, Edi. ------------------------------ Message: 3 Date: Fri, 24 Dec 2004 02:05:17 +0100 From: Edi Weitz <edi(a)agharta.de> Subject: [rdnzl-devel] Re: RDNZL To: "Francisco Rivera" <jfrivera56(a)hotmail.com> Cc: rdnzl-devel(a)common-lisp.net Message-ID: <uwtv8qzea.fsf(a)agharta.de> Content-Type: text/plain; charset=iso-8859-1 Hi! Please use the mailing list for bug reports and questions. Thanks. On Thu, 23 Dec 2004 16:06:22 -0600, "Francisco Rivera" <jfrivera56(a)hotmail.com> wrote: > I have 2 problems: > > 1) with > > (defun message-box (text &optional (caption "Message")) > [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]] > [$DialogResult.OK]]) > > the following problems appears when I use Spanish characters: > > (message-box "botón") > > Error: External format FLI:ASCII-WCHAR got error writing #<Pointer to type > FLI::WCHAR-T = #x008B0258> at position 2: Non-ASCII character #\ó. That was an oversight of mine, sorry. I forgot to specify an external format in port-lw.lisp. Please try the 0.4.4 release which should fix this. > 2) How I can create a push button event (Click)? > > The following is not working: > > (use-package :rdnzl) > > (enable-rdnzl-syntax) > > (import-types "System.Windows.Forms" > "Application" "DockStyle" "Form" > "KeyPressEventHandler" > "MessageBox" "MessageBoxButtons" "DialogResult" > "TextBox" "Button" "Label") > > (import-types "System.Drawing" "Point") > (use-namespace "System.Windows.Forms") > (use-namespace "System.Drawing") > > (let () > (defun clicked () > (message-box "Boton presionado"))) > > (defun make-control (tipo &optional (x 0) (y 0) (texto "")) > (let ((ctl (new tipo)) > (pto (new "Point"))) > (setf (property pto "X") x > (property pto "Y") y > (property ctl "Location") pto > (property ctl "Text") texto) > ctl)) > > (defun calculator () > (let ((forma (new "Form")) > (tb1 (make-control "TextBox" 0 0)) > (tb2 (make-control "TextBox" 100 0)) > (etiq (make-control "Label" 0 75)) > (boton (make-control "Button" 0 25 "ADD"))) > (setf (property forma "Text") "Lisp.Net Calculator") > (invoke (property forma "Controls") "Add" boton) > (invoke (property forma "Controls") "Add" tb1) > (invoke (property forma "Controls") "Add" tb2) > (invoke (property forma "Controls") "Add" etiq) > [+Click boton (new "EventHandler" #'clicked)] > [Application.Run forma] > forma)) > >> (calculator) > > Error: Trying to call function RDNZL::%INVOKE-CONSTRUCTOR with NULL object > #<RDNZL::CONTAINER NULL #xBC4810>. At least two things need to be fixed in the code above: 1. You forgot to import the type "System.EventHandler" which you need. That's actually the cause for the error message - you should have checked the backtrace. Add these two lines: (import-type "System.EventHandler") (use-namespace "System") 2. CLICKED has the wrong signature. It'll get two arguments like any event handler and you have to specify them: (defun CLICKED (object event) ... Of course, you can IGNORE them if you want. I hope that'll bring you on the right track. Let me know if you still have problems. Cheers, Edi. ------------------------------ _______________________________________________ rdnzl-devel mailing list rdnzl-devel(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel End of rdnzl-devel Digest, Vol 1, Issue 5 *****************************************

2 1

[rdnzl-devel] Re: RDNZL
by Edi Weitz 24 Dec '04

24 Dec '04

Hi! Please use the mailing list for bug reports and questions. Thanks. On Thu, 23 Dec 2004 16:06:22 -0600, "Francisco Rivera" <jfrivera56(a)hotmail.com> wrote: > I have 2 problems: > > 1) with > > (defun message-box (text &optional (caption "Message")) > [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]] > [$DialogResult.OK]]) > > the following problems appears when I use Spanish characters: > > (message-box "botón") > > Error: External format FLI:ASCII-WCHAR got error writing #<Pointer to type > FLI::WCHAR-T = #x008B0258> at position 2: Non-ASCII character #\ó. That was an oversight of mine, sorry. I forgot to specify an external format in port-lw.lisp. Please try the 0.4.4 release which should fix this. > 2) How I can create a push button event (Click)? > > The following is not working: > > (use-package :rdnzl) > > (enable-rdnzl-syntax) > > (import-types "System.Windows.Forms" > "Application" "DockStyle" "Form" > "KeyPressEventHandler" > "MessageBox" "MessageBoxButtons" "DialogResult" > "TextBox" "Button" "Label") > > (import-types "System.Drawing" "Point") > (use-namespace "System.Windows.Forms") > (use-namespace "System.Drawing") > > (let () > (defun clicked () > (message-box "Boton presionado"))) > > (defun make-control (tipo &optional (x 0) (y 0) (texto "")) > (let ((ctl (new tipo)) > (pto (new "Point"))) > (setf (property pto "X") x > (property pto "Y") y > (property ctl "Location") pto > (property ctl "Text") texto) > ctl)) > > (defun calculator () > (let ((forma (new "Form")) > (tb1 (make-control "TextBox" 0 0)) > (tb2 (make-control "TextBox" 100 0)) > (etiq (make-control "Label" 0 75)) > (boton (make-control "Button" 0 25 "ADD"))) > (setf (property forma "Text") "Lisp.Net Calculator") > (invoke (property forma "Controls") "Add" boton) > (invoke (property forma "Controls") "Add" tb1) > (invoke (property forma "Controls") "Add" tb2) > (invoke (property forma "Controls") "Add" etiq) > [+Click boton (new "EventHandler" #'clicked)] > [Application.Run forma] > forma)) > >> (calculator) > > Error: Trying to call function RDNZL::%INVOKE-CONSTRUCTOR with NULL object > #<RDNZL::CONTAINER NULL #xBC4810>. At least two things need to be fixed in the code above: 1. You forgot to import the type "System.EventHandler" which you need. That's actually the cause for the error message - you should have checked the backtrace. Add these two lines: (import-type "System.EventHandler") (use-namespace "System") 2. CLICKED has the wrong signature. It'll get two arguments like any event handler and you have to specify them: (defun CLICKED (object event) ... Of course, you can IGNORE them if you want. I hope that'll bring you on the right track. Let me know if you still have problems. Cheers, Edi.

1 0

[rdnzl-devel] Version 0.4.4 (Christmas release)
by Edi Weitz 24 Dec '04

24 Dec '04

ChangeLog: Version 0.4.4 2004-12-24 Added correct external encoding to :EF-WC-STRING type in port-lw.lisp (caught by Francisco Rivera) Changed some code examples from LW to AllegroCL Download: <http://weitz.de/files/RDNZL.tar.gz> Cheers, Edi.

1 0

[rdnzl-devel] Version 0.4.3 (sorry...)
by Edi Weitz 23 Dec '04

23 Dec '04

Changelog: Version 0.4.3 2004-12-23 Argh!!! Version 0.4.2 included a defective DLL due to a typo Download: <http://weitz.de/files/RDNZL.tar.gz> <http://weitz.de/files/RDNZL_cpp.tar.gz> Edi.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

rdnzl-devel December 2004