diff --git a/inform7/Internal/Extensions/Graham Nelson/Basic Inform.i7x b/inform7/Internal/Extensions/Graham Nelson/Basic Inform.i7x index 6c9a4d147..3f5998537 100644 --- a/inform7/Internal/Extensions/Graham Nelson/Basic Inform.i7x +++ b/inform7/Internal/Extensions/Graham Nelson/Basic Inform.i7x @@ -1858,7 +1858,7 @@ The handle hyperlinks rule is defined by Inter as "HANDLE_HYPERLINK_R". To say link (T - hyperlink tag): (- MakeTaggedHyperlink({T}); -). -To say link (T - hyperlink tag) of (V - value of kind K): +To say link (T - hyperlink tag) for/of/with (V - value of kind K): (- MakeTaggedHyperlink({T}, {-by-reference:V}, {-strong-kind:K}); -). To say end link: @@ -1888,8 +1888,6 @@ Chapter - Suspending and resuming input A glk window has a text input status. The text input status property translates into Inter as "text_input_status". -A glk window can be requesting hyperlink input. -The requesting hyperlink input property translates into Inter as "requesting_hyperlink". A glk window can be requesting mouse input. The requesting mouse input property translates into Inter as "requesting_mouse". diff --git a/inform7/Internal/Inter/Architecture32Kit/Sections/Glk.i6t b/inform7/Internal/Inter/Architecture32Kit/Sections/Glk.i6t index 61832b3ff..b0b679f6d 100644 --- a/inform7/Internal/Inter/Architecture32Kit/Sections/Glk.i6t +++ b/inform7/Internal/Inter/Architecture32Kit/Sections/Glk.i6t @@ -467,7 +467,7 @@ be used by |glk_select|. It also handles a few event maintenance tasks. evtype_MouseInput: win_obj.requesting_mouse = false; evtype_Hyperlink: - win_obj.requesting_hyperlink = false; + glk_request_hyperlink_event(win_obj.glk_ref); } return ev; ]; @@ -610,16 +610,6 @@ requested. return 0; ]; -[ glk_cancel_hyperlink_event win win_obj; - @push win; - @glk 259 1 0; - win_obj = FindGlkWindowFromRefNum(win); - if (win_obj) { - win_obj.requesting_hyperlink = false; - } - return 0; -]; - [ glk_cancel_line_event win event_struct win_obj; if (event_struct == 0) { event_struct = gg_arguments; @@ -665,16 +655,6 @@ requested. return 0; ]; -[ glk_request_hyperlink_event win win_obj; - @push win; - @glk 258 1 0; - win_obj = FindGlkWindowFromRefNum(win); - if (win_obj) { - win_obj.requesting_hyperlink = true; - } - return 0; -]; - [ glk_request_line_event win buf maxlen initlen win_obj; @push initlen; @push maxlen; @@ -787,7 +767,6 @@ back to 32 bits. [ HANDLE_HYPERLINK_R val; if (current_glk_event-->GLK_EVENT_TYPE_SF == evtype_Hyperlink) { val = current_glk_event-->GLK_EVENT_VALUE1_SF; - glk_request_hyperlink_event((current_glk_event-->GLK_EVENT_WINDOW_SF).glk_ref); hyperlink_value = val & hyperlink_payload_mask; if (hyperlink_value < 0) { hyperlink_value = hyperlink_value | hyperlink_tag_mask; diff --git a/inform7/Internal/Inter/Architecture32Kit/Sections/InfGlk.i6t b/inform7/Internal/Inter/Architecture32Kit/Sections/InfGlk.i6t index 5bff96e1c..c828b2b62 100644 --- a/inform7/Internal/Inter/Architecture32Kit/Sections/InfGlk.i6t +++ b/inform7/Internal/Inter/Architecture32Kit/Sections/InfGlk.i6t @@ -690,17 +690,17 @@ Constant wintype_TextGrid = 4; return 0; ]; -![ glk_request_hyperlink_event _vararg_count; -! ! glk_request_hyperlink_event(window) -! @glk 258 _vararg_count 0; -! return 0; -!]; +[ glk_request_hyperlink_event _vararg_count; + ! glk_request_hyperlink_event(window) + @glk 258 _vararg_count 0; + return 0; +]; -![ glk_cancel_hyperlink_event _vararg_count; -! ! glk_cancel_hyperlink_event(window) -! @glk 259 _vararg_count 0; -! return 0; -!]; +[ glk_cancel_hyperlink_event _vararg_count; + ! glk_cancel_hyperlink_event(window) + @glk 259 _vararg_count 0; + return 0; +]; [ glk_buffer_to_lower_case_uni _vararg_count ret; ! glk_buffer_to_lower_case_uni(uintarray, arraylen, uint) => uint @@ -921,4 +921,4 @@ Constant zcolor_Current = -2; ! garglk_set_reversevideo_stream(str, reverse) @glk $1103 _vararg_count 0; return 0; -]; \ No newline at end of file +]; diff --git a/inform7/extensions/basic_inform/Sections/Glulx and Glk.w b/inform7/extensions/basic_inform/Sections/Glulx and Glk.w index c65a02fa5..a4e516401 100644 --- a/inform7/extensions/basic_inform/Sections/Glulx and Glk.w +++ b/inform7/extensions/basic_inform/Sections/Glulx and Glk.w @@ -200,7 +200,7 @@ The handle hyperlinks rule is defined by Inter as "HANDLE_HYPERLINK_R". To say link (T - hyperlink tag): (- MakeTaggedHyperlink({T}); -). -To say link (T - hyperlink tag) of (V - value of kind K): +To say link (T - hyperlink tag) for/of/with (V - value of kind K): (- MakeTaggedHyperlink({T}, {-by-reference:V}, {-strong-kind:K}); -). To say end link: @@ -240,8 +240,6 @@ Chapter - Suspending and resuming input A glk window has a text input status. The text input status property translates into Inter as "text_input_status". -A glk window can be requesting hyperlink input. -The requesting hyperlink input property translates into Inter as "requesting_hyperlink". A glk window can be requesting mouse input. The requesting mouse input property translates into Inter as "requesting_mouse".