Lines Matching refs:filemenu

52 my $filemenu;
56 	$filemenu = $textmenu->entrycget(0, -menu);
58 	$filemenu->insert(0, "separator");
59 	$filemenu->insert(0, "command",
67 	    $filemenu->insert(0, "command",
71 	$filemenu->insert(0, "command",
76 	$filemenu->separator;
274     return if !$filemenu;
276     my $end = $filemenu->index('end');
280 	    last LOOP if ($filemenu->type($i) eq 'separator');
288 	$filemenu->delete($i+1, 'end');
296 	    $filemenu->command(-label => $path,
303 	    $filemenu->command(-label => $url,