;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtkselection.lisp,v 1.3 2006-02-08 21:58:49 espen Exp $
+;; $Id: gtkselection.lisp,v 1.5 2006-02-09 22:32:47 espen Exp $
(in-package "GTK")
(targets (vector (inlined target-entry)))
((length targets) int))
-(defmethod initialize-instance ((target-list target-list) &key targets)
- (setf
- (slot-value target-list 'location)
- (%target-list-new targets))
- (call-next-method))
+(defmethod allocate-foreign ((target-list target-list) &key targets)
+ (%target-list-new targets))
(defbinding target-list-add (target-list target &optional flags info) nil
(target-list target-list)