Path: news.daimi.aau.dk!solgaard
From: solgaard@daimi.aau.dk (Hans Erik Stubbe Solgaard)
Newsgroups: comp.lang.beta
Subject: PutformatInTextScrollList
Date: 3 Apr 1998 13:49:48 GMT
Organization: DAIMI, Computer Science Dept. at Aarhus University
Lines: 84
Distribution: all
Message-ID: <6g2pds$3hg$1@nf.aau.dk>
NNTP-Posting-Host: barium.daimi.aau.dk
X-Newsreader: NN version 6.5.1 (NOV)
Xref: news.daimi.aau.dk comp.lang.beta:11514

I have posted this problem before, but I haven't got 
the solution yet?!

The problem I have is to get PutFormat to work in a TextScrollList.
The result of the underneath object is printed both in the 
textscrolllist and in the window opened with the programme.

In the TextScrollList it looks something like this:


Name1     21   23    4    4
Name2    12   47    9    0
name3      20   30    8    4



And in the window it looks like this (correct):

Name1     21   23    4    4
Name2     12   47    9    0
name3     20   30    8    4

How come??? Is it not possible to use putformat in a 
TextScrollList?! If 'no' what can I use instead??

Regards Hans Solgaard

PS. I'm using the Windows compiler!!

---------------------------------------------------------------------------
ORIGIN '~beta/guienv/v1.6/guienvsystemenv';
INCLUDE '~beta/basiclib/v1.6/formatio';
--program:Descriptor--
..
..<<program code>>...
..
Oversigt: @textScrollList
                 (#
                    open::< 
                      (# 
                      do
                         true->bindBottom;
                         true->bindRight;
                         (544,401)->size;
                         (10,56)->position;
                         
                      #);
                    update:
                      (# tmp: ^Text; p: @integer; 
                      do
                         oversigt.selection.clear;
                         (if numberOfItems < localpers.persons.range then
                             (localpers.persons.range-numberOfItems)->append; 
                         if);
                         (if numberOfItems > localpers.persons.range then
                             (1,numberOfItems)->delete;
                             localpers.persons.range->append;
                             
                         if);
                         (for p: localpers.persons.range repeat
                           &text[]->tmp[];
                           tmp.clear;
                           '%25s %10g %10i %10g %10g'
                             ->tmp.putFormat
                               (# 
                               do
                                  2->precision;
                                  localpers.persons[p].name[]->s;
                                  localpers.persons[p].pris->g;
                                  localpers.persons[p].locantal->i;
                                  localpers.persons[p].glgld->g;
                                  localpers.persons[p].nygld->g
                               #);
                           (p,tmp[])->SetText;
                           tmp[]->putline;
                        
                         for)
                      #)
                 #);
--
Hans Solgaard
4E Ronson
Grosvenor Street
M1 7HR Manchester