I: Headstart 2.1.2, Obsolete Webforms workarounds

Question

Resolved issues in webforms
Headstart for Designer 6.0 and Developer Server 6.0 (patch 5 or higher)
In developer server 6 some issues are resolved where headstart had workarounds for. This document describes the changes that you can apply to
the headstart libraries to remove these workarounds.
1. Show tooltips on the web
In previous developer server versions (before developer 6.0 patch 5), tooltips on the web did not work. As a workaround, tooltips where shown
in the MDI console at the when-new-form-instance. To remove this workaround:
qmsevh50.pll, procedure qms$event_item
Remove the following lines of code:
if qms$help.tooltips_enabled
and qms$application.get_user_interface = 'WEB'
then
qms$item.show_hint;
end if;
qmslib50.pll, package qms$block, procedure init_tooltip
Remove the following lines of code:
if qms$application.get_user_interface = 'WEB'
then
return;
end if;
2. Multiselect SHIFT- and CTRL-click
The problem with multiselect functionality on the web concerned the system variable :system.mouse_button_shift_state. This variable did not
give the right status on the web. The problem can be solved by looking at the variable :system.mouse_button_modifiers. To apply the change,
replace the following procedure in pakage QMS$MSEL:
procedure change_selection
is
l_select_key varchar2(50) := upper(name_in('system.mouse_button_shift_state'));
begin
If (l_select_key = 'SHIFT+'
or g_selection_scope = 'RANGE_SELECT'
and get_range_select_start > 0
Then
SelectRange;
Else
If l_select_key = 'CTRL+'
or g_selection_scope = 'INCREMENTAL_SELECT'
Then
ToggleCurrent;
Else --no interpretable modifier key
If IsSelected
then
unselect_all(name_in('system.cursor_block'));
else
unselect_all(name_in('system.cursor_block'));
SelectCurrent;
end if;
End if;
End if;
exception
when form_trigger_failure then raise;
when others then qms$errors.unhandled_exception('qms$msel.change_selection');
end change_selection;
with this code:
procedure change_selection
is
-- l_select_key varchar2(50) := upper(name_in('system.mouse_button_shift_state'));
-- mva, 05-10-2000 workaround for bug 756682: use mouse_button_modifiers!
l_select_key varchar2(50) := upper(name_in('system.mouse_button_modifiers'));
begin
If (l_select_key = 'SHIFT+'
or g_selection_scope = 'RANGE_SELECT'
and get_range_select_start > 0
Then
SelectRange;
Else
-- If l_select_key = 'CTRL+'
If l_select_key = 'CONTROL+'
or g_selection_scope = 'INCREMENTAL_SELECT'
Then
ToggleCurrent;
Else --no interpretable modifier key
If IsSelected
then
unselect_all(name_in('system.cursor_block'));
else
unselect_all(name_in('system.cursor_block'));
SelectCurrent;
end if;
End if;
End if;
exception
when form_trigger_failure then raise;
when others then qms$errors.unhandled_exception('qms$msel.change_selection');
end change_selection;
null

Answer 1

You mentioned 'the problem with multiselect functionality' but what exactly was the problem? I tried finding the bug 756682 (mentioned in the code) on Metalink but couldn't find it.
Regards,
Edward