VolksForth/AtariST/ERRORBOX.FB

    ERRORBOX.SCR                                       26oct86we                                                                Dieses File gibt ABORT"-Fehlermeldungen in ALERT-Boxen aus.                                                                     Diese Box enth<74>lt die Buttons "Cancel" und "Editor", falls der     Fehler beim Laden eines Files auftrat. Der Button "Editor"      verzweigt in den Editor, "Cancel" zum Kommandointerpreter.      "Editor" ist der Defaultwert, der bei Dr<44>cken von <Return>      ausgel<65>st wird.                                              Trat der Fehler bei Ausf<73>hrung von Tastatureingaben auf, gibt      es nur den OK-Button.                                                                                                                                                                                                                                                                                                                                                                        \ Loadscreen for errorbox                              26oct86we                                                                Onlyforth Gem also definitions                                                                                                  0 list                                                                                                                          1 +load                                                                                                                         ' boxhandler errorhandler !                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \ Display all errors in an ALERT-Box                   26oct86we                                                                | : addstring     ( string -- )        \ add a string to pad           count  $add ;                                                                                                            : boxhandler    ( string -- )                                      show_c       pad   dup off  $sum !                              " [3][" addstring                                               here addstring                                                  " |" addstring    addstring                                     blk @ ?dup IF    scr !   >in @ r# !                                              2 " ][Cancel|Editor]"                                     ELSE  1 " ][Ok]"  THEN  addstring                    pad c>0"   pad  form_alert  hide_c                              2 = IF  v THEN  quit ;                                                                                                           ERRORBOX.SCR                                       26oct86we                                                                Zugleich wollen wir zeigen, wie einfach unter volksFORTH Alert-  Boxen programmiert werden k<>nnen. Bei unserem Beispiel handelt  es sich sogar um einen komplizierten Fall, weil der auszu-      gebende String erst in PAD zusammengestellt werden mu<6D>.                                                                        Ansonsten k<>nnte eine Alert-Box z.B. so programmiert werden.     (Das folgende Beispiel k<>nnen Sie ausprobieren, indem Sie den    Cursor in die n<>chste Zeile setzen und CTRL-L eingeben.                                                                        Create boxtext ," [3][Dies ist eine Alert-Box][Seh ich selbst]"        boxtext c>0"                                                                                                              : test    1 boxtext form_alert drop ;