[REBOL] probe/dump-binary survey
From: greggirwin:mindspring at: 2-May-2004 11:23
Jaime et al
JV> Greg, I think your suggestion that probe should produce output
JV> similar to dump-bin by default is great. I hope Carl goes for it.
For those who don't know, I posted this idea on an AltME world for
comment.
For those who want to express an opinion on the matter, there are two
scripts below; one for Core, and one for View. All they will send to
me is your answer -- how strongly you agree that PROBE should produce
output like dump-bin, given a binary! value. I'll collect the results
and pass them on to RT.
Thanks!
-- Gregg
; Core Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data] [
print "^/Sending response..."
send address rejoin [data]
print "^/Thanks!"
]
reply ask {
Enter YES or NO (case insensitive) if you feel
strongly one way or the other, or a value between
0 and 1 to indicate agreement (0 = no, 1 = yes,
..5 = don't care).
Should PROBE produce output like Jaime's DUMP-BIN
function? }
; View Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data /local wnd] [
h/text: "Sending response..." show h
send address rejoin [data]
h/text: "Thanks!" show h
]
view layout [
h: h3 as-is {Should PROBE produce output
like Jaime's DUMP-BIN function?}
text as-is {(Select an answer or set the slider value
and click Send)}
across
text "NO!" [reply 'no] tab
text "don't care" [reply .5] tab
text "YES!" [reply 'yes]
return
answer: slider 210x16
return
across
button "Send" [reply answer/data]
;button "Quit" [quit]
]