Changeset 12733


Ignore:
Timestamp:
Sep 1, 2009, 10:03:38 PM (10 years ago)
Author:
gz
Message:

Bring back ns-lisp-string

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-backtrace.lisp

    r12662 r12733  
    158158;; Cocoa layer
    159159
    160 (defclass ns-lisp-string (ns:ns-string)
     160;; General utils, should be moved elsewhere
     161(defclass abstract-ns-lisp-string (ns:ns-string)
    161162    ()
    162163  (:metaclass ns:+ns-object))
    163164
    164 (defgeneric ns-lisp-string-string (ns-lisp-string))
    165 
    166 (objc:defmethod (#/length :<NSUI>nteger) ((self ns-lisp-string))
     165(defgeneric ns-lisp-string-string (abstract-ns-lisp-string))
     166
     167(objc:defmethod (#/length :<NSUI>nteger) ((self abstract-ns-lisp-string))
    167168    (length (ns-lisp-string-string self)))
    168169
    169 (objc:defmethod (#/characterAtIndex: :unichar) ((self ns-lisp-string) (index :<NSUI>nteger))
     170(objc:defmethod (#/characterAtIndex: :unichar) ((self abstract-ns-lisp-string) (index :<NSUI>nteger))
    170171  (char-code (char (ns-lisp-string-string self) index)))
    171172
    172 (defclass frame-label (ns-lisp-string)
     173(defclass ns-lisp-string (abstract-ns-lisp-string)
     174  ((lisp-string :initarg :string :reader ns-lisp-string-string))
     175  (:metaclass ns:+ns-object))
     176
     177(defclass frame-label (abstract-ns-lisp-string)
    173178    ((frame-number  :foreign-type :int :accessor frame-label-number)
    174179     (controller :foreign-type :id :reader frame-label-controller))
     
    191196
    192197
    193 (defclass item-label (ns-lisp-string)
     198(defclass item-label (abstract-ns-lisp-string)
    194199    ((frame-label :foreign-type :id :accessor item-label-label)
    195200     (index :foreign-type :int :accessor item-label-index))
Note: See TracChangeset for help on using the changeset viewer.