-> simplegtgadget.e - Simple example of a GadTools gadget.

OPT OSVERSION=37

MODULE 'gadtools',
       'exec/ports',
       'graphics/text',
       'intuition/intuition',
       'intuition/screens',
       'libraries/gadtools'

ENUM ERR_NONE, ERR_GAD, ERR_LIB, ERR_PUB, ERR_VIS, ERR_WIN

RAISE ERR_GAD IF CreateGadgetA()=NIL,
      ERR_LIB IF OpenLibrary()=NIL,
      ERR_PUB IF LockPubScreen()=NIL,
      ERR_VIS IF GetVisualInfoA()=NIL,
      ERR_WIN IF OpenWindowTagList()=NIL

CONST MYGAD_BUTTON=4

-> Open all libraries and run.  Clean up when finished or on error..
PROC main() HANDLE
  gadtoolsbase:=OpenLibrary('gadtools.library', 37)
  gadtoolsWindow()
EXCEPT DO
  IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  SELECT exception
  CASE ERR_GAD; WriteF('Error: Could not create gadget\n')
  CASE ERR_LIB; WriteF('Error: Could not open gadtools.library\n')
  CASE ERR_PUB; WriteF('Error: Could not lock public screen\n')
  CASE ERR_VIS; WriteF('Error: Could not get visual info\n')
  CASE ERR_WIN; WriteF('Error: Could not open window\n')
  ENDSELECT
ENDPROC

-> Prepare for using GadTools, set up gadgets and open window.
-> Clean up and when done or on error.
PROC gadtoolsWindow() HANDLE
  DEF mysc=NIL:PTR TO screen, mywin=NIL, glist=NIL, gad, vi=NIL
  mysc:=LockPubScreen(NIL)
  vi:=GetVisualInfoA(mysc, [NIL])
  -> GadTools gadgets require this step to be taken
  gad:=CreateContext({glist})

  -> Create a button gadget centered bel3,ÝÏ”
ïG2…Õ£9ÈÖžå¨K>·Pv¼&ñÚÄ[{Mãu‰ç&Êš×+ŸHh6®–ünÁìPMü5× ^˜8j’¯-¼±É´V÷~Æ Rø=‚‘¡¬x}â¡‰¸fòªÅ¿0ÔŸC(1Þ”Xoz¬#=ÙÑšÜkïJÌ7ÖäKF·rö¥†û"ÃY‘úìCñÅ„S#}ÙášÈk¯Nü4A×p^¤8{R£}¹á²Èu–§.úœC)ñÞÄXSz½ã1‰ÔfßjØ/œ)Ç^Ò¸]²¹µ²÷5†—"î™ŒjåïEÂ³µÌwæ
äB‡q¢¤y»bói…îãIÅöÓÝÂÙ‘šìkïEŒ3%ÕÛHv‡fâªÉ¿ðÄSC}ñá„Hcv©æþÊÀW>ŒeÌ+ßO4
—G.²œu©ç>ÊW,>Ðiœ.éÜNÙôZÇ{£M¹õ²Ç5’—-®¼i±îôLGuò§ºƒ3!ÕØ_¸2‡U¢¿9°ô‡E¢³9µÒ÷†‰¢æùŠÂçŠŒg%ê›+DsH%ö›ëBÏq”$o[l;mÓmí©¾å°K47WV¾¾ðpD$3[Uû`è N€4`h®„|caéèNÎ´Twf *øˆ¦€zà#ÆŠÒçŠ‰§&úšÃ+ßLX5ú—.Ü`Yè:Î“mÏm”-¯]¼9±Òô]‡y¢¢ù¹‚òá…ˆc&©ÚþÛ [@;pdëEs$%Û[{Kcwiæ®ÊüWþ€@`0        0, argInt(ttypes, 'CX_PRIORITY', 0), 0,
                    broker_mp, 0]:newbroker, NIL)

  -> argString() works just like argInt(), except it returns a pointer to a
  -> string rather than an integer.  In the example below, if there is no
  -> ToolType 'HOTKEY', the function returns a pointer to 'rawkey control esc'.
  hotkey:=argString(ttypes, 'HOTKEY', 'rawkey control esc')

  -> CxFilter() is a macro that creates a filter CxObject.  This filter passes
  -> input events that match the string pointed to by hotkey.
  filter:=CxFilter(hotkey)
  -> Add a CxObject to another's personal list
  AttachCxObj(broker, filter)

  -> CxSender() creates a sender CxObject.  Every time a sender gets a
  -> CxMessage, it sends a new CxMessage to the port pointed to in the first
  -> argument.  CxSender()'s second argument will be the ID of any CxMessages
  -> the sender sends to the port.  The data pointer associated with the
  -> CxMessage will point to a *COPY* of the InputEvent structure associated
  -> with the orginal CxMessage.
  sender:=CxSender(broker_mp, EVT_HOTKEY)
  AttachCxObj(filter, sender)

  -> CxTranslate() creates a translate CxObject.  When a translate CxObject
  -> gets a CxMessage, it deletes the original CxMessage and adds a new input
  -> event to the input.device's input stream after the Commodities input
  -> handler.  CxTranslate's argument points to an InputEvent structure from
  -> which to create the new input event.  In this example, the pointer is NIL,
  -> meaning no new event should be introduced, which causes any event that
  -> reaches this object to disappear from the input stream.
  translate:=CxTranslate(NIL)
  AttachCxObj(filter, translate)

  -> CxObjError() is a commodities.library function that returns the internal
  -> accumulated error code of a CxObject.
  IF CxObjError(filter)<>FALSE THEN Raise(ERR_CXERR)

  ActivateCxObj(broker, TRUE)
  processMsg()

EXCEPT DO
  -> DeleteCxObjAll() is a commodities.library function that not only deletes
  -> the CxObject pointed to in its argument, but it deletes all of the
  -> CxObjects that are attached to it.
  IF broker THEN DeleteCxObjAll(broker)
  IF broker_mp
    WHILE msg:=GetMsg(broker_mp) DO ReplyMsg(msg)
    DeleteMsgPort(broker_mp) -> E-Note: C version incorrectly uses DeletePort()
  ENDIF
  IF ttypes THEN argArrayDone()
  IF iconbase THEN CloseLibrary(iconbase)
  IF cxbase THEN CloseLibrary(cxbase)
  SELECT exception
  CASE ERR_ARG;   WriteF('Error: Could not init arg array\n')
  CASE ERR_BRKR;  WriteF('Error: Could not create broker\n')
  CASE ERR_CRCX;  WriteF('Error: Could not create CX object\n')
  CASE ERR_CXERR; WriteF('Error: Could not activate broker\n')
  CASE ERR_LIB;   WriteF('Error: Could not open required library\n')
  CASE ERR_PORT;  WriteF('Error: Could not create message port\n')
  ENDSELECT
ENDPROC

PROC processMsg()
  DEF msg, sigrcvd, msgid, msgtype, done=FALSE
  REPEAT
    sigrcvd:=Wait(SIGBREAKF_CTRL_C OR cxsigflag)
    WHILE msg:=GetMsg(broker_mp)
      msgid:=CxMsgID(msg)
      msgtype:=CxMsgType(msg)
      ReplyMsg(msg)
      SELECT msgtype
      CASE CXM_IEVENT
        WriteF('A CXM_IEVENT, ')
        SELECT msgid
        CASE EVT_HOTKEY  -> We got the message from the sender CxObject
          WriteF('You hit the HotKey.\n')
        DEFAULT
          WriteF('unknown.\n')
        ENDSELECT
      CASE CXM_COMMAND
        WriteF('A command: ')
        SELECT msgid
        CASE CXCMD_DISABLE
          WriteF('CXCMD_DISABLE\n')
          ActivateCxObj(broker, FALSE)
        CASE CXCMD_ENABLE
          WriteF('CXCMD_ENABLE\n')
          ActivateCxObj(broker, TRUE)
        CASE CXCMD_KILL
          WriteF('CXCMD_KILL\n')
          done:=TRUE
        CASE CXCMD_UNIQUE
          -> Commodities Exchange can be told not only to refuse to launch a
          -> commodity with a name already in use but also can notify the
          -> already running commodity that it happened.  It does this by
          -> sending a CXM_COMMAND with the ID set to CXMCMD_UNIQUE.  If the
          -> user tries to run a windowless commodity that is already running,
          -> the user wants the commodity to shut down.
          WriteF('CXCMD_UNIQUE\n')
          done:=TRUE
        DEFAULT
          WriteF('Unknown msgid\n')
        ENDSELECT
      DEFAULT
        WriteF('Unknown msgtype\n')
      ENDSELECT
    ENDWHILE
    IF sigrcvd AND SIGBREAKF_CTRL_C
      WriteF('CTRL C signal break\n')
      done:=TRUE
    ENDIF
  UNTIL done
ENDPROC