[BACK]Return to lonmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.19 and 1.24

version 1.19, 2002/05/06 14:20:27 version 1.24, 2002/07/15 19:45:18
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);
 menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",  }
   ENDRESIZE
       }
       $returnval.=(<<ENDOPEN);
   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 62  sub switchmenu { Line 66  sub switchmenu {
     my $openwin=&openmenu();      my $openwin=&openmenu();
     return(<<ENDSMENU);      return(<<ENDSMENU);
 <script>  <script>
    swmenu=$openwin     var swmenu=$openwin
    swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");     swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");
 </script>  </script>
 ENDSMENU  ENDSMENU
Line 107  sub openmenu { Line 111  sub openmenu {
   
 sub rawconfig {  sub rawconfig {
     my $r = shift;      my $r = shift;
     my $output="swmenu=".&openmenu();      my $output="var swmenu=".&openmenu();
     my $uname=$ENV{'user.name'};      my $uname=$ENV{'user.name'};
     my $udom=$ENV{'user.domain'};      my $udom=$ENV{'user.domain'};
     my $adv=$ENV{'user.adv'};      my $adv=$ENV{'user.adv'};
Line 170  sub rawconfig { Line 174  sub rawconfig {
             }              }
         }          }
     }      }
       $output.="swmenu.syncclock(1000*".time.");";
     return $output;      return $output;
 }  }
   
Removed from v.1.19  
changed lines
  Added in v.1.24

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>