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

( *****************************************************************************
  Fenetre 2 + dimensions --> FENETRE_3
  *****************************************************************************
)

FEN_STRING" S_FEN
FENETRE 3"
WINDOW 3"
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_3
 FEN @ ?DUP
 IF
  FEN_SELECTIONNE
 ELSE
  FEN_CREE ?DUP
  IF
   DUP >R FEN !
   S_FEN R@ FEN_NOM
   125 200 R@ FEN_POSITION
   200 120 R@ FEN_TAILLE
   FERME_FEN R@ FEN_FERME
   A_PROPOS_FEN R@ FEN_A_PROPOS
   ( ++++ )
   200 120 20000 12000 R@ FEN_DIMENSIONS
   ( ---- )
   R@ FEN_ACTIVE
   R> FEN_SELECTIONNE
  THEN
 THEN
;

FENETRE_3

( FIN
)