Re^3: Displaying NUL in a TK::Text widget

As graff notes you can't just pump raw binary in an expect it to display in any logical fashion. But given that you like the \x{1} notation why not do something like:

$_ = "\000japh\njareh\000";
s/([^\040-\177])/sprintf "\\x{%02x}",ord($1)/eg;
print;
[download]

Which just hands the chars to Tk as you seem to want them displayed. Personally I would suggest a hex editor format like this typical output which has 3 cols (offset hex ascii )

File: jargon-4.4.7.tar.gz   size = 9061260 bytes    0%  [H] Press 'h' 
+for help
00000000:    1F 8B 08 00 3E 74 F0 3F 00 03 EC FD 07 3C 5C DF   ....>t.
+?.....<\.
00000010:    DF 2F 8A 8F 16 BD D7 28 51 93 E8 8C 3E 44 1B 7D   ./.....
+(Q...>D.}
[download]

With your solution you have ASCII printable taking 1 char width but non printables taking either 5 or 6. With hex it can always be 2 or decimal/octal 3 chars. You can display the printable ASCII as a separate column.....

cheers

tachyon

Comment on Re^3: Displaying NUL in a TK::Text widget Select or Download Code

Replies are listed 'Best First'.
Re^4: Displaying NUL in a TK::Text widget by thor (Priest) on Nov 07, 2004 at 16:36 UTC
This method gets the display right, however, as long as I'm asking for the world...:) When Tk handles the conversion of non-printable characters, when I use the arrow keys to navitate in the text pane, it treats the non-printable as one character. That is to say that if I position the cursor right before the "\" and hit right arrow once, the cursor ends up after the "}". With this solution, that is not the case as I'm replacing one character with several. The translation is happening in such a way that it displays perl's notion of hex characters. I just don't know where that translation is happening. Alternatively, if I can tell Tk to treat that series of characters (\x{10}) as only one character, that'd be acceptable too. Finally, I'd like to thank everyone for their help thus far. thor `Feel the white light, the light within Be your own disciple, fan the sparks of will For all of us waiting, your kingdom will come`	[reply]
Re^5: Displaying NUL in a TK::Text widget by Aighearach (Initiate) on Nov 07, 2004 at 21:24 UTC
I wish I had a better sollution to recommend, but all I can think of is to: put a tag around the text when there is input, see if the "insert" mark moved past the start of a tag of type mytag if so, move the "insert" mark past the end of the tag. A lot of work, but worth it IMO if you're going to use this thing a lot. You also might want to consider subclassing Tk::Text to support all these changes. Maybe overloading `insert` to make the transformation before handing it off to `SUPER::insert`... -- Snazzy tagline here	[reply]
Re^6: Displaying NUL in a TK::Text widget by thor (Priest) on Nov 08, 2004 at 01:26 UTC
Ah...crap. I know just enough Tk to be able to do simple things. Well, I suppose this could be the task that broadens my horizons...:) thor `Feel the white light, the light within Be your own disciple, fan the sparks of will For all of us waiting, your kingdom will come`	[reply]