home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / PROM / PAN01_4.DIR / 00004_Script_4 < prev    next >
Text File  |  2001-09-07  |  545b  |  24 lines
  1. -- 
  2. on exitFrame
  3.   global gListeCom
  4.   afficherPistes "20>33"
  5.   
  6.   --Affichage d'une ou deux grilles suivant les nombre n'abonnements
  7.   if count(gListeCom) = 1 then
  8.     masquerPistes 8
  9.     afficherPistes 7
  10.     masquerPistes "19>28"
  11.   else
  12.     masquerPistes 7
  13.   end if  
  14.   
  15.   -- verouillage des champs editables
  16.   repeat with i = 101 to 108
  17.     set the editable of member i of castLib "abo_lib" to 0
  18.   end repeat  
  19.   
  20.   repeat with i = 111 to 118
  21.     set the editable of member i of castLib "abo_lib" to 0
  22.   end repeat 
  23. end
  24.