SCClassLibrary/Common/GUI/Base/EZPopUpMenu.sc

   1 EZPopUpMenu : EZLists{
   2
   3         initViews{ arg parentView, bounds, label, labelWidth,labelHeight,arglayout;
   4                 var labelBounds, listBounds;
   5
   6                 labelWidth = labelWidth ? 80;
   7                 layout=arglayout ? \horz;
   8                 labelSize=labelWidth@labelHeight;
   9
  10                 bounds.isNil.if{bounds= 160@20};
  11
  12                 // if no parent, then pop up window
  13                 # view,bounds = this.prMakeView( parentView,bounds);
  14
  15                 // calcualate bounds
  16                 # labelBounds,listBounds = this.prSubViewBounds(innerBounds, label.notNil);
  17
  18                 // insert the views
  19
  20                 label.notNil.if{ //only add a label if desired
  21                         if (layout==\vert){
  22                                 labelView = GUI.staticText.new(view, labelBounds).resize_(2);
  23                                 labelView.align = \left;
  24                                 }{
  25                                 labelView = GUI.staticText.new(view, labelBounds);
  26                                 labelView.align = \right;
  27                                 };
  28                         labelView.string = label;
  29                 };
  30
  31                 widget = GUI.popUpMenu.new(view, listBounds).resize_(5);
  32         }
  33
  34         menu {^ widget}
  35
  36         setColors{arg stringBackground, stringColor, menuBackground,  menuStringColor,background ;
  37
  38                         stringBackground.notNil.if{
  39                                 labelView.notNil.if{labelView.background_(stringBackground)};};
  40                         stringColor.notNil.if{
  41                                 labelView.notNil.if{labelView.stringColor_(stringColor)};};
  42                         menuBackground.notNil.if{
  43                                 this.menu.background_(menuBackground);};
  44                         menuStringColor.notNil.if{
  45                                 this.menu.stringColor_(menuStringColor);};
  46                         background.notNil.if{
  47                                 view.background=background;};
  48         }
  49
  50 }