Farbflash projects: Imaging lingo table | 3-D scene list | Find all | Handler menu | Lingo message window

Changeset 71


Ignore:
Timestamp:
09/29/11 12:55:54 (8 months ago)
Author:
alex
Message:

updated scripts

Location:
trunk/lingosource/castlib1
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/lingosource/castlib1/ButtonImageCreator.ls

    r61 r71  
    22----------------------------------- 
    33-- CREATED: 
    4 -- Alex da Franca c2003 da.franca@online.de 
     4-- Alex da Franca c2003 alex@farbflash.de 
    55-- PROPERTIES: 
    66--!memberProperties: [#name: "ButtonImageCreator", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/ButtonImageCreator.ls"] 

  • trunk/lingosource/castlib1/DialogManager.ls

    r61 r71  
    792792  end if 
    793793   
     794  -- due to a stupid bug in 11.5.9.629 we can get <NULL> as a result of call() and on windows/shockwave it compares to 1 as true 
     795  -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 
     796  if ilk(dontdismiss) = #void then dontdismiss = void 
     797   
    794798  if voidP(dontdismiss) then 
    795799    isButton = cellref[#isButton] 
    796     dontdismiss = ([#radio, #toggle, #sortbutton].getPos(isButton) > 0) 
     800    dontdismiss = ([#radio, #toggle, #sortbutton, #none].getPos(isButton) > 0) 
    797801  end if 
    798802  -- now dismiss the dialog, if the function didn't return true 

  • trunk/lingosource/castlib1/DrawTableParent.ls

    r65 r71  
    619619-- Scriptmarker: changes alex (10.02.2007 at 08:28 Uhr) // Scriptmarker 
    620620-- added edittext property #hiddentext to support password entry fields by obfuscating user input => mObfuscateText 
    621 -- #hiddentext is a string which shall be a single char which replaces the user input, use * or × for example 
     621-- #hiddentext is a string which shall be a single char which replaces the user input, use * or . for example 
    622622 
    623623 
    … …  
    23142314    end if 
    23152315     
     2316  retval = 0 
    23162317    inst = eventRequest[#target] 
    23172318    theIlk = ilk(inst) 
    23182319  case theIlk of 
    23192320    #instance, #script: 
    2320       return call(hnd, [inst], eventlist) 
     2321      retval = call(hnd, [inst], eventlist) 
    23212322       
    23222323    #integer, #symbol, #string: 
    … …  
    23242325      theV = pCMS.mGetKanal(inst) 
    23252326      if not voidP(theV) then 
    2326         return sendSprite(theV, hnd, eventlist) 
     2327        retval = sendSprite(theV, hnd, eventlist) 
    23272328      end if 
    23282329       
    … …  
    23312332      inst = pTableformatlist[#CallerRef] 
    23322333      if ilk(inst) = #instance then 
    2333         return call(hnd, [inst], eventlist) 
     2334        retval = call(hnd, [inst], eventlist) 
    23342335      else 
    2335         return call(hnd, [pCallerInstance], eventlist) 
     2336        retval = call(hnd, [pCallerInstance], eventlist) 
    23362337      end if 
    23372338     
    23382339  end case 
    23392340   
    2340   return 0 
     2341  -- due to a stupid bug in 11.5.9.629 we can get <NULL> as a result of call() and on windows/shockwave it compares to 1 as true 
     2342  -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 
     2343  -- unfortunately there is another bug in director, which will throw a script error, if we use ilk() on deeted 3-D models 
     2344  -- therefore we have to check voidP() BEFORE ilk()! oh well... 
     2345  if voidP(retval) then retval = void 
     2346  if ilk(retval) = #void then retval = void 
     2347   
     2348  return retval 
    23412349end 
    23422350 
    … …  
    23542362   
    23552363  if not(objectP(eventRequest)) then eventRequest = pTableformatlist[whichEvent] 
     2364   
     2365  retval = 0 
    23562366   
    23572367  if objectP(eventRequest) then 
    … …  
    23792389    end if 
    23802390     
     2391     
    23812392    inst = eventRequest[#target] 
    23822393    theIlk = ilk(inst) 
    23832394    if theIlk = #instance then 
    2384       return call(hnd, [inst], eventlist) 
     2395      retval = call(hnd, [inst], eventlist) 
    23852396    else if theIlk = #script then 
    2386       return call(hnd, [inst], eventlist) 
     2397      retval = call(hnd, [inst], eventlist) 
    23872398    else if [#integer, #symbol, #string].getPos(theIlk) > 0 then 
    23882399      theV = pCMS.mGetKanal(inst) 
    23892400      if not voidP(theV) then 
    2390         return sendSprite(theV, hnd, eventlist) 
     2401        retval = sendSprite(theV, hnd, eventlist) 
    23912402      end if 
    23922403    else 
    … …  
    23942405       
    23952406      if ilk(inst) = #instance then 
    2396         return call(hnd, [inst], eventlist) 
     2407        retval = call(hnd, [inst], eventlist) 
    23972408      else 
    2398         return call(hnd, [pCallerInstance], eventlist) 
     2409        retval = call(hnd, [pCallerInstance], eventlist) 
    23992410      end if 
    24002411    end if 
    … …  
    24402451      inst = pTableformatlist[#CallerRef] 
    24412452      if ilk(inst) = #instance then 
    2442         return call(ev, [inst], whichCell, me, pMyTabName, rightMouse, additionalParams) 
     2453        retval = call(ev, [inst], whichCell, me, pMyTabName, rightMouse, additionalParams) 
    24432454      else 
    2444         return call(ev, [pCallerInstance], whichCell, me, pMyTabName, rightMouse, additionalParams) 
    2445       end if 
    2446     end if 
    2447      
    2448   end if 
    2449    
    2450   return 0 
     2455        retval = call(ev, [pCallerInstance], whichCell, me, pMyTabName, rightMouse, additionalParams) 
     2456      end if 
     2457    end if 
     2458     
     2459  end if 
     2460   
     2461  -- due to a stupid bug in 11.5.9.629 we can get <NULL> as a result of call() and on windows/shockwave it compares to 1 as true 
     2462  -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 
     2463  -- unfortunately there is another bug in director, which will throw a script error, if we use ilk() on deeted 3-D models 
     2464  -- therefore we have to check voidP() BEFORE ilk()! oh well... 
     2465  if voidP(retval) then retval = void 
     2466  if ilk(retval) = #void then retval = void 
     2467   
     2468  return retval 
    24512469end 
    24522470 
    … …  
    24582476  eventRequest = pTableformatlist[#scrollEvent] 
    24592477   
     2478  retval = 0 
    24602479  if objectP(eventRequest) then 
    24612480     
    … …  
    24772496    theIlk = ilk(inst) 
    24782497    if theIlk = #instance then 
    2479       return call(hnd, [inst], eventlist) 
     2498      retval = call(hnd, [inst], eventlist) 
    24802499    else if theIlk = #script then 
    2481       return call(hnd, [inst], eventlist) 
     2500      retval = call(hnd, [inst], eventlist) 
    24822501    else if [#integer, #symbol, #string].getPos(theIlk) > 0 then 
    24832502      theV = pCMS.mGetKanal(inst) 
    24842503      if not voidP(theV) then 
    2485         return sendSprite(theV, hnd, eventlist) 
     2504        retval = sendSprite(theV, hnd, eventlist) 
    24862505      end if 
    24872506    else 
    24882507      inst = pTableformatlist[#CallerRef] 
    24892508      if ilk(inst) = #instance then 
    2490         return call(hnd, [inst], eventlist) 
     2509        retval = call(hnd, [inst], eventlist) 
    24912510      else 
    2492         return call(hnd, [pCallerInstance], eventlist) 
     2511        retval = call(hnd, [pCallerInstance], eventlist) 
    24932512      end if 
    24942513    end if 
    … …  
    25002519    inst = pTableformatlist[#CallerRef] 
    25012520    if ilk(inst) = #instance then 
    2502       return call(eventRequest, [inst], pScrollOffset, relativ, pMyTabname, me) 
     2521      retval = call(eventRequest, [inst], pScrollOffset, relativ, pMyTabname, me) 
    25032522    else 
    2504       return call(eventRequest, [pCallerInstance], pScrollOffset, relativ, pMyTabName, me) 
    2505     end if 
    2506      
    2507   end if 
     2523      retval = call(eventRequest, [pCallerInstance], pScrollOffset, relativ, pMyTabName, me) 
     2524    end if 
     2525     
     2526  end if 
     2527   
     2528  -- due to a stupid bug in 11.5.9.629 we can get <NULL> as a result of call() and on windows/shockwave it compares to 1 as true 
     2529  -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 
     2530  -- unfortunately there is another bug in director, which will throw a script error, if we use ilk() on deeted 3-D models 
     2531  -- therefore we have to check voidP() BEFORE ilk()! oh well... 
     2532  if voidP(retval) then retval = void 
     2533  if ilk(retval) = #void then retval = void 
     2534   
     2535  return retval 
    25082536   
    25092537end 

  • trunk/lingosource/castlib1/SliderScrollbarMenuParent.ls

    r61 r71  
    11-- Scrollbar Parentscript for vertical and horizontal scrollbars 
    2 -- Alex da Franca c2002  da.franca@online.de 
     2-- Alex da Franca c2002  alex@farbflash.de 
    33 
    44-- version 31.05.03 

  • trunk/lingosource/castlib1/TableManager.ls

    r61 r71  
    11-- Manager for DrawTable Parentscript used on Bitmap sprites and 3-D Sprites 
    2 -- Alex da Franca c2002  da.franca@online.de 
     2-- Alex da Franca c2002  alex@farbflash.de 
    33-- Use this behavior on any dummy sprite to display a scrolling table with selectable items, text (fixed and editable) and images. 
    44-- It creates a temporary bitmap member, which is used to display the table on the stage. 
    … …  
    18131813  if voidP(retval) then retval = [:] 
    18141814  return retval 
     1815end 
     1816 
     1817-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     1818 
     1819on mAXTable_RefreshItem me, cellObject, refreshBackGround, tabname 
     1820    ----------------------------------- 
     1821  -- ACTION: Render a single cell 
     1822  --         render only one single cell, after changing its properties (e.g. #selected) NOT the #content property !!! 
     1823  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent()  
     1824  --            to take a change of lineheight into consideration 
     1825  --         of course, if you change the content of a cell and don't want the dimension of the cell to change 
     1826  --            you can go with this function, much faster.. 
     1827  -- INPUT: <cellObject> ; object ; can be: 
     1828  --                                    a cell object itself 
     1829  --                                    or a linear list of two integers => [row, column] 
     1830  --                                    or a string => name of the cell 
     1831  --        <refreshBackGround> ; boolean (integer) ; whether to referesh the background as well 
     1832  --                                                  (only relevant for cells with a transparent background e.g. an image for the whole table) 
     1833  --        <tabname> ; string ; name of the table, which shall be addressed, 
     1834  --                              if empty, the first table in the list of tables is used 
     1835  -- RETURNS: - 
     1836  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, cellRef, 0, "myTable") 
     1837  --                         -- refresh cell 3 in row 2 
     1838  --           sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, [2, 3], 0, "myTable") 
     1839  --                         -- the same as above 
     1840  --           sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, "cellName", 0, "myTable") 
     1841  --                         -- the same as above 
     1842  ----------------------------------- 
     1843   
     1844  if count(pTableList) < 1 then exit 
     1845   
     1846  if not voidP(tabname) then 
     1847    table = pTableList.getaprop(tabname) 
     1848  else 
     1849    table = pTableList[1] 
     1850  end if 
     1851  if ilk(table) <> #proplist then exit 
     1852  scr = table.getaprop(#myScriptObject) 
     1853   
     1854  if objectP(scr) then 
     1855    if ilk(cellObject) = #string then 
     1856      cellObject = mGetCellByName(me, cellObject, tabname) 
     1857    else 
     1858      if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname) 
     1859    end if 
     1860   
     1861    if objectP(cellObject) then call(#mRefreshItem, scr, cellObject, refreshBackGround) 
     1862  end if 
     1863end 
     1864 
     1865-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     1866 
     1867on mSetCellProperty me, cellObject, symbol_propname, any_propvalue, tabname 
     1868  ----------------------------------- 
     1869  -- ACTION: Change a property (e.g. #myFontColor) NOT the #content of a single cell and render that single cell 
     1870  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent()  
     1871  --            to take a change of lineheight into consideration 
     1872  --         of course, if you change the content of a cell and don't want the dimension of the cell to change 
     1873  --            you can go with this function, much faster.. 
     1874  --         If you use mSetCellContent, you can change any other cell property before that call, 
     1875  --            as it will re-render the whole cell anyway 
     1876  -- INPUT: <cellObject> ; object ; can be: 
     1877  --                                    a cell object itself 
     1878  --                                    or a linear list of two integers => [row, column] 
     1879  --                                    or a string => name of the cell 
     1880  --        <symbol_propname> ; symbol ; one of several cell properties EXCEPT #content 
     1881  --        <any_propvalue> ; new value for the above property 
     1882  --        <tabname> ; string ; name of the table, which shall be addressed, 
     1883  --                              if empty, the first table in the list of tables is used 
     1884  -- RETURNS: - 
     1885  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, cellRef, #myBGColor, rgb(200, 200, 220), "myTable") 
     1886  --                         -- refresh cell 3 in row 2 
     1887  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, [2, 3], #myBGColor, rgb(200, 200, 220), "myTable") 
     1888  --                         -- the same as above 
     1889  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, "cellName", #myBGColor, rgb(200, 200, 220), "myTable") 
     1890  --                         -- the same as above 
     1891  ----------------------------------- 
     1892 
     1893 
     1894  if ilk(cellObject) = #string then 
     1895    cellObject = mGetCellByName(me, cellObject, tabname) 
     1896  else 
     1897    if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname) 
     1898  end if 
     1899 
     1900  if objectP(cellObject) then 
     1901    cellObject[symbol_propname] = any_propvalue 
     1902    mAXTable_RefreshItem(me, cellObject, 1, tabname) 
     1903  end if 
     1904end 
     1905 
     1906-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     1907 
     1908on mSetCellProperties me, cellObject, proplist_newProps, tabname 
     1909  ----------------------------------- 
     1910  -- ACTION: Bulk change several properties (e.g. #myFontColor, NOT the #content or font properties, size and font and antialias) 
     1911  --            of a single cell and render that single cell 
     1912  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent()  
     1913  --            to take a change of lineheight into consideration 
     1914  --         of course, if you change the content of a cell and don't want the dimension of the cell to change 
     1915  --            you can go with this function, much faster.. 
     1916  --         If you use mSetCellContent, you can change any other cell property before that call, 
     1917  --            as it will re-render the whole cell anyway 
     1918  -- INPUT: <cellObject> ; object ; can be: 
     1919  --                                    a cell object itself 
     1920  --                                    or a linear list of two integers => [row, column] 
     1921  --                                    or a string => name of the cell 
     1922  --        <proplist_newProps> ; proplist ; property list with new values for the specified properties 
     1923  --        <tabname> ; string ; name of the table, which shall be addressed, 
     1924  --                              if empty, the first table in the list of tables is used 
     1925  -- RETURNS: - 
     1926  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, cellRef, [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable") 
     1927  --                         -- refresh cell 3 in row 2 
     1928  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, [2, 3], [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable") 
     1929  --                         -- the same as above 
     1930  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, "cellName", [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable") 
     1931  --                         -- the same as above 
     1932  ----------------------------------- 
     1933   
     1934  if not(objectP(proplist_newProps)) then exit 
     1935   
     1936  if ilk(cellObject) = #string then 
     1937    cellObject = mGetCellByName(me, cellObject, tabname) 
     1938  else 
     1939    if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname) 
     1940  end if 
     1941 
     1942  if objectP(cellObject) then 
     1943    repeat with n = count(proplist_newProps) down to 1 
     1944      cellObject[proplist_newProps.getPropAt(n)] = proplist_newProps[n] 
     1945    end repeat 
     1946     
     1947    mAXTable_RefreshItem(me, cellObject, 1, tabname) 
     1948  end if 
    18151949end 
    18161950 

  • trunk/lingosource/castlib1/ToolTipBeaver_1.ls

    r61 r71  
    11-- ToolTip Behavior 
    2 -- by Alex da Franca c2001   da.franca@online.de 
     2-- by Alex da Franca c2001   alex@farbflash.de 
    33-- drag this behavior onto any sprite with the provided "ttimageSave" bitmap member 
    44-- customize the background color and the frame color of the tooltip by altering "ttimageSave" 

  • trunk/lingosource/castlib1/commonMovieScript.ls

    r61 r71  
    416416end 
    417417 
     418 
     419-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     420 
     421on mIsAtLeastVersionOf me, proplist_or_number_productVersionInfo 
     422  ----------------------------------- 
     423  --         CREATED: 08.02.2011 
     424  --         ACTION: Check whether player version number and productbuildversion 
     425  --                 meet at least a certain value 
     426  --         INPUT: <proplist_or_number_productVersionInfo> ; proplist or number ; if number: => 
     427  --                                                             at least version xy 
     428  --                             if proplist then at least version productVersionInfo[#versionNumber] => #number 
     429  --                                  AND (if defined) productVersionInfo[#buildnumber] => number 
     430  --         RETURNS: boolean (integer) => true if current version is at least the specified version or higher 
     431  ----------------------------------- 
     432   
     433  if ilk(proplist_or_number_productVersionInfo) = #proplist then 
     434    versionNumber = proplist_or_number_productVersionInfo[#versionNumber] 
     435    buildnumber = proplist_or_number_productVersionInfo[#buildnumber] 
     436  else 
     437    versionNumber = proplist_or_number_productVersionInfo 
     438    buildnumber = 0 
     439  end if 
     440   
     441  if ilk(versionNumber, #number) <> 1 then versionNumber = 0 -- in dubio pro reo 
     442  if ilk(buildnumber, #number) <> 1 then buildnumber = 0 -- in dubio pro reo 
     443   
     444  currVersion = mGetVersionNumber(me) 
     445   
     446  if currVersion > versionNumber then return true 
     447  if currVersion < versionNumber then return false 
     448   
     449  env = mGetEnvironment(me) 
     450  currentBuildNumber = integer(env[#productBuildVersion]) 
     451  if buildnumber > currentBuildNumber then return false 
     452  return true 
     453end 
     454 
    418455-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    419456 
    … …  
    680717      retval = sendSprite(spr, hnd, callbackObject, p1, p2, p3) 
    681718  end case 
     719   
     720  -- due to a stupid bug in 11.5.9.629 we can get <NULL> as a result of call() and on windows/shockwave it compares to 1 as true 
     721  -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 
     722  -- unfortunately there is another bug in director, which will throw a script error, if we use ilk() on deeted 3-D models 
     723  -- therefore we have to check voidP() BEFORE ilk()! oh well... 
     724  if voidP(retval) then retval = void 
     725  if ilk(retval) = #void then retval = void 
    682726   
    683727  return retval 
    … …  
    21722216    splitPath = mSplitPath(me, fullPath) 
    21732217    dd = 0 
    2174     dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd 
     2218    dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 
    21752219    repeat while mCheckFileExists(me, dup) = 1 
    21762220      dd = dd + 1 
    2177       dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd 
     2221      dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 
    21782222    end repeat 
    21792223     
    … …  
    24182462on mHTMLize me, str 
    24192463  if offset("<html", str) < 1 then 
    2420     if offset("<title>", str) < 1 then put "<title>untitled</title>" before str 
     2464    titlePos = offset("</title>", str) 
     2465    if titlePos < 1 then 
     2466      theTitle = "<title>untitled</title>" 
     2467      put theTitle before str 
     2468      firstchar = length(theTitle) 
     2469    else 
     2470      firstchar = titlePos + 7 
     2471    end if 
    24212472    if offset("<body", str) < 1 then 
    2422       put "<body>" before str 
     2473      put "<body>" after char firstchar of str 
    24232474      put "</body>" after str 
    24242475    end if 

  • trunk/lingosource/castlib1/st_movie_defaultLayoutDefinitions.txt

    r61 r71  
    77-- Purpose: 
    88-- combine all formatting data into one single script 
    9 -- edit the appearance of tables and buttons here in 
    109 
    1110-- Usage: 

  • trunk/lingosource/castlib1/st_score_DialogManagerHost.txt

    r61 r71  
    1 -- Dialog Behavior by Alex da Franca c2003 da.Franca@online.de 
     1-- Dialog Behavior by Alex da Franca c2003 alex@farbflash.de 
    22-------------------------------------------------------------------- 
    33 

  • trunk/lingosource/castlib1/st_score_aleXtraLoader.txt

    r61 r71  
    1 -- aleXtra Loader Behavior -- ©05 Alex da Franca -- alex@farbflash.de 
     1-- aleXtra Loader Behavior -- c05 Alex da Franca -- alex@farbflash.de 
    22--------------------------------------------------------------------- 
    33-- Purpose: 

  • trunk/lingosource/castlib1/st_score_eventRouter.txt

    r61 r71  
    388388-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    389389 
     390on activateWindowEvent me 
     391  pEventsSuspendedAfterDeactivate = 0 
     392end 
     393 
     394-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     395 
    390396on deactivateApplicationEvent me 
    391397  pEventsSuspendedAfterDeactivate = 1 
     398end 
     399 
     400-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     401 
     402on activateApplicationEvent me 
     403  pEventsSuspendedAfterDeactivate = 0 
    392404end 
    393405 

  • trunk/lingosource/castlib1/st_score_menuBehaviorHost.txt

    r61 r71  
    1 -- Menu Behavior by Alex da Franca ©2003 da.Franca@online.de 
     1-- Menu Behavior by Alex da Franca c2003 alex@farbflash.de 
    22-------------------------------------------------------------------- 
    33 

  • trunk/lingosource/castlib1/tabSortListePS.ls

    r61 r71  
    11-- Sortable Table Script 
    2 -- Alex da Franca c2003  da.franca@online.de 
     2-- Alex da Franca c2003  alex@farbflash.de 
    33 
    44-- Version 31.08.03 
Note: See TracChangeset for help on using the changeset viewer.