RE: Menu Buttons

"4jsmaillist \(reuben\)" <[email protected]> Fri, 28 Jul 2006 21:11:05 +1200
Newsgroups gmane.comp.lang.4gl.fourjs.user
Message-ID <[email protected]>
Jean,

Did you ever get a response to this.  An approach you could take is to use
DOM manipulation to alter the comment attribute of the bt1, bt2, bt3 etc
action so that when the user hovers the mouse over the button the comment
appears that would give the user the information you want.

Reuben
   -----Original Message-----
   From: [email protected] [mailto:[email protected]]On
Behalf Of Jean Gidcumb
   Sent: Friday, 21 July 2006 6:32 a.m.
   To: [email protected]
   Subject: [fourjs-users] Menu Buttons


   Hi,



   I am working on changing our application menu from an input array to
buttons on a form. One thing I have done is to create a form with the
following:



   BUTTON aa0 : bt1, TEXT="None",

                       SIZEPOLICY=fixed;

     BUTTON aa1 : bt2, TEXT="None",

                       SIZEPOLICY=fixed;

     BUTTON aa2 : bt3, TEXT="None",

                       SIZEPOLICY=fixed;



   Then I created a function with a menu, see the code below. I am hiding
buttons that are not being used.  This works fine, when I click on a button
it allows me to got the next menu options or select a program to run.



   In the current program there is a function that when you press "F9" a
window displays showing the program information, name, path, etc. Is there a
way I set the focus on the Button, so if a user right clicks on the button
that the program window will be displayed.



   Or is there another approach to this problem?



   Thanks,

   Jean Gidcumb



      MENU "BUTTON"

         BEFORE MENU

            LET i = 1

            FOR i = 1 to 15

                LET l_button = "bt"

                LET i_char = i

                LET l_button = l_button clipped,i_char clipped

                CALL unhide_button(l_button)

            END FOR

            IF p_total_options < 15 THEN

               LET i = p_total_options + 1

               FOR j = i to 15

                   LET l_button = "bt"

                   LET i_char = j

                   LET l_button = l_button clipped,i_char clipped

                   CALL hide_button(l_button)

               END FOR

            END IF

            COMMAND "bt1"

                  LET p_selection = ga_menu[1].option_name

                  EXIT MENU

            COMMAND "bt2"

      LET p_selection = ga_menu[2].option_name

      EXIT MENU

            COMMAND "bt3"

      LET p_selection = ga_menu[3].option_name

      EXIT MENU

       END MENU