From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Decebal <CLDWesterhof@gmail.com>
Newsgroups: gmane.emacs.help
Subject: Re: Something like an array (list) of a class
Date: Mon, 13 Apr 2009 10:57:38 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <67e696b0-bdf8-45e2-86d6-4a696bb2ecfa@r37g2000yqn.googlegroups.com>
References: <665d0b7a-3230-4123-b9f4-2a645f44dd1c@a7g2000yqk.googlegroups.com>
	<mailman.5118.1239437738.31690.help-gnu-emacs@gnu.org>
	<9fe617de-13d8-4dbc-82f8-3cc575008e48@o18g2000vbi.googlegroups.com>
	<mailman.5186.1239523825.31690.help-gnu-emacs@gnu.org>
	<c918fd20-b8cb-4500-b2c6-6f0a973afcd9@c36g2000yqn.googlegroups.com>
	<0b45eaa6-232b-4bc3-a505-d47910f6478d@37g2000yqp.googlegroups.com> 
	<97cb2f72-c82d-4143-9842-07240924b517@f19g2000yqo.googlegroups.com>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: ger.gmane.org 1239648064 24781 80.91.229.12 (13 Apr 2009 18:41:04 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Mon, 13 Apr 2009 18:41:04 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Apr 13 20:42:23 2009
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1LtR6l-00079K-02
	for geh-help-gnu-emacs@m.gmane.org; Mon, 13 Apr 2009 20:42:15 +0200
Original-Received: from localhost ([127.0.0.1]:49283 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1LtR5M-0007Df-4A
	for geh-help-gnu-emacs@m.gmane.org; Mon, 13 Apr 2009 14:40:48 -0400
Original-Path: news.stanford.edu!newsfeed.stanford.edu!postnews.google.com!r37g2000yqn.googlegroups.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 48
Original-NNTP-Posting-Host: 84.53.123.169
Original-X-Trace: posting.google.com 1239645458 20351 127.0.0.1 (13 Apr 2009 17:57:38
	GMT)
Original-X-Complaints-To: groups-abuse@google.com
Original-NNTP-Posting-Date: Mon, 13 Apr 2009 17:57:38 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: r37g2000yqn.googlegroups.com; posting-host=84.53.123.169; 
	posting-account=K-cdeAoAAAD_0d505kUtHXJaT5LFIu-3
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; nl; rv:1.9.0.8) 
	Gecko/2009032600 SUSE/3.0.8-1.1.1 Firefox/3.0.8,gzip(gfe),gzip(gfe)
Original-Xref: news.stanford.edu gnu.emacs.help:168436
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:63713
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/63713>

I know have:
    (require 'cl)

    (defstruct
      (ModeLine
       (:constructor nil)
       (:constructor new-ModeLine (type description display function))
       )
      (type        :read-only t)
      (description :read-only t)
      (display     :read-only t)
      (function    :read-only t)
      )

    (setq modelineArray
          [
           (new-ModeLine
            "chars"
            "Display number of chars"
            "C"
            'buffer-count-chars2
            )
           (new-ModeLine
            "lines"
            "Display number of lines"
            "L"
            'buffer-count-lines2
            )
           (new-ModeLine
            "words"
            "Display number of words"
            "W"
            'buffer-count-words2
            )
           ]
          )

But there are a few problems:
- I would like to have the vector modelineArray readonly. Is this
possible?
- The vector is notfilled with ModeLine objects. When executing:
    (aref modelineArray 2)
I get:
    (new-ModeLine "words" "Display number of words" "W" (quote buffer-
count-words2))
So I can not do something like:
    (ModeLine-type (aref modelineArray 2))
What is the good way to fill the vector?