( Fenetre 2.
  Version 1.00 du 17 Fevrier 2008.
  Ecrit par jpb.forth .
)

( *****************************************************************************
  Fenetre 1 + a propos --> FENETRE_2
  *****************************************************************************
)

FEN_STRING" S_FEN
FENETRE 2"
WINDOW 2"
( ++++ )
FEN_STRING" S_A_PROPOS
Ceci est un texte permettant
 de decrire  l'application."
This is a text allowing to
describe  the application."
( ---- )

0 VARIABLE FEN

FEN: FERME_FEN
 FEN_DETRUIT
;

( ++++ )
FEN: A_PROPOS_FEN
 >R S_A_PROPOS R> FEN_DIALOGUE_MESSAGE
;
( ---- )

: FENETRE_2
 FEN @ ?DUP
 IF
  FEN_SELECTIONNE
 ELSE
  FEN_CREE ?DUP
  IF
   DUP >R FEN !
   S_FEN R@ FEN_NOM
   75 225 R@ FEN_POSITION
   200 120 R@ FEN_TAILLE
   FERME_FEN R@ FEN_FERME
   ( ++++ )
   A_PROPOS_FEN R@ FEN_A_PROPOS
   ( ---- )
   R@ FEN_ACTIVE
   R> FEN_SELECTIONNE
  THEN
 THEN
;

FENETRE_2

( FIN
)