;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XAM
;;;                       Module: Identifier Metasystem
;;;                       Version: 1.0
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/xam/identifier-meta.lisp
;;; File Creation Date: 04/02/92 11:26:49
;;; Last Modification Time: 07/31/92 14:21:10
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :xit)

(defmethod action-property-sheet-entry ((self window-identifier))
  `(:class text-property-field
    :label "action"
    :read-function action))
