DESCRIPTION.

La procédure PROC_closewin() ferme, détruit, une fenêtre secondaire et libère les ressources qui lui été allouées.

SYNTAXE.

PROC_closewin( fenetre )

REMARQUES.

fenetre doit être un nombre entier compris entre 0 et le nombre maximum de fenêtres secondaires déclaré lors de l'initialisation du module avec la procédure PROC_multiwin().

Important : Toutes les fenêtres secondaires devront être fermées, avec un appel de la procédure PROC_closewin() pour chaque fenêtre de secondaire créée avec la fonction FN_createwin(). Il est donc vivement conseiller que votre application comporte un gestionnaire erreurs ON ERROR et/ou de fermeture ON CLOSE qui garantira la fermeture des fenêtres secondaires.

Note : la fenêtre de sortie active ne peut être fermée. Il est donc conseillé de toujours activer la fenêtre de sortie principale avec un appel de la procédure PROC_selectwin(0) avant de fermer une fenêtre de sortie secondaire..

Rappel : la fenêtre de sortie principale, c'est-à-dire la fenêtre initiale, à l'identifiant 0 et ne doit pas être créée.

La procédure PROC_closewin() est importée depuis le module multiwin.bbc. 

EXEMPLE.

REM --- Initialisation ---

INSTALL @lib$ + "multiwin.bbc"

PROC_multiwin( 5 )

MODE 8

REM --- Création des fenetres secondaires ---

PRINT "Fenetre princiaple : 0 "

PRINT "Creation des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

kadresse = FN_createwin( kfenetre , ktitre$  , ( kfenetre * 100 ) ,   ( kfenetre * 100 ) , 480 , 680 , 0 , 0 , 0 )

NEXT kfenetre

REM --- Création des fenetres secondaires ---

PRINT "Fenetre princiaple : 0 "

PRINT "Creation des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

PROC_selectwin( kfenetre )

PRINT ktitre$

WAIT( 50 )

NEXT kfenetre

REM --- Utilisation des fenetres secondaires --

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

PROC_selectwin( kfenetre )

PRINT ktitre$

NEXT kfenetre

REM --- Pause ---

PROC_selectwin( 0 )

PRINT "Creation des fenetres secondaires termine."

INPUT "Appuyez sur entree pour fermer les fenetres secondaires ... " kpause

REM --- Création des fenetres secondaires ---

PRINT "Fermeture des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5 : PROC_closewin( kfenetre ) : NEXT kfenetre

PRINT "Fermeture des fenetres secondaires termine."

REM --- Fin du programme ---

INPUT "Appuyez sur entree pour Quitter le programme ...  " kpause

END