loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2002/05/24 20:32:48	version 1.22, 2002/05/29 14:51:43
Line 42 use vars qw(@desklines $readdesk);	Line 42 use vars qw(@desklines $readdesk);
# =============================================================== Open the menu	# =============================================================== Open the menu

sub open {	sub open {
# return(<<ENDOPEN);	my $returnval='';
#if (window.screen) {	unless (shift eq 'unix') {
# self.resizeTo(screen.availWidth-215,screen.availHeight-30);	# resizing does not work on linux because of virtual desktop sizes
# self.moveTo(190,15);	$returnval.=(<<ENDRESIZE);
#}	if (window.screen) {
return(<<ENDOPEN);	self.resizeTo(screen.availWidth-215,screen.availHeight-30);
<script>	self.moveTo(190,15);
	}
	ENDRESIZE
	}
	$returnval.=(<<ENDOPEN);
var menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",	var menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");	"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
</script>
ENDOPEN	ENDOPEN
	return '<script>'.$returnval.'</script>';
}	}

# ============================================================ Switch Menu Item	# ============================================================ Switch Menu Item