/* Sys-Info (c) by Thomas Sostmann */

windowtags = WindowID(1) WindowPosition('TRWP_CENTERDISPLAY'),
 WindowBackfillFB WindowTitle('System Info'),
 'VertGroupA',
 'Space',
 CenteredTextB(SystemInfo),
 'Space',
 ColumnArray,
 NamedSeparatorN('Devs'),
 'Space',
 Button('List Devices',1),
 Button('List Datatypes',5),
 Button('List Dosdrivers',8),
 Button('List Monitors',6),
 'Space',
 EndColumn,
 'VertGroupA',
 ColumnArray,
 NamedSeparatorN('L'),
 'Space',
 Button('List Handler',3),
 Button('List Filesystem',4),
 'Space',
 EndColumn,
 ColumnArray,
 NamedSeparatorN('Libs'),
 'Space',
 Button('List Librarys',2),
 Button('List XPR-Librarys',11),
 Button('List XPK-Librarys',12),
 EndColumn,
 ColumnArray,
 NamedSeparatorN('Locale'),
 'Space',
 Button('List Catalogs',9),
 EndColumn,
 'SpaceB',
 CenteredButtonR(' Ende ',7),
 'Space',
 'EndGroup',
 'Space',
 'EndGroup',
 'EndProject'

app = TR_CREATEAPP('TRCA_Name Button')

IF app ~= '00000000'x THEN DO

   window = TR_OPENPROJECT(app,windowtags)

   IF window ~= '00000000'x THEN DO
      ende = 0

      DO WHILE ende ~= 1
         CALL TR_WAIT(app,'')

         DO WHILE TR_HANDLEMSG(app,'event')
            IF event.trm_class = 'TRMS_ACTION' THEN DO
               SELECT

                  WHEN event.trm_id = 1 THEN
                     call ext

                  WHEN event.trm_id = 2 THEN
                     call dor

                  WHEN event.trm_id = 3 THEN
                     call rot

                  WHEN event.trm_id = 4 THEN
                     call tex

                  WHEN event.trm_id = 5 THEN
                     call hil

                  WHEN event.trm_id = 6 THEN
                     call mon

                  WHEN event.trm_id = 8 THEN
                     call dos

                  WHEN event.trm_id = 9 THEN
                     call cat

                  WHEN event.trm_id = 11 THEN
                     call xpr

                  WHEN event.trm_id = 12 THEN
                     call xpk

                  WHEN event.trm_id = 7 THEN
                     ende = 1

                  OTHERWISE
                     NOP
               END
            END

            IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
               ende = 1
         END
      END

      CALL TR_CLOSEPROJECT(window)
   END

   CALL TR_DELETEAPP(app)
END

EXIT(0)
/* ----------------------- Devs ----------------------------- */
ext:
address command 'c:list sys:devs/#?.device QUICK NOHEAD > ram:ext'
address command 'c:sort ram:ext to t:ext2'
address command 'Amigaguide t:ext2'
address command 'c:delete >NIL: ram:ext'
address command 'c:delete >NIL: t:ext2'

RETURN

/* ------------------------ Libs ------------------------------ */
dor:
address command 'c:list sys:libs/#?.library QUICK NOHEAD > ram:dor'
address command 'c:sort ram:dor to t:dor2'
address command 'Amigaguide t:dor2'
address command 'c:delete >NIL: ram:dor'
address command 'c:delete >NIL: t:user2'

RETURN

/* ------------------------ XPR-Libs ------------------------------ */
xpr:
address command 'c:list sys:libs/xpr#?.library QUICK NOHEAD > ram:dor'
address command 'c:sort ram:dor to t:dor2'
address command 'Amigaguide t:dor2'
address command 'c:delete >NIL: ram:dor'
address command 'c:delete >NIL: t:user2'

RETURN

/* ------------------------ XPK-Libs ------------------------------ */
xpk:
address command 'c:list sys:libs/compressors/xpk#?.library QUICK NOHEAD > ram:dor'
address command 'c:sort ram:dor to t:dor2'
address command 'Amigaguide t:dor2'
address command 'c:delete >NIL: ram:dor'
address command 'c:delete >NIL: t:user2'

RETURN

/* ------------------------ Handler ------------------------------ */
rot:
address command 'c:list sys:l/#?-handler QUICK NOHEAD > ram:tex'
address command 'c:sort ram:tex to t:tex2'
address command 'Amigaguide t:tex2'
address command 'c:delete >NIL: ram:tex'
address command 'c:delete >NIL: t:tex2'

RETURN

/* ------------------------- Filesystem ----------------------------- */
tex:
address command 'c:list sys:l/#?Filesystem QUICK NOHEAD > ram:rot'
address command 'c:sort ram:rot to t:rot2'
address command 'Amigaguide t:rot2'
address command 'c:delete >NIL: ram:rot'
address command 'c:delete >NIL: t:rot2'

RETURN

/* ----------------------- Datatypes --------------------------- */
hil:
address command 'c:list sys:devs/datatypes/~(#?.info) QUICK NOHEAD > ram:hil'
address command 'c:sort ram:hil to t:hil2'
address command 'Amigaguide t:hil2'
address command 'c:delete >NIL: ram:hil'
address command 'c:delete >NIL: t:hil2'

RETURN

/* ----------------------- Monitors --------------------------- */
mon:
address command 'c:list sys:devs/monitors/~(#?.info) QUICK NOHEAD > ram:hil'
address command 'c:sort ram:hil to t:hil2'
address command 'Amigaguide t:hil2'
address command 'c:delete >NIL: ram:hil'
address command 'c:delete >NIL: t:hil2'

RETURN

/* ----------------------- Monitors --------------------------- */
dos:
address command 'c:list sys:devs/dosdrivers/~(#?.info) QUICK NOHEAD > ram:hil'
address command 'c:sort ram:hil to t:hil2'
address command 'Amigaguide t:hil2'
address command 'c:delete >NIL: ram:hil'
address command 'c:delete >NIL: t:hil2'

RETURN

/* ----------------------- Catalogss --------------------------- */
cat:
address command 'c:list sys:locale/catalogs/deutsch/~(#?.info) QUICK NOHEAD > ram:hil'
address command 'c:sort ram:hil to t:hil2'
address command 'Amigaguide t:hil2'
address command 'c:delete >NIL: ram:hil'
address command 'c:delete >NIL: t:hil2'

RETURN

EXIT(0)