/****************************************************************************/
/****************************************************************************/
/**                                                                        **/
/** g2d.pkg                                                                **/
/** GenericGraphicDressing                                                 **/
/**                                                                        **/
/** routines génériques pour l'interface graphique de l'éditeur            **/
/**                                                                        **/
/** Auteur : Loïc Berthelot, Cryo-Networks, dec 2000                       **/
/**                                                                        **/
/** ver 0.2                                                                **/
/** ajout de g2d_CRwinCont                                                 **/
/**                                                                        **/
/****************************************************************************/
/****************************************************************************/




typeof g2d_win = ObjWin;;
typeof g2d_ch = Chn;;


                       


fun g2d_setCh (ch) =
  set g2d_ch = ch;
  1;;



  


/***************************************/
/*                                     */
/* I N I T                             */
/*                                     */
/***************************************/
fun g2d_init (ch, win) =
  set g2d_ch = ch;
  set g2d_win = win;
  1;;









/********************************************************/
/*                                                      */
/* g2d_CRlabel [I I I I I S] CompText                   */
/*                                                      */
/********************************************************/
fun g2d_CRlabel (x, y, w, h, flags, t) =
  let 
     if (flags == nil)
     then ET_ALIGN_LEFT
     else flags
  -> flags
  in
    _CRtext g2d_ch g2d_win x y w h flags t;;





/********************************************************************/
/*                                                                  */
/* g2d_CRline [I I I I I S] CompText                                */
/*                                                                  */
/********************************************************************/
fun g2d_CRline (x, y, w, h, flags, t) =
  let 
     if (flags == nil)
     then ET_ALIGN_LEFT|ET_DOWN
     else flags
  -> flags
  in
   _CReditLine g2d_ch g2d_win x y w h flags t;;









/********************************************************/
/*                                                      */
/* g2d_setCompText [CompText S] I                       */
/*                                                      */
/********************************************************/
fun g2d_SETcompText (objText, text) =
  _SETtext objText text;;





/********************************************************************/
/*                                                                  */
/* g2d_CRrollOverText [[I I] I I I S] CompRollOver                  */
/*                                                                  */
/********************************************************************/
fun g2d_CRrollOverText (coord, w, h, flags, t) =
  let coord -> [x y]
  in
  _CRbutton g2d_ch g2d_win x y w h flags t;;