- rdnzl-devel@common-lisp.net - mailman3.common-lisp.net

[rdnzl-devel] C# pointer comparison.
by Matthew O Connor 25 Mar '08

25 Mar '08

Hi, I have two instances of a DataGridView each bound to the same callbacks within Lisp. The callbacks each have two parameters, the first of which is a C# object. This object corresponds to the DataGridView that initiated the event. When I create the two DataGridViews I put them both into a list and when a callback is called I look through my list to match up the first parameter with one of the references in my list. However this is failing. How do I compare references to C# objects using RDNZL? I've noticed that there is an enum-to-int function which allows enums to be compared in Lisp. I may need something like this to compare the identity of objects in Lisp. Another approach would be to write a function in C# to compare object identity but I don't want to include a dll in my little example. Any help would be appreciated. Regards, Matthew

3 10

[rdnzl-devel] Rdnzl Problem
by Michael Mills 25 Mar '08

25 Mar '08

Hello, I'm having a problem with RDNZL using ECL. I'm using a send a (lisp) string to the simple .net gui through a callback. It most works, but the string gets mangled when it goes into .net. The .net consumer looks like this: EditBox_Results.Text = cpc(TextBox_Filename.Text); where EditBox is a rich textbox, and cpc is a "public delegate System.String callback(string input);" which is set in the constructor. The list invocation looks like this: [Application.Run (new "CPC_interface" (new "callback" #'(lambda (filename) (pretty-print-cpc filename t)) ))] where CPC_interface is my .net gui, and pretty-print-cpc is defined as: (defun pretty-print-CPC (filename &optional (echo nil)) (handler-case (let ( (result (calculate-page-coverage filename)) ) (format echo "Cyan: ~$ %~%Magenta: ~$ %~%Yellow: ~$ %~%Black: ~$ %~%Total Byte Count: ~a" (* 100 (car result)) (* 100 (cadr result)) (* 100 (caddr result)) (* 100 (cadddr result)) (car (cddddr result)) )) (file-error () "File Not Found") )) for the test files I run it on, the result of pretty-print-cpc is: Cyan: 37.50 % Magenta: 37.50 % Yellow: 37.50 % Black: 12.50 % Total Byte Count: 32 however the .net gui is displaying that as: ??????? As I mentioned before, I'm using ECL is my lisp. I'm compiling the .net part using Visual Studio 2005 C# targeting version 2 of the .net framework. Any help that can be provide is appreciated.

3 11

[rdnzl-devel] Multiple DataGridViews in virtual mode example.
by Matthew O'Connor 18 Mar '08

18 Mar '08

Hi all once again, I have another example of the DataGridView. This time it is a simple MVC example. It is two DataGridViews showing/editing the same dataset. So you can change the data in one and see the updates reflected in the other. Feel free to to with it as you wish, but use it at your own peril. I am still just a Lisp newbie. Regards, Matthew ;; ======================================================================== ;; Multiple DataGridView Experiment. ;; ;; Matthew O'Connor ;; ;; This experiment is an extension of the last one in that there are now ;; two DataGridViews watching over the same database. ;; ;; The example is a simple implemenation of the Model View Controller ;; pattern. Each DataGridView is independent of the other but when the ;; underlying model (database) changes all views (DataGridView) are ;; notified and update their representation accordingly. ;; ;; You should be able add, remove or edit rows in one DataGridView and ;; have the updates appear in the other one. ;; ;; As with the previous experiment the DataGridView is running in Virtual ;; mode. The update mechanisms are a bit more complex now because ;; DataGridView that should be updated has to be determined. ;; ;; As usual there is no warranty. Use at your own peril. I am relatively ;; new to Lisp so you are warned. ;; NOTE: You need to modify this to point to the location of RDNZL on your system. (load "../RDNZL/rdnzl-0.12.0/load.lisp") ;; ------------------------------------------------------------------------ ;; RDNZL setup. (rdnzl:enable-rdnzl-syntax) (rdnzl:import-types "System.Windows.Forms" "Application" "Form" "Splitter" "DockStyle" "DataGridView" "DataGridViewTextBoxColumn" "DataGridViewCellValueEventHandler" "DataGridViewRowEventHandler" "QuestionEventHandler" "DataGridViewCellEventHandler" "DataGridViewRowCancelEventHandler") (rdnzl:use-namespace "System.Windows.Forms") (rdnzl:import-types "System.Drawing" "Size") (rdnzl:use-namespace "System.Drawing") ;; ------------------------------------------------------------------------ ;; Utilities (defun filter (lst fn) (let ((acc nil)) (dolist (x lst) (let ((val (funcall fn x))) (if val (push x acc)))) (nreverse acc))) (defun append1 (lst obj) (append lst (list obj))) ;; ------------------------------------------------------------------------ ;; Units ;; The items that will be stored in the database. At the moment they are ;; simply all strings. (defclass unit () ((code :accessor code :initarg :code :initform "None") (description :accessor description :initarg :description :initform "None") (name :accessor name :initarg :name :initform "Unknown"))) ;; Create a unit with an optional description. (defun make-unit (code name &optional description) (if description (make-instance 'unit :code code :name name :description description) (make-instance 'unit :code code :name name))) ;; Clone a unit this is needed by the datagridview which makes an copy whilst ;; editing a row. (defun clone-unit (unit) (make-unit (code unit) (name unit) (description unit))) ;; ------------------------------------------------------------------------ ;; units database ;; ;; The database has been slightly upgraded to support observers. Client code ;; registers with the database through the database-add-observer call ;; supplying their own callback ;; A simple database of units. (defparameter *database-units* nil) (defparameter *database-observers* nil) (defun database-add-observer (callback dgv) (setf *database-observers* (append1 *database-observers* (list callback dgv)))) (defun database-signal-observers (sender) (mapcar #'(lambda (x) (funcall (first x) (second x) sender)) *database-observers*)) (defun database-add-unit (modifier unit) (setf *database-units* (append *database-units* (list unit))) (database-signal-observers modifier)) (defun database-remove-unit (modifier unit) (setf *database-units* (remove unit *database-units*)) (database-signal-observers modifier)) (defun database-remove-unit-at (modifier index) (setf *database-units* (remove (nth index *database-units*) *database-units*)) (database-signal-observers modifier)) (defun database-get-unit (code) (first (filter *database-units* #'(lambda (unit) (equal code (code unit)))))) (defun database-get-unit-at (index) (nth index *database-units*)) (defun database-update-unit-at (modifier index unit) (setf (nth index *database-units*) unit) (database-signal-observers modifier)) (defun database-units-count () (length *database-units*)) ;; ------------------------------------------------------------------------ ;; DataGridView control variables. (defclass unit-data-grid-view () ((data-grid-view :accessor data-grid-view :initarg :data-grid-view :initform nil) (row-in-edit :accessor row-in-edit :initarg :row-in-edit :initform -1) (unit-in-edit :accessor unit-in-edit :initarg :unit-in-edit :initform nil) (row-scope-commit :accessor row-scope-commit :initarg :row-scope-commit :initform t))) (defparameter *unit-views* nil) (defun new-unit-data-grid-view (dgv) (let ((new-dgv (make-instance 'unit-data-grid-view :data-grid-view dgv))) (setf *unit-views* (append1 *unit-views* new-dgv)))) (defun get-unit-data-grid-view (dgv) (let ((name [%Name (rdnzl:cast dgv "DataGridView")])) (first (filter *unit-views* (lambda (x) (equal name [%Name (data-grid-view x)])))))) ;; A little utility to get the count of rows. (defun data-grid-view-row-count (udgv) [%Count [%Rows (data-grid-view udgv)]]) ;; Are we editing this row already. (defun is-row-in-edit (udgv index) (= (row-in-edit udgv) index)) (defun is-new-row (udgv index) (= index (- (data-grid-view-row-count udgv) 1))) ;; Is the supplied index the new row. ;; (defun is-new-row-from-row (row) ;; [%IsNewRow row]) ;; We are no longer editing any row so set the variables back to their ;; defaults. (defun reset-unit-in-edit (udgv) (setf (unit-in-edit udgv) nil (row-in-edit udgv) -1)) ;; ------------------------------------------------------------------------ ;; Implement the DataGridView callbacks. ;; ;; These are reasonably complex little calls. I refer you to the "Walkthrough" ;; mentioned at the start of the file for further information on how they ;; work. ;; The event occurs whenever the DataGridView requires the value to a cell for ;; display. It retrieves the value from either the database of units or from the ;; unit currently being edited. ;; ;; DataGridViewCellValueEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. ;; object Value - The value of the row. (defun cell-value-needed (object event) (let ((udgv (get-unit-data-grid-view object)) (row-index [%RowIndex event]) (column-index [%ColumnIndex event]) (unit nil)) (unless (is-new-row udgv row-index) (if (is-row-in-edit udgv row-index) ;; then (setf unit (unit-in-edit udgv)) ;; else (setf unit (database-get-unit-at row-index))) (unless (equal unit nil) (case column-index ((0) (setf [%Value event] (code unit))) ((1) (setf [%Value event] (name unit))) ((2) (setf [%Value event] (description unit)))))))) ;; This event occurs whenever a cell value has been updated on the DataGridView. ;; It gives the underlying storage mechanism a chance to update the value. ;; ;; If there is no unit currently in edit one is created. The updates do not go ;; directly to the database. They go via the unit currently in edit first. Once ;; the changes have been validated they are updated in the database. ;; ;; DataGridViewCellValueEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. ;; object Value - The value of the row. (defun cell-value-pushed (object event) (let ((udgv (get-unit-data-grid-view object)) (row-index [%RowIndex event]) (column-index [%ColumnIndex event]) (unit-tmp nil)) (if (< row-index (length *database-units*)) (progn (when (equal (unit-in-edit udgv) nil) (setf (unit-in-edit udgv) (clone-unit (database-get-unit-at row-index)))) (setf unit-tmp (unit-in-edit udgv) (row-in-edit udgv) row-index)) ;; else (setf unit-tmp (unit-in-edit udgv))) (unless (equal unit-tmp nil) (let ((value [%Value event])) (case column-index ((0) (setf (code unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String")))) ((1) (setf (name unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String")))) ((2) (setf (description unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String"))))))))) ;; Occurs whenever a new row is needed at the end of a DataGridView. It simply ;; creates a new empty unit that becomes the current unit in edit. ;; ;; DataGridViewRowEventArgs: ;; DataGridViewRow Row - I'm not sure what the contents of the row are ;; as I currently don't use them. (defun new-row-needed (object event) (let ((udgv (get-unit-data-grid-view object))) (setf (unit-in-edit udgv) (make-unit "" "" "") (row-in-edit udgv) (- (data-grid-view-row-count udgv) 1)))) ;; This event occurs after a row has finished validating. At this point the data ;; can be pushed to the database. ;; ;; DataGridViewViewCellEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. (defun row-validated (object event) (let ((udgv (get-unit-data-grid-view object)) (row-index [%RowIndex event])) (when [%Focused object] (if (and (>= row-index (database-units-count)) (not (= row-index (- (data-grid-view-row-count udgv) 1) ))) (progn (database-add-unit object (unit-in-edit udgv)) (reset-unit-in-edit udgv)) (if (and (not (equal (unit-in-edit udgv) nil)) (< row-index (database-units-count))) (progn (database-update-unit-at object row-index (unit-in-edit udgv)) (reset-unit-in-edit udgv)) (if [%ContainsFocus (data-grid-view udgv)] (reset-unit-in-edit udgv))))))) ;; Used by the DataGridView to determine if current row has uncommitted changes. ;; ;; Note - I'm not quite sure how this works. ;; ;; QuestionEventArgs ;; Boolean Response - True or False. (defun row-dirty-state-needed (object event) (let ((udgv (get-unit-data-grid-view object))) (unless (row-scope-commit udgv) (setf [%Response event] [%IsCurrentCellDirty udgv])))) ;; Give the application the opportunity to cancel the edits in a row. ;; ;; A single escape key cancels the cell edit. A double cancels the row edit. ;; ;; QuestionEventArgs ;; Boolean Response - True to cancel the row-edit, False (I assume) to let it ;; continue. (defun cancel-row-edit (object event) (let ((udgv (get-unit-data-grid-view object))) (if (and (= (row-in-edit udgv) (- (data-grid-view-row-count udgv) 2)) (= (row-in-edit udgv) (database-units-count))) (setf (unit-in-edit udgv) (make-unit "" "" "")) (reset-unit-in-edit udgv)))) ;; Remove the row if it is in the database otherwise simply reset the unit in edit. ;; ;; DataGridViewRowCancelEventArgs: ;; DataGridViewRow Row - The row the user is deleting. ;; Boolean Cancel - Cancel the addition of the row. (defun user-deleting-row (object event) (let* ((udgv (get-unit-data-grid-view object)) (data-grid-row [%Row event]) (row-index [%Index data-grid-row])) (when (< row-index (database-units-count)) (database-remove-unit-at object row-index)) (when (= row-index (row-in-edit udgv)) (reset-unit-in-edit udgv)))) ;; The callback that is registered with the database. ;; ;; The function will only update the DataGridView if it is not ;; the one that originated the modification in the first place. (let ((locked nil)) (defun data-grid-view-updated (dgv modifier) (let ((dgv-name [%Name dgv]) (modifier-name [%Name modifier])) (unless locked (setf locked t) (when (not (equal dgv-name modifier-name)) (let ((rows [%Rows dgv])) (setf [%RowCount dgv] 1) (setf [%RowCount dgv] (+ (database-units-count) 1)))) [Invalidate dgv] (setf locked nil))))) ;; ------------------------------------------------------------------------ ;; Main ;; Create a new text box column. (defun create-column (index name heading) (let ((col (rdnzl:new "DataGridViewTextBoxColumn"))) (setf [%DisplayIndex col] index [%Name col] name [%HeaderText col] heading) col)) ;; Create a DataGridView with three columns; Code, Name and Description. ;; It is placed in Virtual mode and all of the callbacks are hooked up. (defun create-units-editor (name) (let ((dgv (rdnzl:new "DataGridView"))) (setf [%VirtualMode dgv] t [%Dock dgv] [$DockStyle.Left] [%Text dgv] "DataGridView Experiment" [%Name dgv] name [%RowHeadersVisible dgv] t) [Add [%Columns dgv] (create-column 0 "code" "Code")] [Add [%Columns dgv] (create-column 1 "name" "Name")] [Add [%Columns dgv] (create-column 2 "description" "Description")] (when (> (database-units-count) 0) [Add [%Rows dgv] (database-units-count)]) [+CellValueNeeded dgv (rdnzl:new "DataGridViewCellValueEventHandler" #'cell-value-needed)] [+CellValuePushed dgv (rdnzl:new "DataGridViewCellValueEventHandler" #'cell-value-pushed)] [+NewRowNeeded dgv (rdnzl:new "DataGridViewRowEventHandler" #'new-row-needed)] [+UserDeletingRow dgv (rdnzl:new "DataGridViewRowCancelEventHandler" #'user-deleting-row)] [+CancelRowEdit dgv (rdnzl:new "QuestionEventHandler" #'cancel-row-edit)] [+RowDirtyStateNeeded dgv (rdnzl:new "QuestionEventHandler" #'row-dirty-state-needed)] [+RowValidated dgv (rdnzl:new "DataGridViewCellEventHandler" #'row-validated)] dgv)) ;; Call this function to run the application. (defun run-multiple-datagridview-experiment () (let ((form (rdnzl:new "Form")) (splitter (rdnzl:new "Splitter")) (dgv1 (create-units-editor "V1")) (dgv2 (create-units-editor "V2"))) (setf [%Text form] "DataGridView Experiment" [%Dock splitter] [$DockStyle.Left]) (new-unit-data-grid-view dgv1) (database-add-observer #'data-grid-view-updated dgv1) (new-unit-data-grid-view dgv2) (database-add-observer #'data-grid-view-updated dgv2) (setf [%Dock dgv1] [$DockStyle.Fill] [%Size form] (rdnzl::new "Size" 750 250) [%Size dgv1] (rdnzl::new "Size" 350 200) [%Size dgv2] (rdnzl::new "Size" 350 200)) [Add [%Controls form] dgv1] [Add [%Controls form] splitter] [Add [%Controls form] dgv2] [Application.Run form])) (defun reset () (setf *database-units* nil *database-observers* nil *unit-views* nil)) (run-multiple-datagridview-experiment)

1 0

[rdnzl-devel] DataGridView in virtual mode sample.
by Matthew O Connor 13 Mar '08

13 Mar '08

Hi all, I have implemented a little example that shows the use of the .net DataGridView control in virtual mode using RDNZL and Lispworks. The DataGridView control is particularly difficult to get working properly. I can't count the number of times I crashed my environment getting this working but foreign function calls are always hairy. The only thing you should have to do to get it working is change the location of the RDNZL path. Enjoy, Matthew O'Connor ;; ======================================================================== ;; DataGridView Experiment. ;; ;; Matthew O'Connor ;; ;; This is basically a lisp implementation of the Microsoft "Walkthrough: ;; Implementing Virtual Mode in the Windows Forms DataGridView Control". ;; ;; The DataGridView is running in Virtual mode continually coming back ;; to Lisp through the callbacks to get and set data. ;; ;; The example is made a little more complex by the use of an object to ;; store the row that is currently being edited. This allows a cell edit ;; to be undone with a simple press of the Escape key. A second press ;; of the same key will undo the changes made to the entire row. ;; ;; As usual there is no warranty. Use at your own peril. I am relatively ;; new to Lisp so you are warned. ;; NOTE: You need to modify this to point to the location of RDNZL on your system. (load "../RDNZL/rdnzl-0.12.0/load.lisp") ;; ------------------------------------------------------------------------ ;; RDNZL setup. (rdnzl:enable-rdnzl-syntax) (rdnzl:import-types "System.Windows.Forms" "Application" "Form" "DockStyle" "DataGridView" "DataGridViewTextBoxColumn" "DataGridViewCellValueEventHandler" "DataGridViewRowEventHandler" "QuestionEventHandler" "DataGridViewCellEventHandler" "DataGridViewRowCancelEventHandler") (rdnzl:use-namespace "System.Windows.Forms") ;; ------------------------------------------------------------------------ ;; Utilities (defun filter (lst fn) (let ((acc nil)) (dolist (x lst) (let ((val (funcall fn x))) (if val (push x acc)))) (nreverse acc))) ;; ------------------------------------------------------------------------ ;; Units ;; The items that will be stored in the database. At the moment they are ;; simply all strings. (defclass unit () ((code :accessor code :initarg :code :initform "None") (description :accessor description :initarg :description :initform "None") (name :accessor name :initarg :name :initform "Unknown"))) ;; Create a unit with an optional description. (defun make-unit (code name &optional description) (if description (make-instance 'unit :code code :name name :description description) (make-instance 'unit :code code :name name))) ;; Clone a unit this is needed by the datagridview which makes an copy whilst ;; editing a row. (defun clone-unit (unit) (make-unit (code unit) (name unit) (description unit))) ;; ------------------------------------------------------------------------ ;; units database ;; A simple database of units. (defparameter *database-units* nil) (defun database-add-unit (unit) (setf *database-units* (append *database-units* (list unit)))) (defun database-remove-unit (unit) (setf *database-units* (remove unit *database-units*))) (defun database-remove-unit-at (index) (setf *database-units* (remove (nth index *database-units*) *database-units*))) (defun database-get-unit (code) (first (filter *database-units* #'(lambda (unit) (equal code (code unit)))))) (defun database-get-unit-at (index) (nth index *database-units*)) (defun database-update-unit-at (index unit) (setf (nth index *database-units*) unit)) (defun database-units-count () (length *database-units*)) ;; The data grid view that is used to represent the units. (defparameter *units-data-grid-view* nil) ;; Keeps track of the row index that we are currently editing. A value ;; of -1 indicates that we are not editing anything at the moment. (defparameter *row-in-edit* -1) ;; This is the unit that will be created to hold edits until they have ;; been validated. At this point they will be written back to the database. (defparameter *unit-in-edit* nil) ;; I'm not sure about this variable. It never seems to be altered anywhere ;; in the example code. (defparameter *row-scope-commit* t) ;; A little utility to get the count of rows. (defun data-grid-view-row-count () [%Count [%Rows *units-data-grid-view*]]) ;; Are we editing this row already. (defun is-row-in-edit (index) (= *row-in-edit* index)) (defun is-new-row (index) (= index (- (data-grid-view-row-count) 1))) ;; Is the supplied index the new row. (defun is-new-row-from-row (row) [%IsNewRow row]) ;; We are no longer editing any row so set the variables back to their ;; defaults. (defun reset-unit-in-edit () (setf *unit-in-edit* nil *row-in-edit* -1)) ;; ------------------------------------------------------------------------ ;; Implement the DataGridView callbacks. ;; ;; These are reasonably complex little calls. I refer you to the "Walkthrough" ;; mentioned at the start of the file for further information on how they ;; work. ;; The event occurs whenever the DataGridView requires the value to a cell for ;; display. It retrieves the value from either the database of units or from the ;; unit currently being edited. ;; ;; DataGridViewCellValueEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. ;; object Value - The value of the row. (defun cell-value-needed (object event) (let ((row-index [%RowIndex event]) (column-index [%ColumnIndex event]) (unit nil)) (unless (is-new-row row-index) (if (is-row-in-edit row-index) ;; then (setf unit *unit-in-edit*) ;; else (setf unit (database-get-unit-at row-index))) (unless (equal unit nil) (case column-index ((0) (setf [%Value event] (code unit))) ((1) (setf [%Value event] (name unit))) ((2) (setf [%Value event] (description unit)))))))) ;; This event occurs whenever a cell value has been updated on the DataGridView. ;; It gives the underlying storage mechanism a chance to update the value. ;; ;; If there is no unit currently in edit one is created. The updates do not go ;; directly to the database. They go via the unit currently in edit first. Once ;; the changes have been validated they are updated in the database. ;; ;; DataGridViewCellValueEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. ;; object Value - The value of the row. (defun cell-value-pushed (object event) (let ((row-index [%RowIndex event]) (column-index [%ColumnIndex event]) (unit-tmp nil)) (if (< row-index (length *database-units*)) (progn (when (equal *unit-in-edit* nil) (setf *unit-in-edit* (clone-unit (database-get-unit-at row-index)))) (setf unit-tmp *unit-in-edit* *row-in-edit* row-index)) ;; else (setf unit-tmp *unit-in-edit*)) (unless (equal unit-tmp nil) (let ((value [%Value event])) (case column-index ((0) (setf (code unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String")))) ((1) (setf (name unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String")))) ((2) (setf (description unit-tmp) (rdnzl:unbox (rdnzl:cast value "System.String"))))))))) ;; Occurs whenever a new row is needed at the end of a DataGridView. It simply ;; creates a new empty unit that becomes the current unit in edit. ;; ;; DataGridViewRowEventArgs: ;; DataGridViewRow Row - I'm not sure what the contents of the row are ;; as I currently don't use them. (defun new-row-needed (object event) (setf *unit-in-edit* (make-unit "" "" "") *row-in-edit* (- (data-grid-view-row-count) 1))) ;; This event occurs after a row has finished validating. At this point the data ;; can be pushed to the database. ;; ;; DataGridViewViewCellEventArgs ;; int ColumnIndex - The index of the column. ;; int RowIndex - The index of the row. (defun row-validated (object event) (let ((row-index [%RowIndex event])) (if (and (>= row-index (database-units-count)) (not (= row-index (- (data-grid-view-row-count) 1) ))) (progn (database-add-unit *unit-in-edit*) (reset-unit-in-edit)) (if (and (not (equal *unit-in-edit* nil)) (< row-index (database-units-count))) (progn (database-update-unit-at row-index *unit-in-edit*) (reset-unit-in-edit)) (if [%ContainsFocus *units-data-grid-view*] (reset-unit-in-edit)))))) ;; Used by the DataGridView to determine if current row has uncommitted changes. ;; ;; Note - I'm not quite sure how this works. ;; ;; QuestionEventArgs ;; Boolean Response - True or False. (defun row-dirty-state-needed (object event) (unless *row-scope-commit* (setf [%Response event] [%IsCurrentCellDirty *units-data-grid-view*]))) ;; Give the application the opportunity to cancel the edits in a row. ;; ;; A single escape key cancels the cell edit. A double cancels the row edit. ;; ;; QuestionEventArgs ;; Boolean Response - True to cancel the row-edit, False (I assume) to let it ;; continue. (defun cancel-row-edit (object event) (if (and (= *row-in-edit* (- (data-grid-view-row-count) 2)) (= *row-in-edit* (database-units-count))) (setf *unit-in-edit* (make-unit "" "" "")) (reset-unit-in-edit))) ;; Remove the row if it is in the database otherwise simply reset the unit in edit. ;; ;; DataGridViewRowCancelEventArgs: ;; DataGridViewRow Row - The row the user is deleting. ;; Boolean Cancel - Cancel the addition of the row. (defun user-deleting-row (object event) (let* ((data-grid-row [%Row event]) (row-index [%Index data-grid-row])) (when (< row-index (database-units-count)) (database-remove-unit-at row-index)) (when (= row-index *row-in-edit*) (reset-unit-in-edit)))) ;; ------------------------------------------------------------------------ ;; Main ;; Create a new text box column. (defun create-column (index name heading) (let ((col (rdnzl:new "DataGridViewTextBoxColumn"))) (setf [%DisplayIndex col] index [%Name col] name [%HeaderText col] heading) col)) ;; Create a DataGridView with three columns; Code, Name and Description. ;; It is placed in Virtual mode and all of the callbacks are hooked up. (defun create-units-editor () (setf *units-data-grid-view* (rdnzl:new "DataGridView") *row-in-edit* -1 *unit-in-edit* nil *row-scope-commit* t [%VirtualMode *units-data-grid-view*] t [%Dock *units-data-grid-view*] [$DockStyle.Fill] [%Text *units-data-grid-view*] "DataGridView Experiment" [%RowHeadersVisible *units-data-grid-view*] t) [Add [%Columns *units-data-grid-view*] (create-column 0 "code" "Code")] [Add [%Columns *units-data-grid-view*] (create-column 1 "name" "Name")] [Add [%Columns *units-data-grid-view*] (create-column 2 "description" "Description")] [+CellValueNeeded *units-data-grid-view* (rdnzl:new "DataGridViewCellValueEventHandler" #'cell-value-needed)] [+CellValuePushed *units-data-grid-view* (rdnzl:new "DataGridViewCellValueEventHandler" #'cell-value-pushed)] [+NewRowNeeded *units-data-grid-view* (rdnzl:new "DataGridViewRowEventHandler" #'new-row-needed)] [+UserDeletingRow *units-data-grid-view* (rdnzl:new "DataGridViewRowCancelEventHandler" #'user-deleting-row)] [+CancelRowEdit *units-data-grid-view* (rdnzl:new "QuestionEventHandler" #'cancel-row-edit)] [+RowDirtyStateNeeded *units-data-grid-view* (rdnzl:new "QuestionEventHandler" #'row-dirty-state-needed)] [+RowValidated *units-data-grid-view* (rdnzl:new "DataGridViewCellEventHandler" #'row-validated)]) ;; Call this function to run the application. (defun run-datagridview-experiment () (let ((form (rdnzl:new "Form"))) (create-units-editor) (setf [%Text form] "DataGridView Experiment") [Add [%Controls form] *units-data-grid-view*] [BringToFront *units-data-grid-view*] [Application.Run form])) (run-datagridview-experiment)

3 2

[rdnzl-devel] Developer experience GUI applications.
by Matthew O'Connor 25 Feb '08

25 Feb '08

Hi, I am contemplating using RDNZL for my next project. I've started playing with it and am very impressed. I am interested in others peoples experiences with using for applications that work around tabular data, like a business application. If you could point me to any screenshots of RDNZL work it would be much appreciated. Regards, Matthew

2 3

[rdnzl-devel] Patch for generic types in RDZNL
by Iver Odin Kvello 19 Feb '08

19 Feb '08

I've attached a patch that adds support for generic types to RDNZL; the approach used might not be ideal, I'm not sure. The problem with generics in RDNZL was mainly an issue in GetType making the "BaseType´n[ParameterType1, ...,ParameterTypen]"-syntax fail to construct the correct type if the base type and parameter types lived in different assemblies. Here is an example: RDNZL-USER 25 > (invoke "System.Type" "GetType" "System.Action`1[System.Int32]") #<RDNZL::CONTAINER System.Type #xBD5B28> RDNZL-USER 26 > (invoke "System.Type" "GetType" "System.Action`2[System.Int32,System.Int32]") Warning: Returning NULL object from .NET call NIL Even if it had worked, some syntax would have been nice to let this interact with USE-NAMESPACE. Now, if all the type-names involved in a generic type-name like above were fully assembly-qualified, GetType would find the correct type. For the above type that would be "System.Action`2[[System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089],[System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089]], System.Core, Version=3.5.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" To make it easier to refer to this type, and to make it interact better with USE-NAMESPACE, I propose allowing a list (tree) to denote generic types. Since the length of the list will encode the number of parameters, this also allows one to drop the `n-part of the typename, and denote the type above like this (with the System namespace used:) '("Action" "Int32" "Int32") The patch implements this syntax in a particular way that might be debatable on several points. It modifies RESOLVE-TYPE-NAME to accept a list of this format, returning a new list of each type resolved (and hashed). That is, a tree of type names is mapped to a tree of fully qualified type names, with the first element in each list (and sublist) treated specially. Further, it modifies MAKE-TYPE-FROM-NAME so that this too accepts a tree of types, and if so, creates a closed generic type from the base type and parameters. To do this it first retrieves the base type, then calls MakeGenericType on it. All functions that can take a string as a type-name is further modified to accept also a tree, passing this on to RESOLVE-TYPE-NAME. This allows one to do stuff like (new '("Func" "Int32" "String") (lambda (x) (format nil "~@r" x))) and so forth. This all works: RDNZL-USER 31 > (setf f (new '("Func" "Int32" "String") (lambda (x) (format nil "~@r" x)))) #<RDNZL::CONTAINER System.Func`2[[System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089],[System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089]] #x3BDE2C8> RDNZL-USER 32 > (invoke f "Invoke" 2008) "MMVIII" The debatable points: 1. It might have sufficed to just have made RESOLVE-TYPE-NAME create the fully qualified typename directly. This would have either implied doing some string manipulation (like a function I posted earlier) or by creating the type using MakeGenericType and returning the AssemblyQualifiedName. The first alternative didn't feel quite right and the second would be pretty much what I've implemented except that the type would be thrown away after its name was resolved. I thought perhaps it was a bit neater to modify both RESOLVE and MAKE-TYPE-FROM-NAME, keeping the basic function of each basically like the current implementation. 2. Having every function accept trees makes it often neccessary to tests for CONTAINERP, STRINGP and finally CONSP which perhaps isn't that nice. 3. INVOKE accepts a syntax (INVOKE (assembly . type-name) method) where the static method named is called on the type, resolved from type-name using only the assembly given. I extended this to also accept generic types, but how to resolve the parameter-types isn't then completely obvious (the implementation just uses the normal type-lookup for parameter-types.) Also, this function already used CONSP for the type-specifier (compatibly, though). 4. Perhaps using lists like this is to 'bland' syntactically. It might do to have an operator like (generic "Func" "Int32" "String") to return a closed generic type, and make sure all callers accepted the resulting type-object. This would leave RESOLVE-, MAKE-TYPE-FROM and the rest as they were, doing all the extra work in a single spot. But this would pretty much be a type-name too, and one extra word longer than absolutely necessary: (new (generic "Func" "Int32" "String") (lambda (x) ...)) If the patch looks acceptable however, I'll of course update the documentation too. This contains no support for generic methods. The reason is that these are even more problematic to handle using the given interface. In particular, GetMethod will not retrieve the method (or anything) if a generic method is overloaded; so one has to implement a search manually before MakeGenericMethod can be called (http://blogs.msdn.com/yirutang/archive/2005/09/14/466280.aspx) But I think this is still useful mostly for toying around with the newer C#-features, so proper support can probably wait. Regards, Iver

2 8

[rdnzl-devel] Resolving assemblies in user-defined paths from lisp now works
by Iver Odin Kvello 14 Feb '08

14 Feb '08

With the new code, adding lisp functions to the AssemblyResolve event handler now works, as in the following example of loading AproposGui directly from the examples subdirectory without using LoadFrom: RDNZL-USER 3 > (load-assembly "AproposGui") Warning: Returning NULL object from .NET call NIL RDNZL-USER 4 > (pushnew (translate-logical-pathname #P"rdnzl:examples;") *additional-assembly-directories*) RDNZL-USER 5 > (install-assembly-resolve-handler) #<RDNZL::CONTAINER System.ResolveEventHandler #xBD6E28> RDNZL-USER 6 > (load-assembly "AproposGui") #<RDNZL::CONTAINER System.Reflection.Assembly #xBD7078> Very satisfying :) One isn't really supposed to do this, apparently, but it's pretty convenient, especially for stuff like AproposGui, and possibly something to add to the examples in itself. Regards, Iver

2 1

[rdnzl-devel] Re: RDNZL problem
by Michael Mills 04 Feb '08

04 Feb '08

I'm using the latest version of ECL (which is 0.9j). The apropos example works fine, but I'm having the same problem in lispworks (personal version 5.0) I've tried sending an array back (suing list-to-rdnzl-array) instead of a string, but pretty much the same thing happens. I've taken Iver's suggest and re-written my program to have the .net code call the callback which set the edit-box's value from within lisp, which does work. I initial tried to mimic the apropos example and use an EventHandler instead of using my callback, but for some reason, RDNZL couldn't find the EventHanlder type when I tried to import it from the System namespace. Thank you for your help with this problem.

2 2

[rdnzl-devel] The constant *ffi-args-size* in port-acl
by Iver Odin Kvello 26 Jan '08

26 Jan '08

I have a smallish problem with the default value of the constant *ffi-args-size* in port-acl.lisp in the distribution; this is 10 (ten) which is smaller than the number of arguments to the "Open" method of Office documents, in particular Excel (15 arguments to provide there). I tried to find out from where the restriction orginated so I could #+version it away, but I couldn't find it in the ACL documentation. Version 7.0 can handle at least 20 arguments, so this at least works: (defconstant *ffi-args-size* #+(version>= 7) 20 #-(version>= 7) 10) Does anyone know the correct limits?

3 6

[rdnzl-devel] New release 0.11.1
by Edi Weitz 30 Dec '07

30 Dec '07

ChangeLog: Version 0.11.1 2007-12-30 Fixed bug in Excel example Download: http://weitz.de/files/rdnzl.tar.gz

1 0