;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktree.lisp,v 1.11 2005-09-26 21:34:53 espen Exp $
+;; $Id: gtktree.lisp,v 1.14 2006-02-09 22:32:47 espen Exp $
(in-package "GTK")
(defmethod reader-function ((type (eql 'tree-path)) &rest args)
(declare (ignore type args))
(let ((reader (reader-function 'pointer)))
- #'(lambda (location &optional (offset 0))
+ #'(lambda (location &optional (offset 0) weak-p)
+ (declare (ignore weak-p))
(%tree-path-to-vector (funcall reader location offset)))))
(defmethod destroy-function ((type (eql 'tree-path)) &rest args)
(model tree-model)
(path tree-path))
-(defmethod initialize-instance ((reference tree-row-reference) &key model path)
- (setf
- (slot-value reference 'location)
- (%tree-row-reference-new model path))
- (call-next-method))
+(defmethod allocate-foreign ((reference tree-row-reference) &key model path)
+ (%tree-row-reference-new model path))
(defbinding tree-row-reference-get-path () tree-path
(reference tree-row-reference))