[rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 6
Francisco Rivera
jfrivera56 at hotmail.com
Sat Dec 25 17:22:55 UTC 2004
>> 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 at hotmail.com
-----Original Message-----
From: rdnzl-devel-bounces at common-lisp.net
[mailto:rdnzl-devel-bounces at common-lisp.net] On Behalf Of
rdnzl-devel-request at common-lisp.net
Sent: Saturday, December 25, 2004 5:02 AM
To: rdnzl-devel at common-lisp.net
Subject: rdnzl-devel Digest, Vol 1, Issue 6
Send rdnzl-devel mailing list submissions to
rdnzl-devel at 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 at common-lisp.net
You can reach the person managing the list at
rdnzl-devel-owner at 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 at hotmail.com>
Subject: [rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 5
To: <rdnzl-devel at common-lisp.net>
Message-ID: <BAY1-DAV131BDB9DDC045F8467FDA6DBA60 at 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 at hotmail.com
-----Original Message-----
From: rdnzl-devel-bounces at common-lisp.net
[mailto:rdnzl-devel-bounces at common-lisp.net] On Behalf Of
rdnzl-devel-request at common-lisp.net
Sent: Friday, December 24, 2004 5:02 AM
To: rdnzl-devel at common-lisp.net
Subject: rdnzl-devel Digest, Vol 1, Issue 5
Send rdnzl-devel mailing list submissions to
rdnzl-devel at 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 at common-lisp.net
You can reach the person managing the list at
rdnzl-devel-owner at 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 at agharta.de>
Subject: [rdnzl-devel] Version 0.4.3 (sorry...)
To: rdnzl-devel at common-lisp.net, rdnzl-announce at common-lisp.net
Message-ID: <u3bxxyyuc.fsf at 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 at agharta.de>
Subject: [rdnzl-devel] Version 0.4.4 (Christmas release)
To: rdnzl-devel at common-lisp.net, rdnzl-announce at common-lisp.net
Message-ID: <u652ssecf.fsf at 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 at agharta.de>
Subject: [rdnzl-devel] Re: RDNZL
To: "Francisco Rivera" <jfrivera56 at hotmail.com>
Cc: rdnzl-devel at common-lisp.net
Message-ID: <uwtv8qzea.fsf at 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 at 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 at 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 at agharta.de>
Subject: Re: [rdnzl-devel] RE: rdnzl-devel Digest, Vol 1, Issue 5
To: "Francisco Rivera" <jfrivera56 at hotmail.com>
Cc: rdnzl-devel at common-lisp.net
Message-ID: <u652rqv64.fsf at agharta.de>
Content-Type: text/plain; charset=us-ascii
On Fri, 24 Dec 2004 10:59:49 -0600, "Francisco Rivera"
<jfrivera56 at 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 at hotmail.com>
Subject: [rdnzl-devel] Crash Lispworks Personal 4.3.7
To: <rdnzl-devel at common-lisp.net>
Message-ID: <BAY1-DAV83AA684A9CDA51DEFC994DBA60 at 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 at hotmail.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://common-lisp.net/pipermail/rdnzl-devel/attachments/20041224/a4c3b84a/a
ttachment-0001.htm
------------------------------
Message: 4
Date: Sat, 25 Dec 2004 01:47:57 +0100
From: Edi Weitz <edi at agharta.de>
Subject: Re: [rdnzl-devel] Crash Lispworks Personal 4.3.7
To: "Francisco Rivera" <jfrivera56 at hotmail.com>
Cc: rdnzl-devel at common-lisp.net
Message-ID: <uu0qbcif6.fsf at agharta.de>
Content-Type: text/plain; charset=us-ascii
On Fri, 24 Dec 2004 17:27:13 -0600, "Francisco Rivera"
<jfrivera56 at hotmail.com> wrote:
> 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.
------------------------------
_______________________________________________
rdnzl-devel mailing list
rdnzl-devel at common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/rdnzl-devel
End of rdnzl-devel Digest, Vol 1, Issue 6
*****************************************
More information about the rdnzl-devel
mailing list