[Allegro] Verdeckte Messung der Allegro-Geschwindigkeit

[Heinrich Allers]

Ich möchte verdeckt (ohne daß der Anwender das merkt) die Allegro-
Geschwindigkeit (z.B. im Netz) laufend (während der gesamten Allegro-
Sitzung) messen und baue zu diesem Zweck in die Datei
_start.flx an geeigneter Stelle den Befehl
slice 900000=iexec X messung
ein, wobei der Kern der Datei messung.flx die Zeilenfolge 


find #33\var "1"\=
:naechst\var Z\if >20 jump ende
put
var "1"\+\jump naechst
:ende


bildet. Damit ist dafür gesorgt, daß jede Viertelstunde die Messung der 
Dauer stattfindet, die das 20-malige Abspeichern eines beliebigen 
Datensatzes benötigt (von dem man natürlich sicher sein muß, daß einer 
mit dieser internen Satznummer existiert).

So weit, so gut - das funktioniert bestens! Mein Ziel aber ist, wie zu 
Beginn gesagt, daß diese Messung vom Anwender überhaupt nicht 
wahrgenommen wird (weniger, um etwas hinter seinem Rücken zu tun, 
sondern mehr, um ihn nicht Irritationen bei seiner Allegro-Arbeit 
auszusetzen).

Derzeit sorgt der in der Flexdatei eingebettete Befehl 'put' dafür, 
daß, wenn während der Messung gerade eine Hilfeseite in der Anzeige 
ist, deren weißer Hintergrund grün eingefärbt wird. 

Ferner wird, wenn ein Indexfenster gerade offen ist, dieses zugeklappt. 
Interessant ist, daß, wenn aus dem Indexfenster heraus gerade ein 
Ergebnismengenfenster aufgeklappt ist, beim Loslegen des Meßprozesses 
beide aufgeklappt bleiben und nur das im Hintergrund befindliche 
Indexfenster gelblich aufflackert (wohl 20 Mal, dem 20-fachen put-
Vorgang in messung.flx entsprechend).

Um zu erreichen, daß dieser Meßflex vollkommen ohne Auswirkungen an der 
Oberfläche arbeitet, habe ich z.B. ein wenig mit 'activate' 
herumexperimentiert, aber das bringt's auch nicht.

Weiß jemand noch etwas? Oder liegt's schlicht dadran, daß die 
programminterne Verdrahtung des Befehls 'put' so ist, daß das an der 
Oberfläche geschieht, was man jetzt sieht?

 
Mit besten Grüßen:

Heinrich Allers

-- allers at t-online.de * http://www.allers.privat.t-online.de