Path: news.cs.au.dk!not-for-mail
From: Flemming Gram Christensen <gram@mjolner.dk>
Newsgroups: daimi.beta
Subject: Re: Brug af onSelect i 'tab'
Date: 22 Aug 2000 13:38:58 +0200
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 116
Message-ID: <y4yog2lttil.fsf@frey.mjolner.dk>
References: <399BD2F7.B44E19DA@cs.au.dk>
NNTP-Posting-Host: bifrost.mjolner.dk
X-Trace: gjallar.cs.au.dk 966944342 2288790 130.225.8.27 (22 Aug 2000 11:39:02 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 22 Aug 2000 11:39:02 GMT
X-Newsreader: Gnus v5.7/Emacs 20.4
Xref: news.cs.au.dk daimi.beta:10493

Karsten S. =?iso-8859-1?Q?J=F8rgensen?= <karsten@cs.au.dk> writes:

> Hej
> 
> Hvordan 'fanger' man, at en bruger trykker på et faneblad? 
> Vi kan se to metoder:
> 
> onBeforeSelectionChange i tabControl og onSelect i tab.
> 
> onBeforeSelectionChange kan vi ikke bruge, da vi gerne vil
> vide hvilken tab der bliver trykket på.
> 
> onSelect, tja, den virker bare ikke. Følgende program
> skriver aldrig noget:


Ja, der er en fejl i den installerede udgave. 
Der bliver installeret en ny inden semester start.

En let og hurtig loesning for dig er at:

Kopier tabControl.bet, private/tabControlBody.bet og
private/X11/tabControl_unixBody.bet  
fra /usr/local/lib/beta/guienv/utils

Laeg dem i et passende directory hos dig.

Find:
-- GUIEnvTabControlSetSelection: DoPart --
do theTab[]->private.selected[]; theTab.tabPrivate.page.bringToFront; update;   

i tabControl_unixBody.bet og ret til:

-- GUIEnvTabControlSetSelection: DoPart --
do theTab[]->private.selected[]; 
   theTab.tabPrivate.page.bringToFront; 
   update;   
   theTab.onSelect;

Eller:

hent filerne fra:
ftp://ftp.mjolner.dk/mjolner-system/r5.1/misc/

Hvor fejlen er rettet.

Husk at rette INCLUDE properties i dit program.

Mvh
Flemming


> 
> ORIGIN '~beta/guienv/guienv';
> INCLUDE '~beta/guienv/utils/tabControl'
> -- program: Descriptor --
> guienv 
> (# 
>    mitWin: @window
>      (# open:: (#  do (400,400)->size; TabCtrl.open; #);
>         
>         TabCtrl: @TabControl
>           (# open::
>                (# do (400,400)->size;
>                   (0,0)->position;
>                   Tab1.open; 
>                   Tab2.open; 
>                #);
>              
>              Tab1: @tab
>                (# 
>                   open:: 
>                     (# do 'Tab 1'->label; 
>                        TabCanvas1.open;
>                        TabCanvas1[]->page;
>                     #);
>                   onSelect:: (# do 'Tab 1 valgt'->putline;
> #);
>                   TabCanvas1: @canvas
>                #);
>              
>              Tab2: @tab
>                (# open:: 
>                     (# do 'Tab 2'->label;
>                        TabCanvas2.open;
>                        TabCanvas2[]->page;
>                     #);
>                   onSelect:: (# do 'Tab 2 valgt'->putline;
> #);
>                   TabCanvas2: @canvas
>                #);
>           #);        
>      #);
>    do mitWin.open;
> #)
> 
> 
> 
> 
> 
> 
> --
> 
> Yesterday I went for a walk in the park and
> I felt a breeze while eating a piece of cake. 
> It was the easiest day of my life.

-- 
Flemming Gram Christensen, M.Sc., Software Engineer, Mjølner Informatics
------------------------------------------------------------------------
Mjolner Informatics A/S                   Phone:  +45 70 27 43 43       
Science Park Aarhus                       Fax:    +45 70 27 43 44
Gustav Wieds Vej 10                                             
DK-8000 Aarhus C                                                     
Denmark                                   E-mail: gram@mjolner.dk    
------------------------------------------------------------------------