[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

Re: $XKey / STACK query . . .




On Sun, Jan 19, 2014 at 12:07 PM, Carl Distefano mailto:cld@xxxxxxxx wrote:
What can I say, Fred? The concept is not complicated. Setup is not
complicated. Both are described, along with one or two wrinkles.
Proof of the pudding: is your <$Xkey> working as advertised?

​$XKey working flawlessly, as I've said. The issue is not how $XKey is working for me; I have it coded to 67 and 104. It just works. The issue is about calling the help frame, which does not produce nicely formulated content; rather unformatted material that duplicates the DECoded page that had been copied in. When you sent me the help frame as attached an attached file (off list), and I copied that in to INF, calling the help frame produced well formulated, easily read content. Here's what I get when I call it now:

'%--_XYENCode_start--
{$Xkey,$X}'^'^Enhanced_Func_XC_(eXeCute_command)_Substitute'^C
%.L.Distefano_1/24/09_rev.11/21/13'^'^Purpose'^-------'^Use_a_
Single_key_of_your_choosing_(referred_to_below_as_"<$Xkey>")_t
O_launch_both_built-in_(native)_commands_and_user-created_comm
Ands_(U2_framenames)_from_the_CMline.'^'^Critical_Prerequisite
'^---------------------'^The_DiaLoG_help_file_~)_MUST_
Contain_the_redirection_frame_{{5$?}}._If_it_does_not,_add_it_
By_doing_the_following'._Toggle_this_file_into_eXPanded_view_(
FUNC_XP)._DeFine_the_following_block_of_code_(everythin
G_between_the_horizontal_lines,_not_the_lines_themselves),_and
_issue_ADD2DG.'^'^-_-_-_-_-'^{{5$?}}_Redirect_source_
For_funcs_$A-$Z|$0-$9_from_.DLG_to_.U2_[CLD]'^~B~
~>~>'JM2.~'Q2~B'^'^-_-_-_-_-'^'^Setup'^-----'^Assign_$X
_to_the_desired_key_in_the_KBD_file'.'^nn=$X'^'^Note'._$X_is_a
_complete_substitute_for_both_func_XC_and_the_Enter_key_(":~M"
),_as_well_as_for_the_U2_.'^'^When_assigning_$X_to_th
E_Enter_key,_insert_an_initial_func_Q8'.'^28=Q8$X'^',',28=:~M'^
Or'^104=Q8$X'^',',104=:~M'^'^(Func_Q8_allows_the_modified_Ente
R_key_to_work_with_the_spell-checker_and_the_Help/Menu_system.
)'^'^SAve_and_re-LOAD_the_KBD_file_after_editing.'^'^Use'^---'^
To_launch_a_native_command_or_U2_framename_(referred_to_here_i
Nterchangeably_as_"commands"),_type_the_command_and_arguments,
_if_any,_on_the_CMline,_then_hit_<$Xkey>_to_execute.'^'^Exampl
Es'.'^LM_1.5IN<$Xkey>_issues_the_native_Left_Margin_command'^T
ABLE_VA<$Xkey>_issues_the_U2_framename_to_display_a_list_of_Xy
Write_VAriables'^'^Rules'^-----'^-_Native_commands_take_preced
Ence_over_U2_framenames'._If_the_command_on_the_CMline_is_both
_a_valid_native_command_and_a_valid_U2_framename,_it_is_eXeCut
Ed_as_a_native_command,_NOT_as_a_framename._To_force_execution
_as_a_framename,_enclose_the_command_(not_the_arguments)_in_do
Uble_quotes'.'^__"command"[_arg(s)]<$Xkey>'^'^Example'.'^You_h
Ave_a_U2_routine_called_SAVE_that_SAves_the_current_file_to_th
Ree_different_locations._If_you_issue_SAVE<$Xkey>,_you_get_a_n
Ormal,_native_SAve_command._To_invoke_your_enhanced_SAVE_routi
Ne,_issue'.'^"SAVE"_d'.\path\myfile<$Xkey>'^'^Exceptions'.'^1)
_When_issued_as_a_U2_framename,_HELP_[framename]_displays_the_
U2_Help_screen_for_the_specified_framename._Frame_$X_treats_HE
LP_as_a_U2_framename,_even_though_HELP_is_also_a_native_comman
D._This_saves_the_trouble_of_typing_"HELP"_framename<$Xkey>_ev
Ery_time._(The_native_HELP_command,_which_displays_the_XyWrite
_splash_screen,_is_accessible_with_?<$Xkey>.)'^2)_Commands_con
Sisting_of_a_single_character_(except_"?")_are_issued_as_U2_fr
Amenames.'^'^-_If_$X_is_assigned_to_the_Enter_key_(key_#_28_or
_104),_normal_Enter_key_behavior_obtains'._If_cursor_is_on_CMl
Ine,_command_is_executed',_if_cursor_is_in_the_text_area,_a_ca
Rriage-return_is_put_at_the_cursor_position.'^'^-_If_(and_only
_if)_~~'JM2.Help'Q2~>http://STACK.PM ~
M~>_is_in_use,_commands_issued_with_<$Xkey>_are_added_to_the_S
Tack_(command_history)._Do_NOT_use_"$S"_in_the_key_assignment',
_$X_calls_Stack_internally._For_example,_if_your_current_eXeCu
Te_key_is_F9_and_includes_a_call_to_Stack'.'^__67=$S,XC'^__cha
Nge_it_to'.'^__67=$X'^__Your_commands_will_still_be_Stacked.'^
'^~Renumber_frame_$X_in_PACK_mode'^Default_Save/Get_Range
=01-04',_50',_620'^OPTIONs(1)'._FREEZE_50,_620'^~'^-~I-~I
-~I-~I-~I-~I-~I-~I-~I-'^'^
'%--_XYENCode___end--