changeset to Only add default menus for FLTK toolkit

[John W. Eaton]

The changeset 

  http://hg.savannah.gnu.org/hgweb/octave/rev/09b157ab2672

introduces three test failures for me:

  >>>>> processing /export/home/jwe/src/octave/scripts/plot/allchild.m
    ***** test
   hf = figure ("visible", "off");
   unwind_protect
     l = line;
     assert(get(allchild(hf),'type'),{'axes'; 'uimenu'; 'uimenu'; 'uimenu'})
   unwind_protect_cleanup
     close (hf);
   end_unwind_protect
  !!!!! test failed
  assert (get (allchild (hf), 'type'),{'axes'; 'uimenu'; 'uimenu'; 'uimenu'}) 
expected
  {
    [1,1] = axes
    [2,1] = uimenu
    [3,1] = uimenu
    [4,1] = uimenu
  }
  but got
  axes

  >>>>> processing /export/home/jwe/src/octave/scripts/plot/findall.m
    ***** test
   hf = figure ("visible", "off");
   unwind_protect
     h = findall (hf);
     all_handles = {"uimenu"; "uimenu"; "uimenu"; "uimenu"; "uimenu"; "uimenu"; 
"uimenu"; "uimenu"; "uimenu"; "uimenu"; "uimenu"; "uimenu"; "uimenu"; "figure"};
     assert (get (h, 'type'), all_handles)
   unwind_protect_cleanup
     close (hf);
   end_unwind_protect
  !!!!! test failed
  assert (get (h, 'type'),all_handles) expected
  {
    [1,1] = uimenu
    [2,1] = uimenu
    [3,1] = uimenu
    [4,1] = uimenu
    [5,1] = uimenu
    [6,1] = uimenu
    [7,1] = uimenu
    [8,1] = uimenu
    [9,1] = uimenu
    [10,1] = uimenu
    [11,1] = uimenu
    [12,1] = uimenu
    [13,1] = uimenu
    [14,1] = figure
  }
  but got
  figure

  >>>>> processing /export/home/jwe/src/octave/scripts/plot/uimenu.m
    ***** test
   hf = figure ("visible", "off");
   unwind_protect
     uie = findall (hf, "label", "&edit");
     myui = uimenu (uie, "label", "mylabel");
     assert (ancestor (myui, "uimenu", "toplevel"), uie)
   unwind_protect_cleanup
     close (hf);
   end_unwind_protect
  !!!!! test failed
  uimenu: expecting PROPERTY/VALUE pairs


I'm not sure what the best fix is.  We could skip or alter tests for
some graphics toolkits, but they should probably not fail.

jwe