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

Changeset 150 for trunk


Ignore:
Timestamp:
02/18/08 06:02:53 (4 years ago)
Author:
alex
Message:

update library scripts

Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/lingosource/castlib1/memberInfo.xml

    r148 r150  
    55                <comments></comments> 
    66                <memberName>doCommandMovieScript</memberName> 
    7                 <fName>doCommandMovieScript</fName> 
     7                <fname>doCommandMovieScript</fname> 
    88        </doCommandMovieScript> 
    99        <thisMoviesScript> 
    … …  
    1111                <comments></comments> 
    1212                <memberName>thisMoviesScript</memberName> 
    13                 <fName>thisMoviesScript</fName> 
     13                <fname>thisMoviesScript</fname> 
    1414        </thisMoviesScript> 
    1515        <keyboardNavigation_FrameLoop> 
    … …  
    1717                <comments></comments> 
    1818                <memberName>keyboardNavigation_FrameLoop</memberName> 
    19                 <fName>keyboardNavigation_FrameLoop</fName> 
     19                <fname>keyboardNavigation_FrameLoop</fname> 
    2020        </keyboardNavigation_FrameLoop> 
    2121        <menu1_button> 
    … …  
    2323                <comments></comments> 
    2424                <memberName>menu1_button</memberName> 
    25                 <fName>menu1_button</fName> 
     25                <fname>menu1_button</fname> 
    2626        </menu1_button> 
    2727        <menu2_button> 
    … …  
    2929                <comments></comments> 
    3030                <memberName>menu2_button</memberName> 
    31                 <fName>menu2_button</fName> 
     31                <fname>menu2_button</fname> 
    3232        </menu2_button> 
    3333        <simpleBMMenu> 
    … …  
    3535                <comments></comments> 
    3636                <memberName>simpleBMMenu</memberName> 
    37                 <fName>simpleBMMenu</fName> 
     37                <fname>simpleBMMenu</fname> 
    3838        </simpleBMMenu> 
    3939        <OSCmenu_Utilities> 
    … …  
    4141                <comments></comments> 
    4242                <memberName>OSCmenu_Utilities</memberName> 
    43                 <fName>OSCmenu_Utilities</fName> 
     43                <fname>OSCmenu_Utilities</fname> 
    4444        </OSCmenu_Utilities> 
    4545        <alexUtilities> 
    … …  
    4747                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    4848                <memberName>alexUtilities</memberName> 
    49                 <fName>alexUtilities</fName> 
     49                <fname>alexUtilities</fname> 
    5050        </alexUtilities> 
    5151        <convert_Lingo_2_CSS_Html> 
    … …  
    5353                <comments>~/Documents/Scripts/lingo/convert_Lingo_2_CSS_Html.ls</comments> 
    5454                <memberName>convert_Lingo_2_CSS_Html</memberName> 
    55                 <fName>convert_Lingo_2_CSS_Html</fName> 
     55                <fname>convert_Lingo_2_CSS_Html</fname> 
    5656        </convert_Lingo_2_CSS_Html> 
    5757        <OSCmenu_Handlers> 
    … …  
    5959                <comments></comments> 
    6060                <memberName>OSCmenu_Handlers</memberName> 
    61                 <fName>OSCmenu_Handlers</fName> 
     61                <fname>OSCmenu_Handlers</fname> 
    6262        </OSCmenu_Handlers> 
    6363        <pastefeld> 
    … …  
    6565                <comments></comments> 
    6666                <memberName>pastefeld</memberName> 
    67                 <fName>pastefeld</fName> 
     67                <fname>pastefeld</fname> 
    6868        </pastefeld> 
    6969        <oldclipboard> 
    … …  
    7171                <comments></comments> 
    7272                <memberName>oldclipboard</memberName> 
    73                 <fName>oldclipboard</fName> 
     73                <fname>oldclipboard</fname> 
    7474        </oldclipboard> 
    7575        <searchword> 
    … …  
    7777                <comments></comments> 
    7878                <memberName>searchword</memberName> 
    79                 <fName>searchword</fName> 
     79                <fname>searchword</fname> 
    8080        </searchword> 
    8181        <resizewindowfs> 
    … …  
    8383                <comments></comments> 
    8484                <memberName>resizewindowfs</memberName> 
    85                 <fName>resizewindowfs</fName> 
     85                <fname>resizewindowfs</fname> 
    8686        </resizewindowfs> 
    8787        <showHideHelp> 
    … …  
    8989                <comments></comments> 
    9090                <memberName>showHideHelp</memberName> 
    91                 <fName>showHideHelp</fName> 
     91                <fname>showHideHelp</fname> 
    9292        </showHideHelp> 
    9393        <helptext> 
    … …  
    9898rtf</comments> 
    9999                <memberName>helptext</memberName> 
    100                 <fName>helptext</fName> 
     100                <fname>helptext</fname> 
    101101        </helptext> 
    102102        <texthyperlinkBehavior> 
    … …  
    104104                <comments>/Users/alex/Documents/ALIEN/myLinkedScripts/texthyperlinkBehavior.ls</comments> 
    105105                <memberName>texthyperlinkBehavior</memberName> 
    106                 <fName>texthyperlinkBehavior</fName> 
     106                <fname>texthyperlinkBehavior</fname> 
    107107        </texthyperlinkBehavior> 
    108108        <statusOutput> 
    … …  
    113113rtf</comments> 
    114114                <memberName>statusOutput</memberName> 
    115                 <fName>statusOutput</fName> 
     115                <fname>statusOutput</fname> 
    116116        </statusOutput> 
    117117        <bbedit_Utilities> 
    … …  
    119119                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    120120                <memberName>bbedit_Utilities</memberName> 
    121                 <fName>bbedit_Utilities</fName> 
     121                <fname>bbedit_Utilities</fname> 
    122122        </bbedit_Utilities> 
    123123        <svn_Utilities> 
    … …  
    125125                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    126126                <memberName>svn_Utilities</memberName> 
    127                 <fName>svn_Utilities</fName> 
     127                <fname>svn_Utilities</fname> 
    128128        </svn_Utilities> 
    129129        <custom_Utilities> 
    … …  
    131131                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    132132                <memberName>custom_Utilities</memberName> 
    133                 <fName>custom_Utilities</fName> 
     133                <fname>custom_Utilities</fname> 
    134134        </custom_Utilities> 
    135135</Untitled> 

  • trunk/lingosource/castlib2/PseudoXMLPS.ls

    r74 r150  
    251251  end if 
    252252   
    253   if pXmlxtraversion < 10 then return mGetListFromXMLString(me, str, convertValues) 
     253  if pXmlxtraversion < 10 then return mGetListFromXMLString(me, str, convertValues, withParams) 
    254254  ------------------ end XML Parser xtra version 10 check 
    255255   
    … …  
    275275  if not(voidP(xt.getError())) then 
    276276    put "Script: PseudoXMLPS; Handler: mGetListFromXMLStringX; error:" && xt.getError() 
    277     return [:] 
     277    return mGetListFromXMLString(me, str, convertValues, withParams) 
    278278  end if 
    279279   
    280280  xx = xt.makePropList() 
    281   li = mConvertXMLPropList(me, [xx], convertValues) 
    282    
    283   --  put the milliseconds - ms 
     281  dontEscapeSpecialChars = 1 -- we do not need to do this, as the xmlparser xtra already did it for us 
     282  li = mConvertXMLPropList(me, [xx], convertValues, dontEscapeSpecialChars) 
     283   
     284 -- put "x" && the milliseconds - ms 
    284285   
    285286  if not(listP(li)) then return [:] 
    … …  
    843844-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    844845 
    845 on mConvertXMLPropList me, inputlist, convertValues 
     846on mConvertXMLPropList me, inputlist, convertValues, dontEscapeSpecialChars 
    846847  retlist = [:] 
    847848  anz = count(inputlist) 
    … …  
    860861      if count(val) then 
    861862        if ilk(retlist) = #proplist then 
    862           retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues)) 
    863         else 
    864           retlist.add(mConvertXMLPropList(me, val, convertValues)) 
     863        retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 
     864      else 
     865          retlist.add(mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 
    865866        end if 
    866867      else 
    … …  
    882883               
    883884              -- unescape <>&'" 
    884               val = mUnEscapeSpecialChars(me, val) 
     885               if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 
    885886               
    886887            #integer: 
    … …  
    903904               
    904905              -- unescape <>&'" 
    905               val = mUnEscapeSpecialChars(me, val) 
     906              if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 
    906907               
    907908            else 
    … …  
    917918               
    918919              -- unescape <>&'" 
    919               val = mUnEscapeSpecialChars(me, val) 
     920              if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 
    920921               
    921922            else 
    … …  
    927928             
    928929            -- unescape <>&'" 
    929             val = mUnEscapeSpecialChars(me, val) 
     930           if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 
    930931             
    931932             

  • trunk/lingosource/castlib2/aleXtrasMovieScript.ls

    r63 r150  
    11-- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de 
    22--------------------------------------------------------------------- 
    3  
    4 -- Requires: 
    5 -- nothing 
    6  
    7 -- Purpose: 
     3-- CREATED: 
     4--              2005 
     5-- 
     6-- DESCRIPTION: 
    87-- store instances of scripts and bitmaps in a 'global' list (-> property pAleXtras) 
    98-- and provide access to them for all scripts 
    10  
    11 -- Usage: 
     9-- 
     10-- REQUIRES: 
     11--              NONE 
     12-- 
     13-- USAGE: 
    1214-- put it in one of your castlib, DON'T RENAME MEMBER !! 
     15-- 
     16-- TODO: 
     17--              - 
     18----------------------------------- 
     19 
    1320 
    1421property pAleXtras 
    1522 
    1623on mGetAleXtras 
     24   
     25   
    1726  alextras = (script "aleXtrasMovieScript").pAleXtras 
    1827  if voidP(alextras) then 
    … …  
    2635 
    2736on xscr scrName 
     37  ----------------------------------- 
     38  --         CREATED: 11.02.2008 
     39  --         ACTION: Description 
     40  --         INPUT: - 
     41  --         RETURNS: - 
     42  --         CALLER: - 
     43  --         DEBUG: - 
     44  --         TODO: - 
     45  ----------------------------------- 
     46   
    2847  return mGetXScript(scrName) 
    2948end 
    … …  
    3251 
    3352on mGetXScript scrName 
     53  ----------------------------------- 
     54  --         CREATED: 11.02.2008 
     55  --         ACTION: Description 
     56  --         INPUT: - 
     57  --         RETURNS: - 
     58  --         CALLER: - 
     59  --         DEBUG: - 
     60  --         TODO: - 
     61  ----------------------------------- 
     62   
    3463  scrName = symbol(scrName) 
    3564  if ilk(scrName) <> #symbol then scrName = #commonmoviescript 
    … …  
    5483on mCallDestroy 
    5584  call(#mCallDestroy, mGetXScript()) 
    56  -- call(#mDestroy, the actorlist) 
     85  -- call(#mDestroy, the actorlist) 
    5786end 
    5887 
    … …  
    6190 
    6291on mLoadScripts cls 
     92  ----------------------------------- 
     93  --         CREATED: 11.02.2008 
     94  --         ACTION: Description 
     95  --         INPUT: - 
     96  --         RETURNS: - 
     97  --         CALLER: - 
     98  --         DEBUG: - 
     99  --         TODO: - 
     100  ----------------------------------- 
    63101   
    64102  mediaList = mGetAleXtras() 

  • trunk/lingosource/castlib2/commonMovieScript.ls

    r74 r150  
    1 -- Shared Global Handlers ©03 Alex da Franca -- alex@farbflash.de 
    2 --------------------------------------------------------------------- 
    3  
    4  
    5 -- these handlers are shared between all of my scripts Alex da Franca ©2003 alex@farbflash.de 
    6 -- for private use of my scripts -> poor documentation -> use at own risk ;-) 
    7  
    8 -- geaendert am 21.06.03 
    9 -- mGetInstance 0 -- clears all stored instances -> same as recompile all scripts, but that would clear all contents of (script "commonMovieScript").pGList 
    10 -- mApplyDynamic 
    11  
    12 -- alex am 13.03.2004 um 13:49 
    13 -- added DEBUG_FUNCTIONS 
    14  
    15 -- alex am 15.03.2004 um 08:50 
    16 -- added mGetPlatform() to get OSX 
    17 -- alex am 31.03.2004 um 11:42 
    18 -- added clearglobals to mDestroy handler 
    19  
    20 -- added support for new director MX2004 sprite names in my handlers by changing mGetKanal() to accept strings 
    21  
    22 -- alex am Freitag, 4. Juni 2004 
    23 -- took care about missing font asset xtra, if it isn't present, we'll get not a script error anymore 
    24 -- but rather the presence of the font is not checked instead, but rather assumed 
    25  
    26 -- alex am 16. Juni 2004 um 10:12 
    27 -- added mGetNextLowerPowerOfTwo 
    28  
    29 -- alex am 18. Juli 2004 um 08:02 
    30 -- added mMyClearGlobals() to erase the faked globals and get the new globallist 
    31  
    32 -- alex am 8. Oktober 2004 um 10:31 
    33 -- new tempmember handling due to a bug in director 
    34  
    35 -- alex am 23. November 2004 um 10:59 
    36 -- added mGetThisMovieName() and mSetThisMovieName() to identify the movie independant of the filename 
    37 -- this is needed for some places, where the standard scripts act differently in the different movies 
    38  
    39 -- Scriptmarker (21.07.2005 at 11:55 Uhr): changes // Scriptmarker 
    40 -- added mSplitPath 
    41  
    42  
    43  
    44  
    45 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    46 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    47  
    48 -- IMPORTANT NOTE !! 
    49 -- if you use my scripts you MUST call 'mCallDestroy()' at stopmovie in order to clean up temporary members used by my scripts 
    50 -- due to a bug in director I had to change the old behaavior of erasing the members on endsprite, when I was done with it ! 
    51 -- so now I use a list of temporary members, which is maintained during runtime, but must be processed when the movie is stopped 
    52 -- (unless you want to fill up your castlib with temporary members :-) 
    53  
    54 -- NOW: 
    55 -- if this script is NOT the first moviescript in your movie containing a stopmovie handler this one gets overriddden and 
    56 -- you must call 'mCallDestroy()' in your stopmovie handler. 
    57 -- otherwise when it this script comes before your script with the stopmovie handler your handler will never be called 
    58 -- since the stopmovie event is caught here... 
    59 -- in that case just comment it out here and add the 'mCallDestroy()' to your own stopmovie handler 
    60  
    61 --on stopmovie me 
    62 --  mCallDestroy 
    63 --end 
     1-- commonMovieScript 
     2----------------------------------- 
     3-- CREATED: 
     4--              11.02.2008 
     5-- 
     6-- DESCRIPTION:       
     7--              Shared Global Handlers ©03 Alex da Franca -- alex@farbflash.de 
     8--              ------------------------------------------------------------------- 
     9--              these handlers are shared between all of my scripts Alex da Franca ©2003 alex@farbflash.de 
     10--              for private use of my scripts -> poor documentation -> use at own risk ;-) 
     11 
     12-- HISTORY: 
     13--              geaendert am 21.06.03 
     14--              mGetInstance 0 -- clears all stored instances -> same as recompile all scripts, but that would clear all contents of (script "commonMovieScript").pGList 
     15--              mApplyDynamic 
     16 
     17--              alex am 13.03.2004 um 13:49 
     18--              added DEBUG_FUNCTIONS 
     19 
     20--              alex am 15.03.2004 um 08:50 
     21--              added mGetPlatform() to get OSX 
     22--              alex am 31.03.2004 um 11:42 
     23--              added clearglobals to mDestroy handler 
     24 
     25--              added support for new director MX2004 sprite names in my handlers by changing mGetKanal() to accept strings 
     26 
     27--              alex am Freitag, 4. Juni 2004 
     28--              took care about missing font asset xtra, if it isn't present, we'll get not a script error anymore 
     29--              but rather the presence of the font is not checked instead, but rather assumed 
     30 
     31--              alex am 16. Juni 2004 um 10:12 
     32--              added mGetNextLowerPowerOfTwo 
     33 
     34--              alex am 18. Juli 2004 um 08:02 
     35--              added mMyClearGlobals() to erase the faked globals and get the new globallist 
     36 
     37--              alex am 8. Oktober 2004 um 10:31 
     38--              new tempmember handling due to a bug in director 
     39 
     40--              alex am 23. November 2004 um 10:59 
     41--              added mGetThisMovieName() and mSetThisMovieName() to identify the movie independant of the filename 
     42--              this is needed for some places, where the standard scripts act differently in the different movies 
     43 
     44--              Scriptmarker (21.07.2005 at 11:55 Uhr): changes // Scriptmarker 
     45--              added mSplitPath 
     46 
     47-- 
     48-- WARNINGS: 
     49--              IMPORTANT NOTE !! 
     50--              if you use my scripts you MUST call 'mCallDestroy()' at stopmovie in order to clean up temporary members used by my scripts 
     51--              due to a bug in director I had to change the old behaavior of erasing the members on endsprite, when I was done with it ! 
     52--              so now I use a list of temporary members, which is maintained during runtime, but must be processed when the movie is stopped 
     53--              (unless you want to fill up your castlib with temporary members :-) 
     54 
     55--              If this script is NOT the first moviescript in your movie containing a stopmovie handler this one gets overriddden and 
     56--              you must call 'mCallDestroy()' in your stopmovie handler. 
     57--              otherwise when it this script comes before your script with the stopmovie handler your handler will never be called 
     58--              since the stopmovie event is caught here... 
     59--              in that case just comment it out here and add the 'mCallDestroy()' to your own stopmovie handler 
     60 
     61--              on stopmovie me 
     62--              mCallDestroy 
     63--              end 
     64-- TODO: 
     65--              - 
     66----------------------------------- 
    6467 
    6568-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    … …  
    7275 
    7376on mGetGlobalList me 
     77  ----------------------------------- 
     78  --         ACTION: We keep a list of "faked global variables" 
     79  --                 Using real global variables has the drawback, 
     80  --                 that they may clash with the host movies globals 
     81  --                 and even worse: all movie instances running in the same player 
     82  --                 instance -> MIAWs share only one global space 
     83  --                 Since these scripts are also used in my authoring tools 
     84  --                 they can behave nicely, if running as miaws in any environment 
     85  --         INPUT: - 
     86  --         RETURNS: property list with global variables 
     87  --         NOTES: If possible only use the set and get handlers (mSetGlobalValue, mGetGlobalValue) 
     88  ----------------------------------- 
     89   
    7490  if voidP(pGList) then 
    7591    pGList = [:] 
    … …  
    86102 
    87103on mMyClearGlobals me 
     104  ----------------------------------- 
     105  --         CREATED: 11.02.2008 
     106  --         ACTION: Clear the global list at runtime (at authortime a "Recompile all scripts" does the same) 
     107  --                 See description for "Faked globals" at handler [#mGetGlobalList_commonMovieScript mGetGlobalList] 
     108  --         INPUT: - 
     109  --         RETURNS: - 
     110  ----------------------------------- 
     111   
    88112  pGList = [:] 
    89113  return pGList 
    … …  
    94118 
    95119on mSetGlobalValue me, propName, newValue 
     120  ----------------------------------- 
     121  --         ACTION: Set the value for a "global" variable 
     122  --                 If the "global" with the name #propname doesn't exits it gets created 
     123   
     124  --                 Interface to the "private globals" stored in this uninstatiated script as property 
     125  --                 See description for "Faked globals" at handler [#mGetGlobalList_commonMovieScript mGetGlobalList] 
     126   
     127  --         INPUT: propName: symbol; name of global value 
     128  --                newValue: any value 
     129  --         RETURNS: - 
     130  ----------------------------------- 
     131   
    96132  g = mGetGlobalList(me) 
    97133  g.setaprop(propName, newValue) 
    … …  
    102138 
    103139on mGetGlobalValue me, propName 
     140  ----------------------------------- 
     141  --         ACTION: Get the value for a "global" variable 
     142  --                 If the "global" with the name #propname doesn't exits it returns void 
     143   
     144  --                 Interface to the "private globals" stored in this uninstatiated script as property 
     145  --                 See description for "Faked globals" at handler [#mGetGlobalList_commonMovieScript mGetGlobalList] 
     146   
     147  --         INPUT: propName: symbol; name of global value 
     148  --         RETURNS: - 
     149  ----------------------------------- 
     150   
    104151  g = mGetGlobalList(me) 
    105152  return g.getaprop(propName) 
    … …  
    109156 
    110157on mCallDestroy me 
     158  ----------------------------------- 
     159  --         CREATED: 12.02.2008 
     160  --         ACTION: Call to clean everything up on stopmovie 
     161  --         INPUT: - 
     162  --         RETURNS: - 
     163  ----------------------------------- 
     164   
    111165   
    112166  sendAllSprites(#mStopMovieWasCalled) 
    … …  
    154208-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    155209-- xxxxxxxxxxxxxxxxxx color( -> rgb( 
    156 -- fix the score data which has #color instead of #rgb when authored with D10, which fails with the older player 
     210--  
    157211 
    158212on Authoring_ExchangeScriptListColorsToRGBs me 
     213  ----------------------------------- 
     214  --         CREATED: 12.02.2008 
     215  --         ACTION: fix the score data which has #color instead of #rgb when authored with D10 
     216  --                 which fails with the older player (AUTHORING ONLY!) 
     217  --         INPUT: - 
     218  --         RETURNS: - 
     219  ----------------------------------- 
     220   
    159221  theLastFrame = the lastFrame 
    160222  theLastChannel = the lastChannel 
    … …  
    213275 
    214276on mGetVersionNumber me 
     277  ----------------------------------- 
     278  --         CREATED: 12.02.2008 
     279  --         ACTION: Get player veersion number as float, so that proper maths can be made 
     280  --         INPUT: - 
     281  --         RETURNS: float => director player version number 
     282  ----------------------------------- 
    215283   
    216284  glob = mGetGlobalList(me) 
    … …  
    251319 
    252320on mGetPlatform me 
     321  ----------------------------------- 
     322  --         CREATED: 12.02.2008 
     323  --         ACTION: Get the platform as symbol 
     324  --                 the advantage is that the result is cached in the global list 
     325  --                 and the distinction between OS9 and OSX is made 
     326  --         INPUT: - 
     327  --         RETURNS: symbol => platform identifier; range: #os9, #osx, #win 
     328  ----------------------------------- 
    253329   
    254330  glob = mGetGlobalList(me) 
    … …  
    276352 
    277353on mCheckMemberType me, memref, aType 
     354  ----------------------------------- 
     355  --         CREATED: 12.02.2008 
     356  --         ACTION: Check if the member reference <memref> is of type <aType> 
     357  --                 This handler works in D<10 and D>=10 
     358  --         INPUT: member reference 
     359  --                symbol 
     360  --         RETURNS: boolean (integer) 
     361  ----------------------------------- 
     362   
    278363  if voidP(memref) then return 0 
    279364  return (memref.type = aType) 
    … …  
    283368 
    284369on mGetMemType me, memref 
     370  ----------------------------------- 
     371  --         CREATED: 12.02.2008 
     372  --         ACTION: Return the type of member <memref> 
     373  --                 This handler works in D<10 and D>=10 
     374  --                 If memref is not a valid member this handler returns #empty, like D<10 used to 
     375  --         INPUT: member reference 
     376  --         RETURNS: symbol => member type; range: every member type and #empty 
     377  ----------------------------------- 
    285378  if ilk(memref) <> #member then return #empty 
    286379  return memref.type 
    … …  
    290383 
    291384on mCreateTimeout me, theName, theDuration, theHandler, theTarget 
     385  ----------------------------------- 
     386  --         CREATED: 12.02.2008 
     387  --         ACTION: Create/Get timeout object 
     388  --                 This handler works the same with the old player <10 and the new player >=10 
     389  --         INPUT: ||ÊtheName     || string  || name for new timeout object|| 
     390  --                ||ÊtheDuration || integer || timeout perios in milliseconds|| 
     391  --                || theHandler  || symbol  || handler to be called on each timepout event|| 
     392  --                || theTarget   || object  || object to be sent the timeout event <theHandler>|| 
     393  --         RETURNS: timeout object 
     394  ----------------------------------- 
    292395   
    293396  dto = timeout(theName) 
    … …  
    13921495   
    13931496  if delim = "\" then 
     1497    if length(thePath) > 1 then 
    13941498    if thePath.char[2] = ":" then 
    13951499      num = charToNum(thePath.char[1]) 
    … …  
    14001504        praef = "" 
    14011505      end if 
     1506    else 
     1507      praef = "" 
     1508    end if 
    14021509    else 
    14031510      praef = "" 

  • trunk/lingosource/castlib2/memberInfo.xml

    r148 r150  
    55                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    66                <memberName>commonMovieScript</memberName> 
    7                 <fName>commonMovieScript</fName> 
     7                <fname>commonMovieScript</fname> 
    88        </commonmoviescript> 
    99        <FileIOFunktionen> 
    … …  
    1111                <comments>~/Documents/Scripts/lingo/FileIOFunktionen.ls</comments> 
    1212                <memberName>FileIOFunktionen</memberName> 
    13                 <fName>FileIOFunktionen</fName> 
     13                <fname>FileIOFunktionen</fname> 
    1414        </FileIOFunktionen> 
    1515        <GetSetPrefs> 
    … …  
    1717                <comments>~/Documents/Scripts/lingo/GetSetPrefs.ls</comments> 
    1818                <memberName>GetSetPrefs</memberName> 
    19                 <fName>GetSetPrefs</fName> 
     19                <fname>GetSetPrefs</fname> 
    2020        </GetSetPrefs> 
    2121        <aleXtrasMovieScript> 
    … …  
    2323                <comments>~/Documents/Scripts/lingo/aleXtrasMovieScript.ls</comments> 
    2424                <memberName>aleXtrasMovieScript</memberName> 
    25                 <fName>aleXtrasMovieScript</fName> 
     25                <fname>aleXtrasMovieScript</fname> 
    2626        </aleXtrasMovieScript> 
    2727        <PseudoXMLPS> 
    … …  
    2929                <comments>~/Documents/Scripts/lingo/PseudoXMLPS.ls</comments> 
    3030                <memberName>PseudoXMLPS</memberName> 
    31                 <fName>PseudoXMLPS</fName> 
     31                <fname>PseudoXMLPS</fname> 
    3232        </PseudoXMLPS> 
    3333        <simpleGoToAction> 
    … …  
    3535                <comments>/Users/alex/Documents/ALIEN/myLinkedScripts/simpleGoToAction.ls</comments> 
    3636                <memberName>simpleGoToAction</memberName> 
    37                 <fName>simpleGoToAction</fName> 
     37                <fname>simpleGoToAction</fname> 
    3838        </simpleGoToAction> 
    3939        <SpriteNameBeaver> 
    … …  
    4141                <comments>~/Documents/Scripts/lingo/SpriteNameBeaver.ls</comments> 
    4242                <memberName>SpriteNameBeaver</memberName> 
    43                 <fName>SpriteNameBeaver</fName> 
     43                <fname>SpriteNameBeaver</fname> 
    4444        </SpriteNameBeaver> 
    4545</Untitled> 
Note: See TracChangeset for help on using the changeset viewer.