home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00030_Script_30 < prev    next >
Text File  |  2001-09-17  |  1KB  |  30 lines
  1. --∂ï
  2. on initCatPopUp
  3.   global gMyPopUp
  4.   tell window "dData" to set catNames = field "category names"
  5.   set userCatString = makeUserCatStr() --makeUserCatStr(field "user popUp")
  6.   set downLoadsCatString = makeDownLoadsStr()
  7.   set ProdCatStr = makeProdCatStr(catNames)
  8.   
  9.   -- PETEMACK 06.28.01  if objectp(gMyPopUp) then gMyPopUp(mDispose)
  10.   --  if userCatString = "" then
  11.   --    set gMyPopUp = popUp(mNew,ProdCatStr)
  12.   --  else set gMyPopUp = popUp(mNew,ProdCatStr&";User Categories"&userCatString)
  13.   
  14.   if userCatString = "" then
  15.     
  16.     if downLoadsCatString = "" then
  17.       ----PETEMACK 06.28.01      set gMyPopUp = popUp(mNew,ProdCatStr)
  18.       ----PETEMACK 06.28.01    else set gMyPopUp = popUp(mNew,"DownLoaded Signs;"&ProdCatStr)
  19.     else 
  20.       ----PETEMACK 06.28.01    if downLoadsCatString = "" then
  21.       ----PETEMACK 06.28.01      set gMyPopUp = popUp(mNew,ProdCatStr&";User Categories"&userCatString)
  22.       ----PETEMACK 06.28.01    else set gMyPopUp = popUp(mNew,"DownLoaded Signs;"&ProdCatStr&";User Categories"&userCatString)
  23.     end if
  24.     
  25.   end if
  26.   
  27.   registerPop
  28.   
  29. end initCatPopUp
  30.