home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Intui / gradient.e < prev    next >
Encoding:
Text File  |  1994-12-02  |  1.1 KB  |  33 lines
  1. -> gradientslider en E!
  2.  
  3. MODULE 'intuition/intuition', 'intuition/gadgetclass', 'intuition/icclass',
  4.        'gadgets/gradientslider'
  5.  
  6. DEF w:PTR TO window, grad:PTR TO gadget, gradbase, class, val
  7.  
  8. PROC main()
  9.   IF w:=OpenWindowTagList(NIL,[WA_FLAGS,$E,WA_IDCMP,$268,WA_WIDTH,400,WA_HEIGHT,80,WA_TITLE,'Gradients in E!',0])
  10.     SetStdRast(w.rport)
  11.     IF gradbase:=OpenLibrary('gadgets/gradientslider.gadget',39)
  12.       IF grad:=NewObjectA(NIL,'gradientslider.gadget',[GA_TOP,20,GA_LEFT,20,GA_WIDTH,350,GA_HEIGHT,30,GA_ID,1,GRAD_PENARRAY,[0,7,-1]:INT,GRAD_KNOBPIXELS,20,0])
  13.         AddGList(w,grad,-1,-1,NIL)
  14.         RefreshGList(grad,w,NIL,-1)
  15.         WHILE (class:=WaitIMessage(w))<>IDCMP_CLOSEWINDOW
  16.           GetAttr(GRAD_CURVAL,grad,{val})
  17.           TextF(20,60,'gradient value = \z$\h[4]',val)
  18.         ENDWHILE
  19.         RemoveGList(w,grad,-1)
  20.         DisposeObject(grad)
  21.       ELSE
  22.         WriteF('Ne peut pas créer GradientSlider!\n')
  23.       ENDIF
  24.       CloseLibrary(gradbase)
  25.     ELSE
  26.       WriteF('Ne peut pas ouvrir "gradientslider.gadget"\n')
  27.     ENDIF
  28.     CloseWindow(w)
  29.   ELSE
  30.     WriteF('Pas de fenêtre!\n')
  31.   ENDIF
  32. ENDPROC
  33.