From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.8 required=5.0 tests=BAYES_00,TRACKER_ID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bbeba936b24f1d90
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-12-22 03:14:03 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!news-x.support.nl!newspeer.clara.net!news.clara.net!newsfeed01.sul.t-online.de!t-online.de!blackbush.xlink.net!connemara.xlink.net!news.erfurt.thur.de!eastside.erfurt.thur.de!drcomp.erfurt.thur.de!not-for-mail
From: Adrian Knoth <adi@drcomp.erfurt.thur.de>
Newsgroups: comp.lang.ada
Subject: Re: modifying color of "Ada.Text_IO.Put"
Date: 21 Dec 2000 21:58:46 GMT
Organization: Modern Electronics
Message-ID: <91tuem$fqv$2@drcomp.erfurt.thur.de>
References: <3A425FFC.3831ACE2@gmx.net>
NNTP-Posting-Host: drcomp.erfurt.thur.de
X-Server-Date: 21 Dec 2000 21:58:46 GMT
User-Agent: tin/1.4.4-20000803 ("Vet for the Insane") (UNIX) (Linux/2.2.18
 (i586))
Xref: supernews.google.com comp.lang.ada:3357
Date: 2000-12-21T21:58:46+00:00
List-Id: <comp.lang.ada>

Stefan Kombrink <katakombi@gmx.net> wrote:

> Hi there,

Hi!

> Moving the cursor may work with "Set_Col" and "Set_Line", but i need
> routines to change color as well!

There was a thread in thur.comp.software where I posted a solution
and Lutz wrote some comments. Deja.com may help you.

> Could anyone remember a small, simple easy-to-use package (OS
> independent) or should it even be possible by using standard GNAT
> packages?

I think we're talking about ANSI-compatible behaviour of terminals
or emulutions. So the following ASCII-stuff should work:

Ada.Text_IO.Put (ASCII.ESC & "[33m");

Colors are:

# 00=none 01=bold 04=underscore 05=blink 07=reverse 08=concealed
# Text color codes:
# 30=black 31=red 32=green 33=yellow 34=blue 35=magenta 36=cyan 37=white
# Background color codes:
# 40=black 41=red 42=green 43=yellow 44=blue 45=magenta 46=cyan 47=white

(taken from /etc/DIR_COLORS :)



-- 
mail: adi@thur.de  adi.thur.de/weihnachtsmann.html  PGP: v2-key via keyserver

thistaglinewasproducedbypkzip