Re: Testing $X

[cld@xxxxxxxx]

Harry:

No time to respond in full now. But a quick glance at your message shows that your (attempted dis)Proof of Concept of subroutine 02 is faulty. You've got to change TF  to TF  to see anything; PV02 simply executes the subroutine! (Alternatively, you could insert
JM 2.xray/p:02Q2 at the appropriate checkpoint.)

I suspect that EB is at 0,0 because you're futzing around with modifications to the frame that cause
it to crash before your original default values are restored. You *think* the defaults are your
usual settings when you run the program again, but in fact they're still the temporary default
values set by the (crashed) routine. Often happens while I am testing code. Just a wild guess...

In the meantine, you may as well have the latest $X code, which includes some final tweaks and
economies, and a Help frame to insert in XYWWWEB.INF. Note that, when framename and native command
are identical, you can use the $X key to force a framename Helpkey launch rather than a
native-command eXeCute (which is the built-in precedence) by issuing the command in the form
U2 framename [arg(s)]<$Xkey>. See the new Help screen for examples.

Will try to take a closer look at your plight later today, or tomorrow, or over the weekend.


XPLeNCODE v2.0
b-gin [UNTITLED]
U2 frame:[cr|lf][cr|lf]{{;5$X}} Issue COMMAND[ arg(s)]
 or U2_FRAMENAME[ arg(s)] with a single key [CLD rev
{046}9/24/08][cr|lf]{002}{<}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}==2
8!{<}VA$KC{>}==104{>}{<}IF{<}VA$SM{>}>0{>}[JM_]2.null[Q2_]{<}
EI{>}{<}IF{<}VA$TX{>}>0{>}[255+048+068]{<}EX{>}{<}EI{>}{<}EI{
{062}}{<}IF{<}VA!620{>}<1&{<}VA|01{>}>0{>}[$S_]{<}EI{>}{<}SX02,{<
}VA$EB{>}{>}{<}SX03,{<}VAWA{>}{>}{<}SX02,"[BX_]es 1[Q2_][BX_]
d eb="+{<}IS02{>}+",wa="+{<}IS03{>}+"[Q2_]"{>}[BX_]d eb=0,0,w
a=0[Q2_]{<}IF{<}IS01{>}=="?"!({<}VA|01{>}>1&"HELP"{238}@upr({
<}IS01{>})<>0{>}[XC_]{<}IF@not({<}ER{>}){>}{<}PV02{>}{<}EX{>}
{<}EI{>}{<}SX03,{<}VA$ER{>}{>}{<}PV02{>}{<}IF{<}PV03{>}<>12{>
}[BX_]beep[Q2_]{<}SX02,"{<}VA\"+{<}IS03{>}+"{>}"{>}{<}SX02,{<
}PV02{>}{>}{<}PR@02{>}{<}EX{>}{<}EI{>}{<}EI{>}[BX_]es[Q2_][JM
_]2.PrsCMline[Q2_]{002}[cr|lf][cr|lf]For XyWWWeb.INF:[cr|lf][
cr|lf]{$Xkey,$X}[cr|lf][cr|lf]Native_Command|U2_Framename Com
bo Launch Key C.L.Distefano 9/24/08[cr|lf][cr|lf]Purpose[cr|
lf]-------[cr|lf]Use a single key of your choosing (referred{032}
to below as "<$Xkey>") to launch both built-in (native) comma
nds and user-created commands (U2 framenames) from the CMline
{046}[cr|lf][cr|lf]Setup[cr|lf]-----[cr|lf]Assign $X to the desir
ed key in the KBD file:[cr|lf]nn=$X[cr|lf][cr|lf]When assigni
ng $X to the Enter key, insert an initial func Q8:[cr|lf]28=Q
8$X[cr|lf]or[cr|lf]104=Q8$X[cr|lf][cr|lf](Func Q8 allows the{032}
modified Enter key to work with the spell-checker and the Hel
p/Menu system.)[cr|lf][cr|lf]SAve and re-LOAD the KBD file af
ter editing.[cr|lf][cr|lf]Use[cr|lf]---[cr|lf]To launch a nat
ive command or U2 framename (referred to here interchangeably
 as "commands"), type the command and arguments, if any, on t
he CMline, then hit <$Xkey> to execute.[cr|lf][cr|lf]Examples
:[cr|lf]LM 1.5IN<$Xkey> issues the native Left Ma
rgin command[cr|lf]TABLE VA<$Xkey> issues the U2 framename to
 display a list of XyWrite VAriables[cr|lf][cr|lf]Rules[cr|lf
]-----[cr|lf]- Native commands take precedence over U2 framen
ames: If the command on the CMline is both a valid native com
mand and a valid U2 framename, it is eXeCuted as a native com
mand, NOT as a framename. To force execution as a framename,{032}
issue:[cr|lf] U2 command[ arg(s)]<$Xkey>[cr|lf][cr|lf]Exampl
e:[cr|lf]You have a U2 routine called SAVE that SAves the cur
rent file to three different locations. If you issue SAVE<$Xk
ey>, you get a normal, native SAve command. To invoke your en
hanced SAVE routine, issue[cr|lf]U2 SAVE<$Xkey>.[cr|lf][cr|lf
]Exceptions:[cr|lf]1) When issued as a U2 framename, HELP [fr
amename] displays the U2 Help screen for the specified framen
ame. Frame $X treats HELP as a U2 framename, even though HELP
 is also a native command. This saves the trouble of typing U
2 HELP framename<$Xkey> every time. (The native HELP command,
 which displays the XyWrite splash screen, is accessible with
 ?<$Xkey>.)[cr|lf]2) Commands consisting of a single characte
r (except "?") are issued as U2 framenames.[cr|lf][cr|lf]- If
 $X is assigned to the Enter key (key # 28 or 104), normal En
ter key behavior obtains: If cursor is on CMline, command is{032}
executed; if cursor is in the text area, a carriage-return is
 put at the cursor position.[cr|lf][cr|lf]- If (and only if){032}
{<}MDSO{>}{<}LBLink{<}SV50,Stack{>}[JM_]2.help[Q2_]{>}STACK.P
M{<}MDNM{>} is in use, commands issued with <$Xkey> are added
 to the Stack (command history). Do NOT use "$S" in the KBD-f
ile assignment; $X calls Stack internally.[cr|lf][cr|lf]{<}FC
{>}Renumber frame $X in PACK mode[cr|lf]Default Save/Get Rang
e=01-03; 620[cr|lf]OPTIONs(1): FREEZE 620[cr|lf]{<}FL{>}[cr|l
f]-{tab}-{tab}-{tab}-{tab}-{tab}-{tab}-{tab}-{tab}-{tab}-[cr|
lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx