Menu results from the CPAN

Bundle-PBib

if ((parseInt(navigator.appVersion) == 4) && (navigator.appName == "Netscape")) {
	origWidth = innerWidth;
	origHeight = innerHeight;
	onresize = reDo;
}
onerror = null; 
//-->
</script>
<style type="text/css">
<!--
  div.WebHelpPopupMenu {position:absolute; left:0px; top:0px; z-index:4; visibility:hidden;}
-->
</style>
<script type="text/javascript" language="javascript1.2" src="whmsg.js"></script>
<script type="text/javascript" language="javascript" src="whver.js"></script>
<script type="text/javascript" language="javascript1.2" src="whproxy.js"></script>
<script type="text/javascript" language="javascript1.2" src="whutils.js"></script>
<script type="text/javascript" language="javascript1.2" src="whtopic.js"></script>
</head>

<body>

lib/PBibTk/Main.pm view on Meta::CPAN

  my $b3=$l3->Frame()->form(
	-t => [$list,0],
	-l => ['%0',0],
	-r => ['%100',0],
	-b => ['%100',0]);
  my $bf3 = $b3->Frame()->pack();
#myline hoch ---------------------------------------------------

  # menu inside a menu frame

  my $mf = $win->Menu(-type => 'menubar');
  $win->configure(-menu => $mf);
  $self->initMenu($mf, $win);

}
sub initMenu {
  my ($self, $mf, $win) = @_;
  $self->initFileMenu($mf, $win);
  $self->initBiblioMenu($mf, $win);
  $self->initPaperMenu($mf, $win);
}
sub initFileMenu {
  my ($self, $mf, $win, $model) = @_;
  my $cmd;
  $model = $self unless defined $model;
  my $mb = $mf->cascade(-label => '~File'); ###, -tearoff => 0);

  $cmd = [ $model, 'browsePaperFile' ];
  $mb->command(-label => "~Open New Paper", -command => $cmd,
  				-accelerator => 'Ctrl-O' );
  $win->bind('<Control-Key-o>' => $cmd);

lib/PBibTk/Main.pm view on Meta::CPAN

  $mb->command(-label => "~Export References ...", -command => $cmd );
  #$win->bind('<Control-w>' => $cmd);

  $mb->separator();

  $cmd = sub { Tk::exit(0); };
  $mb->command(-label => '~Quit', -command => $cmd,
  				-accelerator => 'Ctrl-Q');
  $win->bind('<Control-q>' => $cmd);
}
sub initBiblioMenu {
  my ($self, $mf, $win, $model) = @_;
  my $cmd;
  $model = $self unless defined $model;
  my $mb = $mf->cascade(-label => '~Biblio'); ###, -tearoff => 0);

#  $cmd = sub { $model->showSelectedBiblioReference(); };
  $cmd = [$model, 'showSelectedBiblioReference'];
  $mb->command(-label => 'Show ~Reference', -command => $cmd,
				-accelerator => 'Ctrl-R' );
  $win->bind('<Control-r>' => $cmd);

lib/PBibTk/Main.pm view on Meta::CPAN


  $mb->separator();

  $cmd = sub{$model->updateBiblioRefs()};
  $mb->command(-label => "~Update from database",
				-command => $cmd,
  				-accelerator => 'Ctrl-N' );
  $win->bind('<Control-n>' => $cmd);
}

sub initPaperMenu {
  my ($self, $mf, $win) = @_;
  my $cmd;
  my $mb = $mf->cascade(-label => '~Paper');

  $cmd = sub { $self->showSelectedPaperReference(); };
  $mb->command(-label => 'Show ~Reference', -command => $cmd,
  				-accelerator => 'Ctrl-T' );
  $win->bind('<Control-Key-t>' => $cmd);

  $cmd = sub { $self->clipboardSelectedPaperReferenceId(); };

lib/PBibTk/RefDialog.pm view on Meta::CPAN

#


sub initWidgets {
  my ($self, $win) = @_;

  # menu inside a menu frame

  #  my $mf = $win->Frame()->grid(-sticky => 'ew');
  #  $mf->gridColumnconfigure(1, -weight => 1);
  #  $self->initMenu($mf, $win);
  my $mf = $win->Menu(-type => 'menubar');
  $win->configure(-menu => $mf);
  $self->initMenu($mf, $win);

  # text widget

  my $off = 0;
  my $list = $win->Scrolled('TextUndo',
		-scrollbars => 'se',
		-wrap => 'word',
		-setgrid => 'true',
		-exportselection => 'true',
#		-font => $FONT,

lib/PBibTk/RefDialog.pm view on Meta::CPAN

			-tabs 20m
			-spacing1 3p
			-spacing2 0p
			-spacing3 0p
			-font T_bold
		/);
  $list->tag(qw/configure head
			-font H_big_bold
		/);
}
sub initMenu {
	my ($self, $mf, $win) = @_;
	my $cmd;
	
	# ref menu
	
	#  my $mbr = $mf->Menubutton(-text => 'References');
	#  $mbr->grid(-row => 0, -column => 0, -sticky => 'w');
	my $mbr = $mf->cascade(-label => '~References'); ###, -tearoff => 0);
	$mbr->command(-label => 'Insert Fields', -command => [ $self, 'addPaperFields' ] );
	$mbr->command(-label => 'Insert All Fields', -command => [ $self, 'addPaperFields', undef, 1 ] );
	$mbr->command(-label => 'Insert CSCW Ref.', -command => [ $self, 'addPaperRefCSCW' ] );
	$mbr->command(-label => 'Insert IEEE Ref.', -command => [ $self, 'addPaperRef', undef, 'IEEE' ] );
	$mbr->command(-label => 'Insert IEEETR Ref.', -command => [ $self, 'addPaperRef', undef, 'IEEETR' ] );
	$mbr->command(-label => 'Insert ElsevierJSS Ref.', -command => [ $self, 'addPaperRef', undef, 'ElsevierJSS' ] );
	$mbr->separator;
	$mbr->command(-label => 'Close', -command => sub {$win->destroy();});

lib/PBibTk/SearchDialog.pm view on Meta::CPAN

sub initWidgets {
  my ($self, $win) = @_;
  my $cmd;

  # menu inside a menu frame

#  my $mf = $win->Frame()->grid(-sticky => 'ew');
#  $mf->gridColumnconfigure(1, -weight => 1);
##  my $mf = $win->Frame()->pack(qw/-fill x -side top/);
##  $mf->gridColumnconfigure(1, -weight => 1);
  my $mf = $win->Menu(-type => 'menubar');
  $win->configure(-menu => $mf);
  $self->initMenu($mf, $win);

  # result list

  my $list = $win->Scrolled('Listbox',            
  		-scrollbars => 'se',
		-width => $defwidth_list,
		-height => $defheight_list,
    )->form(
		-t => ['%0', 0],
		-l => ['%0', 0],

lib/PBibTk/SearchDialog.pm view on Meta::CPAN

}
sub chosenLabel { my $self = shift; return $self->{'searchchosen'}; }
sub chosen {
  my $self = shift;
  # access window first, to ensure it's created.
  $self->window();
  return $self->{'chosenfromlist'};
}
#myline hoch ---------------------------------------------------

sub initMenu {
  my ($self, $mf, $win) = @_;
  $self->pBibTkUI()->initBiblioMenu($mf, $win, $self);
}


sub resultList { return shift->{'resultList'}; }
sub refList { return shift->resultList(); }


#
# menu command methods
#

t/sample.bib view on Meta::CPAN

   BibDate = {Fri Jun 21 10:01:51 2002},
}

@techreport{Pier-LocationIndepInterfaces,
   author = {Ken Pier and James A. Landay},
   title = {Issues for Location-independent Interfaces},
   location = {Palo Alto, CA, USA},
   institution = {Xerox PARC},
   number = {ISTL92-4},
   year = {1992},
   keywords = {pen input, mode vs. modeless user interfaces, button on stylus, describes the idea of FlowMenu (iRoom), menus out of reach on large displays},
   url = {http://www.cs.berkeley.edu/\~{}landay/research/publications/LII.ps, http://citeseer.nj.nec.com/pier92issues.html},
   Category = {HCI.Pen},
   BibNote = {check ref at Landay's homepage! (In Xerox Parc Blue\&White P92-00159, December 1992)},
   Identifier = {Pier and Landay 1992},
   ExportDate = {2003-06-16 11:44:53},
   BibDate = {2003-06-16 11:44:53}
}

@inproceedings{iRoom-PointRight,
   author = {Brad Johanson and G. Hutchins and T. Winograd and M. Stone},

( run in 0.510 second using v1.01-cache-2.11-cpan-49f99fa48dc )