Re: Testing $X

[Harry Binswanger hb@xxxxxxxx]

Carl,
In the Sept. 24 version of $X, what is the purpose of testing whether 28 or
104 was hit? Isn't that already given from the assignment (or lack thereof)
in the .kbd file? Are you envisioning another key having $X assigned to it,
which would then skip the first part of your frame?
I see you've moved {>}0>{crlf} to near the start. That was a
change I secretly made myself.
I think there is an omitted closed paren, which should be after "<>0" in
the "HELP" testing part.
So far, ENTER hit with a blank command line goes to the .INF file. And I'm
still not getting EB restored, but I'm looking further.

Regards,
Harry
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


Harry Binswanger
hb@xxxxxxxx