loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2002/05/06 21:57:11	version 1.23, 2002/06/14 20:02: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-40);
<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
Line 170 sub rawconfig {	Line 174 sub rawconfig {
}	}
}	}
}	}
	$output.="swmenu.clock.setTime(1000*".time.");";
return $output;	return $output;
}	}