Mise à jour : 4 juillet 97

a spécificitée de la G par rapport à la S est l'emploi de menu déroulant, bien qu'ils ralentissent énormément l'utilisation de la machine, ils sont trés appréciés des novices alors que les transfuges de la S les délaissent. Pourtant, lorsque l'on découvre un programme ou une fonction, il sont bien pratique. D'un point de vue programation, ils ont été torchés.

ChooseLib(rpl,st,s,li,s) XLIB 179 0 soit #0B3000h

avec rpl :
MT60 utilise:

begin &lt3Ch;> over;=(2s)?;drdq/sk 2true drop;false end

{ 60 #618D3h #BBEDh #6210Ch }

st: titre
s3: &lt1h;> pour un affichage de texte, &lt2h;> pour un menu comme EQLIB et &lt11h;> pour CHOOSE
li: une liste de chaine pour s3= &lt1h; >, avec une chaine par ligne. Les délémiteurs n'apparaitront pas
une liste de n'importe quoi si s3= &lt2h;>
une liste de la forme { {"nom1" x} ...} si s3= &lt11h;>, avec x un nombre quelconqued'objet quelconque
s1: position initiale du bandeau. &lt0h;> pour ne pas avoir le bandeau.

le programme renvoit :

2:objet choisi
1:true
ou
1:false
Exemple de Choose :

begin Need0;ClrLastName ~;drop;false "titre" &lt11h;> {{"nom1" prog1}...} &lts;> XLIB 179 0 ?#:q &lt2h;> get(cp,s) eval end

{ #40BC9h #3A9B8h "titre" #4099h ::{{"nom1" prog1}...} s XLIB 179 0 #61A2Ch #4003h #62B9Ch #6F8Eh }

MenuG(li) XLIB 176 169

Avec li : une liste de liste contenant le titre et le programme: { { &ltid;> prg}...} avec id le numéro du titre rangé dans la ROM ou {{"tittre" prg}... } titre quelconque il est possible de mélanger les 2 et ainsi d'inclure ses propres programmes dans les menus déroulants de la G

---

MakeTitle(st) XLIB 176 165

Transforme la chaine st en un grob 131*7 représentant le texte centré sur un damier. C'est ce titre qui est utilisé pour choose ou inform par la G. Le damier est rangé en XLIB 176 135

---

title(st) XLIB 224 68

Appelle MakeTitle(st), puis l'affiche tout en haut de l'écran. Attention, l'écran n'est pas gelé, le titre disparait aussitot.

©zeHP