[Date Index] [Thread Index] [Author Index]

PopupMenu Problems

• To: mathgroup at smc.vnet.net
• Subject: [mg122480] PopupMenu Problems
• From: Don <donabc at comcast.net>
• Date: Sat, 29 Oct 2011 07:14:17 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Below is the code for a simple PopupMenu

The purpose is to present the user with a PopupMenu that
gives two options:  "Linear" or "NonLinear".

There are two problems with this code:

(1) The word "Linear" (the default)  is suppose to show up in 
the window next to the right of the word " Function:".
Right now, it's just left as a blank.  It was thought
that setting the inital value of the variable "fnc1" to Linear
would solve that problem.

(2) After the user makes a choice by clicking on the down arrow and
clicking on an option (Linear or NonLinear) the 
code should then "fall through" and Print "999" to show
it is positioned to determine which option the user chose by
executing the following Which function, but this never happens. 
The act of choosing an option by the user  should  result in executing the Which function and subsequent functions.  

How can this code be modified to fix those two problems?
Thank you in advance.

Don

Remove[master$FE];
master$FE[] := Module[{},
  Interpretation[{fnc1 = Linear},
   
   backgrndClr = ColorData["Aquamarine", 0.15];
   Panel[Grid[
     {
      {Style["PopupMenu", 36, Bold], SpanFromLeft
       },
      
      {
       Style["Function:", Bold, 22],
       PopupMenu[Dynamic[fnc1], {"Linear", 
         "NonLinear"}, AutoAction -> True
          ] , 
       SpanFromLeft
       }
      },
     
     ItemStyle -> Directive[FontSize -> 26, Bold],
     Spacings -> {2, 2},
     Dividers -> {None, {2 -> 
         Directive[Black, AbsoluteThickness[Large]]}}
     ], ImageSize -> {300, 250}, Background -> backgrndClr],
   
     Print[" Begin Which Function -  999 "];
   
     fnc1String = ToString[fnc1];
   
       Which[
          fnc1String == "Linear",
               linear$FE[],
    
          fnc1String == "NonLinear",
               nonLinear$FE[]
    
            ];(* End Which *)
   
   Print["777"]; 
    ](* Interpretation *)
  (* Print["888"];*)
  ](* End Module master$FE *)