/* add localisation (must define "loc" function) - may 2001 - by macfly */





fun _destroyTranspWin(win,slider)=

  _DSslider slider;;



fun _okTranspButton(b,param)=

  let param -> [win slider check end] in

  {

    exec end with [(_GETcheck check) (ftoi _GETsliderLeft slider)];

    _destroyTranspWin win slider;

    _DSwindow win;

  };;

fun _cancelTranspButton(b,param)=

  let param -> [win slider] in

  {

    _destroyTranspWin win slider;

    _DSwindow win;

  };;

  

fun _CRtranspMap(ch,father,x,y,title,end,istransp,transp)=

  let _CRwindow ch father x y 300 95 WN_NORMAL title -> win in

  let

    _CRslider

      ch win nil 10 0 280 50

      0xff0000 (itof 0) (itof 255) (itof transp) (itof transp) nil

      SLIDER_INTER_FIXED|SLIDER_DRAW_SCALE|SLIDER_DRAW_VALUE|SLIDER_BUTTON

  -> slider in

  let _CRcheck ch win  5 55 190 15 0 loc "TRANSP_SET" -> check in

  let _CRbutton ch win 5 75  70 20 0 loc "OK" -> okbutton in

  let _CRbutton ch win 220 75 70 20 0 loc "CANCEL" -> cancelbutton in

  {

    _SETsliderPrecisionStep slider (itof 1);

    _SETsliderPrecisionMark slider 0;

    _SETcheck check istransp;

    _CBwinDestroy win @_destroyTranspWin slider;

    _CBbutton okbutton @_okTranspButton [win slider check end];

    _CBbutton cancelbutton @_cancelTranspButton [win slider];

    0

  };;