Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.lisp
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.lisp (revision 14595)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.lisp (revision 14595)
@@ -0,0 +1,107 @@
+;;; binding.lisp
+
+#|
+The MIT license.
+
+Copyright (c) 2009 Paul L. Krueger
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software
+and associated documentation files (the "Software"), to deal in the Software without restriction,
+including without limitation the rights to use, copy, modify, merge, publish, distribute,
+sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial
+portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
+LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+|#
+
+;;; Sample lisp/Cocoa interface that uses a NIB file defined with interface builder;
+;;; A definition is provided for the "Foo" class that was specified to interface builder
+;;; so that when the NIB file is loaded an instance of that class will be created and
+;;; linked appropriately to the input fields, output sum text field, and Sum button.
+;;; When the Sum button is pushed the sum will be computed and placed into the sum
+;;; field in the window.
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (require :nib)
+ (require :ns-object-utils)
+ (require :nslog-utils)
+ (require :lisp-controller))
+
+(defpackage :binding2
+ (:nicknames :bnd2)
+ (:use :iu :ccl :common-lisp :lc)
+ (:export test-binding
+ random-sum-owner
+ input-1
+ input-2
+ sum
+ sum-owner2
+ controller))
+
+(in-package :bnd2)
+
+(defclass sum-owner2 ()
+ ((input-1 :accessor input-1 :initarg :input-1 :kvo input-1)
+ (input-2 :accessor input-2 :initarg :input-2 :kvo input-2)
+ (sum :accessor sum :initform 0 :kvo sum))
+ (:default-initargs
+ :input-1 0
+ :input-2 0))
+
+(defmethod initialize-instance :after ((self sum-owner2)
+ &key &allow-other-keys)
+ (setf (sum self) (+ (input-1 self) (input-2 self))))
+
+(defun random-sum-owner ()
+ ;; return a sum-owner2 instance with random initial values
+ (make-instance 'sum-owner2
+ :input-1 (random 100)
+ :input-2 (random 100)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defclass binding-window-owner2 (ns:ns-object)
+ ((controller :foreign-type :id
+ :accessor controller)
+ (nib-objects :accessor nib-objects :initform nil))
+ (:metaclass ns:+ns-object))
+
+(defmethod initialize-instance :after ((self binding-window-owner2)
+ &key &allow-other-keys)
+ (setf (nib-objects self)
+ (load-nibfile
+ (truename "ip:BindingTests;binding2.nib")
+ :nib-owner self
+ :retain-top-objs t))
+ ;; we do the following so that ccl:terminate will be called before we are garbage
+ ;; collected and we can release the top-level objects from the NIB that we retained
+ ;; when loaded
+ (ccl:terminate-when-unreachable self))
+
+(defmethod ccl:terminate ((self binding-window-owner2))
+ (dolist (top-obj (nib-objects self))
+ (unless (eql top-obj (%null-ptr))
+ (#/release top-obj))))
+
+;; methods called as a result of button actions
+
+(objc:defmethod (#/doSum: :void)
+ ((self binding-window-owner2) (s :id))
+ (declare (ignore s))
+ (with-slots (input-1 input-2) (root (controller self))
+ (setf (sum (root (controller self)))
+ (+ input-1 input-2))))
+
+;; test by
+(defun test-binding ()
+ (make-instance 'binding-window-owner2))
+
+(provide :binding2)
Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.nib/designable.nib
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.nib/designable.nib (revision 14595)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.nib/designable.nib (revision 14595)
@@ -0,0 +1,536 @@
+
+
+
+ 1050
+ 10F569
+ 762
+ 1038.29
+ 461.00
+
+
+
+
+
+
+
+ 0
+ IBCocoaFramework
+
+
+ YES
+
+ 3
+
+
Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.lisp
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.lisp (revision 14595)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.lisp (revision 14595)
@@ -0,0 +1,107 @@
+;;; binding.lisp
+
+#|
+The MIT license.
+
+Copyright (c) 2009 Paul L. Krueger
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software
+and associated documentation files (the "Software"), to deal in the Software without restriction,
+including without limitation the rights to use, copy, modify, merge, publish, distribute,
+sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial
+portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
+LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+|#
+
+;;; Sample lisp/Cocoa interface that uses a NIB file defined with interface builder;
+;;; A definition is provided for the "Foo" class that was specified to interface builder
+;;; so that when the NIB file is loaded an instance of that class will be created and
+;;; linked appropriately to the input fields, output sum text field, and Sum button.
+;;; When the Sum button is pushed the sum will be computed and placed into the sum
+;;; field in the window.
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (require :nib)
+ (require :ns-object-utils)
+ (require :nslog-utils)
+ (require :lisp-controller))
+
+(defpackage :binding3
+ (:nicknames :bnd3)
+ (:use :iu :ccl :common-lisp :lc)
+ (:export test-binding
+ random-sum-owner
+ input-1
+ input-2
+ sum
+ sum-owner
+ controller))
+
+(in-package :bnd3)
+
+(defclass sum-owner3 ()
+ ((input-1 :accessor input-1 :initarg :input-1 :kvo "in1")
+ (input-2 :accessor input-2 :initarg :input-2 :kvo "in2")
+ (sum :accessor sum :initform 0 :kvo "sm"))
+ (:default-initargs
+ :input-1 0
+ :input-2 0))
+
+(defmethod initialize-instance :after ((self sum-owner3)
+ &key &allow-other-keys)
+ (setf (sum self) (+ (input-1 self) (input-2 self))))
+
+(defun random-sum-owner ()
+ ;; return a sum-owner instance with random initial values
+ (make-instance 'sum-owner3
+ :input-1 (random 100)
+ :input-2 (random 100)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defclass binding-window-owner3 (ns:ns-object)
+ ((controller :foreign-type :id
+ :accessor controller)
+ (nib-objects :accessor nib-objects :initform nil))
+ (:metaclass ns:+ns-object))
+
+(defmethod initialize-instance :after ((self binding-window-owner3)
+ &key &allow-other-keys)
+ (setf (nib-objects self)
+ (load-nibfile
+ (truename "ip:BindingTests;binding3.nib")
+ :nib-owner self
+ :retain-top-objs t))
+ ;; we do the following so that ccl:terminate will be called before we are garbage
+ ;; collected and we can release the top-level objects from the NIB that we retained
+ ;; when loaded
+ (ccl:terminate-when-unreachable self))
+
+(defmethod ccl:terminate ((self binding-window-owner3))
+ (dolist (top-obj (nib-objects self))
+ (unless (eql top-obj (%null-ptr))
+ (#/release top-obj))))
+
+;; methods called as a result of button actions
+
+(objc:defmethod (#/doSum: :void)
+ ((self binding-window-owner3) (s :id))
+ (declare (ignore s))
+ (with-slots (input-1 input-2) (root (controller self))
+ (setf (sum (root (controller self)))
+ (+ input-1 input-2))))
+
+;; test by
+(defun test-binding ()
+ (make-instance 'binding-window-owner3))
+
+(provide :binding3)
Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.nib/designable.nib
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.nib/designable.nib (revision 14595)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.nib/designable.nib (revision 14595)
@@ -0,0 +1,536 @@
+
+
+
+ 1050
+ 10F569
+ 762
+ 1038.29
+ 461.00
+
+
+
+
+
+
+
+ 0
+ IBCocoaFramework
+
+
+ YES
+
+ 3
+
+
Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding4.nib/designable.nib
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding4.nib/designable.nib (revision 14594)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding4.nib/designable.nib (revision 14595)
@@ -253,11 +253,20 @@
root.in12
- 67
+ 70
- 68
+ 71
- 69
+ 72
@@ -472,5 +494,5 @@
- 69
+ 72