[Oberon] test/confirm alpha 2001

[Felix Friedrich]

Chris wrote

>Please, some users of n-o alpha (2001) do the following brief test:
>
>1. Desktops.OpenDoc  GfxHowto.html  to open in the UserTrack
>
>2. scroll down about 50%
>
>3. Grow to full screen size.
>
>Do you get (like me) ?
>
>TRAP -14  NIL reference ( 00000000H ) (PC Native 11.10.2001)
>TextGadgets.FrameHandler  PC = 24235
>         F =  00187520H
>         F0 =  00000000H
>         L =  00000000H
>         M =  00000040H
>         M0 =  00000054H
>         beg = 0


indeed I get the same Trap (Windows Native Oberon), solution:

In TextGadgets.FrameHandler replace the line

         ELSIF (beg < F.org)  (FindStyle(F.text, F.org) # 
F.trailer.next.obj) THEN
by
         ELSIF (beg < F.org) & (F.trailer # NIL) & (F.trailer.next # NIL) & 
(FindStyle(F.text, F.org) # F.trailer.next.obj) THEN

Felix.


--

Felix Friedrich

Institut für Biomathematik und Biometrie
GSF - Forschungszentrum für Umwelt und Gesundheit, GmbH
Ingolstädter Landstraße 1, D-85764 Neuherberg

Tel:      ++49 89 3187 2436
email:  friedrich at gsf.de

--