Der Parameter fo_adefbttn bestimmt die Nummer des Defaultbuttons der darzustellenden Alarmbox. Es gilt:

• das Ausrufezeichen sollte für alle Arten von Mitteilungen benutzt werden, die der Benutzer nur kurz bestätigen soll.
   

• das Fragezeichen dient für alle Abfragen, die vor einer Aktion ausgeführt werden sollten (z.B. das Löschen einer Datei).
   

• das Stopschild sollte bei wichtigen Problemen eingesetzt werden, die der Benutzer unbedingt zur Kenntnis nehmen muss.
   

  Die Komponente buttons beschreibt die Texte für höchstens drei Buttons, die durch das Zeichen '|' getrennt werden.

MagiC:

Aufgrund der Kompatibilität zu GEM/3 können Alertboxen hier bis zu 40 Zeichen pro Textzeile, und 20 Zeichen pro Button enthalten. Darüberhinaus sind alle Alertboxen komplett über die Tastatur bedienbar, mit der Funktionstaste F1 den linken, F2 den mittleren und mit F3 den rechten Button.
 

ViewMAX/2

and later parse the "default button" parameter as two bytes; the low byte is the default button and the high byte is the cancel button (ESC is a shortcut for it). This style of parameter will crash earlier GEM versions.
 

Under Geneva,

the alert string can contain left bracket ("[") characters within the text of the buttons. These denote the keyboard equivalents to be used for the buttons. For example, this defines an alert with the equivalents [Alternate][H] and [Alternate][Y]:

  form_alert( 1, "[1][Hi there!][[Hi!|B[ye!]" );

  If an alert button does not contain a pre-defined keyboard equivalent, it will be considered for an automatic keyboard equivalent.

  Note:DO NOT use this type of alert string when running without Geneva, as this will have unpredictable results.

  Additionally, if an alert would normally not have a default button, Geneva always forces the rightmost button to be the default. For example:

  form_alert( 2, "[1][Hi!][OK]" ); /* OK is the default */

int16_t form_alert (int16_t fo_adefbttn,
                    CONST int8_t *fo_astring)
{
   int_in[0]  = fo_adefbttn;
   addr_in[0] = fo_astring;

   return ( crys_if(52) );
}

int16_t form_button (OBJECT *fo_btree, int16_t fo_bobject,
                     int16_t fo_bclicks, int16_t *fo_bnxtobj)
{
   int_in[0]  = fo_bobject;
   int_in[1]  = fo_bclicks;
   addr_in[0] = fo_btree;

   crys_if (56);

   *fo_bnxtobj = int_out[1];
   return ( int_out[0] );
}

  Ab PC-GEM/3 wird der Objektbaum in y-Richtung nicht mehr auf dem ganzen Bildschirm zentriert. Begründet wurde dies damit, dass ein Benutzer auf Großbildschirmen ansonsten einen zu weiten Weg von der Menüzeile bis zum Objekt (etwa einer Dialogbox) zurücklegen muss.

int16_t form_center (OBJECT *fo_ctree, int16_t *fo_cx,
                     int16_t *fo_cy, int16_t *fo_cw,
                     int16_t *fo_ch)
{
   addr_in[0] = fo_ctree;

   crys_if (54);

   *fo_cx = int_out[1];
   *fo_cy = int_out[2];
   *fo_cw = int_out[3];
   *fo_ch = int_out[4];

   return (int_out[0]);
}

  Die Opcodes FMD_GROW und FMD_SHRINK sind in PC-GEM Version 2.0 den Rechtsstreitigkeiten zwischen Apple und Digital Research zum Opfer gefallen.

int16_t form_dial (int16_t fo_diflag, int16_t fo_dilittlx,
                   int16_t fo_dilittly, int16_t fo_dilittlw,
                   int16_t fo_dilittlh, int16_t fo_dibigx,
                   int16_t fo_dibigy, int16_t fo_dibigw,
                   int16_t fo_dibigh)
{
   int_in[0]  = fo_diflag;
   int_in[1]  = fo_dilittlx;
   int_in[2]  = fo_dilittly;
   int_in[3]  = fo_dilittlw;
   int_in[4]  = fo_dilittlh;
   int_in[5]  = fo_dibigx;
   int_in[6]  = fo_dibigy;
   int_in[7]  = fo_dibigw;
   int_in[8]  = fo_dibigh;

   return ( crys_if(51) );
}

int16_t form_do (OBJECT *fo_dotree, int16_t fo_dostartob)
{
   int_in[0]  = fo_dostartob;
   addr_in[0] = fo_dotree;

   return ( crys_if(50) );
}

  Der Parameter fo_enum ist dabei die entsprechende Fehlernummer.

  Hinweis: Diese Funktion ist aus Kompatibilitätsgründen zum PC-GEM vorhanden. Auf TOS-Systemen muß daher zunächst die GEMDOS-Fehlernummer auf die MS-DOS Codierung umgerechnet werden. Für die Umrechnung (GEMDOS -> MS-DOS) kann z.B. die folgende Formel benutzt werden: (~fo_enum) - 30.

  In N.AES gibt es einer erweiterte Form von form_error mit allen GEMDOS-Fehlercodes. Deren vorhandensein kann mit appl_getinfo (Opcode 64) festgestellt werden.

  Geneva interpreted a negative number as a GEMDOS/BIOS error code, and an appropriate error message is displayed. For instance, the call:
form_error(-33);
produces an alert with the text "There is no file with this name".

int16_t form_error (int16_t fo_enum)
{
   int_in[0] = fo_enum;
   return ( crys_if(53) );
}

  Hinweis zu MagiC, N.AES: Wird als Objektnummer der Wert 0x8765 angegeben, so werden Tasten verarbeitet, die zusammen mit der Alternate-Taste betätigt wurden. Falls ein passendes Objekt gefunden wurde, wird der Wert 1 zurückgegeben, das Zeichen gelöscht, und in fo_knxtobject die zugehörige Objektnummer übergeben.

int16_t form_keybd (OBJECT *fo_ktree, int16_t fo_kobject,
                    int16_t fo_kobnext, int16_t fo_kchar,
                    int16_t *fo_knxtobject,
                    int16_t *fo_knxtchar)
{
   int_in[0]  = fo_kobject;
   int_in[1]  = fo_kchar;
   int_in[2]  = fo_kobnext;
   addr_in[0] = fo_ktree;

   crys_if (55);

   *fo_knxtobject = int_out[1];
   *fo_knxtchar   = int_out[2];

   return ( int_out[0] );
}

  Wählbare Objekte müssen den Status SELECTABLE, nicht wählbare Objekte den Status DISABLED erhalten. Das Objekt mit der Nummer 0 im Objektbaum, sollte den Typ G_BOX oder G_IBOX besitzen.

int16_t form_popup (OBJECT *tree, int16_t x, int16_t y)
{
   int_in[0]  = x;
   int_in[1]  = y;
   addr_in[0] = tree;

   return ( crys_if(135) );
}

  Die Funktion entspricht im wesentlichen form_button mit dem Unterschied, dass hier die Rechteckliste eines Fensters beachtet wird. Die Funktion steht in MagiC ab Version 5.10 zur Verfügung.

int16_t form_wbutton (OBJECT *fo_btree, int16_t fo_bobject,
                      int16_t fo_bclicks, int16_t *fo_bnxtobj,
                      int16_t whandle)
{
   int_in[0]  = fo_bobject;
   int_in[1]  = fo_bclicks;
   int_in[2]  = whandle;

   addr_in[0] = fo_btree;

   crys_if (63);

   *fo_bnxtobj = int_out[1];
   return ( int_out[0] );
}

  Hinweis zu MagiC: Wird als Objektnummer der Wert 0x8765 angegeben, so werden Tasten verarbeitet, die zusammen mit der Alternate-Taste betätigt wurden. Falls ein passendes Objekt gefunden wurde, wird der Wert 1 zurückgegeben, das Zeichen gelöscht, und in fo_knxtobject die zugehörige Objektnummer übergeben.

  Diese Funktion entspricht im wesentlichen form_keybd mit dem Unterschied, dass hier die Rechteckliste eines Fensters beachtet wird.

int16_t form_wkeybd (OBJECT *fo_ktree, int16_t fo_kobject,
                     int16_t fo_kobnext, int16_t fo_kchar,
                     int16_t *fo_knxtobject,
                     int16_t *fo_knxtchar,
                     int16_t whandle)
{
   int_in[0]  = fo_kobject;
   int_in[1]  = fo_kchar;
   int_in[2]  = fo_kobnext;
   int_in[3]  = whandle;

   addr_in[0] = fo_ktree;

   crys_if (64);

   *fo_knxtobject = int_out[1];
   *fo_knxtchar   = int_out[2];

   return ( int_out[0] );
}

int16_t form_xdial (int16_t fo_diflag, int16_t fo_dilittlx,
                    int16_t fo_dilittly, int16_t fo_dilittlw,
                    int16_t fo_dilittlh, int16_t fo_dibigx,
                    int16_t fo_dibigy, int16_t fo_dibigw,
                    int16_t fo_dibigh, void **flydial)
{
   int_in[0]  = fo_diflag;
   int_in[1]  = fo_dilittlx;
   int_in[2]  = fo_dilittly;
   int_in[3]  = fo_dilittlw;
   int_in[4]  = fo_dilittlh;
   int_in[5]  = fo_dibigx;
   int_in[6]  = fo_dibigy;
   int_in[7]  = fo_dibigw;
   int_in[8]  = fo_dibigh;
   addr_in[0] = flydial;
   addr_in[1] = 0;              /* reserviert */

   return ( crys_if(51) );
}

int16_t form_xdo (OBJECT *tree, int16_t startob,
                  int16_t *lastcrsr,
                  XDO_INF *tabs, void *flydial)
{
   int_in[0]  = startob;
   addr_in[0] = tree;
   addr_in[1] = tabs;
   addr_in[2] = flydial;

   crys_if (50);

   *lastcrsr = int_out[1];
   return ( int_out[0] );
}

int16_t form_xerr (int32_t errcode, int8_t *errfile)
{
   int_in[0]  = errcode (High);
   int_in[1]  = errcode (Low);
   addr_in[0] = errfile;

   return ( crys_if(136) );
}

  Wählbare Objekte müssen das Flag SELECTABLE, nicht wählbare Objekte den Status DISABLED erhalten. Das Objekt mit der Nummer 0 im Objektbaum, sollte den Typ G_BOX oder G_IBOX besitzen.

1. Der Objektbaum wird vor dem ersten Zeichnen automatisch durch Aufruf der init()- Routine initialisiert.
    

2. Die Variable <scrollpos> braucht nicht initialisiert zu werden, das System beginnt immer bei Scrollpos 0.
    

3. Die Init-Routine ist dafür verantwortlich, das erste/und/oder letzte Scrollobjekt mit einem Pfeil zu initialisieren.
    

4. Die scrollenden Objekte sind <firstscrlob> .. <lastscrlob>. Die Objektnummern müssen direkt aufeinanderfolgen. Die Objekte müssen untereinander liegen und alle dieselbe Größe haben.
    

int16_t xfrm_popup( OBJECT *tree, int16_t x, int16_t y,
                    int16_t firstscrlob, int16_t lastscrlob,
                    int16_t nlines,
                    void  cdecl (*init)(OBJECT *tree,
                    int16_t scrollpos,
                    int16_t nlines, void *param),
                    void *param, int16_t *lastscrlpos )
{
   int_in[0]  = x;
   int_in[1]  = y;
   int_in[2]  = firstscrlob;
   int_in[3]  = lastscrlob;
   int_in[4]  = nlines;
   int_in[5]  = *lastscrlpos;
   addr_in[0] = tree;
   addr_in[1] = init;
   addr_in[2] = param;

   int_out[1] = *lastscrlpos;   /* vorbesetzen */

   crys_if(135)

   *lastscrlpos = int_out[1];
   return ( int_out[0] );
}

int16_t x_form_center( OBJECT *tree, int16_t *cx, int16_t *cy,
                       int16_t *cw, int16_t *ch )
{
   addr_in[0] = tree;

   crys_if(28944);

   *cx = int_out[1];
   *cy = int_out[2];
   *cw = int_out[3];
   *ch = int_out[4];

   return (int_out[0]);
}

  The fmt should be in standard form_alert format, with a "%s" to indicate the location where the error message should be inserted. Since an alert can contain no more than five lines of 30 characters each, and the pre-defined error messages can take up to three lines, there should be no more than two lines of text surrounding the inserted error text.

  Example:

if( x_form_error( "[1][Error!|%s][Continue|Quit]", -33 ) == 1 )
  continue...
else quit...

int16_t x_form_error ( uint8_t *fmt, int16_t errnum )
{
   int_in[0] = errnum;

   addr_in[0] = fmt;

   return ( crys_if(28945) );
}

  When the mode parameter passed to x_form_filename is 0, the string is converted from the FILENAME.EXT format to the editable field format. When mode is 1, the filename is converted from the editable field and written into string in FILENAME.EXT format. Note that this function assumes that the editable field is an object of type G_FTEXT or G_FBOXTEXT and uses the te_ptmplt string "________.___".

  Example:

OBJECT *tree;
char name[13] = "DEFAULT.TXT";

x_form_filename( tree, object, 0, name );
form_do( tree, object );
x_form_filename( tree, object, 1, name );
/* "name" now contains what the user changed it to */

int16_t x_form_filename( OBJECT *tree, int16_t obj,
                         int16_t to_from, uint8_t *string )
{
   int_in[0] = obj;
   int_in[1] = to_from;

   addr_in[0] = tree;
   addr_in[1] = string;

   return ( crys_if(28996) );
}

int16_t x_form_mouse( OBJECT *tree, int16_t mouse_x, int16_t
mouse_y, int16_t clicks, int16_t *edit_obj, int16_t *next_obj,
int16_t *edit_idx )
{
   int_in[0] = mouse_x;
   int_in[1] = mouse_y;
   int_in[2] = clicks;
   int_in[3] = edit_obj;
   int_in[4] = next_obj;
   int_in[5] = edit_idx;

   addr_in[0] = tree;

   crys_if(28997);

   *edit_obj = int_out[1];
   *next_obj = int_out[2];
   *edit_idx = int_out[3];

   return ( int_out[0] );
}