Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Baffled as usual!

From: rgaither::triad::rr::com at: 10-Oct-2000 19:31

Hi All, I managed to work through a little example to put up on my REBOL/View site back when the new View panel was first introduced. Since then some change in the product has broken my little script and I'm having trouble figuring it out. I'm sure it is something simple but I figured now is a good time for some help as well as some peer review! :-) Here it is - also to be found under the ModernLore REBSite. REBOL [ Title: "Show hex/binary for string characters" Author: "Rod Gaither" Email: [rgaither--triad--rr--com] File: %showhexbin.r Date: 10-October-2000 Purpose: {Show hex/binary versions of a string.} ] show-all: func [letters [string!] /local str] [ str: "" clear str foreach char letters [ insert tail str reform [ char " " find/last/any (to-hex to-integer char) "??" " " enbase/base to-string char 2 " " to-integer char #"^(line)" ] ] return str ] view layout [ subtitle "String to Hex/Binary" across text "String:" value: field button "Go" [result/text: show-all value/text show result] return text "Results:" result: area with [size: 300x120 font: [name: font-fixed]] return ] TIA, Rod. p.s. When is that REBOL for Dummies book shipping? :-) Rod Gaither [rgaither--triad--rr--com] Oak Ridge, NC