[REBOL] view bug or bad coding?
From: rebol665:ifrance at: 4-Aug-2002 10:19
Hi rebollers,
View bug or bad coding?
Since the bêta VIEW was released, I have a piece of code that crashes. Here
is a very simplified version.
Could you test this code and tell me how it works for you ?
Any idea of the origin of the problem ?
The following line is responsable for the problem:
bitmap: make image! none
As is, the code will crash. Commented, it is ok.
The error is :
VIEW1207031 a causé une défaillance de page dans
le module VIEW1207031.EXE à 017f:00443ee3.
Registres :
EAX=00000000 CS=017f EIP=00443ee3 EFLGS=00010246
EBX=00000001 SS=0187 ESP=006bed78 EBP=00c3ed90
ECX=0000001e DS=0187 ESI=00e7cabc FS=0f9f
EDX=00000000 ES=0187 EDI=00e79814 GS=0000
Octets à CS : EIP :
08 58 0d 8b 46 04 08 58 0d ff 4c 24 14 83 c6 10
État de la pile :
00c3ed90 00e797f4 00e74188 00000001 00443edc 00000002 0000001d 00c3ed90
00e796d4 00e61c58 00000001 00443edc 00000002 0000001c 00c3ed90 00e79714
Patrick
8< - - - - - - - - - - - - - - - - - - - - - - - - - -
Rebol []
tl-critere: ["1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14"
15
"16"]
obj: make object! [
c: array 16
;---------------------------------- :( uncommenting -> crash ! ! !
bitmap: make image! none
layout1: layout [
style mytext text 100x18 right
style mycheck check 18x18
vignette: box 256x320 yellow
below
guide
mytext tl-critere/1
mytext tl-critere/2
mytext tl-critere/3
mytext tl-critere/4
return
c1: mycheck
c2: mycheck
c3: mycheck
c4: mycheck
do [ c/1: c1 c/2: c2 c/3: c3 c/4: c4 ]
return
do [ print "layout 4.01"] ; debug
mytext tl-critere/5
mytext tl-critere/6
return
button "That's all folks !" [unview]
do [ print "layout 4.02"] ; debug
]
]
view center-face obj/layout1
8< - - - - - - - - - - - - - - - - - - - - - - - - - -