Changeset 104 for trunk/lingosource
- Timestamp:
- 09/29/11 13:14:37 (8 months ago)
- Location:
- trunk/lingosource
- Files:
-
- 28 edited
-
castlib1/memberInfo.xml (modified) (1 diff)
-
castlib1/subversion_version_field.txt (modified) (1 diff)
-
castlib2/Alex_HierMenuParent.ls (modified) (97 diffs)
-
castlib2/ButtonImageCreator.ls (modified) (20 diffs)
-
castlib2/ButtonManager.ls (modified) (130 diffs)
-
castlib2/ButtonManagerHost.ls (modified) (8 diffs)
-
castlib2/DropShadowPScript.ls (modified) (5 diffs)
-
castlib2/FileIOFunktionen.ls (modified) (19 diffs)
-
castlib2/FindReplaceString.ls (modified) (12 diffs)
-
castlib2/FlashBitmapFilterPS.ls (modified) (10 diffs)
-
castlib2/GenericButtonPS.ls (modified) (62 diffs)
-
castlib2/GetSetPrefs.ls (modified) (14 diffs)
-
castlib2/HierMenuManager.ls (modified) (51 diffs)
-
castlib2/ImageUtilityScripts.ls (modified) (35 diffs)
-
castlib2/PseudoXMLPS.ls (modified) (48 diffs)
-
castlib2/SliderScrollbarMenuParent.ls (modified) (47 diffs)
-
castlib2/SpriteNameBeaver.ls (modified) (3 diffs)
-
castlib2/ToolTipBeaver_1.ls (modified) (26 diffs)
-
castlib2/ToolTipBeaver_1Host.ls (modified) (5 diffs)
-
castlib2/ToolTipSpriteBehavior_1.ls (modified) (12 diffs)
-
castlib2/aleXtrasMovieScript.ls (modified) (11 diffs)
-
castlib2/button_Layout.ls (modified) (2 diffs)
-
castlib2/commonMovieScript.ls (modified) (85 diffs)
-
castlib2/defaultLayoutDefinitions.ls (modified) (25 diffs)
-
castlib2/frissevent.ls (modified) (14 diffs)
-
castlib2/newResizableStageBehavior.ls (modified) (17 diffs)
-
castlib2/resizeWindowScripts.ls (modified) (8 diffs)
-
castlib2/subversionVersionChecker.ls (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lingosource/castlib1/memberInfo.xml
r97 r104 93 93 <subversion_version_field> 94 94 <scriptType>#field</scriptType> 95 <comments>http://www.farbflash.de/cgi-bin/versionChecker.pl?movieName=FindAll </comments>95 <comments>http://www.farbflash.de/cgi-bin/versionChecker.pl?movieName=FindAll?movieName=FindAll</comments> 96 96 <memberName>subversion_version_field</memberName> 97 97 <fname>subversion_version_field</fname> -
trunk/lingosource/castlib1/subversion_version_field.txt
r101 r104 1 r10 21 r106 -
trunk/lingosource/castlib2/Alex_HierMenuParent.ls
r101 r104 1 -- Hierarchisches Menu by Alex da Franca c2001 da.Franca@online.de1 -- Hierarchisches Menu by Alex da Franca c2001 alex@farbflash.de 2 2 ------------------------------------------------------------------ 3 3 … … 11 11 -- alex am Sonntag, 9. Mai 2004 12 12 -- added pStopOverEvent in order to stop the mouseover event when a higher sprite "eats" it (currently only sent by the table script) 13 -- but it can be sent by any other sprite la sendAllSprites(#mStopOverEvent) to prevent the actions in the enterframe event for the current frame13 -- but it can be sent by any other sprite a la sendAllSprites(#mStopOverEvent) to prevent the actions in the enterframe event for the current frame 14 14 15 15 -- alex am 23. Juli 2004 um 11:48 … … 104 104 105 105 106 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx106 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 107 107 -- properties 108 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx108 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 109 109 110 110 property pFormatList … … 194 194 195 195 196 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx196 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 197 197 on ___________DIRECTOR_EVENTS 198 198 end 199 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx199 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 200 200 201 201 … … 230 230 end 231 231 232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 233 233 on ___________PUBLIC_EVENTS 234 234 end 235 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx235 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 236 236 237 237 … … 273 273 -- in order to "wait" until it is present, before continuing we use a timeout object 274 274 275 mGetXscript().mCreateTimeout("HiermenuStartDelayTO" & the last word of string(me), 10, #mDelayedStart, me)275 mGetXscript().mCreateTimeout("HiermenuStartDelayTO" & xscr().mGetMemoryAddress(me), 10, #mDelayedStart, me) 276 276 else 277 277 mSetUpProps me … … 280 280 end 281 281 282 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx282 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 283 283 284 284 on mDelayedStart me, dto … … 308 308 309 309 310 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx310 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 311 311 312 312 … … 343 343 end 344 344 345 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx345 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 346 346 347 347 -- aufruf um datensaetze zu laden und darzustellen: … … 379 379 380 380 381 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx381 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 382 382 383 383 on mRefreshListView me, formatChange … … 404 404 end 405 405 406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 407 407 408 408 … … 411 411 end 412 412 413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 414 414 415 415 on mGetCurrentMenuPropList me … … 417 417 end 418 418 419 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx419 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 420 420 421 421 on mGetCurrentPropNameList me … … 423 423 end 424 424 425 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx425 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 426 426 427 427 on mSetUpListText me … … 447 447 end 448 448 449 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx449 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 450 450 451 451 -- aufrufe um alle ordner zu schliessen oder zu oeffnen (bloeder name, da mCloseAll auch alle *OEFFNEN* kann :-) … … 474 474 end 475 475 476 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx476 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 477 477 478 478 -- aufruf um ein bestimmten menupunkt zu zeigen und im sichtbaren menu zu vermitteln … … 639 639 640 640 641 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx641 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 642 642 643 643 on mRedrawMenuList me … … 650 650 end 651 651 652 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx653 654 655 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx652 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 653 654 655 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 656 656 -- aufruf um icons zu setzen ('iconsatz' zu aendern): 657 657 on mChangeIcons me, auf, zu, dat -- parameter #imageObjects, die als icons benutzt werden sollen … … 663 663 end 664 664 665 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx666 667 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx665 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 666 667 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 668 668 -- informationen ueber den im moment ausgewaehlten menupunkt erhalten: 669 669 -- gibt eine liste mit dem aktivierten menupunkt zurueck … … 685 685 end 686 686 687 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx687 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 688 688 689 689 on mScrollMenuByLine me, val … … 702 702 end 703 703 704 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx704 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 705 705 -- eine zeile auswaehlen: 706 706 … … 763 763 764 764 765 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx766 767 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx765 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 766 767 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 768 768 -- einen ordner oeffnen / schliessen: 769 769 … … 776 776 777 777 778 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx779 780 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx778 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 779 780 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 781 781 -- Update Rect (after scale or move): 782 782 … … 824 824 end 825 825 826 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx826 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 827 827 828 828 -- relative: … … 837 837 end 838 838 839 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx839 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 840 840 841 841 on mGetMyRect me … … 845 845 846 846 847 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx847 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 848 848 849 849 on mGetOnScreenRect me, aNode … … 869 869 870 870 871 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx871 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 872 872 873 873 -- -- entscheiden, ob bewegen oder skalieren, abhaengig von linker seite des menus => < -2 bedeutet menu ist noch nicht ganz ausgefahren … … 893 893 --end 894 894 895 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx895 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 896 896 897 897 … … 908 908 909 909 910 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx910 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 911 911 912 912 on mStopItemDragHighLight me … … 914 914 end 915 915 916 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx916 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 917 917 918 918 on mStartItemDragHighLight me … … 923 923 924 924 925 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx925 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 926 926 on ___________PRIVATE_EVENTS 927 927 end 928 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx928 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 929 929 930 930 … … 939 939 end 940 940 941 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx941 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 942 942 943 943 on mHitOrdner me, eineID, eineListe, eineZeile, openCloseAction -- click on a 'folder' … … 958 958 959 959 960 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx960 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 961 961 -- internes mouse event handling: 962 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx963 964 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx962 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 963 964 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 965 965 -- rollover a line: 966 966 … … 1095 1095 1096 1096 1097 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1097 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1098 1098 on ___________UPDATE_EVENTS 1099 1099 end 1100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1101 1101 1102 1102 -- updaten … … 1107 1107 end 1108 1108 1109 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1109 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1110 1110 1111 1111 … … 1138 1138 1139 1139 1140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1141 1141 on ___________INIT_VARIABLES 1142 1142 end 1143 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1144 1145 1146 1147 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1143 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1144 1145 1146 1147 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1148 1148 1149 1149 on mSetUpProps me … … 1348 1348 end 1349 1349 1350 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1350 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1351 1351 1352 1352 on mInit me … … 1463 1463 -- mSetHeader prueft allerdings, ob das member existiert und reagiert entsprechend 1464 1464 1465 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1465 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1466 1466 1467 1467 … … 1597 1597 end 1598 1598 1599 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1599 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1600 1600 1601 1601 --on mSetHeader me, memname … … 1610 1610 --end 1611 1611 1612 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1612 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1613 1613 1614 1614 … … 1617 1617 -- properties dieses behviors global speichern, damit beim naechsten beginsprite dieses behaviors der alte zustand wieder hergestellt wird (z.B. bei einem sprung in ein anderes movie) 1618 1618 if objectP(pMenuProps) then 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1619 if pMenuProps.getaprop(#saveProps) then 1620 global gSicherprop 1621 gSicherprop = [] 1622 anzahl = count(me) 1623 repeat with n = 1 to anzahl 1624 gSicherprop.add(me[n]) 1625 end repeat 1626 else 1627 -- if (the actorlist).getOne(me) then (the actorlist).deleteOne(me) -- nur zur sicherheit 1628 end if 1629 -- (the actorlist).deleteOne(me) 1630 1630 end if 1631 1631 … … 1645 1645 end 1646 1646 1647 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1647 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1648 1648 on ___________USER_INPUT_EVENTS 1649 1649 end 1650 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1650 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1651 1651 1652 1652 on mMouseOverMe me, absloc … … 1654 1654 end 1655 1655 1656 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1656 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1657 1657 1658 1658 on myMouseUp me … … 1676 1676 end 1677 1677 1678 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1678 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1679 1679 1680 1680 on myMouseDown me -- only needed for the scrollbar … … 1698 1698 end 1699 1699 1700 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1700 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1701 1701 1702 1702 on myMouseWithin me -- rollover checken und checken, ob ein overlay gezeigt werden muss fuer ueberschriften, die nicht passen … … 1735 1735 end 1736 1736 1737 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1737 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1738 1738 1739 1739 on myMouseLeave me … … 1757 1757 1758 1758 1759 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1759 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1760 1760 on ___________TIMOUT_EVENTS 1761 1761 end 1762 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1762 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1763 1763 1764 1764 -- grosse textmaske bauen mit einem delay (in einem zweiten schritt -> um die zeitverzoegerung erst zu haben, wenn das sichtbare schon dargestellt wird … … 1773 1773 1774 1774 1775 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1775 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1776 1776 on ___________SCROLLBAR_HANDLING 1777 1777 end 1778 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1779 1780 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1778 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1779 1780 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1781 1781 -- FROM SCROLLBAR: 1782 1782 … … 1788 1788 end 1789 1789 1790 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1790 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1791 1791 1792 1792 on mRedrawMenu me … … 1795 1795 end 1796 1796 1797 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1797 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1798 1798 1799 1799 on mUpdateScrollImage me, newImg, caller, dontUpdate … … 1833 1833 end 1834 1834 1835 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1835 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1836 1836 -- TO SCROLLBAR: 1837 1837 … … 1859 1859 end 1860 1860 1861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1862 1862 1863 1863 on mGetScrollerRect me, oldRect … … 1879 1879 end 1880 1880 1881 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1881 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1882 1882 1883 1883 … … 1888 1888 end 1889 1889 1890 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1890 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1891 1891 1892 1892 -- aufruf an das scrollbehavior senden, wenn noetig: … … 1903 1903 if pMyScrollBarScript.mGetEnabled() <> 1 then 1904 1904 mUpdateScrollBarRect me 1905 1905 pMyScrollBarScript.SetEnabled(1) 1906 1906 end if 1907 1907 … … 1929 1929 end 1930 1930 1931 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1931 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1932 1932 1933 1933 on mGetScrollerWidth me … … 1939 1939 end 1940 1940 1941 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1941 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1942 1942 1943 1943 on mTryToScroll me, val … … 1955 1955 1956 1956 1957 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1957 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1958 1958 on ___________TOOLTIP_HANDLING 1959 1959 end 1960 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1961 1962 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1960 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1961 1962 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1963 1963 -- 'overlay' fuer zeilen die breiter sind als das menu: 1964 1964 -- wird erst nach einem delay (timeout) aufgerufen … … 2138 2138 2139 2139 if ilk(hgfarbe) = #color then 2140 2140 ttimg.fill(ttimg.rect, hgfarbe) 2141 2141 else if hgfarbe = #image then 2142 2142 ttimg.copypixels(hgfarbe, ttimg.rect, hgfarbe.rect) … … 2176 2176 end 2177 2177 2178 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2179 2180 2181 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2178 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2179 2180 2181 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2182 2182 on ___________SELECTION_HANDLING 2183 2183 end 2184 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2184 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2185 2185 2186 2186 … … 2204 2204 end 2205 2205 2206 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2206 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2207 2207 2208 2208 on mDeselectAllLines me … … 2214 2214 end 2215 2215 2216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2217 2218 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2217 2218 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2219 2219 -- internes mouseUp handlling: 2220 2220 on mKlick me, einloc … … 2259 2259 end 2260 2260 2261 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2261 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2262 2262 2263 2263 … … 2348 2348 end 2349 2349 2350 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2350 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2351 2351 2352 2352 on mOpenCloseNode me, diesezeile, updateImages, broadcastEvent … … 2422 2422 2423 2423 2424 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2424 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2425 2425 -- rekursiver handler fuer mShowItembyID() 2426 2426 … … 2476 2476 end 2477 2477 2478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2479 2479 2480 2480 -- rekursiver handler um alle ordner zu oeffnen oder zu schliessen, wird von mCloseAll() verwendet … … 2505 2505 2506 2506 2507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2508 2508 on ___________SETUP_SOURCE_LIST 2509 2509 end 2510 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2510 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2511 2511 2512 2512 … … 2529 2529 2530 2530 2531 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2531 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2532 2532 2533 2533 on mToggleProp me, untermenu, zustand, propname, rek -- rekursiver handler um alle unterordner zu togglen … … 2568 2568 end 2569 2569 2570 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2570 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2571 2571 -- old ? not in use ? 2572 2572 … … 2582 2582 end 2583 2583 2584 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2585 2586 2587 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2584 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2585 2586 2587 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2588 2588 on mCleanUpList me, itemliste, ind, tiefe, deleteFontImages --, theParent 2589 2589 -- pSelectedLine = [] … … 2814 2814 end 2815 2815 2816 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2816 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2817 2817 2818 2818 … … 2830 2830 end 2831 2831 2832 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2832 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2833 2833 2834 2834 on mCopyOffenState me, fromList, toList, p1, p2 … … 2877 2877 end 2878 2878 2879 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2879 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2880 2880 2881 2881 on mFuellVerschItems me, itemliste, ind, retliste, maxlaenge -- ind faengt an mit 1/100.0 … … 2925 2925 end 2926 2926 2927 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2927 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2928 2928 2929 2929 … … 3072 3072 end 3073 3073 3074 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3074 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3075 3075 3076 3076 on mBestimmIDlaenge me, eineid … … 3078 3078 end 3079 3079 3080 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3080 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3081 3081 3082 3082 on mBestimmstelle me, eineid -- wieviele nullen haengen hinten an eineid … … 3087 3087 end 3088 3088 3089 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3090 3091 3092 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3089 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3090 3091 3092 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3093 3093 on ___________RENDER_MENU 3094 3094 end 3095 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3096 3097 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3095 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3096 3097 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3098 3098 -- menu bauen und darstellen 3099 3099 … … 3124 3124 end 3125 3125 3126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3127 3127 3128 3128 on mDrawMenu me, needUpd, resizeFlag … … 3358 3358 3359 3359 3360 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3361 3362 3363 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3360 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3361 3362 3363 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3364 3364 -- benoetigte images erstellen oder veraendern 3365 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3365 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3366 3366 3367 3367 on mDrawBackground me … … 3429 3429 end 3430 3430 3431 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3431 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3432 3432 3433 3433 on mDrawIconsAndLines me … … 3518 3518 --------------------------------- 3519 3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532 3533 3520 if usealternateColor then 3521 if n mod 2 then 3522 derlocVHL = pZeilenhoehe * (n - pScrollOffset) 3523 tr = rect(0, (derlocVHL + obenoffset + 1), (pBuffImg.rect.right - 1), (derlocV + 1 + obenoffset - pMenuProps.getaprop(#myLineWidth))) 3524 pBuffImg.fill(tr, alternateColor) 3525 if usealph then 3526 pAlphaImage.fill(tr, rgb(0,0,0)) 3527 end if 3528 treeviewdata.setaprop(#alternatecolor, 1) 3529 else 3530 treeviewdata.setaprop(#alternatecolor, 0) 3531 end if 3532 end if 3533 3534 3534 end if 3535 3535 … … 3750 3750 if ilk(pStrichel) = #image then 3751 3751 3752 3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3752 -- strichellinie: 3753 -- strichzahl = templiste.stelleH - 1 3754 strichzahl = stelleH - 1 3755 3756 oben = derlocV + obenoffset - pZeilenhoehe 3757 unten = oben + pStrichel.rect.height 3758 links = STRlinks 3759 3760 if ilk(pAlphaImage) = #image then 3761 3762 repeat with z = 1 to strichzahl 3763 pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect) 3764 pAlphaImage.copyPixels(pStrichelAlpha, rect(links, oben, (links + 1), unten), pStrichel.rect, [#ink:#darkest]) 3765 links = links + tabAbstand 3766 end repeat 3767 3768 else 3769 repeat with z = 1 to strichzahl 3770 pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect) 3771 links = links + tabAbstand 3772 end repeat 3773 end if 3774 3775 3775 end if 3776 3776 … … 3802 3802 end 3803 3803 3804 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3804 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3805 3805 3806 3806 on mDrawText me … … 3857 3857 end 3858 3858 3859 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3860 3861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3859 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3860 3861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3862 3862 on ___________CREATE_IMAGES 3863 3863 end 3864 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3864 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3865 3865 3866 3866 … … 4010 4010 end 4011 4011 4012 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4012 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4013 4013 4014 4014 on mBuildBigImg me … … 4210 4210 end 4211 4211 4212 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4213 4214 4215 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4212 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4213 4214 4215 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4216 4216 -- icons vorbereiten: 4217 4217 … … 4222 4222 end 4223 4223 4224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4225 4225 4226 4226 on mCreateGrayImg me, img … … 4230 4230 end 4231 4231 4232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4233 4233 4234 4234 on mCreateIconList me, theImg … … 4265 4265 end 4266 4266 4267 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4268 4269 4270 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4267 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4268 4269 4270 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4271 4271 -- ordner-Zu /-Auf dreiecke vorbereiten: 4272 4272 … … 4300 4300 end 4301 4301 4302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4303 4304 4305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4303 4304 4305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4306 4306 -- gestrichelte senkrechte vorbereiten: 4307 4307 … … 4339 4339 end 4340 4340 4341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4342 4342 4343 4343 on mFillPatternImage me, img, patternImg … … 4357 4357 end 4358 4358 4359 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4359 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4360 4360 -- ende images erstellen und zeichnen 4361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4362 4363 4364 4365 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4362 4363 4364 4365 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4366 4366 -- text fuer das menu erstellen (mit tabulatoren): 4367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4368 4368 4369 4369 -- mit ersterchar und letzterchar, um nur das wort heighlighten zu koennen: … … 4432 4432 end 4433 4433 4434 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4434 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4435 4435 4436 4436 … … 4473 4473 end 4474 4474 4475 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4476 4477 4478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4475 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4476 4477 4478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4479 4479 -- linien ermitteln, die nicht ins bitmap passen, um dann 'tooltips' fuer diese linien zu zeigen 4480 4480 … … 4499 4499 end 4500 4500 4501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4502 4503 4504 4505 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4502 4503 4504 4505 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4506 4506 -- hilfsscripts 4507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4508 4508 4509 4509 -- gefakter datenbankaufruf zum testen … … 4516 4516 end 4517 4517 4518 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4518 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4519 4519 4520 4520 -- fontliste fuer gpdl … … 4531 4531 --end 4532 4532 4533 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4533 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx -
trunk/lingosource/castlib2/ButtonImageCreator.ls
r101 r104 1 2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3 -- xxxxxxxxxxxxxxxxxx global handlers to create images for widgets 4 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 5 -- Alex da Franca c2003 da.franca@online.de 6 7 1 -- ButtonImageCreator 2 ----------------------------------- 3 -- CREATED: 4 -- Alex da Franca c2003 alex@farbflash.de 5 -- PROPERTIES: 6 --!memberProperties: [#name: "ButtonImageCreator", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/ButtonImageCreator.ls"] 7 -- 8 -- DESCRIPTION: global handlers to create images for widgets 9 -- 10 -- REQUIRES: 11 -- - script "ImageUtilityScripts" for the handler 12 -- 13 -- USAGE: 14 -- if there is a text member named "buttontexttempl" in one of your castlibs, 15 -- its font settings will be used and override the fontsettings specified in <options> 16 -- 17 -- HISTORY: 18 -- 8 19 -- alex am 31.03.2004 um 10:00 9 20 -- mDrawButtonHG() disabled border color had a bug … … 45 56 -- Scriptmarker: changes alex (17.03.2007 at 11:49 Uhr) // Scriptmarker 46 57 -- added options.getaprop(#textoffset) to mGetButtonImages() 47 48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 49 -- xxxxxxxxxxxxxxxxxx global handlers to create images for buttons 50 -- requires script "ImageUtilityScripts" for the handler 51 52 -- if there is a text member named "buttontexttempl" in one of your castlibs, 53 -- its font settings will be used and override the fontsettings specified in <options> 58 -- EXAMPLE: 59 -- - 60 ----------------------------------- 61 62 63 on _____________________PROPERTY_DECLARATION me 64 end 65 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 66 property ancestor 67 68 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 69 on ___________________STANDARD_EVENTS me 70 end 71 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 72 73 on new me 74 Script_Root_Object = member("Script_Root_Object") 75 if ilk(Script_Root_Object) = #member then 76 if Script_Root_Object.type = #script then 77 ancestor = new(script "Script_Root_Object") 78 mSetScriptName me, "ButtonImageCreator" 79 end if 80 end if 81 return me 82 end 83 84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 85 on ___________________PUBLIC_EVENTS me 86 end 87 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 88 54 89 55 90 on mGetButtonImages me, theLabel, options, retlist … … 990 1025 991 1026 992 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1027 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 993 1028 -- xxxxxxxxxxxxxxxxxx Draw a background for the text button 994 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1029 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 995 1030 996 1031 on mDrawRoundRectButtonHG me, einrect, which, options … … 1081 1116 end 1082 1117 1083 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1084 1119 1085 1120 -- either it uses the supplied bitmap members: options[#normalImage], options[#pressedImage], options[#overImage], options[#disabledImage] … … 1089 1124 1090 1125 if ilk(options) <> #proplist then options = [:] 1126 1127 drawBorderOverBackGround = options[#drawBorderOverBackGround] 1091 1128 1092 1129 breite = einrect.width … … 1136 1173 1137 1174 1175 borderColor = options.getaprop(#pressedbordercolor) 1176 1138 1177 else if which = 5 then 1139 1178 … … 1170 1209 1171 1210 myColor = options.getaprop(#mySelectedBGColor) 1172 if ilk(myColor) <> #color then myColor = farbe - 601211 if ilk(myColor) <> #color then myColor = farbe + rgb(40,0,0) 1173 1212 c = [-150, -120, -100, -60, 30, -25, 45, -40, 15, -70, 45, -70, 35, -40, 15, -90] 1174 1213 1175 1214 borderColor = options.getaprop(#selectedbordercolor) 1176 1215 1177 1216 else … … 1191 1230 -- ullala changed for woody - mb end -- 1192 1231 end if 1232 1193 1233 end if 1194 1234 … … 1210 1250 end if 1211 1251 1212 if which = 3 then myColor = options.getaprop(#myHiliteBGColor) 1213 else myColor = duplicate(farbe) 1252 if which = 3 then 1253 myColor = options.getaprop(#myHiliteBGColor) 1254 borderColor = options.getaprop(#hilitebordercolor) 1255 else 1256 myColor = duplicate(farbe) 1257 borderColor = options.getaprop(#bordercolor) 1258 end if 1214 1259 if ilk(myColor) <> #color then myColor = duplicate(farbe) 1215 1260 … … 1231 1276 if theBevel = 0 then -- not beveled => 2-D style 1232 1277 1278 drawBorderOverBackGround = 0 1233 1279 rahmenbreite = options.getaprop(#borderwidth) 1234 1280 if not voidP(rahmenbreite) then 1235 1281 if rahmenbreite > 0 then 1282 1236 1283 if which = 2 then 1237 1284 rahmenfarbe = options.getaprop(#pressedbordercolor) … … 1261 1308 1262 1309 else if theBevel = 4 then -- rounded button -> OS 9 stylish 1310 1311 drawBorderOverBackGround = 0 1263 1312 1264 1313 tempImg.fill(trect, myColor) … … 1313 1362 else -- beveled button -> windows stylish 3-D 1314 1363 1364 drawBorderOverBackGround = 0 1365 1315 1366 tempImg.fill(trect, myColor + c[1]) -- left up outline 1316 1367 … … 1357 1408 else 1358 1409 vorlage = options.getaprop(#disabledImage) 1410 bordercolor = options.getaprop(#disabledbordercolor) 1359 1411 1360 1412 if ilk(vorlage) <> #image then … … 1392 1444 end if 1393 1445 1394 1395 1446 if ilk(vorlage) <> #image then 1396 1447 … … 1401 1452 if ilk(myColor) <> #color then myColor = farbe + 20 1402 1453 1454 drawBorderOverBackGround = 0 1403 1455 rahmenbreite = options.getaprop(#borderwidth) 1404 1456 if not voidP(rahmenbreite) then … … 1430 1482 1431 1483 1484 if drawBorderOverBackGround = 1 then 1485 1486 borderwidth = options.getaprop(#borderwidth) 1487 if not voidP(borderwidth) then 1488 if borderwidth > 0 then 1489 if ilk(borderColor) <> #color then borderColor = options.getaprop(#bordercolor) 1490 if ilk(borderColor) = #color then 1491 tempImg.draw(tempImg.rect, [#color:borderColor, #shapeType:#rect, #linesize:borderwidth]) 1492 end if 1493 end if 1494 end if 1495 1496 end if 1497 1432 1498 return tempImg 1433 1499 end 1434 1500 1435 1501 1436 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1502 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1437 1503 1438 1504 on mCreateDropDownTriangle me, rHeight … … 1469 1535 end 1470 1536 1471 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1472 1538 1473 1539 on mCreateCheckBoxButton me, theLabel, options, retlist … … 1535 1601 1536 1602 buttonIconType = options.getaprop(#buttonIcon) 1537 1603 if voidP(buttonIconType) then buttonIconType = #checkbox 1538 1604 1539 1605 buttonIconList = [:] … … 1573 1639 end if 1574 1640 1575 buttonIconW = hoehe - marginV*21641 buttonIconW = hoehe * 0.7 - marginV*2 1576 1642 buttonIcon = image(buttonIconW, buttonIconW, 32, 1) 1577 1643 buttonIcon.fill(buttonIcon.rect, fontfarbe) … … 1861 1927 1862 1928 1929 ----------- now just add the property names of the table script and the buttonscript 1930 retlist.addProp(#myContent, retlist[#normal]) 1931 retlist.addProp(#myNormalImage, retlist[#normal]) 1932 retlist.addProp(#myPressImage, retlist[#pressed]) 1933 retlist.addProp(#myOverImage, retlist[#hilite]) 1934 retlist.addProp(#myDisabledImage, retlist[#disabled]) 1935 retlist.addProp(#mySelectedImage, retlist[#selected]) 1936 ---------------------------------------------------------- 1937 1938 1863 1939 return retlist 1864 1940 end 1865 1941 1866 1942 1867 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1943 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1868 1944 1869 1945 on interface me 1870 1946 str = "Button Image Creator Script by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 1871 1947 1872 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1948 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1873 1949 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1874 1950 put RETURN & "on mGetButtonImages me, theLabel, options, retlist" after str 1875 1951 put RETURN & "" after str 1876 1952 1877 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1953 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1878 1954 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1879 1955 put RETURN & "on mDrawRoundRectButtonHG me, einrect, which, options" after str 1880 1956 put RETURN & "" after str 1881 1957 1882 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1958 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1883 1959 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1884 1960 put RETURN & "on mDrawButtonHG me, einrect, which, options" after str 1885 1961 put RETURN & "" after str 1886 1962 1887 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1963 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1888 1964 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1889 1965 put RETURN & "on mCreateDropDownTriangle me, rHeight" after str 1890 1966 put RETURN & "" after str 1967 1968 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1969 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1970 put RETURN & "on mCreateCheckBoxButton me, theLabel, options, retlist" after str 1971 put RETURN & "" after str 1972 1891 1973 return str 1892 1974 end -
trunk/lingosource/castlib2/ButtonManager.ls
r101 r104 7 7 -- Manager for GenericButtonPS Parentscript used on Bitmap sprites and 3-D Sprites 8 8 -- 9 -- Use this behavior on any dummy sprite to display a scrolling table with selectable items, text (fixed and editable) and images.10 -- It creates a temporary bitmap member, which is used to display the table on the stage.11 -- Specify the contents and appearance of the table in two property lists, which you pass to the mShowTable handler12 -- Use a copy of the parentscript "TableOptionsliste" to build these two lists and receive events from the table9 -- Use this behavior on any dummy sprite to display a scrolling table with selectable items, text (fixed and editable) and images. 10 -- It creates a temporary bitmap member, which is used to display the table on the stage. 11 -- Specify the contents and appearance of the table in two property lists, which you pass to the mShowTable handler 12 -- Use a copy of the parentscript "TableOptionsliste" to build these two lists and receive events from the table 13 13 -- 14 14 -- REQUIRES: … … 86 86 -- -- -- possible events are: #mouseUp, #mouseDown, #mouseEnter, #mouseLeave 87 87 88 ----------------------------------- 88 89 90 --------------------------------- 91 -- Scriptmarker (25.10.2010): changes alex // Scriptmarker 92 -- added new property pApplicationHasFocus to keep track of the application activated state 93 -- didn't want to use pPause nor pKeyPollingDisabled, because these both can perhaps have been used by other scripts 94 -- to temporarely disable functionality in order not to mess with their current state, 95 -- I introduced this new indepenedant property pApplicationHasFocus, which will be triggered by the 96 -- dactivateApplication/activateApplication and deactivateWindow/activateWindow top level events, which must 97 -- be triggered by a movie script and send those events to all Sprites! 98 -- deactivateApplicationEvent, activateApplicationEvent, deactivateWindowEvent and activateWindowEvent 99 100 -- in a moviescript: 101 ------------------------------------------ 102 --on deactivateApplication 103 -- sendAllSprites(#deactivateApplicationEvent) 104 --end 105 -- 106 --on activateApplication 107 -- sendAllSprites(#activateApplicationEvent) 108 --end 109 -- 110 --on deactivateWindow 111 -- sendAllSprites(#deactivateWindowEvent) 112 --end 113 -- 114 --on activateWindow 115 -- sendAllSprites(#activateWindowEvent) 116 --end 117 ------------------------------------------ 89 118 90 119 … … 92 121 property pKanal, pMember 93 122 94 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx123 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 95 124 -- xxxxxxxxxxxxxxxxxx PROPERTIES 96 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 97 98 property pOldKeyDown 125 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 126 99 127 property pMyScriptObject 100 128 property pAktiv … … 124 152 property pKeyboardshortcut 125 153 property pNoIcon 154 property pTooltip, pTooltipLayout, pTooltipSprite, pTooltipAlignment 126 155 127 156 -- ullala changed 05 … … 130 159 131 160 property pKeyboardshortcutList 161 property pKeyPollingDisabled -- flag whether the above list willl be processed 132 162 133 163 property pIncludes 134 164 135 136 137 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 165 property pAlreadyAddedTo3DEvntList 166 167 property pApplicationHasFocus 168 169 170 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 138 171 on _____INTERFACE 139 172 end 140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx173 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 141 174 142 175 -- on handler me … … 155 188 156 189 157 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str190 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 158 191 put RETURN & "-- USAGE:" after str 159 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str192 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 160 193 put RETURN & "" after str 161 194 put RETURN & "-- drag this behavior onto any sprite to display a button in the sprites rect" after str 162 195 put RETURN & "" after str 163 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str196 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 164 197 put RETURN & "on mAddButton me, proplist_options" after str 165 198 put RETURN & "-- create button (STARTING POINT)" after str 166 199 put RETURN & "" after str 167 200 put RETURN & "" after str 168 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str201 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 169 202 put RETURN & "on mRemoveButton me, string_tabname" after str 170 203 put RETURN & "-- remove the button" after str 171 204 put RETURN & "" after str 172 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str205 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 173 206 put RETURN & "on mHiliteMenu me, boolean_val" after str 174 207 put RETURN & "-- comes from the drop down menu, if any" after str 175 208 put RETURN & "" after str 176 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str209 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 177 210 put RETURN & "on mGetButtonProps me, string_tabname" after str 178 211 put RETURN & "-- get the propertylist of the button; e.g. to query the label etc." after str 179 212 put RETURN & "-- returns: #property list" after str 180 213 put RETURN & "" after str 181 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str214 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 182 215 put RETURN & "on mChangeLabel me, string_newLabel, string_tabname" after str 183 216 put RETURN & "-- change the text:" after str 184 217 put RETURN & "-- accepts: #string" after str 185 218 put RETURN & "" after str 186 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str219 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 187 220 put RETURN & "on mChangeLanguage me, string_tabname" after str 188 221 put RETURN & "-- special case of label change" after str … … 190 223 put RETURN & "-- accepts: #string" after str 191 224 put RETURN & "" after str 192 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str225 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 193 226 put RETURN & "on mPause me, boolean_tValue" after str 194 227 put RETURN & "" after str 195 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str228 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 196 229 put RETURN & "on mEnableButton me, boolean_val, string_tabname, list_enableAllExcept" after str 197 230 put RETURN & "-- toggle the enabled state of the button; 1 = enable, 0 = disable" after str 198 231 put RETURN & "-- accepts: #integer" after str 199 232 put RETURN & "" after str 200 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str233 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 201 234 put RETURN & "on mGetButtonEnabledState me, string_tabname" after str 202 235 put RETURN & "-- get the enabled state of the button; 1 = enabled, 0 = disabled" after str 203 236 put RETURN & "-- returns: #integer" after str 204 237 put RETURN & "" after str 205 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str238 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 206 239 put RETURN & "on mSetButtonFunction me, symbol_newFunction, string_tabname" after str 207 240 put RETURN & "-- change the event which shall be sent on mouseUp" after str 208 241 put RETURN & "-- accepts: #symbol, #string" after str 209 242 put RETURN & "" after str 210 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str243 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 211 244 put RETURN & "on mAddToButtonBroadcastlist me, instance_referenz, string_tabname" after str 212 245 put RETURN & "-- add a reference to an instance or sprite to the list of instances that get sent the event" after str 213 246 put RETURN & "-- accepts: #object, #integer" after str 214 247 put RETURN & "" after str 215 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str248 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 216 249 put RETURN & "on mRemoveFromButtonBroadcastlist me, instaance_referenz, string_tabname" after str 217 250 put RETURN & "-- remove a reference to an instance or sprite from the list of instances that get sent the event" after str 218 251 put RETURN & "-- accepts: #object, #integer" after str 219 252 put RETURN & "" after str 220 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str253 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 221 254 put RETURN & "on mGetButtonState me, string_tabname" after str 222 255 put RETURN & "-- get the selected state of the button; 1 = selected, 0 = not selected" after str 223 256 put RETURN & "-- returns: #integer" after str 224 257 put RETURN & "" after str 225 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str258 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 226 259 put RETURN & "on mSetButtonState me, integer_selState, string_tabname" after str 227 260 put RETURN & "-- set the enabled state of the button; 1 = enabled, 0 = disabled" after str 228 261 put RETURN & "-- accepts: #integer" after str 229 262 put RETURN & "" after str 230 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str263 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 231 264 put RETURN & "mTranslateButtonRect me, point_trans, string_tabname" after str 232 265 put RETURN & "" after str 233 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str266 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 234 267 put RETURN & "on mSetCurrentButtonRect me, rect_newRect, string_tabname" after str 235 268 put RETURN & "" after str 236 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str269 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 237 270 put RETURN & "on mGetCurrentButtonRect me, string_tabname" after str 238 271 put RETURN & "" after str 239 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str272 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 240 273 put RETURN & "on mSetMaxRect me, rect_newRect, object_caller" after str 241 274 put RETURN & "-- event from the resize bar behavior" after str 242 275 put RETURN & "" after str 243 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str276 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 244 277 put RETURN & "on mResizeWindow me, rect_newRect, rect-oldrect" after str 245 278 … … 250 283 251 284 252 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx285 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 253 286 on _____EVENTS 254 287 end 255 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx288 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 256 289 257 290 on new me … … 259 292 end 260 293 261 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx294 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 262 295 263 296 on beginsprite me … … 265 298 end 266 299 267 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx300 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 268 301 269 302 on mInitProperties me, pipeline 303 304 pKeyPollingDisabled = 0 305 if voidP(pApplicationHasFocus) then pApplicationHasFocus = 1 270 306 271 307 pIncludes = xscr() … … 297 333 pMember = pKanal.member 298 334 299 pAktiv = 0 335 mSetButtonScriptActive me, 0 336 300 337 pButtonList = [:] 301 338 … … 312 349 pKanal.member = pMember 313 350 314 pAktiv = 0 351 mSetButtonScriptActive me, 0 352 315 353 pButtonList = [:] 316 354 … … 326 364 pMember = pipeline 327 365 328 pAktiv =0366 mSetButtonScriptActive me, 0 329 367 pButtonList = [:] 330 368 … … 333 371 end 334 372 335 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx373 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 336 374 337 375 on endsprite me … … 339 377 end 340 378 341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx379 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 342 380 343 381 on mStopMovieWasCalled me 344 pAktiv =0345 end 346 347 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx382 mSetButtonScriptActive me, 0 383 end 384 385 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 348 386 349 387 property pAlreadyDestroying … … 360 398 -- ullala changed for woody - to end -- 361 399 362 if not voidP(pOldKeyDown) then the keyDownscript = pOldKeyDown363 364 400 if pDreiDModus then 365 401 366 402 repeat with n = count(pButtonList) down to 1 367 403 404 ---------------------------------------- process tooltip if any defined 405 hideButtonTooltip me, void, pButtonList[n] 406 ---------------------------------------- // tooltip 407 368 408 call(#mDestroy, [pButtonList[n].getaprop(#myScriptObject)]) 369 409 370 410 if pAktiv <> 0 then 411 412 camObj = pButtonList[n][#overlayCameraObject] 413 if voidP(camObj) then 371 414 camObj = pKanal.camera 415 else 416 if ilk(camObj) <> #camera then camObj = pKanal.camera 417 end if 418 372 419 tex = pMember.texture(pTextureBaseName&"_"&pButtonList[n].getaprop(#myName)) 373 420 olayIndex = mGetOlayIndex(me, camObj, tex) … … 385 432 if listP(pButtonList) then 386 433 repeat with n = count(pButtonList) down to 1 434 435 ---------------------------------------- process tooltip if any defined 436 hideButtonTooltip me, void, pButtonList[n] 437 ---------------------------------------- // tooltip 438 387 439 call(#mDestroy, [pButtonList[n].getaprop(#myScriptObject)]) 388 440 end repeat … … 404 456 end 405 457 406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx458 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 407 459 408 460 on stepframe me 461 if pApplicationHasFocus = 0 then exit 462 409 463 -- ullala changed 05 410 464 if not(pPause) then … … 412 466 413 467 if count(pButtonList) > 0 then 414 if pButtonList[1].getaprop(#repeatDownEvent) then 468 if pButtonList[1].getaprop(#repeatDownEvent) then -- we only come here, when running as 2-D sprite 415 469 if pMausDaun <> 0 then 416 470 theRect = pButtonList[1].getaprop(#myRect) … … 428 482 end 429 483 430 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx484 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 431 485 432 486 on enterframe me 487 if pApplicationHasFocus = 0 then exit 488 433 489 if not(pPause) then 434 490 491 if sendSprite(me.spritenum, #mIsModalTableOnScreen) <> 1 then 492 435 493 if count(pKeyboardshortcutlist) > 0 then 436 494 repeat with n = count(pKeyboardshortcutlist) down to 1 437 if keypressed(pKeyboardshortcutlist[n].getaprop(#keyboardshortcut)) = 1 then438 call(#myMouseDown, [pKeyboardshortcutlist[n].getaprop(#theObject)])439 495 440 pKeyboardshortcutlist[n].setaprop(#keyIsDown, 1) 496 thisShortcut = pKeyboardshortcutlist[n] 497 498 if pKeyPollingDisabled = 1 then 499 if thisShortcut.getaprop(#keyIsDown) <> 0 then 500 thisShortcut.setaprop(#keyIsDown, 0) 501 end if 441 502 442 rde = pKeyboardshortcutlist[n].getaprop(#repeatDownEvent) 503 else 504 505 if keypressed(thisShortcut.getaprop(#keyboardshortcut)) = 1 then 506 507 if thisShortcut.getaprop(#keyIsDown) <> 0 then 508 509 rde = thisShortcut.getaprop(#repeatDownEvent) 443 510 if ilk(rde) = #integer then 444 511 if rde > 0 then 445 pMausDaun = the milliseconds + rde 446 (the actorlist).deleteOne(me) 447 (the actorlist).add(me) 512 if ((the milliseconds - thisShortcut.getaprop(#keyIsDown)) > rde) then 513 call(#myMouseDown, [thisShortcut.getaprop(#theObject)]) 514 thisShortcut.setaprop(#keyIsDown, the milliseconds) 515 end if 448 516 end if 449 517 end if 450 518 451 exit repeat452 519 else 520 call(#myMouseDown, [thisShortcut.getaprop(#theObject)]) 521 thisShortcut.setaprop(#keyIsDown, the milliseconds) 522 523 end if 453 524 454 if pKeyboardshortcutlist[n].getaprop(#keyIsDown) = 1 then 455 pKeyboardshortcutlist[n].setaprop(#keyIsDown, 0) 456 call(#myMouseUp, [pKeyboardshortcutlist[n].getaprop(#theObject)]) 525 else 526 if thisShortcut.getaprop(#keyIsDown) <> 0 then 527 thisShortcut.setaprop(#keyIsDown, 0) 528 call(#myMouseUp, [thisShortcut.getaprop(#theObject)]) 457 529 end if 458 530 459 531 end if 532 533 end if 534 460 535 end repeat 461 536 end if 462 463 end if 464 end 465 466 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 537 end if 538 539 end if 540 end 541 542 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 467 543 468 544 on mouseDown me 545 focusApplication me, 1 546 469 547 -- ullala changed 05 470 548 if not(pPause) then … … 475 553 476 554 if not pAktiv then exit 477 478 sendAllSprites(#mResetKeyDownScript)479 480 -- pOldKeyDown = the keyDownscript481 -- the keyDownscript = "sendSprite("&me.spritenum&", #myKeyDown, the key, the keycode)"482 555 483 556 if count(pButtonList) then … … 499 572 end 500 573 501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx574 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 502 575 503 576 on mouseUp me … … 527 600 end 528 601 529 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx602 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 530 603 531 604 on mouseUpOutside me … … 550 623 end 551 624 552 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx625 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 553 626 554 627 on rightMouseUp me … … 566 639 end 567 640 568 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx641 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 569 642 570 643 on mouseEnter me 644 if pApplicationHasFocus = 0 then exit 645 571 646 -- ullala changed 05 572 647 if not(pPause) then … … 587 662 end 588 663 589 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx664 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 590 665 591 666 on mouseLeave me … … 617 692 end 618 693 619 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx620 621 622 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx694 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 695 696 697 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 623 698 624 699 on getPropertyDescriptionList … … 666 741 liste[#pSelected] = [#default:true, #format:#boolean, #comment:"Initially Selected ?"] 667 742 743 liste[#pTooltip] = [#default:"", #format:#string, #comment:"Tooltip text (empty for no tooltip)"] 744 liste[#pTooltipLayout] = [#default:"Tooltip_Layout_Preset", #format:#string, #comment:"Tooltip layout"] 745 liste[#pTooltipSprite] = [#default:#ttipkanal, #format:#symbol, #comment:"Tooltip sprite name"] 746 liste[#pTooltipAlignment] = [#default:#topleft, #format:#symbol, #range: [#center, #topleft, #centerLeft, #bottomLeft, #topRight, #centerRight, #bottomRight, #topCenter, #bottomCenter], #comment:"Tooltip alignment"] 747 668 748 return liste 669 749 end 670 750 671 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx751 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 672 752 673 753 on mInitProps me … … 751 831 pOptionsListe[#broadcastSprites] = broadcastSprites 752 832 833 pOptionsListe[#tooltip] = pTooltip 834 753 835 if integerP(integer(pKeyboardshortcut)) then pKeyboardshortcut = integer(pKeyboardshortcut) 754 836 else pKeyboardshortcut = string(pKeyboardshortcut) … … 764 846 765 847 766 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx848 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 767 849 on _____PUBIC_HANDLERS 768 850 end 769 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx770 771 772 773 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx851 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 852 853 854 855 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 774 856 -- xxxxxxxxxxxxxxxxxx Invoke the table (STARTING POINT) 775 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx857 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 776 858 777 859 … … 806 888 -- options[#enabled] = 1 807 889 -- options[#recalcPosition] = point(0, 0) -- reposition the button on window resize (requires script "resizeWindowScripts" to get resize event) 890 -- options[#useModel] = "modelname" -- string which should yield a model (only in 3-D mode of course) 891 -- options[#overlayCameraObject] = cameraObject -- don't use sprite.camera for the overlay created, if useModel = "" and the mode is 3-D 808 892 -- 809 893 -- spr = xscr().mGetKanal(#sceneSprite) … … 852 936 tabname = "button1" 853 937 854 if pDreiDModus then camObj = pKanal.camera 938 if pDreiDModus then 939 camObj = options[#overlayCameraObject] 940 if voidP(camObj) then 941 camObj = pKanal.camera 942 else 943 if ilk(camObj) <> #camera then camObj = pKanal.camera 944 end if 945 end if 855 946 856 947 repeat with n = count(pButtonList) down to 2 948 if count(pButtonList[n]) > 0 then 857 949 call(#mDestroy, [pButtonList[n].getaprop(#myScriptObject)]) 858 950 … … 883 975 884 976 end if 977 end if 885 978 886 979 end repeat … … 888 981 end if 889 982 890 if not(count(pButtonList)) then891 983 if pDreiDModus then 892 moname = options.getaprop(#useModel) 893 if ilk(moname) <> #string then 894 sendSprite(me.spritenum, #mAddToEventList, me, 0) 895 else 896 if not moname.length then 897 sendSprite(me.spritenum, #mAddToEventList, me, 0) 898 end if 984 moname = string(options.getaprop(#useModel)) 985 if length(moname) < 1 then -- overlay 986 if pAlreadyAddedTo3DEvntList <> 1 then 987 pAlreadyAddedTo3DEvntList = 1 988 sendSprite(me.spritenum, #mAddToEventList, me, 0, 0) -- the last param was 1 before treated as BACKDROP in the eventRouter???? 989 -- WHY was that treated as backdrop ??? 899 990 end if 900 991 end if … … 927 1018 if length(string(ks)) then 928 1019 theObject[#keyboardshortcut] = ks 929 pKeyboardshortcutList.setaprop(ks, [#theObject:theObject.getaprop(#myScriptObject), #keyboardshortcut:ks]) 930 end if 931 1020 pKeyboardshortcutList.setaprop(ks, [#theObject:theObject.getaprop(#myScriptObject), #keyboardshortcut:ks, #keyIsDown:0]) 1021 end if 932 1022 933 1023 if voidP(options.getaprop(#enabled)) then options[#enabled] = 1 … … 940 1030 941 1031 942 val = options.getaprop(#useModel) 943 if ilk(val) <> #string then 944 val = "" 945 theObject[#useModel] = val 946 end if 1032 options.setaprop(#useModel, string(options.getaprop(#useModel))) 1033 1034 theObject[#useModel] = options.getaprop(#useModel) 1035 theObject[#overlayCameraObject] = options.getaprop(#overlayCameraObject) 947 1036 948 1037 if pDreiDModus then 949 mo = pMember.model( val)1038 mo = pMember.model(options.getaprop(#useModel)) 950 1039 if not(voidP(mo)) then 951 1040 scr = pIncludes.mGetParentScriptList(mo) … … 953 1042 repeat with n = scr.count down to 1 954 1043 erg = call(#mGibLaut, [scr[n]]) 1044 1045 -- 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 1046 -- voidP(<NULL>) = false, but ilk(<NULL>) = #void therefore we force void here 1047 if ilk(erg) = #void then erg = void 1048 955 1049 if erg = 1 then exit repeat 956 1050 end repeat … … 963 1057 end if 964 1058 965 pAktiv =11059 mSetButtonScriptActive me, 1 966 1060 967 1061 -- mPut options.getaprop(#myRect) … … 971 1065 end 972 1066 973 974 975 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1067 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1068 1069 on getButtonListCount me, filterName 1070 retval = 0 1071 if not(listP(pButtonList)) then return retval 1072 filterName = string(filterName) 1073 len = length(filterName) 1074 repeat with n = count(pButtonList) down to 1 1075 this = pButtonList[n] 1076 if objectP(this) then 1077 if (count(this) > 0) then 1078 if len = 0 then 1079 retval = retval + 1 1080 else 1081 if this[#myName] <> filterName then retval = retval + 1 1082 end if 1083 end if 1084 end if 1085 end repeat 1086 return retval 1087 end 1088 1089 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 976 1090 -- xxxxxxxxxxxxxxxxxx Hide the table 977 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1091 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 978 1092 979 1093 on mRemoveButton me, tabname … … 987 1101 ----------------------------------- 988 1102 989 if not(pButtonList.count)then exit1103 if count(pButtonList) < 1 then exit 990 1104 991 1105 theObject = pButtonList.getaprop(tabname) … … 1000 1114 end if 1001 1115 1002 tblcnt = 0 1003 repeat with n = pButtonList.count down to 1 1004 if (pButtonList[n].count) and (pButtonList[n].getaprop(#myName) <> tabname) then tblcnt = tblcnt + 1 1005 end repeat 1116 tblcnt = getButtonListCount(me, tabname) 1006 1117 1007 1118 if removeAll or (tblcnt = 0) then 1008 1119 1009 if not voidP(pOldKeyDown) then 1010 the keyDownscript = pOldKeyDown 1011 pOldKeyDown = void 1012 end if 1120 -- do clean up, if no button is displayed anymore (used to be here to reset the keyDownScript) 1013 1121 1014 1122 end if … … 1021 1129 call(#mDestroy, [theObject.getaprop(#myScriptObject)]) 1022 1130 1023 if (tblcnt = 0) then pAktiv = 0 1131 if (tblcnt = 0) then mSetButtonScriptActive me, 0 1132 1133 ---------------------------------------- process tooltip if any defined 1134 hideButtonTooltip me, void, theObject 1135 ---------------------------------------- // tooltip 1024 1136 1025 1137 if pDreiDModus then … … 1038 1150 end if 1039 1151 else 1152 camObj = theObject[#overlayCameraObject] 1153 if voidP(camObj) then 1040 1154 camObj = pKanal.camera 1155 else 1156 if ilk(camObj) <> #camera then camObj = pKanal.camera 1157 end if 1041 1158 1042 1159 tex = pMember.texture(pTextureBaseName&"_"&theObject.getaprop(#myName)) … … 1049 1166 end if 1050 1167 1051 if (tblcnt = 0) then sendSprite(me.spritenum, #mRemoveFromEventList, me) 1168 if (tblcnt = 0) then 1169 if pAlreadyAddedTo3DEvntList = 1 then sendSprite(me.spritenum, #mRemoveFromEventList, me) 1170 pAlreadyAddedTo3DEvntList = 0 1171 end if 1052 1172 1053 1173 else … … 1073 1193 end 1074 1194 1075 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1195 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1076 1196 -- this is on old handler which is left here for compatibility reasons for my own old movies 1077 -- use mHideTable() instead1197 -- use mHideTable() instead 1078 1198 on mABoxVerschwinde me 1079 1199 mRemoveButton me 1080 1200 end 1081 1201 1082 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1202 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1083 1203 -- -- comes from the drop down menu, if any 1084 1204 … … 1087 1207 end 1088 1208 1089 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1209 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1090 1210 -- xxxxxxxxxxxxxxxxxx Public Handlers to change, control or get the button contents and properties 1091 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1211 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1092 1212 1093 1213 … … 1100 1220 ----------------------------------- 1101 1221 1102 if not(pButtonList.count)then return 01103 1104 return objectP(pButtonList.getaprop(tabname))1105 1106 end 1107 1108 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1222 if getButtonListCount(me) = 0 then return 0 1223 this = pButtonList.getaprop(tabname) 1224 if objectP(this) then return count(this) > 0 1225 return 0 1226 end 1227 1228 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1109 1229 1110 1230 on mCheckMouseInsideButton me, tabname … … 1118 1238 end 1119 1239 1120 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1240 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1121 1241 1122 1242 … … 1128 1248 ----------------------------------- 1129 1249 1130 if not( pButtonList.count) then return [:]1250 if not(count(pButtonList)) then return [:] 1131 1251 1132 1252 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1138 1258 end 1139 1259 1140 1141 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1260 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1261 1262 on mChangeButtonImages me, newImageList, tabname 1263 ----------------------------------- 1264 -- ACTION: change all buttonImages of the button -> using a proplist of the format: 1265 -- [#normal:img, #pressed:img, #hilite:img, #disabled:img, #selected:img] 1266 -- INPUT: <newImageList> ; proplist or list ; new button images 1267 -- format: must be at least 4 image obejcts in the first 4 slots of the list 1268 -- [#normal:img, #pressed:img, #hilite:img, #disabled:img, #selected:img] 1269 -- <tabname> ; string ; name of the button we want to address 1270 -- RETURNS: - 1271 ----------------------------------- 1272 1273 if ilk(newImageList) <> #proplist then exit 1274 1275 if count(pButtonList) < 1 then exit 1276 1277 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) 1278 else theObject = 0 1279 if ilk(theObject) <> #proplist then theObject = pButtonList[1] 1280 call(#mChangeButtonImages, [theObject.getaprop(#myScriptObject)], newImageList) 1281 1282 end 1283 1284 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1142 1285 1143 1286 on mChangeLabel me, newLabel, tabname 1144 1287 ----------------------------------- 1145 1288 -- ACTION: change the button label text => re-render the text and redraw the images 1146 -- INPUT: <newLabel> ; string ; new label1289 -- INPUT: <newLabel> ; string or image object ; new label 1147 1290 -- <tabname> ; string ; name of the button we want to address 1148 1291 -- RETURNS: - 1149 1292 ----------------------------------- 1150 1293 1151 if ilk(newLabel) <> #stringthen exit1152 1153 if not(pButtonList.count)then exit1294 if [#string,#image].getPos(ilk(newLabel)) < 1 then exit 1295 1296 if count(pButtonList) < 1 then exit 1154 1297 1155 1298 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1160 1303 end 1161 1304 1162 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1163 1306 1164 1307 on mChangeLanguage me, tabname 1165 1308 ----------------------------------- 1166 1309 -- ACTION: special case of label change 1167 --if mTranslate() yields another result the labels will change1310 -- if mTranslate() yields another result the labels will change 1168 1311 -- the new label will be determined by the "global" handler mTranslate() 1169 1312 -- mTranslate is a handler of "commonMovieScript" … … 1172 1315 ----------------------------------- 1173 1316 1174 if not(pButtonList.count)then exit1317 if count(pButtonList) < 1 then exit 1175 1318 1176 1319 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1180 1323 end 1181 1324 1182 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1325 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1183 1326 1184 1327 on mPause me, tValue … … 1195 1338 end 1196 1339 1197 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1340 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1198 1341 1199 1342 on mEnableButton me, val, tabname, alleAusser … … 1208 1351 ----------------------------------- 1209 1352 1210 if not(pButtonList.count)then exit1353 if count(pButtonList) < 1 then exit 1211 1354 1212 1355 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1214 1357 1215 1358 if (ilk(theObject) <> #proplist) or (alleAusser = 1) then 1216 repeat with n = pButtonList.countdown to 11359 repeat with n = count(pButtonList) down to 1 1217 1360 if (alleAusser = 1) then 1218 1361 if listP(tabname) then 1219 1362 if tabname.getPos(pButtonList.getpropAt(n)) < 1 then 1363 1364 ---------------------------------------- process tooltip if any defined 1365 hideButtonTooltip me, void, pButtonList[n] 1366 ---------------------------------------- // tooltip 1367 1220 1368 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1221 1369 end if 1222 1370 else 1223 1371 if theObject <> pButtonList[n] then 1372 1373 ---------------------------------------- process tooltip if any defined 1374 hideButtonTooltip me, void, pButtonList[n] 1375 ---------------------------------------- // tooltip 1376 1224 1377 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1225 1378 end if … … 1228 1381 if listP(tabname) then 1229 1382 if tabname.getPos(pButtonList.getpropAt(n)) > 0 then 1383 1384 ---------------------------------------- process tooltip if any defined 1385 hideButtonTooltip me, void, pButtonList[n] 1386 ---------------------------------------- // tooltip 1387 1230 1388 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1231 1389 end if 1232 1390 else 1391 1233 1392 theObject = pButtonList[n] 1393 1394 ---------------------------------------- process tooltip if any defined 1395 hideButtonTooltip me, void, theObject 1396 ---------------------------------------- // tooltip 1397 1234 1398 call(#mEnableMe, [theObject.getaprop(#myScriptObject)], val) 1235 1399 end if … … 1237 1401 end repeat 1238 1402 else 1403 1404 1405 ---------------------------------------- process tooltip if any defined 1406 hideButtonTooltip me, void, theObject 1407 ---------------------------------------- // tooltip 1408 1239 1409 call(#mEnableMe, [theObject.getaprop(#myScriptObject)], val) 1240 1410 end if 1241 1411 end 1242 1412 1243 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1244 1414 1245 1415 on mGetButtonEnabledState me, tabname … … 1251 1421 ----------------------------------- 1252 1422 1253 if not( pButtonList.count) then return 01423 if not(count(pButtonList)) then return 0 1254 1424 1255 1425 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1261 1431 1262 1432 1263 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1433 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1264 1434 -- 1265 1435 -- accepts: #symbol, #string … … 1277 1447 ----------------------------------- 1278 1448 1279 if not(pButtonList.count)then exit1449 if count(pButtonList) < 1 then exit 1280 1450 1281 1451 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1289 1459 end 1290 1460 1291 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1461 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1292 1462 -- 1293 1463 -- accepts: #list … … 1306 1476 if not(listP(newBroadCastList)) then exit 1307 1477 1308 if not(pButtonList.count)then exit1478 if count(pButtonList) < 1 then exit 1309 1479 1310 1480 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1318 1488 end 1319 1489 1320 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1490 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1321 1491 -- 1322 1492 -- accepts: … … 1331 1501 ----------------------------------- 1332 1502 1333 if not(pButtonList.count)then exit1503 if count(pButtonList) < 1 then exit 1334 1504 1335 1505 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1342 1512 end 1343 1513 1344 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1514 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1345 1515 1346 1516 on mRemoveFromButtonBroadcastlist me, referenz, tabname … … 1353 1523 ----------------------------------- 1354 1524 1355 if not(pButtonList.count)then exit1525 if count(pButtonList) < 1 then exit 1356 1526 1357 1527 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1365 1535 end 1366 1536 1367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1368 1538 -- 1369 1539 … … 1382 1552 if not(listP(newEventList)) then exit 1383 1553 1384 if not(pButtonList.count)then exit1554 if count(pButtonList) < 1 then exit 1385 1555 1386 1556 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1394 1564 end 1395 1565 1396 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1566 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1397 1567 -- 1398 1568 -- -- -- events which can be processed are: #mouseUp, #mouseDown, #mouseEnter, #mouseLeave … … 1409 1579 ----------------------------------- 1410 1580 1411 if not(pButtonList.count)then exit1581 if count(pButtonList) < 1 then exit 1412 1582 1413 1583 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1427 1597 end 1428 1598 1429 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1599 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1430 1600 1431 1601 on mRemoveFromEventsToProcessList me, theEvent, tabname … … 1439 1609 ----------------------------------- 1440 1610 1441 if not(pButtonList.count)then exit1611 if count(pButtonList) < 1 then exit 1442 1612 1443 1613 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1456 1626 end 1457 1627 1458 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1628 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1629 1630 on mGetButtonStatus me, tabname 1631 ----------------------------------- 1632 -- ACTION: get the state of the button (#normal, #rollover, #pressed, #disabled) 1633 -- INPUT: <tabname> ; string ; name of the button we want to address 1634 -- RETURNS: symbol ; range: #normal, #rollover, #pressed, #disabled 1635 ----------------------------------- 1636 1637 if not(count(pButtonList)) then return 0 1638 1639 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) 1640 else theObject = 0 1641 if ilk(theObject) <> #proplist then theObject = pButtonList[1] 1642 return call(#mGetStatus, [theObject.getaprop(#myScriptObject)]) 1643 1644 end 1645 1646 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1459 1647 1460 1648 on mGetButtonState me, tabname … … 1465 1653 ----------------------------------- 1466 1654 1467 if not( pButtonList.count) then return 01655 if not(count(pButtonList)) then return 0 1468 1656 1469 1657 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1474 1662 end 1475 1663 1476 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1664 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1477 1665 1478 1666 on mSetButtonState me, selState, tabname … … 1485 1673 ----------------------------------- 1486 1674 1487 if not(pButtonList.count)then exit1675 if count(pButtonList) < 1 then exit 1488 1676 1489 1677 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1507 1695 1508 1696 1509 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1697 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1510 1698 1511 1699 on mTranslateAllButtonRects me, delta … … 1523 1711 1524 1712 1525 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1713 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1526 1714 1527 1715 on mTranslateButtonRect me, trans, tabname … … 1534 1722 ----------------------------------- 1535 1723 1536 if not(pButtonList.count)then exit1724 if count(pButtonList) < 1 then exit 1537 1725 1538 1726 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1541 1729 call(#mTranslateRect, [theObject.getaprop(#myScriptObject)], trans) 1542 1730 1731 ---------------------------------------- process tooltip if any defined 1732 hideButtonTooltip me, void, theObject 1733 ---------------------------------------- // tooltip 1734 1543 1735 if not pDreiDModus then sendSprite(me.spritenum, #mRefreshResizeTargetRect, call(#mGetCurrentRect, [theObject.getaprop(#myScriptObject)])) 1544 1736 end 1545 1737 1546 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1738 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1547 1739 1548 1740 on mSetCurrentButtonRect me, newRect, tabname … … 1556 1748 ----------------------------------- 1557 1749 1558 if not(pButtonList.count)then exit1750 if count(pButtonList) < 1 then exit 1559 1751 1560 1752 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1563 1755 call(#mSetCurrentRect, [theObject.getaprop(#myScriptObject)], newRect) 1564 1756 1757 ---------------------------------------- process tooltip if any defined 1758 hideButtonTooltip me, void, theObject 1759 ---------------------------------------- // tooltip 1760 1565 1761 if not pDreiDModus then sendSprite(me.spritenum, #mRefreshResizeTargetRect, call(#mGetCurrentRect, [theObject.getaprop(#myScriptObject)])) 1566 1762 end 1567 1763 1568 1764 1569 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1765 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1570 1766 1571 1767 on mGetCurrentButtonRect me, tabname … … 1577 1773 ----------------------------------- 1578 1774 1579 if not( pButtonList.count) then return 01775 if not(count(pButtonList)) then return 0 1580 1776 1581 1777 if not voidP(tabname) then table = pButtonList.getaprop(tabname) … … 1588 1784 end 1589 1785 1590 1591 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1786 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1787 1788 on mSetButtonScriptActive me, val 1789 ----------------------------------- 1790 -- ACTION: dis/enable this buttonscript (for example, if a modal dialog is on screen we want to disable all buttons) 1791 -- in 2-D this normally happens via the frissevnet script, which blocks events, but in 3-D we track the mouse 1792 -- for rollovers "ourselves" in the enterframe event of this script, so we need to disable it temporarely 1793 -- INPUT: <val> ; integer (boolean) ; 1 -> enables and 0 -> disables. In case of 1, we do NOT enable, 1794 -- if there is no button in the list 1795 -- RETURNS: - 1796 ----------------------------------- 1797 1798 if val = 1 then 1799 tblcnt = getButtonListCount(me) 1800 if tblcnt < 1 then exit 1801 end if 1802 pAktiv = val 1803 end 1804 1805 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1806 1807 on mGetTooltipObject me, string_buttonName 1808 ----------------------------------- 1809 -- CREATED: 17.04.2010 1810 -- ACTION: Get the entire tooltip object. 1811 -- Tooltip object is a property list with the follwoing properties: 1812 -- * #label ; string ; the text of the tooltip 1813 -- * #tooltipsprite ; symbol or string ; the name of the sprite to use. 1814 -- optional - default: #ttipkanal 1815 -- * #layoutpreset ; string ; the layoutpreset (buttonlayout) for the appearance 1816 -- of the tooltip ; optional - default: "Tooltip_Layout_Preset" 1817 -- INPUT: <string_buttonName> ; string ; name of the button we want to address 1818 -- RETURNS: property list 1819 -- EXAMPLE: sprNum = xscr().mGetKanal(#sceneSprite) 1820 -- tooltipObject = sendSprite(sprNum, #mGetTooltipObject, "closeButton") 1821 ----------------------------------- 1822 1823 button = getButtonObjectByName(me, string_buttonName) 1824 if not(objectP(button)) then return void 1825 1826 scrObj = button.getaprop(#myScriptObject) 1827 if ilk(scrObj) <> #instance then return void 1828 1829 buttonOptions = scrObj.mGetOptionsList() 1830 1831 tooltip = buttonOptions.getaprop(#tooltip) 1832 if voidP(tooltip) then return void 1833 1834 if ilk(tooltip) <> #proplist then 1835 tooltip = [#label:tooltip] 1836 buttonOptions[#tooltip] = tooltip 1837 end if 1838 1839 return tooltip 1840 end 1841 1842 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1843 1844 on mSetTooltipObject me, proplist_TooltipObject, string_buttonName 1845 ----------------------------------- 1846 -- CREATED: 17.04.2010 1847 -- ACTION: Set the entire tooltip object 1848 -- (or only the label (text), if the <proplist_TooltipObject> is NOT a property list) 1849 -- Tooltip object is a property list with the follwoing properties: 1850 -- * #label ; string ; the text of the tooltip 1851 -- * #tooltipsprite ; symbol or string ; the name of the sprite to use. 1852 -- optional - default: #ttipkanal 1853 -- * #layoutpreset ; string ; the layoutpreset (buttonlayout) for the appearance 1854 -- of the tooltip ; optional - default: "Tooltip_Layout_Preset" 1855 -- INPUT: <proplist_TooltipObject> ; proplist ; 1856 -- <string_buttonName> ; string ; name of the button we want to address 1857 -- optional default: first button in list (use on 2-D sprite) 1858 -- RETURNS: - 1859 -- EXAMPLE: sprNum = xscr().mGetKanal(#sceneSprite) 1860 -- -- -- either: 1861 -- tooltipObject = sendSprite(sprNum, #mGetTooltipObject, "closeButton") 1862 -- tooltipObject[#label] = "A new tooltip" 1863 -- sendSprite(sprNum, #mSetTooltipObject, tooltipObject, "closeButton") 1864 -- -- -- or: 1865 -- sendSprite(sprNum, #mSetTooltipObject, "A new tooltip", "closeButton") 1866 ----------------------------------- 1867 1868 button = getButtonObjectByName(me, string_buttonName) 1869 if not(objectP(button)) then exit 1870 1871 scrObj = button.getaprop(#myScriptObject) 1872 if ilk(scrObj) <> #instance then exit 1873 1874 buttonOptions = scrObj.mGetOptionsList() 1875 1876 if ilk(proplist_TooltipObject) <> #proplist then 1877 tooltip = buttonOptions.getaprop(#tooltip) 1878 if ilk(tooltip) <> #proplist then tooltip = [:] 1879 tooltip[#label] = proplist_TooltipObject 1880 proplist_TooltipObject = tooltip 1881 end if 1882 1883 buttonOptions[#tooltip] = proplist_TooltipObject 1884 end 1885 1886 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1887 1888 on mSetTooltipText me, string_tooltipText, string_buttonName 1889 ----------------------------------- 1890 -- CREATED: 17.04.2010 1891 -- ACTION: Set (or change) the tooltip text 1892 -- INPUT: <string_tooltipText> ; string ; new text for tooltip 1893 -- <string_buttonName> ; string ; name of the button we want to address 1894 -- optional default: first button in list (use on 2-D sprite) 1895 -- RETURNS: - 1896 -- EXAMPLE: sprNum = xscr().mGetKanal(#sceneSprite) 1897 -- sendSprite(sprNum, #mSetTooltipText, "A new tooltip", "closeButton") 1898 ----------------------------------- 1899 1900 mSetTooltipObject me, string_tooltipText, string_buttonName 1901 end 1902 1903 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1592 1904 on _____SEMI_PUBLIC_HANDLERS 1593 1905 -- handlers from other scripts, in this case from the resize stage behavior 1594 1906 end 1595 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1907 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1596 1908 1597 1909 -- event from the resize bar behavior … … 1601 1913 end 1602 1914 1603 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1915 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1604 1916 1605 1917 on kackhandler me, newRect, oldrect … … 1607 1919 end 1608 1920 1609 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1921 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1610 1922 1611 1923 on mResizeWindow me, newRect, oldrect 1612 1924 1613 if not(pButtonList.count)then exit1925 if count(pButtonList) < 1 then exit 1614 1926 1615 1927 if pDreiDModus then -- currently only with 3-D overlays 1616 1928 1617 repeat with n = pButtonList.countdown to 11929 repeat with n = count(pButtonList) down to 1 1618 1930 whichButton = pButtonList[n] 1931 1932 ---------------------------------------- process tooltip if any defined 1933 hideButtonTooltip me, void, whichButton 1934 ---------------------------------------- // tooltip 1935 1619 1936 moname = whichButton.getaprop(#useModel) 1620 1937 if length(moname) < 1 then … … 1644 1961 end 1645 1962 1646 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1963 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1964 1965 on mSuspendKeyEvents me, val 1966 pKeyPollingDisabled = val 1967 end 1968 1969 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1970 1971 on deactivateApplicationEvent me 1972 focusApplication me, 0 1973 end 1974 1975 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1976 1977 on activateApplicationEvent me 1978 focusApplication me, 1 1979 end 1980 1981 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1982 1983 on deactivateWindowEvent me 1984 focusApplication me, 0 1985 end 1986 1987 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1988 1989 on activateWindowEvent me 1990 focusApplication me, 1 1991 end 1992 1993 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1994 1995 on focusApplication me, val 1996 pApplicationHasFocus = val 1997 end 1998 1999 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1647 2000 on _____PRIVATE_HANDLERS 1648 2001 end 1649 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2002 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2003 2004 on getButtonObjectByName me, string_buttonName, boolean_Strict 2005 if count(pButtonList) < 1 then return void 2006 2007 if not voidP(string_buttonName) then theObject = pButtonList.getaprop(string_buttonName) 2008 else theObject = 0 2009 2010 if ilk(theObject) <> #proplist then 2011 if boolean_Strict <> 1 then 2012 theObject = pButtonList[1] 2013 else 2014 return void 2015 end if 2016 end if 2017 2018 return theObject 2019 end 2020 2021 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1650 2022 1651 2023 on mDoBlendAnimation me 1652 2024 remove = 1 1653 repeat with n = pButtonList.countdown to 12025 repeat with n = count(pButtonList) down to 1 1654 2026 thisButton = pButtonList[n] 1655 2027 starttime = thisButton.getaprop(#starttime) 1656 2028 if not voidP(starttime) then 1657 if starttime > 0 then2029 if starttime <> 0 then 1658 2030 proz = (the milliseconds - starttime) / thisButton.getaprop(#duration) 1659 2031 if proz >= 1 then … … 1676 2048 end 1677 2049 1678 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2050 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1679 2051 1680 2052 on mRadioButtonEvent me, groupname, eventObject … … 1687 2059 end 1688 2060 1689 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2061 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2062 2063 on showButtonTooltip me, propList_buttonOptions, propList_buttonObject 2064 2065 if ilk(propList_buttonOptions) <> #proplist then 2066 if not(objectP(propList_buttonObject)) then exit 2067 scrObj = propList_buttonObject.getaprop(#myScriptObject) 2068 if ilk(scrObj) <> #instance then exit 2069 propList_buttonOptions = scrObj.mGetOptionsList() 2070 end if 2071 2072 tooltip = propList_buttonOptions.getaprop(#tooltip) 2073 if voidP(tooltip) then exit 2074 2075 if ilk(tooltip) <> #proplist then 2076 tooltip = [#label:tooltip] 2077 propList_buttonOptions[#tooltip] = tooltip 2078 end if 2079 2080 if not(voidP(tooltip[#label])) then 2081 2082 tooltipsprite = tooltip[#tooltipsprite] 2083 if voidP(tooltipsprite) then tooltipsprite = #ttipkanal 2084 derkanal = xscr().mGetKanal(tooltipsprite) 2085 2086 if derkanal > 0 then 2087 2088 layoutpreset = tooltip[#layoutpreset] 2089 if voidP(layoutpreset) then layoutpreset = "Tooltip_Layout_Preset" 2090 2091 p = propList_buttonOptions.getaprop(#myRect) 2092 2093 tooltipAlign = propList_buttonOptions.getaprop(#tooltipAlign) 2094 case tooltipAlign of 2095 #topleft, #centerLeft, #bottomLeft: 2096 tleft = p[1] 2097 #topRight, #centerRight, #bottomRight: 2098 tleft = p[3] 2099 otherwise: 2100 tleft = (p[1] + p[3]) / 2 2101 end case 2102 case tooltipAlign of 2103 #topleft, #topCenter, #topRight: 2104 ttop = p[2] 2105 #bottomLeft, #bottomCenter, #bottomRight: 2106 ttop = p[4] 2107 otherwise: 2108 ttop = (p[2] + p[4]) / 2 2109 end case 2110 p = point(tleft, ttop) 2111 2112 sendSprite(derkanal, #mShowTTip, tooltip[#label], p, layoutpreset, void, void, propList_buttonOptions[#overlayCameraObject]) 2113 end if 2114 end if 2115 2116 end 2117 2118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2119 2120 on hideButtonTooltip me, propList_buttonOptions, propList_buttonObject 2121 2122 if ilk(propList_buttonOptions) <> #proplist then 2123 if not(objectP(propList_buttonObject)) then exit 2124 scrObj = propList_buttonObject.getaprop(#myScriptObject) 2125 if ilk(scrObj) <> #instance then exit 2126 propList_buttonOptions = scrObj.mGetOptionsList() 2127 end if 2128 2129 tooltip = propList_buttonOptions.getaprop(#tooltip) 2130 if voidP(tooltip) then exit 2131 2132 if ilk(tooltip) <> #proplist then 2133 tooltip = [#label:tooltip] 2134 propList_buttonOptions[#tooltip] = tooltip 2135 end if 2136 2137 if not(voidP(tooltip[#label])) then 2138 2139 tooltipsprite = tooltip[#tooltipsprite] 2140 if voidP(tooltipsprite) then tooltipsprite = #ttipkanal 2141 derkanal = xscr().mGetKanal(tooltipsprite) 2142 2143 if derkanal > 0 then sendSprite(derkanal, #mHideTTip, tooltip[#label], propList_buttonOptions[#overlayCameraObject]) 2144 end if 2145 end 2146 2147 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1690 2148 1691 2149 on mProcessEvent me, whichEvent, eventList, callerObject, secondEvent … … 1749 2207 eventsToProcess = eventList.getaprop(#eventsToProcess) 1750 2208 if ilk(eventsToProcess) <> #list then eventsToProcess = pEventsToProcess 2209 2210 2211 ---------------------------------------- process tooltip if any defined 2212 if whichEvent = #mouseEnter then 2213 showButtonTooltip me, eventList 2214 else if whichEvent = #mouseLeave or whichEvent = #mouseDown then 2215 hideButtonTooltip me, eventList 2216 end if 2217 ---------------------------------------- // tooltip 2218 2219 1751 2220 if eventsToProcess.getPos(whichEvent) < 1 then exit 1752 2221 … … 1767 2236 -- if ilk(callFunction) = #symbol then 1768 2237 anz = count(eventList[#broadcastSprites]) 1769 1770 2238 eventList[#secondEvent] = secondEvent 2239 if not(anz) then 1771 2240 if ilk(callFunction) = #symbol then 1772 2241 sendAllSprites(callFunction, whichEvent, eventList, me, callerObject) 1773 2242 end if 1774 2243 else if eventList[#broadcastSprites][1] = -1 then 1775 2244 if ilk(callFunction) = #symbol then 1776 2245 str = string(callFunction)&&"#"&whichEvent&","&"E&eventList.getaprop(#label)"E&","&&eventList.getaprop(#selected)&","&&secondEvent 1777 2246 do str 1778 2247 end if 1779 2248 else if eventList[#broadcastSprites][1] = 0 then 1780 2249 if ilk(callFunction) = #symbol then 1781 2250 sendSprite(me.spritenum, callFunction, whichEvent, eventList, me, callerObject) 1782 2251 end if 1783 1784 1785 1786 2252 else 2253 repeat with n = 1 to anz 2254 this = eventList[#broadcastSprites][n] 2255 if integerP(this) then 1787 2256 if ilk(callFunction) = #symbol then 1788 2257 sendSprite(this, callFunction, whichEvent, eventList, me, callerObject) 1789 2258 end if 1790 2259 else if ilk(this) = #instance then 1791 2260 if ilk(callFunction) = #symbol then 1792 2261 call(callFunction, [this], whichEvent, eventList, me, callerObject) 1793 2262 end if 1794 2263 else if ilk(this) = #script then 1795 2264 if ilk(callFunction) = #symbol then 1796 2265 call(callFunction, [this], whichEvent, eventList, me, callerObject) … … 1821 2290 end 1822 2291 1823 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2292 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1824 2293 1825 2294 on mGibLaut me, scrName -- the check if this instance is already added to a models userdata … … 1828 2297 end 1829 2298 1830 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2299 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1831 2300 1832 2301 on mRemoveEmptyListEntries me … … 1836 2305 end if 1837 2306 -- ullala changed for woody - to end -- 1838 repeat with n = pButtonList.countdown to 12307 repeat with n = count(pButtonList) down to 1 1839 2308 if not(pButtonList[n].count) then pButtonList.deleteAt(n) 1840 2309 end repeat 1841 2310 end 1842 2311 1843 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2312 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1844 2313 -- xxxxxxxxxxxxxxxxxx Update the sprite/overlay image 1845 2314 … … 1934 2403 end 1935 2404 1936 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2405 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1937 2406 1938 2407 on mSendImageToVM me, theImage, theRect, tabname … … 1942 2411 end 1943 2412 1944 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1945 2414 1946 2415 on mUpdate3DImage me, theImage, theObject, theRect … … 1979 2448 if moname = "" then 1980 2449 2450 camObj = theObject[#overlayCameraObject] 2451 if voidP(camObj) then 1981 2452 camObj = pKanal.camera 2453 else 2454 if ilk(camObj) <> #camera then camObj = pKanal.camera 2455 end if 2456 1982 2457 olayIndex = mGetOlayIndex(me, camObj, tex) 1983 2458 if olayIndex > 0 then … … 2004 2479 end 2005 2480 2006 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2481 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2007 2482 2008 2483 on mSetBlend me, whichButton, newVal … … 2021 2496 2022 2497 tex = pMember.texture(pTextureBaseName&"_"&whichButton.getaprop(#myName)) 2498 2499 camObj = whichButton[#overlayCameraObject] 2500 if voidP(camObj) then 2023 2501 camObj = pKanal.camera 2502 else 2503 if ilk(camObj) <> #camera then camObj = pKanal.camera 2504 end if 2505 2024 2506 olayIndex = mGetOlayIndex(me, camObj, tex) 2025 2507 if olayIndex > 0 then … … 2040 2522 end 2041 2523 2042 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2524 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2043 2525 2044 2526 on mForceRectUpdate me, caller, tabname … … 2046 2528 if ilk(tabname) <> #string then 2047 2529 2048 repeat with n = pButtonList.countdown to 12530 repeat with n = count(pButtonList) down to 1 2049 2531 theObject = pButtonList[n].getaprop(#myScriptObject) 2050 2532 if theObject = caller then exit repeat … … 2064 2546 end 2065 2547 2066 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2548 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2067 2549 -- alex am Freitag, 23. April 2004 2068 2550 -- refresh the rect after a stage resize, sent from behavior "resizeStageBehavior" … … 2075 2557 pOptionsListe[#myRect] = newSpriteRect 2076 2558 2077 if pButtonList.countthen2559 if count(pButtonList) then 2078 2560 2079 2561 if not voidP(tabname) then table = pButtonList.getaprop(tabname) … … 2084 2566 call(#mSetCurrentRect, [table.getaprop(#myScriptObject)], newSpriteRect, 1) 2085 2567 2568 ---------------------------------------- process tooltip if any defined 2569 hideButtonTooltip me, void, table 2570 ---------------------------------------- // tooltip 2086 2571 2087 2572 table[#myRect] = 0 … … 2091 2576 2092 2577 2093 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2578 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2094 2579 -- xxxxxxxxxxxxxxxxxx Custom Input Event Handling 2095 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2096 2097 2098 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2580 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2581 2582 2583 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2099 2584 on _____Custom_Mouse_Events 2100 2585 end 2101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2102 2103 2104 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2586 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2587 2588 2589 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2105 2590 2106 2591 on mMouseDown me, theModel, theMUList 2592 focusApplication me, 1 2107 2593 mProcessEventFromRouter me, #myMouseDown, theModel, theMUList 2108 2594 end 2109 2595 2110 2596 2111 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2597 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2112 2598 2113 2599 on mMouseUp me, theModel, theMUList … … 2116 2602 2117 2603 2118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2604 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2119 2605 2120 2606 on mMouseUpOutside me, theModel … … 2123 2609 2124 2610 2125 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2611 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2126 2612 2127 2613 on mProcessEventFromRouter me, whichEvent, theModel, theMUList 2128 repeat with n = pButtonList.countdown to 12614 repeat with n = count(pButtonList) down to 1 2129 2615 theObject = pButtonList[n] 2130 2616 if theObject.getaprop(#useModel) = theModel.name then … … 2152 2638 2153 2639 2154 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2640 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2155 2641 2156 2642 on mGetAbsolutMouse me, caller, forInsideCheck, tabname … … 2226 2712 2227 2713 2228 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2714 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2229 2715 2230 2716 on mCheckMouseInside me, caller, tabname … … 2233 2719 if ilk(ml) <> #point then return ml 2234 2720 2235 if ( pButtonList.count> 1) then2721 if (count(pButtonList) > 1) then 2236 2722 theObject = pButtonList.getaprop(tabname) 2237 2723 if not(voidP(theObject)) then … … 2248 2734 else 2249 2735 2250 if pButtonList.countthen2736 if count(pButtonList) then 2251 2737 theRect = pButtonList[1].getaprop(#myRect) 2252 2738 if ilk(theRect) = #rect then return (ml).inside(theRect) … … 2259 2745 2260 2746 2261 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2747 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2262 2748 2263 2749 on mHandleMouseWithinEvent me, cl 2264 2750 retval = 0 2265 2751 if (pAktiv = 1) then -- and pDreiDModus then 2266 repeat with n = pButtonList.countdown to 12752 repeat with n = count(pButtonList) down to 1 2267 2753 if count(pButtonList[n]) then 2268 2754 -- if pButtonList[n].getaprop(#myScriptObject).mGetEnabled() then … … 2278 2764 end 2279 2765 2280 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2766 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2281 2767 2282 2768 on mHandleMouseDownEvent me, cl … … 2285 2771 retval = 0 2286 2772 if (pAktiv = 1) then -- and pDreiDModus then 2287 repeat with n = pButtonList.countdown to 12773 repeat with n = count(pButtonList) down to 1 2288 2774 if count(pButtonList[n]) then 2289 2775 -- alex am 28. Juni 2004 um 09:49 … … 2294 2780 if cl.inside(theRect) then 2295 2781 2296 sendAllSprites(#mResetKeyDownScript)2297 -- pOldKeyDown = the keyDownscript2298 2782 if pKanal <> 0 then 2299 -- the keyDownscript = "sendSprite("&me.spritenum&", #myKeyDown, the key, the keycode, ""E&pButtonList[n].getaprop(#myName)"E&")"2300 2301 2783 cl = cl + point(pKanal.left, pKanal.top) 2302 2784 end if … … 2316 2798 2317 2799 2318 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2800 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2319 2801 2320 2802 on mDoMouseDownAction me, tabname 2321 2803 2322 if not(pButtonList.count)then exit2804 if count(pButtonList) < 1 then exit 2323 2805 2324 2806 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 2332 2814 2333 2815 2334 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2816 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2335 2817 2336 2818 on mHandleMouseUpEvent me, cl … … 2347 2829 retval = 0 2348 2830 if (pAktiv = 1) then -- and pDreiDModus then 2349 repeat with n = pButtonList.countdown to 12831 repeat with n = count(pButtonList) down to 1 2350 2832 thisButton = pButtonList[n] 2351 2833 … … 2384 2866 2385 2867 if count(pButtonList) > 0 then 2386 repeat with n = n down to 12387 thisButton = pButtonList[n]2388 if thisButton.getaprop(#currentPressed) = 1 then2389 call(#myMouseUpOutside, [thisButton.getaprop(#myScriptObject)])2868 repeat with n = n down to 1 2869 thisButton = pButtonList[n] 2870 if thisButton.getaprop(#currentPressed) = 1 then 2871 call(#myMouseUpOutside, [thisButton.getaprop(#myScriptObject)]) 2390 2872 thisButton.setaprop(#currentPressed, 0) 2391 end if2392 end repeat2873 end if 2874 end repeat 2393 2875 end if 2394 2876 … … 2396 2878 end 2397 2879 2398 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2880 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2399 2881 2400 2882 on mDoMouseUpAction me, tabname 2401 2883 2402 if not(pButtonList.count)then exit2884 if count(pButtonList) < 1 then exit 2403 2885 2404 2886 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 2411 2893 end 2412 2894 2413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2895 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2414 2896 2415 2897 on mHandleMouseUpOutsideEvent me, cl 2416 2898 if (pAktiv = 1) then -- and pDreiDModus then 2417 repeat with n = pButtonList.countdown to 12899 repeat with n = count(pButtonList) down to 1 2418 2900 thisButton = pButtonList[n] 2419 2901 if thisButton.getaprop(#currentPressed) = 1 then … … 2424 2906 end 2425 2907 2426 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2908 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2427 2909 2428 2910 on mCheckMouseEnterLeave me, cl 2429 2911 2430 2912 if (pAktiv = 1) then -- and pDreiDModus then 2913 2431 2914 if pDreiDModus then 2915 2916 if sendSprite(me.spritenum, #mIsModalTableOnScreen) = 1 then exit 2917 2432 2918 cl = the mouseloc - point(pKanal.left, pKanal.top) 2433 2919 end if … … 2436 2922 objectToCall = 0 2437 2923 found = 0 2438 repeat with n = pButtonList.countdown to 12924 repeat with n = count(pButtonList) down to 1 2439 2925 theObject = pButtonList[n] 2440 2926 moname = string(theObject.getaprop(#useModel)) … … 2495 2981 2496 2982 2497 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2498 -- xxxxxxxxxxxxxxxxxx Key Events 2499 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2500 2501 2502 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2503 -- xxxxxxxxxxxxxxxxxx route the key events to the parentscript 2504 -- (I would rather have this in the parentscript, but I dunno how to set the keydownscript, that the parent script receives the key events :-() 2505 2506 on myKeyDown me, tk, kc, theName 2507 2508 if pIncludes.mHandleKeyEvent(tk, kc) then exit -- this is a movielevel handler, which gets keyevents first for example to quit the movie 2509 2510 if not pAktiv then exit 2511 2512 if voidP(theName) then 2513 repeat with n = pButtonList.count down to 1 2514 call(#mKeyDown, [pButtonList[n].getaprop(#myScriptObject)], tk, kc) 2515 end repeat 2516 else 2517 theObject = pButtonList.getaprop(theName) 2518 if objectP(theObject) then 2519 call(#mKeyDown, [theObject.getaprop(#myScriptObject)], tk, kc) 2520 end if 2521 end if 2522 end 2523 2524 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2525 2526 -- a mouseDown sends this call to all sprites, before setting the keydownscript to send only the clicked sprite the keyevents 2527 on mResetKeyDownScript me 2528 if not(voidP(pOldKeyDown)) then 2529 the keyDownscript = pOldKeyDown 2530 pOldKeyDown = void 2531 end if 2532 end 2533 2534 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2983 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2535 2984 on _____3_D_FUNCTIONS 2536 2985 end 2537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2986 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2538 2987 2539 2988 on mCreateOverlay me, whichImg, theObject … … 2611 3060 else 2612 3061 3062 camObj = theObject[#overlayCameraObject] 3063 if voidP(camObj) then 2613 3064 camObj = pKanal.camera 3065 else 3066 if ilk(camObj) <> #camera then camObj = pKanal.camera 3067 end if 3068 2614 3069 olayIndex = mGetOlayIndex(me, camObj, tex) 2615 3070 … … 2653 3108 2654 3109 2655 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3110 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2656 3111 2657 3112 on mCreatePowerImg me, whichImg, powerbreite, powerhoehe … … 2671 3126 2672 3127 2673 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3128 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2674 3129 2675 3130 on mGetOlayIndex me, camObj, tex … … 2683 3138 2684 3139 2685 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2686 3141 2687 3142 on mGetTexname me … … 2692 3147 2693 3148 2694 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3149 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2695 3150 -- xxxxxxxxxxxxxxxxxx map clickloc to 2-D image coordinates: 2696 3151 -
trunk/lingosource/castlib2/ButtonManagerHost.ls
r97 r104 1 -- Button Behavior by Alex da Franca c2003 da.Franca@online.de1 -- Button Behavior by Alex da Franca c2003 alex@farbflash.de 2 2 -------------------------------------------------------------------- 3 3 … … 24 24 25 25 26 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx26 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 27 27 -- xxxxxxxxxxxxxxxxxx PROPERTIES 28 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx28 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 29 29 30 30 … … 57 57 property pSelected 58 58 property pNoIcon 59 property pTooltip, pTooltipLayout, pTooltipSprite, pTooltipAlignment 59 60 60 61 … … 63 64 64 65 65 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx66 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 66 67 on _____INTERFACE 67 68 end 68 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx69 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 69 70 70 71 71 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx72 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 72 73 73 74 on GetInterface me … … 76 77 77 78 78 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx79 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 79 80 on ____________________STANDARD_EVENTS 80 81 end 81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx82 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 82 83 83 84 on beginSprite me … … 122 123 ancestor[#pSelected] = pSelected 123 124 ancestor[#pNoIcon] = pNoIcon 125 ancestor[#pTooltip] = pTooltip 126 ancestor[#pTooltipLayout] = pTooltipLayout 127 ancestor[#pTooltipSprite] = pTooltipSprite 128 ancestor[#pTooltipAlignment] = pTooltipAlignment 124 129 125 130 callAncestor(#beginsprite, me) … … 128 133 end 129 134 130 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx135 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 131 136 132 137 on getPropertyDescriptionList … … 174 179 liste[#pSelected] = [#default:true, #format:#boolean, #comment:"Initially Selected ?"] 175 180 181 liste[#pTooltip] = [#default:"", #format:#string, #comment:"Tooltip text (empty for no tooltip)"] 182 liste[#pTooltipLayout] = [#default:"Tooltip_Layout_Preset", #format:#string, #comment:"Tooltip layout"] 183 liste[#pTooltipSprite] = [#default:#ttipkanal, #format:#symbol, #comment:"Tooltip sprite name"] 184 liste[#pTooltipAlignment] = [#default:#topleft, #format:#symbol, #range: [#center, #topleft, #centerLeft, #bottomLeft, #topRight, #centerRight, #bottomRight, #topCenter, #bottomCenter], #comment:"Tooltip alignment"] 185 176 186 return liste 177 187 end -
trunk/lingosource/castlib2/DropShadowPScript.ls
r97 r104 46 46 47 47 48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 49 49 50 50 on interface me 51 51 str = "DropShadowPScript by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 52 52 53 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str53 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 54 54 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 55 55 put RETURN & "on mGetShadowImage me, theImage, shadowColor, shadowDistance, shadowAngle, blur, exponent, theStyle, returnMask, alphaLevel, dontTrimWhiteSpace" after str … … 60 60 end 61 61 62 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx62 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 63 63 64 64 on mGetShadowImage me, theImage, shadowColor, shadowDistance, shadowAngle, blur, exponent, theStyle, returnMask, alphaLevel, dontTrimWhiteSpace … … 359 359 end 360 360 361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 362 362 363 363 on mShd_SpiegelHor me, img -- spiegelt ein image horizontal … … 370 370 end 371 371 372 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx372 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 373 373 374 374 on mShd_SpiegelVer me, img -- spiegelt ein image vertikal … … 381 381 end 382 382 383 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx383 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 384 384 385 385 on mShd_DrehImg me, img, grad, tws -
trunk/lingosource/castlib2/FileIOFunktionen.ls
r97 r104 1 -- FileIO Handlers -- c03 Alex da Franca -- alex@farbflash.de 2 --------------------------------------------------------------------- 3 4 5 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 -- FileIOFunktionen 2 ----------------------------------- 3 -- CREATED: 4 -- c03 Alex da Franca -- alex@farbflash.de 5 -- PROPERTIES: 6 --!memberProperties: [#name: "FileIOFunktionen", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/FileIOFunktionen.ls"] 7 -- 8 -- DESCRIPTION: FileIO Handlers 9 -- - 10 -- 11 -- REQUIRES: 12 -- (Prerequisites) 13 -- 14 -- USAGE: 15 -- - 16 -- 17 -- EXAMPLE: 18 -- - 19 ----------------------------------- 20 21 on _____________________PROPERTY_DECLARATION me 22 end 23 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 24 property ancestor 25 26 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 27 on ___________________STANDARD_EVENTS me 28 end 29 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 30 31 on new me 32 Script_Root_Object = member("Script_Root_Object") 33 if ilk(Script_Root_Object) = #member then 34 if Script_Root_Object.type = #script then 35 ancestor = new(script "Script_Root_Object") 36 mSetScriptName me, "FileIOFunktionen" 37 end if 38 end if 39 return me 40 end 41 42 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 43 on ___________________PUBLIC_EVENTS me 44 end 45 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 46 47 48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 6 49 -- xxxxxxxxxxxxxxxxxx Read text in (if no path is provided show open dialog) 7 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx8 9 on mGetTextFromFile me, pfad 50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 51 52 on mGetTextFromFile me, pfad, readByteArray, useCharSet 10 53 retval = "" 11 12 54 if the runmode contains "Plugin" then return retval 13 55 14 56 fio = new(xtra "fileio") 15 16 57 if not objectP(fio) then return retval 58 59 useCharSet = string(useCharSet) 60 if length(useCharSet) > 0 then 61 if xscr().mGetVersionNumber() > 11.4 then 62 ------------- don't need to check whether the given charset is supported 63 ------------- as it is simply ignored, if it isn't 64 ------------- and it also gets reset so that the next instance of fileio 65 ------------- uses the default utf-8 again 66 -- installedCharSets = _system.getInstalledCharSets() 67 -- if installedCharSets.getPos(useCharSet) > 0 then fio.setCharSet(useCharSet) 68 fio.setCharSet(useCharSet) 69 end if 70 end if 17 71 18 72 if (voidP(pfad) or (pfad = "")) then pfad = mGetFilePathFromUser(me) … … 20 74 if ilk(pfad) = #string then 21 75 if pfad.length > 0 then 22 23 76 fio.openFile(pfad, 1) 24 77 if fio.status() = 0 then 25 26 retval = fio.readFile()78 if readByteArray = 1 then retval = fio.readByteArray(fio.getlength()) 79 else retval = fio.readFile() 27 80 fio.closeFile() 28 81 end if … … 33 86 end 34 87 35 36 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 88 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 89 90 on mGetByteArrayFromFile me, thePath 91 return mGetTextFromFile(me, thePath, (xscr().mGetVersionNumber() > 11.49)) 92 end 93 94 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 37 95 -- xxxxxxxxxxxxxxxxxx Read text asynchron -> works in projector, authoring AND shockwave 38 96 -- requires parentscript "NetTextReaderPS" … … 44 102 -- paramList[#target] = instance 45 103 -- -- optional: 46 -- params[#theTimeOut] = 4000 -- milliseconds until operation times out 47 -- params[#progressHandler] = #progresscallbackFromGetText -- event sent whenever the percent done changes 104 -- paramList[#theTimeOut] = 4000 -- milliseconds until operation times out 105 -- paramList[#progressHandler] = #progresscallbackFromGetText -- event sent whenever the percent done changes 106 -- paramList[#isByteArray] = 0 -- boolean value, only D11 107 -- paramList[#charset] = "windows-1252" -- string, only D11 48 108 -- -- paramList[#customdata] = "whatever you need" 109 -- xscr(#FileIOFunktionen).mGetTextFromFileAsync(paramList) 110 49 111 -- 50 112 --on callbackFromGetText me, paramList … … 63 125 if not(internetLink) then internetLink = (fname starts "www.") 64 126 if the runmode contains "plugin" or internetLink then 65 -- scr = xscr().mGetInstance("NetLingoManagerPS__") 127 128 -- scr = xscr().mGetInstance("NetLingoManagerPS") 66 129 -- if ilk(scr) = #instance then 67 130 -- scr.mStartNetOP(paramList) … … 77 140 -- end if 78 141 else 79 paramList.setaprop(#theTextResult, mGetTextFromFile(me, paramList.getaprop(#theURL))) 80 call(paramList.getaprop(#handler), [paramList.getaprop(#target)], paramList) 81 end if 82 end 83 84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 142 paramList.setaprop(#theTextResult, mGetTextFromFile(me, paramList.getaprop(#theURL), paramList[#isByteArray], paramList[#charset])) 143 theResult = xscr().mDoDelayedCallback(paramList) 144 if theResult <> 1 then call(paramList.getaprop(#handler), [paramList.getaprop(#target)], paramList) 145 end if 146 end 147 148 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 149 150 on mGetByteArrayFromFileAsync me, paramList 151 paramList[#isByteArray] = 1 152 mGetTextFromFileAsync me, paramList 153 end 154 155 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 85 156 -- xxxxxxxxxxxxxxxxxx Write text out to a file 86 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx87 88 on mSaveToTextFile me, theText, pfad, theTitle, theDefaultName, startfolder 157 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 158 159 on mSaveToTextFile me, theText, pfad, theTitle, theDefaultName, startfolder, useCharSet 89 160 retval = 0 90 161 … … 98 169 fio = new(xtra "fileio") 99 170 if not objectP(fio) then return retval 171 172 useCharSet = string(useCharSet) 173 if length(useCharSet) > 0 then 174 if xscr().mGetVersionNumber() > 11.4 then 175 ------------- don't need to check whether the given charset is supported 176 ------------- as it is simply ignored, if it isn't 177 ------------- and it also gets reset so that the next instance of fileio 178 ------------- uses the default utf-8 again 179 -- installedCharSets = _system.getInstalledCharSets() 180 -- if installedCharSets.getPos(useCharSet) > 0 then fio.setCharSet(useCharSet) 181 fio.setCharSet(useCharSet) 182 end if 183 end if 184 100 185 101 186 if ilk(theTitle) <> #string then theTitle = "Save File" … … 158 243 159 244 160 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx245 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 161 246 -- xxxxxxxxxxxxxxxxxx append string to file 162 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx247 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 163 248 164 249 … … 230 315 end 231 316 232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx317 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 233 318 234 319 on mExportSelectedText me, theType … … 271 356 end 272 357 273 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx358 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 274 359 275 360 on mGetPathNameFromUser me … … 277 362 end 278 363 279 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx364 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 280 365 281 366 on mGetFilePathFromUser me, startDir, defaultName, filetypes, prompt 367 ----------------------------------- 368 -- CREATED: - 369 -- ACTION: Asks the user for a path to a file and returns the filepath 370 -- INPUT: <startDir> ; string ; the directory to start the file selection dialog (only if buddyApi xtra is installed) 371 -- <defaultName> ; string ; pre-entered filename (only if buddyApi xtra is installed) 372 -- <filetypes> ; string ; filetype filter (only if buddyApi xtra is installed) 373 -- <prompt> ; string ; Caption of the dialog (only if buddyApi xtra is installed) 374 -- RETURNS: string ; absolute pathname delimited by the pathdelimiter of the current platform (widnows: "\", mac: ":") or "", if user canceled the process 375 -- EXAMPLE: relPath = xscr(#FileIOFunktionen).mGetFilePathFromUser(the moviepath, "soundRadius.xml", ".xml", "Please select soundradius scriptsettings") 376 ----------------------------------- 377 282 378 retval = "" 283 379 … … 322 418 end 323 419 324 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 420 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 421 422 on mGetMovieRelativePathFromUser me, startDir, defaultName, filetypes, prompt 423 ----------------------------------- 424 -- CREATED: 14.12.2009 425 -- ACTION: Asks the user for a path to a file 426 -- Takes care, that the file starts with the moviepath => is WITHIN the moviepath, 427 -- otherwise it calls itself until either the user selects a relative file or cancels the process. 428 -- Converts path delimiters to "/" => normalize the pathdelimiter for both platforms 429 -- INPUT: <startDir> ; string ; the directory to start the file selection dialog (only if buddyApi xtra is installed) 430 -- <defaultName> ; string ; pre-entered filename (only if buddyApi xtra is installed) 431 -- <filetypes> ; string ; filetype filter (only if buddyApi xtra is installed) 432 -- SPECIAL VALUE: can be "folder", which would not return a path to a folder, 433 -- but rather a path to a folder 434 -- <prompt> ; string ; Caption of the dialog (only if buddyApi xtra is installed) 435 -- RETURNS: string ; relative pathname delimited by "/" or "", if user canceled the process 436 -- EXAMPLE: relPath = xscr(#FileIOFunktionen).mGetMovieRelativePathFromUser(the moviepath, "soundRadius.xml", ".xml", "Please select soundradius scriptsettings") 437 ----------------------------------- 438 439 if filetypes = "folder" then 440 searchItem = "folder" 441 thePath = mGetFolderPathFromUser(me) 442 else 443 searchItem = "file" 444 thePath = mGetFilePathFromUser(me, startDir, defaultName, filetypes, prompt) 445 end if 446 if length(thePath) > 0 then 447 if offset(the moviepath, thePath) <> 1 then 448 alert "This " & searchItem & " is NOT within the moviepath. Please choose a " & searchItem & ", which is inside the current movie's path!" 449 return mGetMovieRelativePathFromUser(me, startDir, defaultName, filetypes, prompt) 450 end if 451 delete char 1 to length(the moviepath) of thePath 452 delim = the last char of the moviepath 453 if delim <> "/" then 454 offs = offset(delim, thePath) 455 repeat while offs > 0 456 put "/" into char offs of thePath 457 offs = offset(delim, thePath) 458 end repeat 459 end if 460 if filetypes = "folder" then 461 if the last char of thePath <> "/" then put "/" after thePath 462 end if 463 end if 464 return thePath 465 end 466 467 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 325 468 326 469 on mGetFolderPathFromUser me … … 366 509 end 367 510 368 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx511 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 369 512 370 513 on mGetFileList me, folderpath … … 412 555 end 413 556 414 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx557 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 415 558 416 559 on mGetFolderList me, folderpath … … 467 610 468 611 469 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx612 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 470 613 471 614 on mGetFileAndFolderList me, folderpath … … 510 653 511 654 512 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx655 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 513 656 -- xxxxxxxxxxxxxxxxxx Export BMP with FileIO Xtra 514 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx657 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 515 658 516 659 on mExportBitmapFIO me, imageObj, pfadname … … 577 720 end 578 721 579 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx722 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 580 723 -- 581 724 -- Converts lingo variables into the specified data type and appends the … … 611 754 end 612 755 613 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx756 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 614 757 -- 615 758 -- Uses FileIO to write the values of the byteList linear list into the file specified … … 653 796 end 654 797 655 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx798 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 656 799 657 800 on interface me 658 801 str = "FileIO Scripts by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 659 802 660 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str803 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 661 804 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 662 805 put RETURN & "on mGetTextFromFile me, pfad" after str 663 806 put RETURN & "" after str 664 807 665 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str808 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 666 809 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 667 810 put RETURN & "on mGetTextFromFileAsync me, paramList" after str 668 811 put RETURN & "" after str 669 812 670 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str813 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 671 814 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 672 815 put RETURN & "on mSaveToTextFile me, theText, pfad, theTitle, theDefaultName" after str 673 816 put RETURN & "" after str 674 817 675 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str818 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 676 819 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 677 820 put RETURN & "on mAppendTextToFile me, theText, pfad" after str 678 821 put RETURN & "" after str 679 822 680 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str823 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 681 824 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 682 825 put RETURN & "on mExportSelectedText me, theType" after str 683 826 put RETURN & "" after str 684 827 685 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str828 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 686 829 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 687 830 put RETURN & "on mGetPathNameFromUser me" after str 688 831 put RETURN & "" after str 689 832 690 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str833 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 691 834 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 692 835 put RETURN & "on mGetFilePathFromUser me" after str 693 836 put RETURN & "" after str 694 837 695 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str838 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 696 839 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 697 840 put RETURN & "on mGetFolderPathFromUser me" after str 698 841 put RETURN & "" after str 699 842 700 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str843 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 701 844 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 702 845 put RETURN & "on mGetFileList me, folderpath" after str 703 846 put RETURN & "" after str 704 847 705 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str848 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 706 849 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 707 850 put RETURN & "on mGetFolderList me, folderpath" after str 708 851 put RETURN & "" after str 709 852 710 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str853 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 711 854 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 712 855 put RETURN & "on mExportBitmapFIO me, imageObj, pfadname" after str 713 856 put RETURN & "" after str 714 857 715 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str858 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 716 859 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 717 860 put RETURN & "on appendByteData me, byteList, dataType, dataValue" after str 718 861 put RETURN & "" after str 719 862 720 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str863 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 721 864 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 722 865 put RETURN & "on writeBinaryFile me, filePath, byteList, fileStartByte, listStartByte, deleteOriginalFile" after str -
trunk/lingosource/castlib2/FindReplaceString.ls
r97 r104 21 21 property pXtras 22 22 23 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx23 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 24 24 25 25 on mConvertLineBreaks me, dertext … … 29 29 30 30 31 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx31 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 32 32 on _________________FIND_CHUNK_EXPRESSIONS 33 33 end 34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 35 35 36 36 on mFindAllMatches me, srcText, searchstr, opts, withoutComments, useRegExp … … 50 50 end 51 51 52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 53 53 54 54 -- using offset() -> no pregex … … 118 118 end 119 119 120 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx120 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 121 121 122 122 -- using pregex … … 133 133 repeat while (PRegEx_GetNextMatch() > 0) 134 134 135 matchstart = PRegEx_GetMatchStart() -- + 1 136 matchend = PRegEx_GetPos() 137 138 if withoutComments then 139 thisLine = srcText.char[1 .. matchstart].line.count 140 141 commOffs = offset("--", srcText.line[thisLine]) 142 if commOffs > 0 then 143 if (srcText.line[1 .. (thisLine - 1)].length + commOffs) > matchstart then 135 matchstart = PRegEx_GetMatchStart() -- + 1 136 matchend = PRegEx_GetPos() 137 138 if withoutComments then 139 thisLine = srcText.char[1 .. matchstart].line.count 140 141 commOffs = offset("--", srcText.line[thisLine]) 142 if commOffs > 0 then 143 if (srcText.line[1 .. (thisLine - 1)].length + commOffs) > matchstart then 144 retlist.add([matchstart, matchend]) 145 end if 146 else 144 147 retlist.add([matchstart, matchend]) 145 148 end if 149 146 150 else 147 151 retlist.add([matchstart, matchend]) 148 152 end if 149 153 150 else 151 retlist.add([matchstart, matchend]) 152 end if 153 154 end repeat 154 end repeat 155 155 --end if 156 156 … … 160 160 161 161 162 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx162 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 163 163 on _________________REPLACE_CHUNK_EXPRESSIONS 164 164 end 165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 166 166 167 167 -- geaendert am 12.05.03: … … 173 173 end 174 174 175 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx175 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 176 176 177 177 -- using pregex … … 193 193 end 194 194 195 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx195 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 196 196 197 197 -- using offset() -> no pregex … … 235 235 end 236 236 237 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx237 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 238 238 239 239 --/ alex am Montag, 26. April 2004 … … 256 256 end 257 257 258 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx258 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 259 259 260 260 -- using offset() -> no pregex … … 269 269 270 270 271 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx271 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 272 272 273 273 -- examples: … … 330 330 331 331 332 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx332 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 333 333 334 334 on mCheckForXtra me, whichXtra -
trunk/lingosource/castlib2/FlashBitmapFilterPS.ls
r97 r104 1 -- Flash bitmap filter -- Parent script 1 -- FlashBitmapFilterPS 2 ----------------------------------- 3 -- CREATED: 2 4 -- c06 Alex da Franca -- alex@farbflash.de 3 4 -- Requires at least director 10.1.1 and the new Flash 8 xtra 5 6 7 ---------------------------------------------------------------------------------------------- 8 -- changes: 9 5 -- PROPERTIES: 6 --!memberProperties: [#name: "FlashBitmapFilterPS", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/FlashBitmapFilterPS.ls"] 7 -- 8 -- DESCRIPTION: Flash bitmap filter -- Parent script 9 -- - 10 -- 11 -- REQUIRES: 12 -- Requires at least director 10.1.1 and the new Flash 8 xtra 13 -- 14 -- USAGE: 15 -- - 16 -- 17 -- HISTORY: 18 -- 10 19 --------------------------------- 11 20 -- Scriptmarker (04.04.2006 at 09:16 Uhr): changes alex // Scriptmarker … … 15 24 -- Scriptmarker (12.04.2006 at 15:56 Uhr): changes alex // Scriptmarker 16 25 -- mBlurImage should work now for alphachannel images too 17 18 26 ----------------------------------- 27 28 on _____________________PROPERTY_DECLARATION me 29 end 30 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 31 property ancestor 19 32 property pFilterFlashObjects 20 33 21 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 34 35 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 36 on ___________________STANDARD_EVENTS me 37 end 38 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 22 39 23 40 on new me 41 42 Script_Root_Object = member("Script_Root_Object") 43 if ilk(Script_Root_Object) = #member then 44 if Script_Root_Object.type = #script then 45 ancestor = new(script "Script_Root_Object") 46 mSetScriptName me, "FlashBitmapFilterPS" 47 end if 48 end if 49 24 50 pFilterFlashObjects = [] 25 51 return me 26 52 end 27 53 28 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 54 55 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 56 on ___________________ENGINE_EVENTS me 57 end 58 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 29 59 30 60 on mDestroy me … … 33 63 34 64 35 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 65 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 66 on ___________________PUBLIC_EVENTS me 67 end 68 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 69 70 36 71 37 72 on mBlurImage me, img, params 38 73 39 74 if checkForValidImage(me, img) <> 1 then return img 75 76 if not(listP(pFilterFlashObjects)) then pFilterFlashObjects = [] 40 77 if count(pFilterFlashObjects) > 0 then 41 78 fpoint = pFilterFlashObjects[1] … … 79 116 80 117 if params.getaprop(#dontScale) = 1 then 118 if img.depth < 32 then 119 i = image(img.width, img.height, 32) 120 i.copyPixels(img, img.rect, img.rect) 121 else 81 122 i = img 82 123 end if 83 124 else 84 125 oldR = img.rect … … 116 157 end 117 158 118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 119 160 120 161 on mDropShadow me, img, params 121 162 122 123 163 if checkForValidImage(me, img) <> 1 then return img 164 165 if not(listP(pFilterFlashObjects)) then pFilterFlashObjects = [] 124 166 if count(pFilterFlashObjects) > 0 then 125 167 fpoint = pFilterFlashObjects[1] … … 234 276 235 277 236 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx278 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 237 279 238 280 on mBevel me, img, params 239 281 240 282 if checkForValidImage(me, img) <> 1 then return img 283 284 if not(listP(pFilterFlashObjects)) then pFilterFlashObjects = [] 241 285 if count(pFilterFlashObjects) > 0 then 242 286 fpoint = pFilterFlashObjects[1] … … 362 406 363 407 364 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx408 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 365 409 366 410 on mGlow me, img, params 367 411 368 412 if checkForValidImage(me, img) <> 1 then return img 413 414 if not(listP(pFilterFlashObjects)) then pFilterFlashObjects = [] 369 415 if count(pFilterFlashObjects) > 0 then 370 416 fpoint = pFilterFlashObjects[1] … … 472 518 end 473 519 474 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx520 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 475 521 476 522 on interface me … … 478 524 str = "Flash bitmap filters for Director 10.1 by alex da franca c2006 -- alex@farbflash.de -- all rigths reserved" 479 525 480 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str526 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 481 527 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 482 528 put RETURN & "on mDestroy me" after str 483 529 put RETURN & "" after str 484 530 485 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str531 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 486 532 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 487 533 put RETURN & "on mBlurImage me, img, params" after str 488 534 put RETURN & "" after str 489 535 490 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str536 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 491 537 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 492 538 put RETURN & "on mDropShadow me, img, params" after str 493 539 put RETURN & "" after str 494 540 495 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str541 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 496 542 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 497 543 put RETURN & "on mBevel me, img, params" after str 498 544 put RETURN & "" after str 499 545 500 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str546 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 501 547 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 502 548 put RETURN & "on mGlow me, img, params" after str … … 506 552 end 507 553 554 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 555 on ___________________CALLBACK_EVENTS me 556 end 557 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 558 559 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 560 on ___________________PRIVATE_EVENTS me 561 end 562 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 563 -- this is the same handler, as you can find in "commonMovieScript": mCheckForValidImage 564 -- just to keep this script "self containing" it is duplicated here 565 566 on checkForValidImage me, image_img 567 if ilk(image_img) <> #image then return 0 568 if string(image_img) = "<image:0>" then return 0 569 if image_img.width * image_img.height < 1 then return 0 570 return 1 571 end -
trunk/lingosource/castlib2/GenericButtonPS.ls
r97 r104 41 41 -- alex am 1. August 2004 um 10:55 42 42 -- fixed bug with radio buttons 43 44 -- alex am Sonntag, 30. August 2009 um 10:36 Uhr 45 -- added support for different up and down click sounds 46 -- new properties in the optionlist are: #mouseDownSound and #mouseUpSound => strings, work like #clicksound did before 47 -- if absent, they will be replaced by the value of #clicksound, so it is backward compatible 43 48 ----------------------------------------- 44 49 … … 46 51 property pRect 47 52 48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 49 54 -- xxxxxxxxxxxxxxxxxx PROPERTIES 50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx55 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 51 56 52 57 property pZeiter … … 54 59 property pOffImg, pPressImg, pDisabledImg, pOverImg, pSelectedImg 55 60 property pDown, pIsInside 56 property p KlickSound61 property pMouseDownSound, pMouseUpSound 57 62 58 63 … … 71 76 property pSaveImages 72 77 73 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 78 property pStatus 79 80 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 74 81 on _____________DIRECTOR_EVENTS me 75 82 end 76 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx83 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 77 84 78 85 on new me, caller, options, theName 86 87 pStatus = #normal 79 88 80 89 pSaveImages = 0 … … 93 102 end 94 103 95 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx104 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 96 105 97 106 on mDestroy me … … 100 109 101 110 102 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx111 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 103 112 on _____________PUBLIC_EVENTS me 104 113 end 105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx114 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 106 115 107 116 on mCreate me, caller, options, theName … … 133 142 mInitImgs me 134 143 135 pKlickSound = string(pOptions.getaprop(#clicksound)) 136 if pKlickSound.length then 137 -- ullala changed for woody - mb -- 138 if voidP(member(pKlickSound)) then pKlickSound = "" 139 else if (member(pKlickSound).type <> #sound) then pKlickSound = "" 140 -- ullala changed for woody - mb end -- 141 end if 144 xscr = xscr() 145 clicksound = string(pOptions.getaprop(#clicksound)) 146 if length(clicksound) > 0 then 147 if xscr.mGetMemType(member(clicksound)) <> #sound then clicksound = "" 148 end if 149 150 pMouseDownSound = string(pOptions.getaprop(#mouseDownSound)) 151 if length(pMouseDownSound) > 0 then 152 if xscr.mGetMemType(member(pMouseDownSound)) <> #sound then pMouseDownSound = "" 153 end if 154 if length(pMouseDownSound) < 1 then pMouseDownSound = clicksound 155 156 pMouseUpSound = string(pOptions.getaprop(#mouseUpSound)) 157 if length(pMouseUpSound) > 0 then 158 if xscr.mGetMemType(member(pMouseUpSound)) <> #sound then pMouseUpSound = "" 159 end if 160 if length(pMouseUpSound) < 1 then pMouseUpSound = clicksound 142 161 143 162 pZeiter = 0 … … 145 164 end 146 165 147 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx166 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 148 167 149 168 on mGetOptionsList me … … 158 177 end 159 178 160 161 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 179 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 180 181 on mChangeButtonImages me, newImageList 182 ----------------------------------- 183 -- ACTION: change all buttonImages of the button -> using a proplist of the format: 184 -- [#normal:img, #pressed:img, #hilite:img, #disabled:img, #selected:img] 185 -- INPUT: <newImageList> ; proplist or list ; new button images 186 -- format: must be at least 4 image obejcts in the first 4 slots of the list 187 -- [#normal:img, #pressed:img, #hilite:img, #disabled:img, #selected:img] 188 -- RETURNS: - 189 ----------------------------------- 190 191 if not(listP(newImageList)) then exit 192 mInitImgs me, newImageList 193 end 194 195 196 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 162 197 163 198 on mChangeLabel me, newLabel 164 199 ----------------------------------- 165 200 -- ACTION: change the text on the button -> label 166 -- INPUT: <newLabel> ; string ; new label201 -- INPUT: <newLabel> ; string or image object ; new label 167 202 -- RETURNS: - 168 203 ----------------------------------- 169 204 170 if ilk(newLabel) <> #stringthen exit205 if [#string,#image].getPos(ilk(newLabel)) < 1 then exit 171 206 pOptions[#label] = newLabel 172 207 mInitImgs me 173 208 end 174 209 175 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx210 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 176 211 177 212 on mChangeLanguage me … … 188 223 end 189 224 190 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx225 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 191 226 192 227 on mEnableMe me, val … … 204 239 if val then 205 240 if pImg <> pOffImg then 241 pStatus = #normal 206 242 pImg = pOffImg 207 243 doUpd = 1 … … 209 245 else 210 246 if pImg <> pDisabledImg then 247 pStatus = #disabled 211 248 pImg = pDisabledImg 212 249 doUpd = 1 … … 218 255 end 219 256 220 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx257 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 221 258 222 259 on mGetEnabled me … … 230 267 end 231 268 232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx269 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 233 270 234 271 on mSetFunction me, newFunction … … 246 283 end 247 284 248 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx285 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 249 286 250 287 on mAddToBroadcastlist me, referenz … … 259 296 end 260 297 261 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx298 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 262 299 263 300 on mRemoveFromBroadcastlist me, referenz … … 272 309 end 273 310 274 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 311 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 312 313 on mGetStatus me 314 ----------------------------------- 315 -- ACTION: get the state of the button (#normal, #rollover, #pressed, #disabled) 316 -- INPUT: <tabname> ; string ; name of the button we want to address 317 -- RETURNS: symbol ; range: #normal, #rollover, #pressed, #disabled 318 ----------------------------------- 319 320 return pStatus 321 end 322 323 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 275 324 276 325 on mGetState me … … 284 333 end 285 334 286 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx335 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 287 336 288 337 on mSetState me, selState … … 303 352 if (pOptions.getaprop(#toggle) = 1) and (pOptions.getaprop(#selected) = 1) then 304 353 if pImg <> pSelectedImg then 354 pStatus = #selected 305 355 pImg = pSelectedImg 306 356 mSendUpdate me … … 309 359 else if length(string(pOptions.getaprop(#groupname))) and (pOptions.getaprop(#selected) = 1) then 310 360 if pImg <> pSelectedImg then 361 pStatus = #selected 311 362 pImg = pSelectedImg 312 363 mSendUpdate me … … 315 366 else 316 367 if pImg <> pOffImg then 368 pStatus = #normal 317 369 pImg = pOffImg 318 370 mSendUpdate me … … 321 373 end 322 374 323 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx375 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 324 376 325 377 on mGetCurrentRect me … … 334 386 end 335 387 336 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx388 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 337 389 338 390 on mTranslateRect me, trans … … 350 402 end 351 403 352 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx404 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 353 405 354 406 on mSetCurrentRect me, newRect … … 367 419 end 368 420 369 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx421 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 370 422 371 423 on interface me … … 379 431 str = "" 380 432 381 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str433 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 382 434 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 383 435 put RETURN & "on mGetOptionsList me" after str … … 386 438 put RETURN & "" after str 387 439 388 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str440 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 389 441 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 390 442 put RETURN & "on mChangeLabel me, newLabel" after str … … 393 445 put RETURN & "" after str 394 446 395 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str447 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 396 448 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 397 449 put RETURN & "on mChangeLanguage me" after str … … 401 453 put RETURN & "" after str 402 454 403 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str455 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 404 456 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 405 457 put RETURN & "on mEnableMe me, val" after str … … 408 460 put RETURN & "" after str 409 461 410 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str462 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 411 463 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 412 464 put RETURN & "on mGetEnabled me" after str … … 415 467 put RETURN & "" after str 416 468 417 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str469 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 418 470 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 419 471 put RETURN & "on mSetFunction me, newFunction" after str … … 422 474 put RETURN & "" after str 423 475 424 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str476 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 425 477 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 426 478 put RETURN & "on mAddToBroadcastlist me, referenz" after str … … 429 481 put RETURN & "" after str 430 482 431 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str483 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 432 484 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 433 485 put RETURN & "on mRemoveFromBroadcastlist me, referenz" after str … … 436 488 put RETURN & "" after str 437 489 438 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str490 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 439 491 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 440 492 put RETURN & "on mGetState me" after str … … 443 495 put RETURN & "" after str 444 496 445 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str497 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 446 498 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 447 499 put RETURN & "on mSetState me, selState" after str … … 450 502 put RETURN & "" after str 451 503 452 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str504 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 453 505 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 454 506 put RETURN & "on mGetCurrentRect me" after str 455 507 put RETURN & "" after str 456 508 457 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str509 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 458 510 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 459 511 put RETURN & "on mTranslateRect me, trans" after str 460 512 put RETURN & "" after str 461 513 462 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str514 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 463 515 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 464 516 put RETURN & "on mSetCurrentRect me, newRect" after str … … 470 522 471 523 472 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx524 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 473 525 on _____________INCOMING_MOUSE_EVENTS me 474 526 end 475 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx527 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 476 528 477 529 on myMouseDown me … … 482 534 end 483 535 484 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx536 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 485 537 486 538 on myMouseUp me … … 492 544 end 493 545 494 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx546 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 495 547 496 548 on myMouseUpOutside me 497 549 pDown = 0 550 498 551 if (pOptions.getaprop(#toggle) = 1) and (pOptions.getaprop(#selected) = 1) then 499 552 if pImg <> pSelectedImg then 553 pStatus = #selected 500 554 pImg = pSelectedImg 501 555 mSendUpdate me … … 503 557 else 504 558 if pImg <> pOffImg then 559 pStatus = #normal 505 560 pImg = pOffImg 506 561 mSendUpdate me … … 509 564 end 510 565 511 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx566 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 512 567 513 568 on myMouseEnter me … … 519 574 if not(length(string(pOptions.getaprop(#groupname))) and pOptions.getaprop(#selected) = 1) then 520 575 -- alex am Donnerstag, 3. Juni 2004 576 521 577 if pDown = 0 then 522 578 if pImg <> pOverImg then 579 pStatus = #rollover 523 580 pImg = pOverImg 524 581 mSendUpdate me … … 526 583 else 527 584 if pImg <> pPressImg then 585 pStatus = #pressed 528 586 pImg = pPressImg 529 587 mSendUpdate me … … 538 596 end 539 597 540 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx598 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 541 599 542 600 on myMouseLeave me 601 602 pStatus = #normal 603 543 604 if (pOptions.getaprop(#enabled) = 0) then exit 544 605 pIsInside = 0 545 606 546 607 if (pOptions.getaprop(#toggle) = 1) and (pOptions.getaprop(#selected) = 1) then 608 pStatus = #selected 547 609 pImg = pSelectedImg 548 610 549 611 -- alex am 1. August 2004 um 10:59 550 612 else if length(string(pOptions.getaprop(#groupname))) and pOptions.getaprop(#selected) = 1 then 613 pStatus = #selected 551 614 pImg = pSelectedImg 552 615 --/ alex am 1. August 2004 um 10:59 … … 556 619 if pDown = 0 then 557 620 if pImg <> pOffImg then 621 pStatus = #normal 558 622 pImg = pOffImg 559 623 mSendUpdate me … … 562 626 else 563 627 if pImg <> pOffImg then 628 pStatus = #normal 564 629 pImg = pOffImg 565 630 mSendUpdate me … … 572 637 573 638 574 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx639 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 575 640 on _____________PRIVATE_EVENTS me 576 641 end 577 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx642 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 578 643 579 644 on mSendEvent me, whichEvent, secondEvent … … 581 646 end 582 647 583 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx584 585 on mInitImgs me 648 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 649 650 on mInitImgs me, newImageList 586 651 587 652 myRect = pOptions.getaprop(#myRect) … … 596 661 -- end if 597 662 663 if ilk(newImageList) = #proplist then 664 buttonImgs = newImageList 665 else 598 666 buttonImgs = call(#mGetButtonImages, mGetXScript(#ButtonImageCreator), pOptions.getaprop(#label), pOptions) 667 end if 668 599 669 if not(listP(buttonImgs)) then 600 670 alert "You need the ButtonImageCreator script in order to run this script" … … 602 672 end if 603 673 604 pOffImg = buttonImgs[1] 605 pPressImg = buttonImgs[2] 606 pOverImg = buttonImgs[3] 607 pDisabledImg = buttonImgs[4] 608 609 if count(buttonImgs) > 4 then pSelectedImg = buttonImgs[5] 610 else pSelectedImg = pPressImg 674 675 if ilk(buttonImgs[#normal]) = #image then 676 pOffImg = buttonImgs[#normal] 677 end if 678 if ilk(buttonImgs[#pressed]) = #image then 679 pPressImg = buttonImgs[#pressed] 680 end if 681 if ilk(buttonImgs[#hilite]) = #image then 682 pOverImg = buttonImgs[#hilite] 683 end if 684 if ilk(buttonImgs[#disabled]) = #image then 685 pDisabledImg = buttonImgs[#disabled] 686 end if 687 if ilk(buttonImgs[#selected]) = #image then 688 pSelectedImg = buttonImgs[#selected] 689 end if 690 691 -- if count(buttonImgs) > 0 then pOffImg = buttonImgs[1] 692 -- if count(buttonImgs) > 1 then pPressImg = buttonImgs[2] 693 -- if count(buttonImgs) > 2 then pOverImg = buttonImgs[3] 694 -- if count(buttonImgs) > 3 then pDisabledImg = buttonImgs[4] 695 -- 696 -- if count(buttonImgs) > 4 then pSelectedImg = buttonImgs[5] 697 -- else pSelectedImg = pPressImg 698 611 699 612 700 enabled = pOptions.getaprop(#enabled) … … 618 706 if enabled then 619 707 if (pOptions.getaprop(#toggle) = 1) and (pOptions.getaprop(#selected) = 1) then 708 pStatus = #selected 620 709 pImg = pSelectedImg 621 710 622 711 else if length(string(pOptions.getaprop(#groupname))) and pOptions.getaprop(#selected) = 1 then 712 pStatus = #selected 623 713 pImg = pSelectedImg 624 714 625 715 else 716 pStatus = #normal 626 717 pImg = pOffImg 627 718 end if 628 719 else 720 pStatus = #disabled 629 721 pImg = pDisabledImg 630 722 end if … … 638 730 end 639 731 640 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx732 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 641 733 642 734 on mSendUpdate me … … 644 736 end 645 737 646 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx738 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 647 739 on _____________MOUSE_EVENT_HANDLING me 648 740 end 649 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx741 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 650 742 651 743 on mDoMouseDownAction me … … 663 755 if not pOptions.getaprop(#selected) then 664 756 665 if pKlickSound.length then 666 puppetsound pKlickSound 757 if length(pMouseDownSound) > 0 then 758 puppetsound pMouseDownSound 759 -- sendSprite(xscr().mGetKanal(#flashPuppetSound), #mFlashPuppetSound_Play, pMouseDownSound) 667 760 updatestage 668 761 pZeiter = the ticks … … 670 763 671 764 if pImg <> pPressImg then 765 pStatus = #pressed 672 766 pImg = pPressImg 673 767 mSendUpdate me … … 682 776 683 777 if pImg <> pPressImg then 778 pStatus = #pressed 684 779 pImg = pPressImg 685 780 mSendUpdate me 686 781 end if 687 782 688 if pKlickSound.length then 689 puppetsound pKlickSound 783 if length(pMouseDownSound) > 0 then 784 puppetsound pMouseDownSound 785 -- sendSprite(xscr().mGetKanal(#flashPuppetSound), #mFlashPuppetSound_Play, pMouseDownSound) 690 786 updatestage 691 787 pZeiter = the ticks … … 698 794 699 795 700 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx796 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 701 797 702 798 on mDoMouseUpAction me … … 708 804 pOptions[#selected] = 1 709 805 710 if pKlickSound.lengththen806 if length(pMouseUpSound) > 0 then 711 807 if (pZeiter + 20) < the ticks then 712 puppetsound pKlickSound 808 puppetsound pMouseUpSound 809 -- sendSprite(xscr().mGetKanal(#flashPuppetSound), #mFlashPuppetSound_Play, pMouseUpSound) 713 810 updatestage 714 811 end if … … 720 817 -- end if 721 818 if pImg <> pSelectedImg then 819 pStatus = #selected 722 820 pImg = pSelectedImg 723 821 mSendUpdate me … … 734 832 -- alex am 1. August 2004 um 10:59 735 833 736 if pKlickSound.lengththen834 if length(pMouseUpSound) > 0 then 737 835 if (pZeiter + 20) < the ticks then 738 puppetsound pKlickSound 836 puppetsound pMouseUpSound 837 -- sendSprite(xscr().mGetKanal(#flashPuppetSound), #mFlashPuppetSound_Play, pMouseUpSound) 739 838 updatestage 740 839 end if … … 746 845 if (pOptions.getaprop(#toggle) = 1) and (pOptions.getaprop(#selected) = 1) then 747 846 if pImg <> pSelectedImg then 847 pStatus = #selected 748 848 pImg = pSelectedImg 749 849 mSendUpdate me … … 751 851 else 752 852 if pImg <> pOverImg then 853 pStatus = #rollover 753 854 pImg = pOverImg 754 855 mSendUpdate me -
trunk/lingosource/castlib2/GetSetPrefs.ls
r101 r104 1 -- store, read and write preferences 2 1 -- GetSetPrefs 2 ----------------------------------- 3 -- CREATED: 4 -- 28.02.2010 5 -- PROPERTIES: 6 --!memberProperties: [#name: "GetSetPrefs", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/GetSetPrefs.ls"] 7 -- 8 -- DESCRIPTION: store, read and write preferences 9 -- - 10 -- 11 -- REQUIRES: 12 -- (Prerequisites) 13 -- 14 -- USAGE: 3 15 -- on startmovie: theResult = call(#mReadPrefs, mGetXscript(#GetSetPrefs), "prefsname") 4 16 -- on stopmovie: theResult = call(#mSavePrefs, mGetXscript(#GetSetPrefs), "prefsname", useAleXML) … … 7 19 -- theResult = call(#mGetPrefValue, mGetXscript(#GetSetPrefs), "prefname") 8 20 -- theResult = call(#mSetPrefValue, mGetXscript(#GetSetPrefs), "prefname", newValue) 9 10 11 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 21 -- 22 -- EXAMPLE: 23 -- - 24 ----------------------------------- 25 26 on _____________________PROPERTY_DECLARATION me 27 end 28 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 29 property ancestor 30 31 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 32 on ___________________STANDARD_EVENTS me 33 end 34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 35 36 on new me 37 Script_Root_Object = member("Script_Root_Object") 38 if ilk(Script_Root_Object) = #member then 39 if Script_Root_Object.type = #script then 40 ancestor = new(script "Script_Root_Object") 41 mSetScriptName me, "GetSetPrefs" 42 end if 43 end if 44 return me 45 end 46 47 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 48 on ___________________PUBLIC_EVENTS me 49 end 50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 51 12 52 13 53 on interface me 14 54 str = "Handle preferences by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 15 55 16 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str56 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 17 57 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 18 58 put RETURN & "on mGetPrefValue me, symbol_propname" after str 19 59 put RETURN & "" after str 20 60 21 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str61 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 22 62 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 23 63 put RETURN & "on mSetPrefValue me, symbol_propname, theValue" after str 24 64 put RETURN & "" after str 25 65 26 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str66 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 27 67 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 28 68 put RETURN & "on mSavePrefs me, string_prefsname, boolean_useAleXML" after str 29 69 put RETURN & "" after str 30 70 31 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str71 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 32 72 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 33 73 put RETURN & "on mReadPrefs me, string_prefsname" after str … … 39 79 40 80 41 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 42 82 on ___________________ACCESS_PREFERENCE_VALUE 43 83 end 44 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 45 85 46 86 … … 55 95 end 56 96 57 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx97 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 58 98 59 99 on mSetPrefValue me, propname, theValue … … 68 108 69 109 70 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx110 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 71 111 on ___________________READ_PREFERENCES 72 112 end 73 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx113 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 74 114 75 115 … … 88 128 resetUNames = 0 89 129 if the platform contains "mac" then 90 if baSysFolder("prefs") starts "/" then91 baReturnUnixNames(0)92 resetUNames = 193 end if130 if baSysFolder("prefs") starts "/" then 131 baReturnUnixNames(0) 132 resetUNames = 1 133 end if 94 134 end if 95 135 … … 156 196 end 157 197 158 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx198 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 159 199 160 200 on mReadPrefs me, prefsname … … 177 217 178 218 if offset("<?xml", prefsText.line[1]) > 0 then 179 -- delete line 1 of prefsText219 -- delete line 1 of prefsText 180 220 181 221 gPrefs = call(#mGetListFromXMLStringX, mGetXScript(#PseudoXMLPS), prefsText) … … 184 224 else 185 225 olddelim = the itemdelimiter 186 the itemdelimiter = " À"226 the itemdelimiter = "¿" 187 227 188 228 anz = prefsText.line.count … … 242 282 243 283 244 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx284 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 245 285 on ___________________SAVE_PREFERENCES 246 286 end 247 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx287 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 248 288 249 289 … … 263 303 resetUNames = 0 264 304 if the platform contains "mac" then 265 if baSysFolder("prefs") starts "/" then266 baReturnUnixNames(0)267 resetUNames = 1268 end if305 if baSysFolder("prefs") starts "/" then 306 baReturnUnixNames(0) 307 resetUNames = 1 308 end if 269 309 end if 270 310 … … 299 339 end 300 340 301 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 302 342 303 343 on mSavePrefs me, prefsname, useAleXML … … 335 375 repeat with n = 1 to anz 336 376 337 if objectP(prefliste) then prefStr = string(prefliste.getPropAt(n))&" À"377 if objectP(prefliste) then prefStr = string(prefliste.getPropAt(n))&"¿" 338 378 339 379 dieserWert = prefliste[n] … … 342 382 343 383 repeat with m = 1 to count(dieserWert) 344 put dieserWert[m]&" À" after prefStr384 put dieserWert[m]&"¿" after prefStr 345 385 end repeat 346 386 347 387 else 348 put prefliste[n]&" À" after prefStr388 put prefliste[n]&"¿" after prefStr 349 389 end if 350 390 -
trunk/lingosource/castlib2/HierMenuManager.ls
r97 r104 1 -- Manager Behavior for Hierarchical Menu by Alex da Franca c2004 da.Franca@online.de1 -- Manager Behavior for Hierarchical Menu by Alex da Franca c2004 alex@farbflash.de 2 2 ----------------------------------------------------------------------------------- 3 3 -- … … 61 61 -- alex am Sonntag, 9. Mai 2004 62 62 -- added pStopOverEvent in order to stop the mouseover event when a higher sprite "eats" it (currently only sent by the table script) 63 -- but it can be sent by any other sprite la sendAllSprites(#mStopOverEvent) to prevent the actions in the enterframe event for the current frame63 -- but it can be sent by any other sprite a la sendAllSprites(#mStopOverEvent) to prevent the actions in the enterframe event for the current frame 64 64 65 65 -- alex am 23. Juli 2004 um 11:48 … … 157 157 158 158 159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 160 160 -- xxxxxxxxxxxxxxxxxx PROPERTIES 161 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx161 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 162 162 163 163 property pInited … … 191 191 property pDrawDisabled, pColor, pBGColor, pRahmenColor, pBGDisabColor 192 192 property pArrowBGColor, pArrowColor, pArrowHLColor, pScrollerWidth 193 property pScrollerScaleMethod 193 194 194 195 property pOSControlScrollBarName … … 211 212 212 213 213 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx214 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 214 215 -- xxxxxxxxxxxxxxxxxx STANDARD EVENTS 215 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 216 217 on _________STANDARD_DIRECTOR_EVENTS 217 218 end … … 222 223 223 224 224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx225 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 225 226 226 227 on endsprite me … … 252 253 end 253 254 254 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx255 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 255 256 256 257 on getPropertyDescriptionList … … 330 331 retliste[#pArrowColor] = [#default:rgb(0,0,0),#format:#color,#comment: "Arrow Color"] 331 332 retliste[#pArrowHLColor] = [#default:rgb(0,0,0),#format:#color,#comment: "Arrow Highlight Color"] 333 retliste[#pScrollerScaleMethod] = [#default: #mResizeImageTiling, #format: #symbol, #range: [#mResizeImageTiling, #mResizeImage, #mResizeImageTilingNoScale], #comment: "Scroller background scale method:"] 332 334 -- retliste[#pValue] = [#default:0,#format:#integer,#comment: "Default Value"] 333 335 -- retliste[#pMinValue] = [#default:0,#format:#integer,#comment: "Minimum Value"] … … 341 343 342 344 343 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx345 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 344 346 345 347 on mouseDown me … … 365 367 end 366 368 367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx369 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 368 370 369 371 on mouseUp me … … 382 384 end 383 385 384 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx386 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 385 387 386 388 on mousewithin me … … 402 404 end 403 405 404 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 405 407 406 408 on mouseLeave me … … 412 414 end 413 415 414 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx416 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 415 417 416 418 on enterframe me … … 589 591 590 592 591 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx593 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 592 594 -- xxxxxxxxxxxxxxxxxx CUSTOM EVENTS 593 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx594 595 596 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx595 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 596 597 598 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 597 599 -- xxxxxxxxxxxxxxxxxx PUBLIC EVENTS: 598 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx600 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 599 601 on _________PUBLIC_EVENTS 600 602 end 601 603 602 604 603 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx605 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 604 606 -- xxxxxxxxxxxxxxxxxx build the menu from a lingo list: 605 607 … … 646 648 647 649 648 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx650 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 649 651 -- xxxxxxxxxxxxxxxxxx Display an existing list as a tree menu 650 652 … … 696 698 697 699 698 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx700 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 699 701 -- xxxxxxxxxxxxxxxxxx refresh the menulist after changing the menu item list 700 702 -- … … 723 725 724 726 725 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx727 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 726 728 -- xxxxxxxxxxxxxxxxxx get a pointer to the currently used data list 727 729 … … 734 736 735 737 736 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx738 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 737 739 -- xxxxxxxxxxxxxxxxxx get a pointer to the currently used formatting list 738 740 … … 745 747 746 748 747 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx749 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 748 750 -- xxxxxxxxxxxxxxxxxx get a duplicate of the current list with property names 749 751 -- this is read-only, you can't change it duriong a menu is showing, it would yield unexpected reults or errors … … 758 760 759 761 760 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx762 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 761 763 -- xxxxxxxxxxxxxxxxxx hide the menulist 762 764 … … 785 787 786 788 787 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx789 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 788 790 -- xxxxxxxxxxxxxxxxxx show the previously hidden menu at the same rect with the same items 789 791 … … 796 798 end 797 799 798 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx800 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 799 801 -- xxxxxxxxxxxxxxxxxx scroll to and select the item with the ID <newID> 800 802 -- <newID> can be either a integer or (the way the script itself works) a linear list of integer values … … 810 812 811 813 812 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx814 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 813 815 -- xxxxxxxxxxxxxxxxxx close or open all folders at once 814 816 … … 824 826 end 825 827 826 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx828 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 827 829 -- xxxxxxxxxxxxxxxxxx get rect on screen of a node 828 830 … … 835 837 end 836 838 837 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx839 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 838 840 -- xxxxxxxxxxxxxxxxxx get the selected lines in a list 839 841 … … 844 846 end 845 847 846 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx848 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 847 849 -- xxxxxxxxxxxxxxxxxx select a line 848 850 -- <linenumber> = #integer … … 856 858 end 857 859 858 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx860 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 859 861 -- xxxxxxxxxxxxxxxxxx open close node 860 862 -- <linenumber> = #integer … … 868 870 end 869 871 870 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx872 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 871 873 -- xxxxxxxxxxxxxxxxxx set a new rect on screen 872 874 -- <newRect> = #rect … … 897 899 end 898 900 899 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx901 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 900 902 -- xxxxxxxxxxxxxxxxxx compatibility with resize stage scripts 901 903 … … 906 908 end 907 909 908 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx910 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 909 911 -- xxxxxxxxxxxxxxxxxx event fromn resize bar behavior 910 912 … … 914 916 end 915 917 916 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx918 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 917 919 -- xxxxxxxxxxxxxxxxxx move the menu on screen by <delta> amount 918 920 -- <delta> = #point … … 940 942 941 943 942 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx944 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 943 945 944 946 on mStopItemDragListener me … … 950 952 end 951 953 952 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx954 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 953 955 954 956 on mStartItemDragListener me … … 962 964 963 965 964 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx966 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 965 967 966 968 on mWheelMouseEvent me, theVal … … 976 978 977 979 978 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx980 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 979 981 on _________HELPER_SCRIPTS me 980 982 end 981 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx983 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 982 984 983 985 -- sort the hierarchical menu list, by propname (default => #title) … … 1005 1007 1006 1008 1007 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1009 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1008 1010 -- xxxxxxxxxxxxxxxxxx EVENTS FROM MENULIST: 1009 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1011 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1010 1012 on _________EVENTS_FROM_MENULIST 1011 1013 end 1012 1014 1013 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1015 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1014 1016 -- xxxxxxxxxxxxxxxxxx This is the event we get when the users clicks on an item 1015 1017 … … 1055 1057 1056 1058 1057 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1059 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1058 1060 -- xxxxxxxxxxxxxxxxxx PRIVATE EVENTS: 1059 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1061 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1060 1062 on _________PRIVATE_EVENTS 1061 1063 end 1062 1064 1063 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1065 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1064 1066 -- xxxxxxxxxxxxxxxxxx beginsprite: 1065 1067 … … 1101 1103 end 1102 1104 1103 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1104 1106 -- xxxxxxxxxxxxxxxxxx Setup: 1105 1107 … … 1294 1296 1295 1297 -- custom scrollbar images: 1296 -- scroller[#scrollArrowNormal] = imageObject or member reference or member name 1297 -- scroller[#scrollArrowHilite] = imageObject or member reference or member name -- <optional> 1298 -- scroller[#scrollBGNormal] = imageObject or member reference or member name 1299 -- scroller[#scrollBGHilite] = imageObject or member reference or member name -- <optional> 1300 -- scroller[#scrollThumbNormal] = imageObject or member reference or member name 1301 -- scroller[#scrollThumbHilite] = imageObject or member reference or member name -- <optional> 1298 -- scroller[#scrollArrowNormal] = "SSB_Arrow_Normal" 1299 -- scroller[#scrollArrowHilite] = "SSB_Arrow_HighLight" 1300 -- scroller[#scrollBGNormal] = "SSB_BG_Normal" 1301 -- scroller[#scrollBGHilite] = "SSB_BG_HighLight" 1302 -- scroller[#scrollThumbNormal] = "SSB_Thumb_Normal" 1303 -- scroller[#scrollThumbHilite] = "SSB_Thumb_HighLight" 1304 1305 scroller[#scaleMethod] = pScrollerScaleMethod 1302 1306 1303 1307 … … 1330 1334 1331 1335 1332 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1336 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1333 1337 -- xxxxxxxxxxxxxxxxxx Resize: 1334 1338 … … 1397 1401 end 1398 1402 1399 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1403 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1400 1404 1401 1405 on mBeginResize me, cl, theRect … … 1418 1422 end 1419 1423 1420 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1424 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1421 1425 1422 1426 on mDoResize me, ml, theRect … … 1442 1446 end 1443 1447 1444 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1448 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1445 1449 -- xxxxxxxxxxxxxxxxxx Mouse events: 1446 1450 … … 1473 1477 end 1474 1478 1475 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1479 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1476 1480 1477 1481 on mHandleMouseUpEvent me, cl … … 1496 1500 1497 1501 1498 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1502 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1499 1503 -- xxxxxxxxxxxxxxxxxx INCOMING EVENTS FROM SCRIPTOBJECT: 1500 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1501 1502 1503 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1504 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1505 1506 1507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1504 1508 -- xxxxxxxxxxxxxxxxxx Update image event 1505 1509 … … 1539 1543 1540 1544 1541 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1545 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1542 1546 -- xxxxxxxxxxxxxxxxxx 3-D stuff: 1543 1547 … … 1590 1594 end 1591 1595 1592 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1596 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1593 1597 1594 1598 on mCreatePowerImg me, whichImg, powerbreite, powerhoehe … … 1606 1610 end 1607 1611 1608 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1612 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1609 1613 1610 1614 on mGetOlayIndex me, camObj, tex … … 1617 1621 end 1618 1622 1619 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1623 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1620 1624 1621 1625 on mGetTexname me … … 1625 1629 1626 1630 1627 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1631 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1628 1632 -- check if rgba8888 is available and if not try if rgba4444 is possible 1629 1633 … … 1650 1654 1651 1655 1652 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1656 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1653 1657 -- xxxxxxxxxxxxxxxxxx wrapper handler to be compatible with other scripts 1654 1658 -
trunk/lingosource/castlib2/ImageUtilityScripts.ls
r101 r104 1 -- xxxxx IMAGING UTILS 2 -- Alex da Franca c2002 da.franca@online.de 3 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4 1 -- ImageUtilityScripts 2 ----------------------------------- 3 -- CREATED: 4 -- Alex da Franca c2002 alex@farbflash.de 5 -- PROPERTIES: 6 --!memberProperties: [#name: "ImageUtilityScripts", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/ImageUtilityScripts.ls"] 7 -- 8 -- DESCRIPTION: IMAGING UTILS 9 -- - 10 -- 11 -- REQUIRES: 12 -- (Prerequisites) 13 -- 14 -- USAGE: 15 -- - 16 -- 17 -- HISTORY: 18 -- - 5 19 -- alex am 13.03.2004 um 13:36 6 20 -- added mScaleToMax … … 14 28 -- Scriptmarker (02.10.2005 at 2:43 Uhr): alex neuer handler // Scriptmarker 15 29 -- mGetTextMemberImage 30 ----------------------------------- 31 32 on _____________________PROPERTY_DECLARATION me 33 end 34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 35 property ancestor 36 37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 38 on ___________________STANDARD_EVENTS me 39 end 40 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 41 42 on new me 43 Script_Root_Object = member("Script_Root_Object") 44 if ilk(Script_Root_Object) = #member then 45 if Script_Root_Object.type = #script then 46 ancestor = new(script "Script_Root_Object") 47 mSetScriptName me, "ImageUtilityScripts" 48 end if 49 end if 50 return me 51 end 16 52 17 53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx … … 68 104 69 105 70 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx106 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 71 107 -- alex am 16. Juni 2004 um 09:04 72 108 -- tile up an image in chunks of powers of 2 … … 106 142 end 107 143 108 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx144 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 109 145 110 146 on mPatternImage me, img, patternImg … … 124 160 end 125 161 126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 162 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 163 164 on mResizeImage me, image_Img, int_width, int_height 165 ----------------------------------- 166 -- CREATED: 14.08.2009 167 -- ACTION: Simply scale an imageObject to a ceratin width WITHOUT preserving the ratio 168 -- to preserve the ratio use mScaleToMax() instead 169 -- INPUT: <image_Img> ; image object ; input image 170 -- <int_width> ; integer ; new width for image 171 -- <int_height> ; integer ; new height for image 172 -- RETURNS: new image object 173 -- EXAMPLE: scaledImage = xscr(#ImageUtilityScripts).mResizeImage(unscaledImage, 300, 400) 174 ----------------------------------- 175 176 if ilk(image_Img) <> #image then return image_Img 177 if image_Img.useAlpha = 1 then 178 alph = image_Img.extractAlpha() 179 image_Img.useAlpha = 0 180 img = image(int_width, int_height, 32, 1) 181 img.copyPixels(image_Img, img.rect, image_Img.rect, [#dither:1969]) 182 newAlph = image(img.width, img.height, 8, 0, #grayscale) 183 newAlph.copyPixels(alph, newAlph.rect, alph.rect, [#dither:1969]) 184 img.setAlpha(newAlph) 185 image_Img.useAlpha = 1 186 else 187 img = image(int_width, int_height, image_Img.depth, 0, image_Img.paletteref) 188 img.copyPixels(image_Img, img.rect, image_Img.rect, [#dither:1969]) 189 end if 190 return img 191 end 192 193 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 127 194 128 195 -- scales image only down to fit, by preserving the ratio … … 163 230 164 231 165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 166 233 167 234 -- centers one image on another, with or without scaling down … … 199 266 end if 200 267 201 202 268 return targetImg 203 269 204 270 end 205 271 206 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx272 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 207 273 208 274 … … 288 354 end 289 355 290 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx356 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 291 357 292 358 -- skaliert ein image per pixelwiederholung der mittleren pixel … … 396 462 397 463 398 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx464 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 399 465 400 466 … … 404 470 end 405 471 406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx472 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 407 473 408 474 -- spiegelt ein image vertikal … … 411 477 end 412 478 413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx479 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 414 480 415 481 on mFlipImage me, theImage, theMode 416 482 417 483 temp = theImage.duplicate() 418 484 theRect = theImage.rect … … 425 491 theImage.useAlpha = 0 426 492 end if 427 493 428 494 if theMode = #horizontal then 429 495 theQuad = [point(theWidth, 0), point(0, 0), point(0, theHeight), point(theWidth, theHeight)] … … 431 497 theQuad = [point(0, theHeight), point(theWidth, theHeight), point(theWidth,0), point(0, 0)] 432 498 end if 433 499 434 500 temp.copyPixels(theImage, theQuad, theImage.rect, [#dither:1969]) 435 501 … … 443 509 end 444 510 445 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx511 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 446 512 447 513 on mApplyRoundRectMask me, bm, theRadius … … 462 528 end 463 529 464 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx530 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 465 531 466 532 on mCreateRoundRectMask me, theRect, theRadius … … 499 565 500 566 501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx567 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 502 568 -- omit bgcolor to use pure white as bgcolor 503 569 -- if you want to use white omit bgcolor as it speeds up execution … … 529 595 end 530 596 531 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx597 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 532 598 -- crop the transparent parts of a bitmap member but preserve the regpoint 533 599 -- useful in conjunction with PSD export layers to files … … 538 604 539 605 540 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx606 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 541 607 -- omit bgcolor to use pure white as bgcolor 542 608 -- if you want to use white omit bgcolor as it speeds up execution … … 557 623 558 624 559 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx625 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 560 626 -- xxxxxxxxxxxxxxxxxx Render textmember image with background (textmember.image doesn't work with background) 561 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx627 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 562 628 563 629 on mGetTextMemberImage me, textmember … … 572 638 573 639 574 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx640 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 575 641 -- xxxxxxxxxxxxxxxxxx Get an 8-bit grayscale image of a string 576 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx642 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 577 643 578 644 -- required parameters: … … 627 693 fontsize = abs(fontsize) 628 694 cms = mGetXScript() 629 templateTextMember = cms.mGetATextMem(cms.mGetAFont(string(options.getaprop(#myFont))), fontsize, options.getaprop(#myAntialias)) 695 theFont = cms.mGetAFont(string(options.getaprop(#myFont))) 696 if length(theFont) < 1 then theFont = "Arial" 697 templateTextMember = cms.mGetATextMem(theFont, fontsize, options.getaprop(#myAntialias)) 630 698 end if 631 699 632 700 if options.getaprop(#dontSetText) <> 1 then templateTextMember.text = theString&" " 633 701 634 if ilk(maxWidth) <> #integer then maxWidth = 350 702 if ilk(maxWidth) <> #integer then 703 respectMaxWidth = 0 704 maxWidth = 350 705 else 706 respectMaxWidth = 1 707 end if 635 708 if templateTextMember.width <> maxWidth then templateTextMember.width = maxWidth 636 709 … … 654 727 len = 0 655 728 lc = templateTextMember.line.count 729 656 730 repeat with n = 1 to lc 731 732 firstLetterNR = len + 1 657 733 len = len + theString.line[n].length + 1 658 textbreite = max(textbreite, templateTextMember.charPosToLoc(len).locH) 734 735 736 if dontwrap = 1 then 737 738 thisLineWidth = templateTextMember.charPosToLoc(len).locH 739 740 if respectMaxWidth = 1 then 741 if thisLineWidth > maxWidth then 742 743 repeat while thisLineWidth > maxWidth 744 templateTextMember.char[len].delete() 745 delete char len of theString 746 len = len - 1 747 thisLineWidth = templateTextMember.charPosToLoc(len).locH 748 end repeat 749 750 lenDup = len 751 repeat with m = 1 to 3 752 templateTextMember.char[lenDup].delete() 753 templateTextMember.char[lenDup - 1].setContentsAfter(".") 754 put "." into char lenDup of theString 755 lenDup = lenDup - 1 756 end repeat 757 758 end if 759 end if 760 761 else 762 -- we need to check the letter that is rightmost, not the one 763 -- that might be wrapped into next line 764 765 lastLetterNR = len 766 firstLetterP = templateTextMember.charPosToLoc(firstLetterNR) 767 lastLetterP = templateTextMember.charPosToLoc(len) 768 769 if firstLetterP[2] <> lastLetterP[2] and firstLetterNR <> lastLetterNR then 770 771 -- octree searching for the right most char in upper line 772 repeat while TRUE 773 centerNR = (firstLetterNR + lastLetterNR) / 2 774 775 if centerNR = firstLetterNR or centerNR = lastLetterNR then 776 -- found last char in upper line 777 thisLineWidth = firstLetterP[1] 778 exit repeat 779 780 else 781 centerLetterP = templateTextMember.charPosToLoc(centerNR) 782 if centerLetterP[2] > firstLetterP[2] then 783 -- we are wrapped in next line 784 lastLetterNR = centerNR 785 lastLetterP = centerLetterP 786 else 787 -- we are still in upper line 788 firstLetterNR = centerNR 789 firstLetterP = centerLetterP 790 end if 791 end if 792 end repeat 793 794 795 else 796 thisLineWidth = lastLetterP[1] 797 end if 798 799 end if 800 801 textbreite = max(textbreite, thisLineWidth) 659 802 end repeat 803 660 804 -- textbreite = templateTextMember.charPosToLoc((theString.length + 1)).locH 661 805 if options.getaprop(#dontSetText) <> 1 then templateTextMember.char[theString.length + 1].delete() 662 806 if oldboxType <> #adjust then templateTextMember.boxtype = oldboxType 663 807 808 textalignment = options[#textalignment] 809 if [#center, #right].getPos(textalignment) > 0 then 810 oldTextalign = templateTextMember.alignment 811 templateTextMember.alignment = textalignment 812 end if 813 814 if dontCrop <> 1 then 815 oldtextwidth = templateTextMember.width 816 templateTextMember.width = textbreite + 1 -- why ever I need this one pixel here...?!? 817 end if 818 664 819 textimg = templateTextMember.image.extractalpha() 665 820 666 if dontCrop <> 1 then textimg = textimg.crop(rect(0, 0, textbreite, textimg.height)) 821 -- if dontCrop <> 1 then textimg = textimg.crop(rect(0, 0, textbreite, textimg.height)) 822 823 if ilk(oldTextalign) = #symbol then templateTextMember.alignment = oldTextalign 824 if ilk(oldtextwidth) = #integer then templateTextMember.width = oldtextwidth 667 825 668 826 … … 678 836 end 679 837 680 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx838 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 681 839 682 840 … … 740 898 end 741 899 742 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx900 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 743 901 744 902 on getColorBlend me … … 769 927 end 770 928 771 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx929 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 772 930 773 931 -- alle vorkommnisse einer farbe in einem image aendern … … 783 941 end 784 942 785 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx943 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 786 944 787 945 -- james newtons version: … … 812 970 813 971 814 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx972 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 815 973 816 974 … … 851 1009 end 852 1010 853 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1011 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 854 1012 855 1013 on revertImg me, img … … 859 1017 end 860 1018 861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1019 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 862 1020 863 1021 on weichzeichnen me, img … … 874 1032 end 875 1033 876 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1034 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 877 1035 878 1036 on mDesaturate me, img … … 899 1057 900 1058 901 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1059 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 902 1060 -- xxxxxxxxxxxxxxxxxx CONVERT COLOR OBJECTS 903 1061 … … 905 1063 -- It is based on such intuitive color characteristics as tint, shade and tone (or family, purety and intensity). 906 1064 -- The coordinate system is cylindrical, and the colors are defined inside a hexcone. 907 -- The hue value H runs from 0 to 360 Œ. The saturation S is the degree of strength or purity and is from 0 to 1.1065 -- The hue value H runs from 0 to 360 degrees. The saturation S is the degree of strength or purity and is from 0 to 1. 908 1066 -- Purity is how much white is added to the color, so S=1 makes the purest color (no white). 909 1067 -- Brightness V also ranges from 0 to 1, where 0 is the black. … … 962 1120 end 963 1121 964 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1122 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 965 1123 966 1124 on HSVtoRGB me, hsv -- [float, float, float] -- winkel, saettigung, helligkeit … … 1189 1347 end 1190 1348 1191 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1349 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1192 1350 1193 1351 on interface me … … 1195 1353 str = "IMAGING LINGO UTILS by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 1196 1354 1197 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1355 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1198 1356 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1199 1357 put RETURN & "on mDrehImg me, img, deg, tws" after str 1200 1358 put RETURN & "" after str 1201 1359 1202 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1360 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1203 1361 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1204 1362 put RETURN & "on mTileTextureImage me, img" after str 1205 1363 put RETURN & "" after str 1206 1364 1207 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1365 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1208 1366 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1209 1367 put RETURN & "on mPatternImage me, img, patternImg" after str 1210 1368 put RETURN & "" after str 1211 1369 1212 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1370 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1371 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1372 put RETURN & "on mResizeImage me, image_Img, int_width, int_height" after str 1373 put RETURN & "" after str 1374 1375 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1213 1376 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1214 1377 put RETURN & "on mScaleToMax me, imgObj, maxW, maxH" after str 1215 1378 put RETURN & "" after str 1216 1379 1217 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1380 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1218 1381 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1219 1382 put RETURN & "on mResizeImageTiling me, img, breite, hoehe" after str 1220 1383 put RETURN & "" after str 1221 1384 1222 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1385 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1223 1386 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1224 1387 put RETURN & "on mSpiegelHoriz me, img" after str 1225 1388 put RETURN & "" after str 1226 1389 1227 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1390 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1228 1391 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1229 1392 put RETURN & "on mSpiegelVerti me, img" after str 1230 1393 put RETURN & "" after str 1231 1394 1232 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1395 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1233 1396 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1234 1397 put RETURN & "on mApplyRoundRectMask me, bm, theRadius" after str 1235 1398 put RETURN & "" after str 1236 1399 1237 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1400 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1238 1401 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1239 1402 put RETURN & "on mCreateRoundRectMask me, theRect, theRadius" after str 1240 1403 put RETURN & "" after str 1241 1404 1242 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1405 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1243 1406 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1244 1407 put RETURN & "on mGetCropRect me, img, bgcolor" after str 1245 1408 put RETURN & "" after str 1246 1409 1247 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1410 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1248 1411 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1249 1412 put RETURN & "on mCropTransparency me, bmMember" after str 1250 1413 put RETURN & "" after str 1251 1414 1252 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1415 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1253 1416 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1254 1417 put RETURN & "on mTrimMember me, bmMember, bgcolor" after str 1255 1418 put RETURN & "" after str 1256 1419 1257 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1420 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1258 1421 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1259 1422 put RETURN & "on mGetTextMemberImage me, textmember" after str 1260 1423 put RETURN & "" after str 1261 1424 1262 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1425 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1263 1426 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1264 1427 put RETURN & "on mGetTextImage me, theString, options, maxWidth, templateTextMember" after str 1265 1428 put RETURN & "" after str 1266 1429 1267 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1430 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1268 1431 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1269 1432 put RETURN & "on mDrawFilledPolygon me, vlist" after str 1270 1433 put RETURN & "" after str 1271 1434 1272 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1435 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1273 1436 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1274 1437 put RETURN & "on getColorBlend me" after str 1275 1438 put RETURN & "" after str 1276 1439 1277 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1440 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1278 1441 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1279 1442 put RETURN & "on replaceColor me, img, ptOrColor, newColor" after str 1280 1443 put RETURN & "" after str 1281 1444 1282 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1445 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1283 1446 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1284 1447 put RETURN & "on isolatePixels me, anImage, aColor" after str 1285 1448 put RETURN & "" after str 1286 1449 1287 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1450 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1288 1451 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1289 1452 put RETURN & "on makeOneBitMask me, img, ptOrColor" after str 1290 1453 put RETURN & "" after str 1291 1454 1292 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1455 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1293 1456 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1294 1457 put RETURN & "on revertImg me, img" after str 1295 1458 put RETURN & "" after str 1296 1459 1297 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1460 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1298 1461 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1299 1462 put RETURN & "on weichzeichnen me, img" after str 1300 1463 put RETURN & "" after str 1301 1464 1302 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1465 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1303 1466 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1304 1467 put RETURN & "on mDesaturate me, img" after str 1305 1468 put RETURN & "" after str 1306 1469 1307 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1470 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1308 1471 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1309 1472 put RETURN & "on RGBtoHSV me, col" after str 1310 1473 put RETURN & "" after str 1311 1474 1312 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1475 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1313 1476 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1314 1477 put RETURN & "on HSVtoRGB me, hsv -- [float, float, float] -- winkel, saettigung, helligkeit" after str 1315 1478 put RETURN & "" after str 1316 1479 1317 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1480 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1318 1481 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1319 1482 put RETURN & "on mSinning_BlendSprite me, vSprite, percent" after str 1320 1483 put RETURN & "" after str 1321 1484 1322 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1485 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1323 1486 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1324 1487 put RETURN & "on mSinning_ColorBlend me, rgbColor, blendPercent" after str 1325 1488 put RETURN & "" after str 1326 1489 1327 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1490 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1328 1491 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1329 1492 put RETURN & "on RGBtoHSL me, rgbColor -- given a lingo rgb color object, return an HSL color [#hue:H, #sat:S, #lum:L]" after str 1330 1493 put RETURN & "" after str 1331 1494 1332 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1495 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1333 1496 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1334 1497 put RETURN & "on HSLtoRGB me, hslColor -- given an HSL color ([#hue:H, #sat:S, #lum:L]), return a lingo rgb color object" after str 1335 1498 put RETURN & "" after str 1336 1499 1337 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1500 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1338 1501 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1339 1502 put RETURN & "on HueToRGB me, n1,n2,hue -- an auxilary handler" after str -
trunk/lingosource/castlib2/PseudoXMLPS.ls
r101 r104 2 2 ----------------------------------- 3 3 -- CREATED: 4 -- 06.03.20084 -- 2002 5 5 -- 6 6 -- DESCRIPTION: 7 7 -- Pseudo XML by Alex da Franca c2003 8 -- Convert a lingo list to a XML like string and back8 -- Convert a lingo list to a XML like string and back 9 9 10 10 -- 11 11 -- REQUIRES: 12 -- (Prerequisites) 12 -- only the functions mSaveList_2_XML() and mReadXML_2_List() require my system of library scripts 13 -- in order to write and read text with fileio. All other functions have no dependencies 14 -- Either get these scripts from my website, or replace the write/read stuff with your own fileIO handlers 15 -- That is: 16 -- * movie script "aleXtrasMovieScript" 17 -- * parent script "commonMovieScript" 18 -- * parent script "FileIOFunktionen" 13 19 -- 14 20 -- USAGE: 21 -- ---------- please see the comments for each handler for a how-to. 22 -- ---------- nonetheless here are some fast start comments with the minimum amount of parameters 23 -- PseudoXMLPS = new(script "PseudoXMLPS") 24 -- -- Convert a list to an xml string: 25 -- xmlString = PseudoXMLPS.mGetXMLStringFromList(["one", "two", [#prop: 3]]) 26 -- lingolist = PseudoXMLPS.mGetListFromXMLString(xmlString) 27 -- ---------- basically that's it 28 -- 29 -- ---------- another "hack" to be aware of is the following: 30 -- ---------- linear lists get identified by having a nodename which starts with the exact string "item" 31 -- ---------- so if an xml node like <item1>one</item1> is encountered, it is treated as linear list: ["one"] 32 -- ---------- and NOT as [#item1:"one"] 33 -- 34 -- ---------- the mGetXMLStringFromList() function escapes the reserved xml chars <> and & and ' and " by default 35 -- ---------- if for some reason you rather want to enclose the contents in a <![CDATA[ tag, use the dontReplaceGT flag. 36 --------------------------------------------- EXAMPLE for <dontReplaceGT = 1> (dontReplaceGT means don't replace "greater than" btw...): 37 -- 15 38 -- myList = [#stringWithInvalidChars:"A string with invalid chars like <> and & and ' and " & QUOTE] 16 39 -- myList[#stringWithInvalidChars] = "<![CDATA[" & myList[#stringWithInvalidChars] & "]]>" 17 40 -- xmlString = PseudoXMLPS.mGetXMLStringFromList(myList, "myList", 1, 1) 18 41 -- ... 19 -- myList = PseudoXMLPS.mGetListFromXMLString X(xmlString)42 -- myList = PseudoXMLPS.mGetListFromXMLString(xmlString) 20 43 -- repeat with n = countmyList) down to 1 21 44 -- thisValue = myList[n] … … 28 51 -- end if 29 52 -- end repeat 53 --------------------------------------------- please note, that the above example is ONLY needed, if you use dontReplaceGT = 1 !! 30 54 -- 31 55 -- HISTORY: … … 53 77 ----------------------------------- 54 78 55 56 79 on _____________________PROPERTY_DECLARATION me 80 end 81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 82 property ancestor 83 property pXMLParserXtra 84 property pXmlxtraversion, pVersionNumber 85 86 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 87 on ___________________STANDARD_EVENTS me 88 end 89 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 90 91 on new me 92 Script_Root_Object = member("Script_Root_Object") 93 if ilk(Script_Root_Object) = #member then 94 if Script_Root_Object.type = #script then 95 ancestor = new(script "Script_Root_Object") 96 mSetScriptName me, "PseudoXMLPS" 97 end if 98 end if 99 return me 100 end 101 102 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 103 on ___________________ENGINE_EVENTS me 104 end 105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 106 107 on mDestroy me 108 pXMLParserXtra = void 109 end 110 111 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 57 112 on ___________PUBLIC_EVENTS me 58 113 end 59 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 60 61 on new me 62 return me 63 end 64 65 114 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 66 115 67 116 -- on handler me … … 81 130 82 131 put RETURN & "----- Parse XML-ish string to lingo list" after str 132 put RETURN & "on mGetListFromXMLStringlingo me, string_XMLstring, integer_convertValues" after str 133 put RETURN & "-- -- <convertValues> #integer" after str 134 put RETURN & "-- -- -- 0 => don't convert (fast, all values are strings)" after str 135 put RETURN & "-- -- -- 1 => convert only integer() and float() (slower)" after str 136 put RETURN & "-- -- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow)" after str 137 put RETURN & "------------ RETURNS property list" after str 138 put RETURN after str 139 140 put RETURN & "----- Parse XML string to lingo list using XML xtra:" after str 83 141 put RETURN & "on mGetListFromXMLString me, string_XMLstring, integer_convertValues" after str 84 142 put RETURN & "-- -- <convertValues> #integer" after str … … 89 147 put RETURN after str 90 148 91 put RETURN & "----- Parse XML string to lingo list using XML xtra:" after str92 put RETURN & "on mGetListFromXMLStringX me, string_XMLstring, integer_convertValues" after str93 put RETURN & "-- -- <convertValues> #integer" after str94 put RETURN & "-- -- -- 0 => don't convert (fast, all values are strings)" after str95 put RETURN & "-- -- -- 1 => convert only integer() and float() (slower)" after str96 put RETURN & "-- -- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow)" after str97 put RETURN & "------------ RETURNS property list" after str98 put RETURN after str99 100 149 put RETURN & "----- Read Apple-style plist file and convert it to a lingo property list:" after str 101 150 put RETURN & "on mReadPList me, string_Filename" after str … … 121 170 122 171 123 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx172 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 124 173 -- xxxxxxxxxxxxxxxxxx Convert lingo list (also nested lists) to XML stylish string 125 174 … … 129 178 -- ACTION: Convert lingo list (also nested lists) to XML stylish string 130 179 -- INPUT: 131 --<listref> format: property list or linear list132 --<docName> format: #string; optional. if omitted "Untitled" is used for the XML document name180 -- <listref> format: property list or linear list 181 -- <docName> format: #string; optional. if omitted "Untitled" is used for the XML document name 133 182 -- <strict> => boolean; avoid spaces in tag names 134 183 -- <dontReplaceGT> => boolean; dont replace < and > 135 184 -- <withParams> => boolean; write attribute in tag for the lingo ilk => bigger xml files and unfortunately it is slower to parse 136 ----------------------------- (I thought avoiding value() would help, but in this case the additional text parsing of the attributes tag slows down)185 ----------------------------- (I thought avoiding value() would help, but in this case the additional text parsing of the attributes tag slows down) 137 186 -- RETURNS: string 138 187 -- EXAMPLE: saveString = mGetXMLStringFromList(me, lingo_list, "documentName") … … 150 199 151 200 if not(string(docName).length) then docName = "Untitled" 201 if not("abcdefghijklmnopqrstuvwxyz_" contains char 1 of docname) then put "a" before docname 152 202 put "<" & docName & ">" & RETURN after str 153 203 … … 164 214 165 215 166 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 167 217 -- xxxxxxxxxxxxxxxxxx Convert XML stylish string to lingo list 168 218 169 219 170 on mGetListFromXMLString me, str, convertValues, withParams220 on mGetListFromXMLStringlingo me, str, convertValues, withParams 171 221 ----------------------------------- 172 222 -- CREATED: 06.03.2008 173 223 -- ACTION: Description 174 224 -- INPUT: 175 --<str> format: #string; split a string using <> and </> tags into lingo list176 --<convertValues> #integer 0=>don't convert (fast, all values are strings), 1 => convert only numbers (slower); 2 => try to convert all data, even colors (slow)225 -- <str> format: #string; split a string using <> and </> tags into lingo list 226 -- <convertValues> #integer 0=>don't convert (fast, all values are strings), 1 => convert only numbers (slower); 2 => try to convert all data, even colors (slow) 177 227 -- <withParams> : #boolean : parse parameters too. new, not very well tested 178 228 -- RETURNS: property list 179 -- EXAMPLE: lingo_list = mGetListFromXMLString (me, saveString)229 -- EXAMPLE: lingo_list = mGetListFromXMLStringlingo(me, saveString) 180 230 -- CHANGES: implemented parameter parsing 181 231 ----------------------------------- … … 212 262 213 263 214 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 215 216 217 property pXmlxtraversion 264 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 265 -- this is just backward compatibility with older scripts 218 266 219 267 on mGetListFromXMLStringX me, str, convertValues, withParams 268 return mGetListFromXMLString(me, str, convertValues, withParams) 269 end 270 271 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 272 273 on mGetListFromXMLString me, str, convertValues, withParams 220 274 ----------------------------------- 221 275 -- CREATED: 06.03.2008 … … 224 278 -- BUT it must be a valid xml string, the above is slower but allows more malformed xml 225 279 -- INPUT: 226 --<str> format: #string; split a string using <> and </> tags into lingo list227 --<convertValues> #integer228 ---- -- 0 => don't convert (fast, all values are strings)229 ---- -- 1 => convert only integer() and float() (slower)230 ---- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow)280 -- <str> format: #string; split a string using <> and </> tags into lingo list 281 -- <convertValues> #integer 282 -- -- -- 0 => don't convert (fast, all values are strings) 283 -- -- -- 1 => convert only integer() and float() (slower) 284 -- -- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow) 231 285 -- RETURNS: property list 232 -- EXAMPLE: lingo_list = mGetListFromXMLString X(me, saveString)286 -- EXAMPLE: lingo_list = mGetListFromXMLString(me, saveString) 233 287 -- CHANGES: resorts to the slower lingo function on xml parser error. So this handler can always be used. 234 288 ----------------------------------- … … 275 329 end if 276 330 277 if pXmlxtraversion < 10 then return mGetListFromXMLString (me, str, convertValues, withParams)331 if pXmlxtraversion < 10 then return mGetListFromXMLStringlingo(me, str, convertValues, withParams) 278 332 ------------------ end XML Parser xtra version 10 check 279 333 … … 294 348 end if 295 349 296 xt = new(xtra "XmlParser") 297 xt.parseString(str) 298 299 if not(voidP(xt.getError())) then 300 put "Script: PseudoXMLPS; Handler: mGetListFromXMLStringX; error:" && xt.getError() 301 return mGetListFromXMLString(me, str, convertValues, withParams) 302 end if 303 304 xx = xt.makePropList() 350 351 if not(objectP(pXMLParserXtra)) then pXMLParserXtra = new(xtra "XmlParser") 352 pXMLParserXtra.parseString(str) 353 354 if not(voidP(pXMLParserXtra.getError())) then 355 put "Script: PseudoXMLPS; Handler: mGetListFromXMLString; error:" && pXMLParserXtra.getError() 356 return mGetListFromXMLStringlingo(me, str, convertValues, withParams) 357 end if 358 359 xx = pXMLParserXtra.makePropList() 305 360 dontEscapeSpecialChars = 1 -- we do not need to do this, as the xmlparser xtra already did it for us 306 361 li = mConvertXMLPropList(me, [xx], convertValues, dontEscapeSpecialChars) 307 362 308 -- put "x" && the milliseconds - ms363 -- put "PseudoXMLPS: mGetListFromXMLString:" && the milliseconds - ms 309 364 310 365 if not(listP(li)) then return [:] … … 314 369 end 315 370 316 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx371 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 317 372 on _______________READ_WRITE_EXTERNAL_FILES 318 373 end 319 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx374 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 320 375 321 376 on mReadXML_2_List me, thePath … … 327 382 ----------------------------------- 328 383 329 dertext = xscr(#FileIOFunktionen).mGetTextFromFile(thePath )330 if length(dertext) > 0 then return xscr(#PseudoXMLPS).mGetListFromXMLStringX(dertext)384 dertext = xscr(#FileIOFunktionen).mGetTextFromFile(thePath, void, "windows-1252") 385 if length(dertext) > 0 then return mGetListFromXMLString(me, dertext) 331 386 return [:] 332 387 end 333 388 334 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx389 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 335 390 336 391 on mSaveList_2_XML me, theList, thePath … … 345 400 346 401 if not(listP(theList)) then return 0 347 theResult = xscr(#PseudoXMLPS).mGetXMLStringFromList(theList)402 theResult = mGetXMLStringFromList(me, theList) 348 403 return xscr(#FileIOFunktionen).mSaveToTextFile(theResult, thePath) 349 404 end 350 405 351 406 352 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx407 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 353 408 -- xxxxxxxxxxxxxxxxxx Privat Handlers 354 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx409 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 355 410 -- (used recursively for mGetXMLStringFromList() and mGetListFromXMLString()) 356 411 … … 439 494 440 495 441 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx496 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 442 497 443 498 on mParseXMLString me, str, selector, convertValues … … 722 777 end 723 778 724 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx779 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 725 780 726 781 on mConvertToNumber me, val … … 751 806 end 752 807 753 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx808 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 754 809 755 810 on mFindIlk me, val … … 776 831 v2 = value(val) 777 832 778 if ilk(v2) = #vectorthen return v2833 if [#vector, #rect, #point, #float].getPos(ilk(v2)) then return v2 779 834 780 835 if abs(length(string(v2)) - length(val)) > 1 then return void -- in case of symbols the # gets stripped, when we use the string() function … … 784 839 785 840 786 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx841 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 787 842 788 843 on mRemoveXMLComments me, str … … 827 882 end 828 883 829 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx884 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 830 885 831 886 on mEscapeSpecialChars me, str 832 887 833 val = mReplaceAllGT(me, val, "&", "&")834 val = mReplaceAllGT(me, string(str), "<", "<")888 val = mReplaceAllGT(me, string(str), "&", "&") 889 val = mReplaceAllGT(me, val, "<", "<") 835 890 val = mReplaceAllGT(me, val, ">", ">") 836 891 val = mReplaceAllGT(me, val, "'", "'") … … 841 896 end 842 897 843 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx898 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 844 899 845 900 on mUnEscapeSpecialChars me, str … … 854 909 end 855 910 856 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx911 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 857 912 858 913 on mReplaceAllGT me, srcText, fromChunk, toChunk … … 867 922 end 868 923 869 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx924 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 870 925 871 926 -- mit offset() … … 893 948 end 894 949 895 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx950 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 896 951 897 952 property pRegExtra … … 911 966 912 967 913 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx968 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 914 969 915 970 on mConvertXMLPropList me, inputlist, convertValues, dontEscapeSpecialChars … … 930 985 if count(val) then 931 986 if ilk(retlist) = #proplist then 932 retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars))933 else987 retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 988 else 934 989 retlist.add(mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 935 990 end if … … 952 1007 953 1008 -- unescape <>&'" 954 1009 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 955 1010 956 1011 #integer: … … 997 1052 998 1053 -- unescape <>&'" 999 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)1054 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 1000 1055 1001 1056 … … 1009 1064 1010 1065 if ilk(retlist) = #proplist then 1011 retlist.addProp(symbol(inputlist[n].getaprop(#name)), val)1066 retlist.addProp(symbol(inputlist[n].getaprop(#name)), val) 1012 1067 else 1013 1068 retlist.add(val) … … 1024 1079 1025 1080 1026 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1081 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1027 1082 1028 1083 on mParseExcelXML me, theText … … 1031 1086 -- INPUT: <theText> ; string ; required => xml formatted string 1032 1087 -- RETURNS: property list 1033 -- EXAMPLE: plist = xscr(#PseudoXMLPS).mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile())1088 -- EXAMPLE: plist = new(script "PseudoXMLPS").mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile()) 1034 1089 ----------------------------------- 1035 1090 … … 1070 1125 1071 1126 else 1072 call(#mPut, mGetXScript(), "mParseExcelXML: Row "&n&" Cell "&m&" is not a property list")1127 put "mParseExcelXML: Row "&n&" Cell "&m&" is not a property list" 1073 1128 end if -- if ilk(thisCell) = #proplist then 1074 1129 … … 1076 1131 1077 1132 else 1078 call(#mPut, mGetXScript(), "mParseExcelXML: Row "&n&" is not a list")1133 put "mParseExcelXML: Row "&n&" is not a list" 1079 1134 end if -- if listP(currRow) then 1080 1135 … … 1082 1137 1083 1138 else 1084 call(#mPut, mGetXScript(), "mParseExcelXML: Table not found")1139 put "mParseExcelXML: Table not found" 1085 1140 end if -- if listP(xmlList) then 1086 1141 1087 1142 else 1088 call(#mPut, mGetXScript(), "mParseExcelXML: Worksheet not found")1143 put "mParseExcelXML: Worksheet not found" 1089 1144 end if -- if ilk(xmlList) = #proplist then 1090 1145 1091 1146 else 1092 call(#mPut, mGetXScript(), "mParseExcelXML: Workbook not found")1147 put "mParseExcelXML: Workbook not found" 1093 1148 end if -- if ilk(xmlList) = #proplist then 1094 1149 1095 1150 else 1096 call(#mPut, mGetXScript(), "mParseExcelXML: ROOT is not a property list")1151 put "mParseExcelXML: ROOT is not a property list" 1097 1152 end if --if ilk(xmlList) = #proplist then 1098 1153 1099 1154 else 1100 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() returned empty list")1155 put "mParseExcelXML: Xml parser makelist() returned empty list" 1101 1156 end if -- if count(xmlList) > 0 then 1102 1157 1103 1158 else 1104 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() failed")1159 put "mParseExcelXML: Xml parser makelist() failed" 1105 1160 end if -- if listP(xmlList) then 1106 1161 1107 1162 else 1108 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser error: "&xmlp.getError())1163 put "mParseExcelXML: Xml parser error: "&xmlp.getError() 1109 1164 end if -- if voidP(xmlp.getError()) then 1110 1165 … … 1114 1169 end 1115 1170 1116 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1171 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1117 1172 -- read apple style plist file 1118 1173 … … 1122 1177 -- INPUT: <pfad> ; string ; full pathname to plist file. This is optional, if it is void or "" a file selection dialog is displayed 1123 1178 -- RETURNS: property list 1124 -- EXAMPLE: plist = xscr(#PseudoXMLPS).mReadPList()1179 -- EXAMPLE: plist = new(script "PseudoXMLPS").mReadPList() 1125 1180 ----------------------------------- 1126 1181 … … 1173 1228 end 1174 1229 1175 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1230 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1176 1231 -- this is required to convert a 10.4 style binary plist file to xml: 1177 1232 … … 1191 1246 end 1192 1247 1193 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1248 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1194 1249 -- read apple style plist file 1195 1250 1196 1251 on mGetListFromPListString me, str 1197 return mConvertKeyList(me, mGetListFromXMLString X(me, str, 0))1198 end 1199 1200 1201 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1252 return mConvertKeyList(me, mGetListFromXMLString(me, str, 0)) 1253 end 1254 1255 1256 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1202 1257 -- convert apple style plist 1203 1258 … … 1222 1277 end 1223 1278 1224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1279 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1225 1280 1226 1281 on mGetKeyListValue me, theIlk, theValue … … 1251 1306 1252 1307 1253 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1308 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1254 1309 -- fontmapping 1255 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1310 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1256 1311 1257 1312 on mMapCharCodes me, str, whichDirection … … 1271 1326 end if 1272 1327 1273 alreadyProcessed = [] 1328 if getVersionNumber(me) > 10.99 then 1329 -- director 11 will have unicode numbers for the chars 1330 indFrom = 3 1331 end if 1332 1274 1333 1275 1334 newStr = str … … 1277 1336 tstr = str 1278 1337 vers = 0 1279 rmac= numToChar(repl[indFrom])1280 r win= numToChar(repl[indTo])1281 offs = offset( rmac, tstr)1338 searchChar = numToChar(repl[indFrom]) 1339 replaceChar = numToChar(repl[indTo]) 1340 offs = offset(searchChar, tstr) 1282 1341 repeat while offs > 0 1283 1342 ctn = charToNum(char offs of tstr) 1284 1343 delete char 1 to offs of tstr 1285 1344 vers = vers + offs 1286 if ctn = repl[ 1] then1287 put r wininto char vers of newStr1345 if ctn = repl[indFrom] then 1346 put replaceChar into char vers of newStr 1288 1347 end if 1289 offs = offset( rmac, tstr)1348 offs = offset(searchChar, tstr) 1290 1349 end repeat 1291 1350 end repeat 1292 1293 1351 1294 1352 zehn = numToChar(10) … … 1299 1357 end repeat 1300 1358 1301 1302 1359 return newStr 1303 1360 end 1304 1361 1305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1362 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1306 1363 -- using pregex: 1307 1364 … … 1323 1380 end 1324 1381 1325 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1382 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1326 1383 1327 1384 on mGetPregTranslateStrings me … … 1330 1387 fromStr = "" 1331 1388 toStr = "" 1389 1390 if getVersionNumber(me) > 10.99 then 1391 -- director 11 will have unicode numbers for the chars 1392 fromIndex = 3 1393 else 1394 fromIndex = 1 1395 end if 1396 1332 1397 repeat with repl in replLi 1333 put numToChar(repl[ 1]) after fromStr1398 put numToChar(repl[fromIndex]) after fromStr 1334 1399 put numToChar(repl[2]) after toStr 1335 1400 end repeat … … 1339 1404 end 1340 1405 1341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1342 1407 1343 1408 on mGetCharMapList me 1344 1409 li = [] 1345 li.add([128, 196 ])1346 li.add([129, 197 ])1347 li.add([130, 199 ])1348 li.add([131, 201 ])1349 li.add([132, 209 ])1350 li.add([133, 214 ])1351 li.add([134, 220 ])1352 li.add([135, 225 ])1353 li.add([136, 224 ])1354 li.add([137, 226 ])1355 li.add([138, 228 ])1356 li.add([139, 227 ])1357 li.add([140, 229 ])1358 li.add([141, 231 ])1359 li.add([142, 233 ])1360 li.add([143, 232 ])1361 li.add([144, 234 ])1362 li.add([145, 235 ])1363 li.add([146, 237 ])1364 li.add([147, 236 ])1365 li.add([148, 238 ])1366 li.add([149, 239 ])1367 li.add([150, 241 ])1368 li.add([151, 243 ])1369 li.add([152, 242 ])1370 li.add([153, 244 ])1371 li.add([154, 246 ])1372 li.add([155, 245 ])1373 li.add([156, 250 ])1374 li.add([157, 249 ])1375 li.add([158, 251 ])1376 li.add([159, 252 ])1377 li.add([160, 134 ])1378 li.add([161, 176 ])1379 li.add([164, 167 ])1380 li.add([165, 149 ])1381 li.add([166, 182 ])1382 li.add([167, 223 ])1383 li.add([168, 174 ])1384 li.add([170, 153 ])1385 li.add([171, 180 ])1386 li.add([172, 168 ])1387 li.add([173, 141 ])1388 li.add([174, 198 ])1389 li.add([175, 216 ])1390 li.add([176, 144 ])1391 li.add([178, 143 ])1392 li.add([179, 142 ])1393 li.add([180, 165 ])1394 li.add([182, 240 ])1395 li.add([183, 221 ])1396 li.add([184, 222 ])1397 li.add([185, 254 ])1398 li.add([186, 138 ])1399 li.add([187, 170 ])1400 li.add([188, 186 ])1401 li.add([189, 253 ])1402 li.add([190, 230 ])1403 li.add([191, 248 ])1404 li.add([192, 191 ])1405 li.add([193, 161 ])1406 li.add([194, 172 ])1407 li.add([195, 175 ])1408 li.add([196, 131 ])1409 li.add([197, 188 ])1410 li.add([198, 208 ])1411 li.add([199, 171 ])1412 li.add([200, 187 ])1413 li.add([201, 133 ])1414 li.add([202, 160 ])1415 li.add([203, 192 ])1416 li.add([204, 195 ])1417 li.add([205, 213 ])1418 li.add([206, 140 ])1419 li.add([207, 156 ])1420 li.add([208, 173 ])1421 li.add([209, 151 ])1422 li.add([210, 147 ])1423 li.add([211, 148 ])1424 li.add([212, 145 ])1425 li.add([213, 146 ])1426 li.add([214, 247 ])1427 li.add([216, 255 ])1428 li.add([217, 159 ])1429 li.add([218, 158 ])1430 li.add([219, 128 ])1431 li.add([220, 139 ])1432 li.add([221, 155 ])1433 li.add([222, 128 ])1434 li.add([223, 129 ])1435 li.add([224, 135 ])1436 li.add([225, 183 ])1437 li.add([226, 130 ])1438 li.add([227, 132 ])1439 li.add([228, 137 ])1440 li.add([229, 194 ])1441 li.add([230, 202 ])1442 li.add([231, 193 ])1443 li.add([232, 203 ])1444 li.add([233, 200 ])1445 li.add([234, 205 ])1446 li.add([235, 206 ])1447 li.add([236, 207 ])1448 li.add([237, 204 ])1449 li.add([238, 211 ])1450 li.add([239, 212 ])1451 li.add([240, 157 ])1452 li.add([241, 210 ])1453 li.add([242, 218 ])1454 li.add([243, 219 ])1455 li.add([244, 217 ])1456 li.add([245, 166 ])1457 li.add([246, 136 ])1458 li.add([247, 152 ])1459 li.add([248, 150 ])1460 li.add([249, 154 ])1461 li.add([250, 178 ])1462 li.add([251, 190 ])1463 li.add([252, 184 ])1464 li.add([253, 189 ])1465 li.add([254, 179 ])1466 li.add([255, 185 ])1410 li.add([128, 196, 402]) 1411 li.add([129, 197, 8776]) 1412 li.add([130, 199, 171]) 1413 li.add([131, 201, 8230]) 1414 li.add([132, 209, 8212]) 1415 li.add([133, 214, 247]) 1416 li.add([134, 220, 8249]) 1417 li.add([135, 225, 183]) 1418 li.add([136, 224, 8225]) 1419 li.add([137, 226, 8218]) 1420 li.add([138, 228, 8240]) 1421 li.add([139, 227, 8222]) 1422 li.add([140, 229, 194]) 1423 li.add([141, 231, 193]) 1424 li.add([142, 233, 200]) 1425 li.add([143, 232, 203]) 1426 li.add([144, 234, 205]) 1427 li.add([145, 235, 206]) 1428 li.add([146, 237, 204]) 1429 li.add([147, 236, 207]) 1430 li.add([148, 238, 211]) 1431 li.add([149, 239, 212]) 1432 li.add([150, 241, 210]) 1433 li.add([151, 243, 219]) 1434 li.add([152, 242, 218]) 1435 li.add([153, 244, 217]) 1436 li.add([154, 246, 710]) 1437 li.add([155, 245, 305]) 1438 li.add([156, 250, 729]) 1439 li.add([157, 249, 728]) 1440 li.add([158, 251, 730]) 1441 li.add([159, 252, 184]) 1442 li.add([160, 134, 220]) 1443 li.add([161, 176, 8734]) 1444 li.add([164, 167, 223]) 1445 li.add([165, 149, 239]) 1446 li.add([166, 182, 8706]) 1447 li.add([167, 223, 64258]) 1448 li.add([168, 174, 198]) 1449 li.add([170, 153, 244]) 1450 li.add([171, 180, 165]) 1451 li.add([172, 168, 174]) 1452 li.add([173, 141, 231]) 1453 li.add([174, 198, 8710]) 1454 li.add([175, 216, 255]) 1455 li.add([176, 144, 234]) 1456 li.add([178, 143, 232]) 1457 li.add([179, 142, 233]) 1458 li.add([180, 165, 8226]) 1459 li.add([182, 240, 63743]) 1460 li.add([183, 221, 8250]) 1461 li.add([184, 222, 64257]) 1462 li.add([185, 254, 731]) 1463 li.add([186, 138, 228]) 1464 li.add([187, 170, 8482]) 1465 li.add([188, 186, 8747]) 1466 li.add([189, 253, 733]) 1467 li.add([190, 230, 202]) 1468 li.add([191, 248, 175]) 1469 li.add([192, 191, 248]) 1470 li.add([193, 161, 176]) 1471 li.add([194, 172, 168]) 1472 li.add([195, 175, 216]) 1473 li.add([196, 131, 201]) 1474 li.add([197, 188, 186]) 1475 li.add([198, 208, 8211]) 1476 li.add([199, 171, 180]) 1477 li.add([200, 187, 170]) 1478 li.add([201, 133, 214]) 1479 li.add([202, 160, 8224]) 1480 li.add([203, 192, 191]) 1481 li.add([204, 195, 8730]) 1482 li.add([205, 213, 8217]) 1483 li.add([206, 140, 229]) 1484 li.add([207, 156, 250]) 1485 li.add([208, 173, 8800]) 1486 li.add([209, 151, 243]) 1487 li.add([210, 147, 236]) 1488 li.add([211, 148, 238]) 1489 li.add([212, 145, 235]) 1490 li.add([213, 146, 237]) 1491 li.add([214, 247, 732]) 1492 li.add([216, 255, 711]) 1493 li.add([217, 159, 252]) 1494 li.add([218, 158, 251]) 1495 li.add([219, 128, 196]) 1496 li.add([220, 139, 227]) 1497 li.add([221, 155, 245]) 1498 li.add([222, 128, 196]) 1499 li.add([223, 129, 197]) 1500 li.add([224, 135, 225]) 1501 li.add([225, 183, 8721]) 1502 li.add([226, 130, 199]) 1503 li.add([227, 132, 209]) 1504 li.add([228, 137, 226]) 1505 li.add([229, 194, 172]) 1506 li.add([230, 202, 160]) 1507 li.add([231, 193, 161]) 1508 li.add([232, 203, 192]) 1509 li.add([233, 200, 187]) 1510 li.add([234, 205, 213]) 1511 li.add([235, 206, 338]) 1512 li.add([236, 207, 339]) 1513 li.add([237, 204, 195]) 1514 li.add([238, 211, 8221]) 1515 li.add([239, 212, 8216]) 1516 li.add([240, 157, 249]) 1517 li.add([241, 210, 8220]) 1518 li.add([242, 218, 8260]) 1519 li.add([243, 219, 8364]) 1520 li.add([244, 217, 376]) 1521 li.add([245, 166, 182]) 1522 li.add([246, 136, 224]) 1523 li.add([247, 152, 242]) 1524 li.add([248, 150, 241]) 1525 li.add([249, 154, 246]) 1526 li.add([250, 178, 8804]) 1527 li.add([251, 190, 230]) 1528 li.add([252, 184, 8719]) 1529 li.add([253, 189, 937]) 1530 li.add([254, 179, 8805]) 1531 li.add([255, 185, 960]) 1467 1532 return li 1468 1533 end 1534 1535 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1536 1537 on getVersionNumber me 1538 if voidP(pVersionNumber) then 1539 pVersionNumber = getFloatVersionNumber(me, the productVersion) 1540 end if 1541 return pVersionNumber 1542 end 1543 1544 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1545 1546 on getFloatVersionNumber me, prodVers 1547 offs = offset(".", prodVers) 1548 if offs > 0 then 1549 intVers = char 1 to offs of prodVers 1550 delete char 1 to offs of prodVers 1551 else 1552 intVers = "" 1553 end if 1554 cnt = length(prodVers) 1555 repeat with n = 1 to cnt 1556 c = prodVers.char[n] 1557 if integerP(integer(c)) then 1558 put c after intVers 1559 else if c <> "." then 1560 exit repeat 1561 end if 1562 end repeat 1563 return value(intVers) 1564 end -
trunk/lingosource/castlib2/SliderScrollbarMenuParent.ls
r97 r104 1 1 -- Scrollbar Parentscript for vertical and horizontal scrollbars 2 -- Alex da Franca c2002 da.franca@online.de2 -- Alex da Franca c2002 alex@farbflash.de 3 3 4 4 -- version 31.05.03 … … 35 35 36 36 37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 38 38 -- xxxxxxxxxxxxxxxxxx PROPERTIES 39 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx39 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 40 40 41 41 property pScrollerProps … … 69 69 property pImageUtilityScripts 70 70 71 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx71 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 72 72 -- xxxxxxxxxxxxxxxxxx DIRECTOR EVENTS 73 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx73 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 74 74 75 75 on new me, caller, options … … 89 89 end 90 90 91 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx91 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 92 92 -- xxxxxxxxxxxxxxxxxx PRIVATE EVENTS 93 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx93 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 94 94 95 95 on mInitScrollBar me, caller, options … … 116 116 end 117 117 118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 119 119 120 120 on mCheckExternalImages me … … 244 244 245 245 246 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx246 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 247 247 248 248 … … 484 484 on mGetButtonOffset me, myValue 485 485 val = integer(float(myValue - pScrollerProps.getaprop(#minValue)) * (pElementSize - pThumbSize) / float(pScrollerProps.getaprop(#maxValue) - pScrollerProps.getaprop(#minValue))) 486 -- if pHoriVerti then val = pElementSize - pThumbSize - val -- don «t delete!486 -- if pHoriVerti then val = pElementSize - pThumbSize - val -- don't delete! 487 487 RETURN val 488 488 end … … 492 492 493 493 on myMouseDown me, relloc 494 494 495 -- pDownPos = the clickLoc 495 -- if ilk(relloc) = #point then pDownPos = relloc 496 pDownPos = mGetClickLoc(me) 496 if ilk(relloc) = #point then pDownPos = relloc 497 else pDownPos = mGetClickLoc(me) 498 497 499 if not mMouseOverMe(me, pDownPos) then exit -- alex: dieses ist meine abfrage, nachdem die scrollbar jetzt nicht mehr ein eigenes sprite ist, sondern teil eines sprites 498 500 pDown = 1 … … 570 572 end 571 573 572 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx574 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 573 575 574 576 on stepframe me … … 666 668 -- change the value 667 669 scr = pScrollerProps.getaprop(#lineStep) * pInteract / 2 668 -- if pHoriVerti then scr = scr * -1 -- don «t delete!670 -- if pHoriVerti then scr = scr * -1 -- don't delete! 669 671 newValue = max(min(pValue + scr, pScrollerProps.getaprop(#maxValue)), pScrollerProps.getaprop(#minValue)) 670 672 if newValue <> pValue then … … 689 691 690 692 691 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx693 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 692 694 -- xxxxxxxxxxxxxxxxxx PUBLIC EVENTS 693 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx695 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 694 696 695 697 … … 705 707 end 706 708 707 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx709 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 708 710 709 711 -- alex da franca am Mittwoch, 15. November 2000 at 1:25 Uhr … … 712 714 end 713 715 714 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx716 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 715 717 716 718 on mMouseOverMe me, punkt … … 719 721 -- ende alex da franca am Mittwoch, 15. November 2000 at 1:26 Uhr 720 722 721 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx723 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 722 724 723 725 -- alex da franca am 09.09.02 … … 732 734 733 735 734 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx736 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 735 737 736 738 on SetScrollArrows me, val … … 742 744 end 743 745 744 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx746 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 745 747 746 748 on SetPageScrollHL me, val … … 748 750 end 749 751 750 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx752 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 751 753 752 754 on SetValueAndMaxValue me, val, maxval, insideCall … … 762 764 763 765 764 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx766 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 765 767 766 768 -- added by ullala … … 769 771 end 770 772 771 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx773 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 772 774 773 775 on SetValue me, val, insideCall … … 782 784 end 783 785 784 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx786 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 785 787 786 788 on SetMinValue me, val, insideCall … … 796 798 end 797 799 798 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx800 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 799 801 800 802 on SetMaxValue me, val, insideCall … … 818 820 end 819 821 820 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx822 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 821 823 822 824 on SetLineStep me, val … … 824 826 end 825 827 826 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx828 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 827 829 828 830 on SetPageStep me, val … … 839 841 end 840 842 841 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx843 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 842 844 843 845 on mGetScrollerPropList me … … 845 847 end 846 848 847 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx849 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 848 850 849 851 on SetColor me, val, insideCall … … 861 863 end 862 864 863 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx865 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 864 866 865 867 on SetRect me, newRect, onlyRectUpdate, insideCall … … 883 885 884 886 885 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx887 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 886 888 887 889 on mGetCurrentImage me … … 890 892 891 893 892 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx894 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 893 895 -- xxxxxxxxxxxxxxxxxx PRIVATE EVENTS (IMAGING LINGO) 894 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx896 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 895 897 896 898 on DrawElement me … … 1089 1091 end 1090 1092 1091 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1093 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1092 1094 1093 1095 on mDrawSavedImg me … … 1099 1101 end 1100 1102 1101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1103 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1102 1104 1103 1105 on mDrawProportionalThumb me … … 1115 1117 1116 1118 1117 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1119 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1118 1120 1119 1121 on mGetClickLoc me … … 1125 1127 end 1126 1128 1127 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1129 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1128 1130 1129 1131 on mGetMouseLoc me … … 1135 1137 end 1136 1138 1137 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1139 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1138 1140 1139 1141 on mCreateElementImage me, w, h, HL … … 1149 1151 img = image(w, h, 32, 0) 1150 1152 else 1151 img = image(w, h, 16, 0)1153 img = image(w, h, 32, 0) 1152 1154 end if 1153 1155 … … 1214 1216 end 1215 1217 1216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1218 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1217 1219 1218 1220 on CreateArrowButton me, img, w, h, HL, theEnabled … … 1289 1291 level = 115 1290 1292 theInk = 1 1291 ArrowButton = image(a, a, 16, 0)1293 ArrowButton = image(a, a, 32, 0) 1292 1294 ArrowButton.fill(0,0,a,a, pScrollerProps.getaprop(#DisabledColor)) 1293 1295 end if … … 1360 1362 end 1361 1363 1362 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1364 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1363 1365 1364 1366 on mCreateThumb me, myColor, HL … … 1388 1390 end 1389 1391 1390 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1392 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1391 1393 1392 1394 on mCreateDisabledImage me, w, h … … 1409 1411 else 1410 1412 -- creates the disabled Image 1411 img = image(w, h, 16, 0)1413 img = image(w, h, 32, 0) 1412 1414 img.fill(1, 1, w - 1, h - 1, pScrollerProps.getaprop(#DisabledColor)) 1413 1415 … … 1431 1433 end 1432 1434 1433 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1435 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1434 1436 1435 1437 on DrawShape me, w, h, myColor, dir, val 1436 1438 -- creates a typical shape 1437 1439 if dir = -1 then dir = -0.7 1438 img = image(w, h, 16, 0)1440 img = image(w, h, 32, 0) 1439 1441 img.draw(0, 0, w, h, pScrollerProps.getaprop(#FrameColor), [#shapeType:#rect]) 1440 1442 img.fill(1, 1, w - 1, h - 1, myColor) … … 1453 1455 end 1454 1456 1455 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1457 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1456 1458 1457 1459 on DrawPageArea me, w, h, myColor, pressed … … 1470 1472 -- call(#mPut , mGetXScript(), im, 1, "im_nachrher") 1471 1473 1474 1472 1475 -- i = image(w, h, im.depth, im.useAlpha, im.paletteref) 1473 1476 -- i.copyPixels(im, i.rect, im.rect) 1474 i = call(#mResizeImageTiling, pImageUtilityScripts, im, w, h) 1477 scaleMethod = pScrollerProps[#scaleMethod] 1478 if ilk(scaleMethod) <> #symbol then scaleMethod = #mResizeImageTiling 1479 i = call(scaleMethod, pImageUtilityScripts, im, w, h) 1475 1480 1476 1481 -- call(#mPut , mGetXScript(), i, 1, "i_nachher") … … 1482 1487 1483 1488 -- creates the PageScroll Area (slightly different to the "DrawShape" handler) 1484 img = image(w, h, 16, 0)1489 img = image(w, h, 32, 0) 1485 1490 img.draw(0, 0, w, h, pScrollerProps.getaprop(#FrameColor), [#shapeType:#rect]) 1486 1491 img.fill(1, 1, w - 1, h - 1, myColor) … … 1503 1508 end 1504 1509 1505 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1510 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1506 1511 1507 1512 on DrawButtonGrip me, img, w, h, myColor, pHoriVerti … … 1538 1543 end 1539 1544 1540 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1545 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1541 1546 1542 1547 on DrawArrow me, w, h … … 1551 1556 1552 1557 if pArrowSize mod 2 = 0 then 1553 img = image((x / hori) - 1, x / (1 + (hori < 2)), 16, 0)1554 else 1555 img = image((x / hori), x / (1 + (hori < 2)), 16, 0)1558 img = image((x / hori) - 1, x / (1 + (hori < 2)), 32, 0) 1559 else 1560 img = image((x / hori), x / (1 + (hori < 2)), 32, 0) 1556 1561 end if 1557 1562 … … 1564 1569 end 1565 1570 1566 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1571 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1567 1572 1568 1573 on interface me 1569 1574 str = "Scrollbar Script by ullalal + alex da franca c2002 -- alex@farbflash.de -- all rigths reserved" 1570 1575 1571 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1576 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1572 1577 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1573 1578 put RETURN & "on SetEnabled me, val, insideCall, forceDraw" after str 1574 1579 put RETURN & "" after str 1575 1580 1576 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1581 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1577 1582 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1578 1583 put RETURN & "on mGetEnabled me" after str 1579 1584 put RETURN & "" after str 1580 1585 1581 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1586 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1582 1587 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1583 1588 put RETURN & "on mMouseOverMe me, punkt" after str 1584 1589 put RETURN & "" after str 1585 1590 1586 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1591 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1587 1592 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1588 1593 put RETURN & "on mGetCurrentRect me" after str 1589 1594 put RETURN & "" after str 1590 1595 1591 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1596 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1592 1597 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1593 1598 put RETURN & "on SetScrollArrows me, val" after str 1594 1599 put RETURN & "" after str 1595 1600 1596 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1601 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1597 1602 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1598 1603 put RETURN & "on SetPageScrollHL me, val" after str 1599 1604 put RETURN & "" after str 1600 1605 1601 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1606 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1602 1607 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1603 1608 put RETURN & "on SetValueAndMaxValue me, val, maxval, insideCall" after str 1604 1609 put RETURN & "" after str 1605 1610 1606 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1611 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1607 1612 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1608 1613 put RETURN & "on SetValue me, val, insideCall" after str 1609 1614 put RETURN & "" after str 1610 1615 1611 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1616 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1612 1617 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1613 1618 put RETURN & "on SetMinValue me, val, insideCall" after str 1614 1619 put RETURN & "" after str 1615 1620 1616 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1621 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1617 1622 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1618 1623 put RETURN & "on SetMaxValue me, val, insideCall" after str 1619 1624 put RETURN & "" after str 1620 1625 1621 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1626 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1622 1627 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1623 1628 put RETURN & "on SetLineStep me, val" after str 1624 1629 put RETURN & "" after str 1625 1630 1626 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1631 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1627 1632 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1628 1633 put RETURN & "on SetPageStep me, val" after str 1629 1634 put RETURN & "" after str 1630 1635 1631 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1636 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1632 1637 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1633 1638 put RETURN & "on mGetScrollerPropList me" after str 1634 1639 put RETURN & "" after str 1635 1640 1636 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1641 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1637 1642 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1638 1643 put RETURN & "on SetColor me, val, insideCall" after str 1639 1644 put RETURN & "" after str 1640 1645 1641 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1646 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1642 1647 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1643 1648 put RETURN & "on SetRect me, newRect, onlyRectUpdate, insideCall" after str 1644 1649 put RETURN & "" after str 1645 1650 1646 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1651 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1647 1652 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1648 1653 put RETURN & "on mGetCurrentImage me" after str -
trunk/lingosource/castlib2/SpriteNameBeaver.ls
r97 r104 21 21 end 22 22 23 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx23 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 24 24 25 25 on endsprite me … … 27 27 end 28 28 29 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx29 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 30 30 31 31 on getPropertyDescriptionList … … 35 35 end 36 36 37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 38 38 39 39 on mGetMyKanalName me -
trunk/lingosource/castlib2/ToolTipBeaver_1.ls
r97 r104 1 1 -- ToolTip Behavior 2 -- by Alex da Franca c2001 da.franca@online.de2 -- by Alex da Franca c2001 alex@farbflash.de 3 3 -- drag this behavior onto any sprite with the provided "ttimageSave" bitmap member 4 4 -- customize the background color and the frame color of the tooltip by altering "ttimageSave" … … 15 15 -- added pSaveImages 16 16 17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 18 18 -- xxxxxxxxxxxxxxxxxx PROPERTIES 19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 20 20 21 21 property pKanal, pMember, pMaskMember … … 40 40 41 41 42 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx42 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 43 43 on _____INTERFACE 44 44 end 45 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx45 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 46 46 47 47 -- on handler me … … 60 60 61 61 62 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str62 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 63 63 put RETURN & "-- USAGE:" after str 64 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str64 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 65 65 66 66 put RETURN & "-- Show tooltip:" after str 67 67 put RETURN & "on mShowToolTip me, string_membername, string_tooltiptext, point_stageLoc" after str 68 68 put RETURN & "" after str 69 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str69 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 70 70 put RETURN & "" after str 71 71 put RETURN & "-- Hide tooltip:" after str … … 79 79 80 80 81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 82 82 on ______STANDARD_EVENTS 83 83 end 84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 85 85 86 86 on beginsprite me … … 101 101 end 102 102 103 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx103 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 104 104 105 105 on new me … … 109 109 end 110 110 111 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx111 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 112 112 113 113 on endsprite me … … 131 131 end 132 132 133 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx133 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 134 134 135 135 --on getPropertyDescriptionList … … 147 147 --end 148 148 149 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx149 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 150 150 151 151 -- the transition is done on stepframe: … … 188 188 189 189 190 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx190 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 191 191 -- xxxxxxxxxxxxxxxxxx PUBLIC HANDLERS 192 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx193 194 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx192 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 193 194 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 195 195 -- xxxxxxxxxxxxxxxxxx Show tooltip 196 196 … … 220 220 221 221 222 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx222 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 223 223 -- xxxxxxxxxxxxxxxxxx Hide tooltip 224 224 … … 227 227 end 228 228 229 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx229 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 230 230 231 231 on mouseLeave me … … 233 233 end 234 234 235 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx235 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 236 236 237 237 on mouseDown me … … 241 241 242 242 243 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx243 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 244 244 -- xxxxxxxxxxxxxxxxxx PRIVATE HANDLERS 245 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx246 247 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx245 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 246 247 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 248 248 -- xxxxxxxxxxxxxxxxxx Init the images and the sprite settings 249 249 … … 272 272 end 273 273 274 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx274 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 275 275 -- xxxxxxxxxxxxxxxxxx compose the image for the tooltip which is next to be shown 276 276 … … 372 372 373 373 374 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx374 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 375 375 -- xxxxxxxxxxxxxxxxxx clean up to hide tooltip 376 376 … … 395 395 396 396 397 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx397 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 398 398 -- xxxxxxxxxxxxxxxxxx beginning the transition 399 399 … … 414 414 end 415 415 416 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx416 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 417 417 418 418 on mInstantTTDisplay me, theImg, theLoc, maskImg … … 469 469 end 470 470 471 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx471 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 472 472 473 473 on mIsOnScreen me … … 476 476 477 477 478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 479 479 on _____3_D_FUNCTIONS 480 480 end 481 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx481 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 482 482 483 483 on mCreateOverlay me, spritename, whichImg, theLoc, maskImg … … 538 538 539 539 540 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx540 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 541 541 542 542 … … 565 565 566 566 567 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx567 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 568 568 569 569 on mCreatePowerImg me, whichImg, powerbreite, powerhoehe … … 584 584 585 585 586 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx586 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 587 587 588 588 on mGetOlayIndex me, camObj, tex … … 596 596 597 597 598 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx598 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 599 599 600 600 on mGetTexname me … … 604 604 605 605 606 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx606 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 607 607 -- xxxxxxxxxxxxxxxxxx Tooltip creation handlers (only used if no bitmap for the tooltip is provided) 608 608 -- for performance reasons it is better to create the appropriate 8-bit grayscale bitmap with the text to display, than create it at runtime … … 686 686 687 687 688 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx688 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 689 689 -- xxxxxxxxxxxxxxxxxx Utility handlers 690 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx691 692 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx690 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 691 692 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 693 693 -- xxxxxxxxxxxxxxxxxx Creation of New Members 694 694 -
trunk/lingosource/castlib2/ToolTipBeaver_1Host.ls
r97 r104 1 1 -- ToolTip Behavior 2 -- by Alex da Franca c2001 da.franca@online.de2 -- by Alex da Franca c2001 alex@farbflash.de 3 3 -- drag this behavior onto any sprite with the provided "ttimageSave" bitmap member 4 4 -- customize the background color and the frame color of the tooltip by altering "ttimageSave" … … 13 13 14 14 15 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx15 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 16 16 -- xxxxxxxxxxxxxxxxxx PROPERTIES 17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 18 18 19 19 -- GPDLs: (read the comments in the getPropertyDescriptionList() handler for an rough explanation of each) … … 32 32 33 33 34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx34 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 35 35 on _____INTERFACE 36 36 end 37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx37 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 38 38 39 39 40 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx40 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 41 41 42 42 on GetInterface me … … 45 45 46 46 47 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx47 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 48 48 on ____________________STANDARD_EVENTS 49 49 end 50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 51 51 52 52 … … 75 75 end 76 76 77 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx77 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 78 78 79 79 on getPropertyDescriptionList -
trunk/lingosource/castlib2/ToolTipSpriteBehavior_1.ls
r41 r104 9 9 property pIncludes 10 10 11 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx11 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 12 12 13 13 on beginSprite me … … 17 17 18 18 pKanal = sprite(me.spritenum) 19 pUniqueName = "TTBM"& the last word of string(me)19 pUniqueName = "TTBM"&xscr().mGetMemoryAddress(me) 20 20 21 21 len = length(pTooltiptext) … … 31 31 end 32 32 33 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx33 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 34 34 35 35 on endsprite me … … 41 41 end 42 42 43 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx43 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 44 44 45 45 on getPropertyDescriptionList … … 50 50 end 51 51 52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 53 53 54 54 on mouseEnter me … … 57 57 end 58 58 59 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx59 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 60 60 61 61 on mouseDown me … … 64 64 end 65 65 66 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx66 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 67 67 68 68 on mouseLeave me … … 73 73 end 74 74 75 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx75 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 76 76 77 77 on mShowMyTT me … … 92 92 end 93 93 94 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx94 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 95 95 96 96 on mHideMyTT me … … 98 98 end 99 99 100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 101 101 102 102 on mChangeLanguage me … … 105 105 if tMember.type = #bitmap then tMember.erase() 106 106 end if 107 pUniqueName = "TTBM"& the last word of string(me)107 pUniqueName = "TTBM"&xscr().mGetMemoryAddress(me) 108 108 end 109 109 110 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx110 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 111 111 112 112 on mSetToolTipText me, newText … … 121 121 end if 122 122 123 pUniqueName = "TTBM"& the last word of string(me)123 pUniqueName = "TTBM"&xscr().mGetMemoryAddress(me) 124 124 end 125 125 126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 127 127 128 128 on mSetTooltipLoc me, newLoc -
trunk/lingosource/castlib2/aleXtrasMovieScript.ls
r101 r104 56 56 end if 57 57 58 alextras = rawnew(cms.script)58 alextras = new(cms.script) 59 59 if ilk(alextras) <> #instance then 60 60 alert "Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!" … … 75 75 end 76 76 77 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx77 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 78 78 79 79 on xscr scrName … … 91 91 end 92 92 93 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx93 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 94 94 95 95 on mGetXScript scrName … … 109 109 if scrName = "commonMovieScript" then return alextras 110 110 111 inst = alextras.mGetInstance(scrName, 1) 111 str_scrName = alextras.mSymb2String(scrName) 112 inst = alextras.mGetInstance(str_scrName, 1) 112 113 if ilk(inst) <> #instance then 113 114 if the runmode contains "aut" then 114 put "Script" && QUOTE & s crName & QUOTE && "is missing! This may cause unwanted behavior"115 put "Script" && QUOTE & str_scrName & QUOTE && "is missing! This may cause unwanted behavior" 115 116 end if 116 117 inst = [] 117 118 end if 119 if ilk(inst) = #instance then 120 if inst.handler(#new) = 1 then inst.new() 121 end if 118 122 return inst 119 123 ---------------------- 120 124 121 125 122 scrName = symbol(scrName)126 scrName = alextras.mSymbolify(scrName) 123 127 if ilk(scrName) <> #symbol then scrName = #commonmoviescript 124 128 scri = (mGetAleXtras()).getaprop(#scripts) … … 130 134 end 131 135 132 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx136 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 133 137 -- if you have a stopmovie handler in a moviescript before this one, you should call 'mCallDestroy' yourself 134 138 -- if this script here is first, be aware, that your stopmovie handler might not get called … … 138 142 end 139 143 140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx144 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 141 145 142 146 on mCallDestroy … … 145 149 end 146 150 147 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx151 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 148 152 -- load local scripts (instead of the ones from the LDM -> authoring this movie) 149 153 … … 158 162 -- TODO: - 159 163 ----------------------------------- 164 160 165 exit 161 166 162 163 mediaList = mGetAleXtras() 164 165 theScripts = mediaList.getaprop(#scripts) 166 if ilk(theScripts) <> #proplist then 167 theScripts = [:] 168 mediaList.setaprop(#scripts, theScripts) 169 end if 170 171 if voidP(cls) then 172 cls = [] 173 cl = the number of castlibs 174 repeat with n = 1 to cl 175 cls.add(n) 176 end repeat 177 end if 178 179 if not listP(cls) then 180 cls = [cls] 181 end if 182 183 cl = count(cls) 184 repeat with n = 1 to cl 185 thisCL = castlib(cls[n]) 186 if not voidP(thisCL) then 187 clnum = thisCL.number 188 num = the number of members of castlib clnum 189 repeat with m = 1 to num 190 mem = member(m,clnum) 191 if length(mem.name) > 0 then 192 if mem.type = #script then 193 theScripts.setaProp(symbol(mem.name), mem.script) 194 end if 195 end if 196 end repeat 197 end if 198 end repeat 199 200 end 201 202 203 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 204 205 on mLoadXScript whichName 206 207 exit 208 209 210 whichName = string(whichName) 211 if length(whichName) < 1 then return 0 212 scr = member(whichName) 213 if ilk(scr) <> #member then return 0 214 if scr.type <> #script then return 0 215 216 scr = script(whichName) 217 218 mediaList = mGetAleXtras() 219 220 theScripts = mediaList.getaprop(#scripts) 221 if ilk(theScripts) <> #proplist then 222 theScripts = [:] 223 mediaList.setaprop(#scripts, theScripts) 224 end if 225 theScripts.setaProp(symbol(whichName), scr) 226 227 return scr 228 229 end 230 231 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 167 -- deprecated handler 168 -- only here for bakcward compatibility 169 -- the system is now built to load scripts only on demand 170 -- exception is mLoadScriptsFromLDM() which needs to grab all scripts 171 -- from the ldm and uses them. 172 -- be aware of the fact, that rawnew() is used on these scripts, so the ones of the LDM 173 -- won't have their new() handler called. I take care about that for you, though... 174 175 end 176 177 178 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 179 180 on mLoadXScript whichName, dontCallDestroyHandler 181 -- overload a script, e.g. after changing at during the movie runs 182 183 if not(symbolP(whichName)) then whichName = symbol(whichName) 184 if voidP(dontCallDestroyHandler) then dontCallDestroyHandler = 1 185 xscr().mDeleteInstance(whichName, dontCallDestroyHandler) 186 187 return xscr(whichName) 188 189 end 190 191 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 232 192 233 193 on mLoadScriptsFromLDM whichSprite … … 280 240 281 241 exit 282 ------------------------------ 242 ------------------------------ deprecated: 283 243 284 244 mediaList = mGetAleXtras() … … 314 274 end 315 275 316 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx276 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 317 277 318 278 on mListAleXtras 319 put "Handler mListAleXtras deprecated" 279 280 put "This handler used to put the alextras scripts only, now it puts all singletons instead" 281 282 globs = xscr().mGetGlobalList() 283 incl = globs[#gParentScriptInstances] 284 if not(objectP(incl)) then 285 put "No scriptinstances stored" 320 286 exit 321 322 alextras = (script "aleXtrasMovieScript").pAleXtras 323 if voidP(alextras) then mLoadScripts 324 scripts = (mGetAleXtras()).getaprop(#scripts) 325 anz = count(scripts) 287 end if 288 289 anz = count(incl) 326 290 repeat with n = 1 to anz 327 put RETURN & "scr = mGetXScript(#"&scripts.getPropAt(n)&")" & RETURN291 put RETURN & "scr = xscr().mGetInstance(" & QUOTE & incl.getPropAt(n) & QUOTE & ")" & RETURN 328 292 end repeat 329 293 put RETURN & "put scr.handlers()" & RETURN 330 put RETURN & "put scr.interface()" & RETURN331 end 332 333 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx294 put RETURN & "put call(#interface, [scr])" & RETURN 295 end 296 297 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 334 298 335 299 on mListScriptMemberNames … … 353 317 354 318 355 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx319 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 356 320 357 321 on mUpdateSelectedAlexScripts rootPath -
trunk/lingosource/castlib2/button_Layout.ls
r41 r104 1 1 -- Custom layout definition for buttons and tables 2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3 3 -- The name of this castmember can be used as "CSS" layout name for tables and buttons 4 4 -- Use it with ILTable behavior and Button script … … 38 38 on mGetTextProps me, options 39 39 -- override here the properties which you find in the script "defaultLayoutDefinitions" 40 options[#myFontsize] = 9 41 options[#myAntiAlias] = 0 40 42 41 return options 43 42 end 44 43 45 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx44 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 46 45 47 46 on mGetButtonLayoutList me, options 48 47 -- override here the properties which you find in the script "defaultLayoutDefinitions" 49 48 50 bg = rgb("#AAAAAA")51 fnt = rgb("#FFFFFF")52 options[#myFontcolor] = fnt53 options[#myBGColor] = bg54 options[#myHiliteBGcolor] = bg - 3055 options[#myPressedBGcolor] = bg - 6056 options[#myDisabledBGColor] = bg + 3057 options[#hilitecolor] = rgb("#66FF00")58 options[#pressedcolor] = fnt - 3059 options[#disabledColor] = rgb(240, 240, 240)60 options[#borderwidth] = 161 options[#bordercolor] = bg - 3062 options[#disabledbordercolor] = options[#bordercolor]63 options[#pressedbordercolor] = bg - 8064 options[#hilitebordercolor] = bg - 6065 options[#marginH] = 466 options[#marginV] = 167 options[#bevel] = 068 69 49 return options 70 50 end 71 51 72 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 73 53 74 54 on mGetTableLayoutList me, tableformatlist -
trunk/lingosource/castlib2/commonMovieScript.ls
r101 r104 66 66 ----------------------------------- 67 67 68 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 69 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 70 71 72 68 on _____________________PROPERTY_DECLARATION me 69 end 70 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 71 property ancestor 73 72 property pGList 74 73 property pCaseLists 74 75 76 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 77 on ___________________STANDARD_EVENTS me 78 end 79 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 80 81 on new me 82 Script_Root_Object = member("Script_Root_Object") 83 if ilk(Script_Root_Object) = #member then 84 if Script_Root_Object.type = #script then 85 ancestor = new(script "Script_Root_Object") 86 mSetScriptName me, "commonMovieScript" 87 end if 88 end if 89 return me 90 end 91 92 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 93 94 on mFilterString me, string_Input, string_keyword 95 ----------------------------------- 96 -- CREATED: 26.02.2010 97 -- ACTION: Filter to constrain the results 98 -- use "%" or "^" as the first char if the filter shall be => 99 -- 'word STARTS with <string_keyword>' 100 -- use "$" as the last char if the filter shall be => 101 -- 'word ENDS with <string_keyword>' 102 -- (HINT: if searching for the exact phrase use ^keyword$ as filter) 103 -- otherwise the string <string_keyword> may appear anywhere in the word => 104 -- 'word CONTAINS <string_keyword>' 105 -- INPUT: <string_Input> ; string 106 -- <string_keyword> ; string 107 -- RETURNS: boolean (integer 1 or 0) ; true or false 108 -- EXAMPLE: put xscr().mFilterString("commonmoviescript", "%comm") -- STARTS 109 -- -- 1 110 -- put xscr().mFilterString("commonmoviescript", "ript$") 111 -- -- 1 112 -- put xscr().mFilterString("commonmoviescript", "%commonmoviescript$") 113 -- -- 1 114 -- put xscr().mFilterString("commonmoviescript", "movie") 115 -- -- 1 116 ----------------------------------- 117 118 string_Input = string(string_Input) 119 if length(string_Input) < 1 then return 0 120 121 string_keyword = string(string_keyword) 122 if length(string_keyword) < 1 then return 1 123 124 if string_keyword starts "^" then 125 delete char 1 of string_keyword 126 offs = offset(string_keyword, string_Input) 127 return (offs = 1) 128 else if string_keyword starts "%" then 129 delete char 1 of string_keyword 130 offs = offset(string_keyword, string_Input) 131 return (offs = 1) 132 else if the last char of string_keyword = "$" then 133 delete the last char of string_keyword 134 offs = offset(string_keyword, string_Input) 135 return (offs = (length(string_Input) - length(string_keyword) + 1)) 136 else 137 offs = offset(string_keyword, string_Input) 138 return (offs > 0) 139 end if 140 141 end 142 143 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 75 144 76 145 on mGetGlobalList me … … 99 168 end 100 169 101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx170 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 102 171 103 172 on mMyClearGlobals me … … 115 184 116 185 117 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx186 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 118 187 119 188 on mSetGlobalValue me, propName, newValue … … 135 204 136 205 137 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx206 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 138 207 139 208 on mGetGlobalValue me, propName … … 153 222 end 154 223 155 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 156 225 157 226 on mCallDestroy me … … 163 232 ----------------------------------- 164 233 234 delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList) 235 if ilk(delayedCallBackList) = #proplist then 236 jobs = delayedCallBackList[#jobs] 237 repeat with n = count(jobs) down to 1 238 toName = jobs.getPropAt(n) 239 dto = timeout(toName) 240 if ilk(dto) = #timeout then dto.forget() 241 end repeat 242 delayedCallBackList[#jobs] = [:] 243 end if 165 244 166 245 sendAllSprites(#mStopMovieWasCalled) … … 200 279 end 201 280 202 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 281 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 282 283 on mGetPlayBackModeValue me, symbol_Prop 284 if ilk(symbol_Prop) <> #symbol then symbol_Prop = #playBackMode 285 playBackModeValueList = mGetGlobalValue(me, #playBackModeValueList) 286 if not(objectP(playBackModeValueList)) then playBackModeValueList = [:] 287 return playBackModeValueList[symbol_Prop] 288 end 289 290 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 291 292 on mSetPlayBackModeValue me, symbol_Prop, any_value 293 if ilk(symbol_Prop) <> #symbol then exit 294 playBackModeValueList = mGetGlobalValue(me, #playBackModeValueList) 295 if not(objectP(playBackModeValueList)) then 296 playBackModeValueList = [:] 297 mSetGlobalValue(me, #playBackModeValueList, playBackModeValueList) 298 end if 299 playBackModeValueList[symbol_Prop] = any_value 300 end 301 302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 203 303 on ____WOODY_CHANGES 204 304 end 205 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx206 207 208 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 306 307 308 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 209 309 -- xxxxxxxxxxxxxxxxxx color( -> rgb( 210 310 -- … … 254 354 end 255 355 256 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx356 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 257 357 258 358 on mCheckWoody me … … 272 372 273 373 274 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx374 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 275 375 276 376 on mGetVersionNumber me … … 293 393 end 294 394 295 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx395 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 296 396 297 397 on mGetFloatVersionNumber me, prodVers 298 offs = offset(".", prodVers) 299 if offs > 0 then 300 intVers = char 1 to offs of prodVers 301 delete char 1 to offs of prodVers 398 offs = offset(".", prodVers) 399 if offs > 0 then 400 intVers = char 1 to offs of prodVers 401 delete char 1 to offs of prodVers 402 else 403 intVers = "" 404 end if 405 cnt = length(prodVers) 406 repeat with n = 1 to cnt 407 c = prodVers.char[n] 408 if integerP(integer(c)) then 409 put c after intVers 410 else if c <> "." then 411 exit repeat 412 end if 413 end repeat 414 415 return value(intVers) 416 end 417 418 419 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 420 421 on 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 453 end 454 455 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 456 457 on mGetEnvironment me 458 ----------------------------------- 459 -- CREATED: 18.05.2009 460 -- ACTION: Getting the environment properts list is very slow, 461 -- therefore we make sure to get it only once and store the rsult 462 -- INPUT: - 463 -- RETURNS: property list => the environment 464 ----------------------------------- 465 466 env = mGetGlobalValue(me, #theEnvironment) 467 if not(objectP(env)) then 468 469 if the runmode contains "aut" then 470 -- there is a really lame bug in the mac version 471 -- where querying the environment takes ages! 472 -- now it is only the first call, therefore we save the result 473 -- and in authoring we even save it in a global, so that we 474 -- do not have to wait on each moviestart! 475 global gLameAuthoringHack_forSlowEnvironment_onMac 476 if not(objectP(gLameAuthoringHack_forSlowEnvironment_onMac)) then 477 gLameAuthoringHack_forSlowEnvironment_onMac = the environment 478 end if 479 env = gLameAuthoringHack_forSlowEnvironment_onMac 302 480 else 303 intVers = "" 304 end if 305 cnt = length(prodVers) 306 repeat with n = 1 to cnt 307 c = prodVers.char[n] 308 if integerP(integer(c)) then 309 put c after intVers 310 else if c <> "." then 311 exit repeat 312 end if 313 end repeat 314 315 return value(intVers) 316 end 317 318 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 481 env = the environment 482 end if 483 484 mSetGlobalValue(me, #theEnvironment, env) 485 end if 486 return env 487 end 488 489 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 319 490 320 491 on mGetPlatform me … … 333 504 if voidP(gPlatform) then 334 505 335 isMac = the platform contains "Macintosh"336 if isMac then337 338 onX = value(char 1 of (the last word of (the environment).osversion)) <= 5506 isMac = the platform contains "Macintosh" 507 if isMac then 508 509 onX = value(char 1 of (the last word of (mGetEnvironment(me)).osversion)) <= 5 339 510 if onX then gPlatform = #osx 340 511 else gPlatform = #os9 … … 349 520 end 350 521 351 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx522 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 352 523 353 524 on mCheckMemberType me, memref, aType … … 365 536 end 366 537 367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx538 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 368 539 369 540 on mGetMemType me, memref … … 380 551 end 381 552 382 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx553 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 383 554 384 555 on mCreateTimeout me, theName, theDuration, theHandler, theTarget … … 408 579 end 409 580 410 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx581 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 411 582 on ____HANDLE_KEY_EVENTS 412 583 end 413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx584 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 414 585 415 586 -- this handler is supposed to get keyevents first to decide, if there are high level things to do … … 446 617 end 447 618 448 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx619 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 449 620 450 621 on mSuspendAllKeyEvents me, flag … … 452 623 end 453 624 454 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx625 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 455 626 456 627 on mSuspendAllMouseEvents me, flag … … 459 630 460 631 461 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx632 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 462 633 463 634 on mDoQuit me … … 472 643 end 473 644 474 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx645 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 475 646 476 647 on mQuitMovie me … … 480 651 end 481 652 482 483 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 653 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 654 on ____PROCESS_CALLBACK_EVENTS 655 end 656 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 657 658 on mDoCallBack me, callbackObject, p1, p2, p3 659 ----------------------------------- 660 -- CREATED: 22.07.2009 661 -- ACTION: This is the standard way to send callback events to callbackObjects of the format: 662 -- [#handler:symbol, #target:object] 663 -- NOTE: If the #handler property is NOT a symbol, then it is considered a special case 664 -- where the result will simply be "put" into the message window => suited for debugging 665 -- INPUT: <callbackObject> ; object (propertylist) ; required ; a callBack object of the format: 666 -- [#handler:symbol, #target:object], which can be any number of additional properties 667 -- since this object will be provided as parameter to the recipient 668 -- the recipient can access all these additional properties 669 -- <p1 - p3> ; arbitrary parameters ; just in case additional parameters are required, 670 -- which can not, for some reason, be stored in the object <callbackObject> itself 671 -- RETURNS: either a string or any value. In case of a parameter error 672 -- an errorstring is returned and the callback was NOT successfully called. 673 -- EXAMPLE: theResult = xscr().mDoCallBack(callBackObject) 674 ----------------------------------- 675 676 if not(objectP(callbackObject)) then return "Wrong paramater, callbackObject is not an object!" 677 678 hnd = callbackObject[#handler] 679 if not(symbolP(hnd)) then 680 put "Script 'commonMovieScript': Handler 'mDoCallBack':" 681 put "---------------------------" 682 put "callbackObject:" && callbackObject 683 put "------" 684 put "p1:" && p1 685 put "------" 686 put "p2:" && p2 687 put "------" 688 put "p3:" && p3 689 put "---------------------------" 690 return "callbackObject[#handler] is not a symbol" 691 end if 692 693 tgt = callbackObject[#target] 694 case ilk(tgt) of 695 #script, #instance: 696 retval = call(hnd, [tgt], callbackObject, p1, p2, p3) 697 #list, #proplist: 698 if count(tgt) = 0 then 699 put "Script 'commonMovieScript': Handler 'mDoCallBack':" 700 put "---------------------------" 701 put "callbackObject:" && callbackObject 702 put "------" 703 put "p1:" && p1 704 put "------" 705 put "p2:" && p2 706 put "------" 707 put "p3:" && p3 708 put "---------------------------" 709 retval = 1 710 else 711 retval = call(hnd, tgt, callbackObject, p1, p2, p3) 712 end if 713 714 otherwise: 715 spr = mGetKanal(me, tgt) 716 if spr < 1 then return "callbackObject[#target] is neither an object nor a spritenumber/name:" && callbackObject[#target] 717 retval = sendSprite(spr, hnd, callbackObject, p1, p2, p3) 718 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 726 727 return retval 728 end 729 730 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 731 732 on mDoDelayedCallback me, proplist_callbackObject, integer_DelayTime, any_param1, any_param2, any_param3 733 ----------------------------------- 734 -- CREATED: 04.02.2010 735 -- ACTION: Break the event chain by deleying a call by at least one milliseconds 736 -- INPUT: <callbackObject> ; object (propertylist) ; required ; a callBack object of the format: 737 -- [#handler:symbol, #target:object], which can be any number of additional properties 738 -- since this object will be provided as parameter to the recipient 739 -- the recipient can access all these additional properties 740 -- <integer_DelayTime> ; integer ; timeoutlength in milliseconds, optional, default = 1 741 -- <any_param1 - any_param3> ; arbitrary parameters ; just in case additional parameters are required, 742 -- which can not, for some reason, be stored in the object <callbackObject> itself 743 -- RETURNS: true for success 744 -- EXAMPLE: cb = [#target:me, #handler:#foo] 745 -- xscr().mDoDelayedCallback(cb, 1, "abc", 3, []) 746 ----------------------------------- 747 748 delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList) 749 if ilk(delayedCallBackList) <> #proplist then 750 delayedCallBackList = [:] 751 delayedCallBackList[#lastIndex] = 0 752 delayedCallBackList[#jobs] = [:] 753 mSetGlobalValue(me, #delayedCallBackList, delayedCallBackList) 754 end if 755 756 if ilk(integer_DelayTime) <> #integer then integer_DelayTime = 1 757 integer_DelayTime = max(1, integer_DelayTime) 758 759 delayedCallBackList[#lastIndex] = delayedCallBackList[#lastIndex] + 1 760 if delayedCallBackList[#lastIndex] = the maxinteger then delayedCallBackList[#lastIndex] = 1 761 762 toName = "delayedCallbackTimeout" & mGetMemoryAddress(me, me) & delayedCallBackList[#lastIndex] 763 764 delayedCallBackList[#jobs][toName] = [#cobj: proplist_callbackObject, #params:[any_param1, any_param2, any_param3]] 765 766 dto = mCreateTimeOut(me, toName, integer_DelayTime, #delayedCallCallback, me) 767 768 return 1 769 end 770 771 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 772 -- cal the callback after the delay timeout 773 774 on delayedCallCallback me, dto 775 if ilk(dto) <> #timeout then exit 776 toName = dto.name 777 dto.forget() 778 delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList) 779 if ilk(delayedCallBackList) <> #proplist then exit 780 thisJob = delayedCallBackList[#jobs][toName] 781 if voidP(thisJob) then exit 782 delayedCallBackList[#jobs].deleteProp(toName) 783 mDoCallBack me, thisJob[#cobj], thisJob[#params][1], thisJob[#params][2], thisJob[#params][3] 784 end 785 786 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 484 787 on ____MOVIE_IDENTIFIER_HANDLERS 485 788 end 486 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx789 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 487 790 488 791 … … 492 795 end 493 796 494 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx797 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 495 798 496 799 on mGetThisMovieName me … … 505 808 506 809 507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx810 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 508 811 on ____SPRITE_NAMING_HANDLERS 509 812 end 510 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx813 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 511 814 512 815 -- these are handlers for my own sprite naming routines with the names of the named sprites currently in the score … … 553 856 end 554 857 555 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx858 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 556 859 557 860 on mMeldeKanalname me, einname, einkanal … … 561 864 end 562 865 563 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx866 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 564 867 565 868 on mMeldeAbKanalname me, einname, einkanal … … 572 875 573 876 574 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx877 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 575 878 on ____DEBUG_FUNCTIONS 576 879 end 577 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx880 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 578 881 579 882 -- my own 'put' function, which can be enabled and disabled (to avoid clutter in the message window) … … 592 895 end 593 896 594 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx897 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 595 898 596 899 on mPut me, str, overwrite, dername … … 621 924 mDebugImage me, str, overwrite, dername 622 925 else 623 if overwrite = 64 then put str 624 end if 625 626 end 627 628 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 926 if the runmode contains "aut" then 927 if overwrite = 64 then 928 put str 929 else 930 if debugFlags.getPos(1) then 931 put str 932 end if 933 end if 934 end if 935 end if 936 937 end 938 939 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 629 940 630 941 on mDebugImage me, img, overwrite, dername … … 634 945 if voidP(dername) then dername = "DebugImg" 635 946 636 if overwrite then947 if overwrite = 1 then 637 948 neuer = member(dername) 638 949 if mGetMemType(me, neuer) <> #bitmap then overwrite = 0 … … 647 958 end 648 959 649 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx960 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 650 961 651 962 on mLogDebugInfo me, str … … 655 966 f.name = "debuginfotextmember" 656 967 end if 968 969 if mGetVersionNumber(me) > 11 then 970 oldscrolltop = f.scrolltop 971 if oldscrolltop > f.height - f.pageheight - f.lineheight then 972 oldscrolltop = #unten 973 end if 974 end if 975 657 976 altertext = f.text 658 977 if the number of lines of altertext > 500 then put line 300 to 500 of altertext into field "debuginfotextmember" 659 978 put "------------------------"&RETURN&RETURN & str & return after field "debuginfotextmember" 660 end 661 662 663 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 979 980 if not voidP(oldscrolltop) then 981 if oldscrolltop = #unten then 982 f.scrolltop = f.height - f.pageheight + f.lineheight 983 else 984 f.scrolltop = oldscrolltop 985 end if 986 end if 987 end 988 989 990 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 664 991 665 992 on mWatch me, theIdentifier, theValue … … 686 1013 end 687 1014 688 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1015 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 689 1016 on ____MEMBER_UTILITIES 690 1017 end 691 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1018 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 692 1019 693 1020 -- Referencing members by name is slow … … 710 1037 711 1038 712 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1039 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 713 1040 -- xxxxxxxxxxxxxxxxxx Creation of New Members - ROUTINEN 714 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx715 716 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1041 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1042 1043 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 717 1044 718 1045 on mGetNewMember me, aType … … 735 1062 end 736 1063 737 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1064 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 738 1065 739 1066 on mEraseMember me, aMember … … 751 1078 752 1079 tempMembers = mGetTempMemberList(me, aType) 753 tempMembers.add(aMember)754 755 end 756 757 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1080 if tempMembers.getPos(aMember) < 1 then tempMembers.add(aMember) 1081 1082 end 1083 1084 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 758 1085 759 1086 on mGetTempMemberList me, aType … … 777 1104 end 778 1105 779 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1106 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 780 1107 781 1108 on mEraseAllTempMembers me … … 799 1126 end 800 1127 801 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1128 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 802 1129 on ____TEXT_UTILITIES 803 1130 end 804 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1131 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 805 1132 -- common textmember and font handlers 806 1133 … … 811 1138 on InitFonts me 812 1139 -- comment here to use a *real* global: 1140 1141 if not the runmode contains "aut" then return ["Arial"] -- just to be safe 1142 -- this handler should not be called anymore in runtime 1143 -- as mGetAFont() doesn't call it anymore 1144 -- the lame reason is: 1145 -- the new D11 player fucked up the unsupported function FontList() 1146 -- :-( SHAME! 813 1147 814 1148 -- faked global: … … 847 1181 end 848 1182 849 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1183 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 850 1184 851 1185 … … 877 1211 end 878 1212 879 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1213 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 880 1214 881 1215 -- xxxxxxxxxxxxxxxxxx get a temporary textmember named "tempDruckText" … … 928 1262 end 929 1263 930 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1264 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 931 1265 932 1266 -- xxxxxxxxxxxxxxxxxx gets a font by name and returns the name if successful … … 934 1268 -- if that fails also, takes the first installed font of the list of installed fonts 935 1269 on mGetAFont me, theFont 1270 1271 return theFont -- :-( the unsupported fontlist() method of font members now can crash the browser - tolle wurst! 1272 1273 936 1274 fontliste = InitFonts(me) 937 1275 if not (fontliste).getPos(theFont) then … … 1001 1339 end 1002 1340 1003 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1004 1342 1005 1343 on mGetLineHeight me, textOrField … … 1047 1385 end 1048 1386 1049 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1387 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1050 1388 1051 1389 -- build a list of lists of *wrapped* lines of the following format: … … 1125 1463 1126 1464 1127 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1465 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1128 1466 1129 1467 -- polnisches problem: … … 1163 1501 1164 1502 1165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1503 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1166 1504 on ____OBJECT_REFERENCING 1167 1505 end 1168 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1169 1170 1171 1172 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1506 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1507 1508 1509 1510 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1173 1511 -- xxxxxxxxxxxxxxxxxx check for availability of scripting xtra by name and store result for further access 1174 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1512 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1175 1513 1176 1514 on mCheckForXtra me, whichXtra … … 1197 1535 1198 1536 1199 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1200 1538 -- xxxxxxxxxxxxxxxxxx stored script instances: 1201 1539 … … 1237 1575 end 1238 1576 1239 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1577 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1240 1578 ------------- get an instance WITHOUT instantiating, if it doesn't existing 1241 1579 ------------- "mGetInstance" creates automatically an instance, sometimes, this is not what we want … … 1255 1593 1256 1594 1257 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1595 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1258 1596 -- xxxxxxxxxxxxxxxxxx delete a stored script instance: 1259 1597 … … 1270 1608 1271 1609 1272 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1610 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1273 1611 -- xxxxxxxxxxxxxxxxxx reload a stored script instance: 1274 1612 … … 1278 1616 end 1279 1617 1280 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1618 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1281 1619 -- xxxxxxxxxxxxxxxxxx replace a stored script instance: 1282 1620 … … 1294 1632 1295 1633 1296 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1634 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1297 1635 -- xxxxxxxxxxxxxxxxxx script instances in the models userdata[#myParentScript]: 1298 1636 -- many of my behaviors use model.userdata[#myParentScript] to store script objects, which then get the events sent by the Event Router Behavior for mouse Events … … 1317 1655 end 1318 1656 1319 1320 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1657 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1658 1659 on mGetMemoryAddress me, theObject 1660 ----------------------------------- 1661 -- CREATED: 08.12.2009 1662 -- ACTION: Convert argument into a string and chop the last char 1663 -- Usually used to get a unique identifier for a scriptinstance (=> the last word of string(me)) 1664 -- but without the trailing ">". 1665 -- Not only this looks nicer, but also if used for a filename the ">" character is problematic in a filename 1666 -- INPUT: <theObject> ; any ilk which can be converted to a string 1667 -- RETURNS: string ; the stringified object without the trailing char 1668 -- EXAMPLE: uniqueInstanceIdentifier = xscr().mGetMemoryAddress(me) 1669 ----------------------------------- 1670 1671 theObject = the last word of string(theObject) 1672 delete the last char of theObject 1673 return theObject 1674 end 1675 1676 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1677 1678 on mGetPropertyRecursive me, proplist_source, list_propnames 1679 ----------------------------------- 1680 -- CREATED: 08.03.2010 1681 -- ACTION: Dereference a proplist recursively 1682 -- INPUT: <proplist_source> ; property list ; the source list 1683 -- <list_propnames> ; linear list ; linear list with property names, which lead to the last property 1684 -- RETURNS: any value 1685 -- EXAMPLE: sourceList = [#one:[#two:[#three:3]]] 1686 -- val = xscr().mGetPropertyRecursive(sourceList, [#one, #two, #three]) 1687 ----------------------------------- 1688 1689 if ilk(proplist_source) <> #proplist then return void 1690 if not(listP(list_propnames)) then return void 1691 cnt = count(list_propnames) 1692 if cnt < 1 then return void 1693 if cnt = 1 then return proplist_source[list_propnames[1]] 1694 propname = list_propnames[1] 1695 list_propnames.deleteAt(1) 1696 return mGetPropertyRecursive(me, proplist_source[propname], list_propnames) 1697 end 1698 1699 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1700 1701 on mCheckForValidImage me, image_img 1702 ----------------------------------- 1703 -- CREATED: 21.04.2010 1704 -- ACTION: Check whether the parameter is a valid image object. 1705 -- Unfortunately there are sometimes cases where we end up with an 1706 -- image object, which errors out on each IL operation 1707 -- It is image:0 its ilk() is #image, but you can't even refer to its width 1708 -- without running into script errors. Therefore we need a lame string comparison 1709 -- as this image object has none of an image objects properties and methods :-( 1710 -- LAME!! Because string comaparison is a lame and slow hack. So don't use this handler "for fun" 1711 -- INPUT: <image_img> ; any 1712 -- RETURNS: boolean ; true if the parameter is an image with a with or height > 0 1713 -- EXAMPLE: put xscr().mCheckForValidImage(image(1,1,1)) 1714 -- -- 1 1715 ----------------------------------- 1716 1717 if ilk(image_img) <> #image then return 0 1718 if string(image_img) = "<image:0>" then return 0 1719 if image_img.width * image_img.height < 1 then return 0 1720 return 1 1721 end 1722 1723 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1321 1724 on ____MATH_UTILITIES 1322 1725 end 1323 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1726 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1324 1727 1325 1728 -- xxxxxxxxxxxxxxxxxx Ease in, Ease out with sin() and cos() … … 1345 1748 1346 1749 1347 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1750 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1348 1751 -- xxxxxxxxxxxxxxxxxx powers of 2 for textures 1349 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1752 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1753 1754 on mIsPowerOfTwo me, integer_num 1755 return (bitand(integer_num, integer_num - 1) = 0) 1756 end 1757 1758 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1350 1759 1351 1760 on mGetNextPowerOfTwo me, breite 1761 powerList = mGetPowerOf2List(me) 1762 retval = powerList.findPosNear(integer(breite)) 1763 return powerList[min(retval, powerList.count)] 1764 end 1765 1766 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1767 1768 on mGetNextLowerPowerOfTwo me, breite 1769 powerList = mGetPowerOf2List(me) 1770 if powerList.getPos(breite) > 0 then return breite 1771 return powerList[max(1, powerList.findPosNear(integer(breite)) - 1)] 1772 end 1773 1774 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1775 1776 on mGetPowerOf2List me 1352 1777 theGlobs = mGetGlobalList(me) 1353 1778 gPowerList = theGlobs.getaprop(#gPowerList) 1354 1779 if ilk(gPowerList) <> #list then 1355 gPowerList = [ 2,4,8,16,32,64,128,256,512] --,1024]1780 gPowerList = [1,2,4,8,16,32,64,128,256,512,1024] 1356 1781 gPowerList.sort() 1357 1782 theGlobs[#gPowerList] = gPowerList 1358 1783 end if 1359 retval = gPowerList.findPosNear(integer(breite)) 1360 return gPowerList[min(retval, gPowerList.count)] 1361 end 1362 1363 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1364 1365 on mGetNextLowerPowerOfTwo me, breite 1366 theGlobs = mGetGlobalList(me) 1367 gPowerList = theGlobs.getaprop(#gPowerList) 1368 if ilk(gPowerList) <> #list then 1369 gPowerList = [1,2,4,8,16,32,64,128,256,512] --,1024] -- mac openGL only does 512 1370 gPowerList.sort() 1371 theGlobs[#gPowerList] = gPowerList 1372 end if 1373 if gPowerList.getPos(breite) > 0 then return breite 1374 return gPowerList[max(1, gPowerList.findPosNear(integer(breite)) - 1)] 1375 end 1376 1377 1378 1379 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1784 return gPowerList 1785 end 1786 1787 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1380 1788 on ____STRING_FUNCTIONS 1381 1789 end 1382 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1790 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1383 1791 1384 1792 … … 1410 1818 the itemdelimiter = olddelim 1411 1819 1412 1413 len = length(dateiname) 1414 ext = "" 1415 until = max(1, len-8) -- let's pretend, that a file extension is not langer than 8 chars 1416 1417 repeat with n = len down to until 1418 this = dateiname.char[n] 1419 put this before ext 1420 delete char n of dateiname 1421 if this = "." then exit repeat 1820 ext = mSplitFromEnd(me, dateiname, ".") 1821 1822 return [#basedir:fname, #basename:ext[#basename], #extension:ext[#extension]] 1823 1824 end 1825 1826 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1827 1828 on mSplitFromEnd me, string_source, char_delim 1829 ----------------------------------- 1830 -- CREATED: 23.03.2010 1831 -- ACTION: Get the file extension 1832 -- (or use any other SINGLE char to get the remaining bits of a string AFTER that char) 1833 -- INPUT: <string_source> ; string ; the input string 1834 -- <char_delim> ; string ; one char to be used as the itemdelimiter => optional, default = "." 1835 -- RETURNS: property list with [#basename:"", #extension:""] 1836 -- EXAMPLE: put xscr().mSplitFromEnd("com.adobe.director.plist", ".") 1837 -- -- [#basename:"com.adobe.director", #extension:"plist"] 1838 ----------------------------------- 1839 1840 char_delim = string(char_delim) 1841 if length(char_delim) > 0 then 1842 char_delim = char 1 of char_delim 1843 else 1844 char_delim = "." -- defaults to . => find file extension 1845 end if 1846 1847 if offset(char_delim, string_source) < 1 then 1848 return [#basename:string_source, #extension:""] 1849 end if 1850 1851 olddelim = the itemdelimiter 1852 the itemdelimiter = char_delim 1853 ext = the last item of string_source 1854 delete the last item of string_source 1855 the itemdelimiter = olddelim 1856 return [#basename:string_source, #extension:ext] 1857 end 1858 1859 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1860 1861 on mConvertAbsolutePathToRelative me, aPath, newDelim, anAbsoluteBasedir 1862 1863 1864 1865 anAbsoluteBasedir = string(anAbsoluteBasedir) 1866 if length(anAbsoluteBasedir) < 1 then 1867 1868 if not(the runmode contains "auth") then 1869 externalPathHackList = mGetPlayBackModeValue(me, #externalPathHackList) 1870 if listP(externalPathHackList) then 1871 1872 delim = the last char of the moviepath 1873 if length(delim) < 1 then 1874 if (the runmode contains "plug") then 1875 delim = "/" 1876 else 1877 delim = the last char of the applicationpath 1878 end if 1879 end if 1880 1881 repeat with thisHack in externalPathHackList 1882 if ilk(thisHack) = #proplist then 1883 ident = thisHack[#identifier] 1884 1885 if delim <> "/" then 1886 offs = offset("/", ident) 1887 repeat while offs > 0 1888 put delim into char offs of ident 1889 offs = offset("/", ident) 1890 end repeat 1891 end if 1892 1893 if offset(ident, aPath) > 0 then 1894 if aPath starts thisHack[#basePath] & ident then 1895 anAbsoluteBasedir = thisHack[#basePath] 1896 exit repeat 1897 end if 1898 end if 1899 end if 1900 end repeat 1901 end if 1902 end if 1903 1904 if length(anAbsoluteBasedir) < 1 then anAbsoluteBasedir = the moviepath 1905 1906 end if 1907 1908 if length(anAbsoluteBasedir) < 1 then return aPath 1909 1910 delim = the last char of the moviepath 1911 if length(delim) < 1 then delim = the last char of the applicationpath 1912 1913 newDelim = string(newDelim) 1914 if length(newDelim) < 1 then newDelim = delim 1915 1916 offs = offset(anAbsoluteBasedir, aPath) 1917 if offs <> 1 then 1918 put "Script:commonMovieScript; Handler:mConvertAbsolutePathToRelative; The path:" &"E& aPath "E&& "is not inside the current path specified" &"E& anAbsoluteBasedir "E 1919 return aPath 1920 end if 1921 delete char 1 to length(anAbsoluteBasedir) of aPath 1922 if delim = newDelim then return aPath 1923 1924 offs = offset(delim, aPath) 1925 repeat while offs > 0 1926 put newDelim into char offs of aPath 1927 offs = offset(delim, aPath) 1422 1928 end repeat 1423 1929 1424 if char 1 of ext <> "." then -- no extension 1425 put ext after dateiname 1426 ext = "" 1427 end if 1428 1429 return [#basedir:fname, #basename:dateiname, #extension:ext] 1430 1431 end 1432 1433 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1434 1435 1436 -- convert a relative path to an absolute path: 1930 return aPath 1931 end 1932 1933 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1934 1935 -- convert a relative path to an absolute path: (Sorry, the name of this handler couldn't be more stupid ;-) 1437 1936 on mGetRelativePath me, aPath, mp -- mp optional: default = the moviepath 1937 1938 if aPath contains "maxState" then 1939 nothing 1940 end if 1941 1942 if not(the runmode contains "auth") then 1943 externalPathHackList = mGetPlayBackModeValue(me, #externalPathHackList) 1944 if listP(externalPathHackList) then 1945 repeat with thisHack in externalPathHackList 1946 if ilk(thisHack) = #proplist then 1947 if aPath starts thisHack[#identifier] then 1948 mp = thisHack[#basePath] 1949 -- alert "changed basepath to:" && mp 1950 regexp = thisHack[#regexp] 1951 if ilk(regexp) = #proplist then 1952 searchString = string(regexp[#searchString]) 1953 if length(searchString) > 0 then 1954 replacementString = string(regexp[#replacementString]) 1955 aPath = jReplaceAll(aPath, searchString, replacementString, "ig", 1) 1956 end if 1957 end if 1958 exit repeat 1959 end if 1960 end if 1961 end repeat 1962 end if 1963 end if 1438 1964 1439 1965 mp = string(mp) … … 1444 1970 mp = "" 1445 1971 else 1446 mp = the applicationpath1972 mp = the applicationpath 1447 1973 end if 1448 1974 if length(mp) < 1 then … … 1461 1987 delim = the last char of the moviepath 1462 1988 if length(delim) < 1 then 1463 1464 1989 if the runmode contains "plug" then 1465 mp= ""1990 -- delim = "" 1466 1991 else 1467 1992 delim = the last char of the applicationpath 1468 1993 end if 1469 1470 1471 1994 if length(delim) < 1 then delim = "/" 1472 1995 end if … … 1529 2052 end 1530 2053 1531 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2054 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1532 2055 -- converts each of the three pathdelimiters ("\", ":", "/") to the platform specific delimiter 1533 2056 … … 1554 2077 if delim = "\" then 1555 2078 if length(thePath) > 1 then 1556 if thePath.char[2] = ":" then 1557 num = charToNum(thePath.char[1]) 1558 if (num > 64 and num < 91) or (num > 96 and num < 123) then 1559 praef = thePath.char[1 .. 2] 1560 delete char 1 to 2 of thePath 2079 if thePath.char[2] = ":" then 2080 num = charToNum(thePath.char[1]) 2081 if (num > 64 and num < 91) or (num > 96 and num < 123) then 2082 praef = thePath.char[1 .. 2] 2083 delete char 1 to 2 of thePath 2084 else 2085 praef = "" 2086 end if 1561 2087 else 1562 2088 praef = "" 1563 2089 end if 1564 else1565 praef = ""1566 end if1567 2090 else 1568 2091 praef = "" … … 1584 2107 end if 1585 2108 2109 ----------- now we want to strip the domain too, because there could be a : for the port 2110 ----------- but : is one of the chars we want to translate, therefore we exclude the doamin also 2111 if length(praef) > 0 then 2112 2113 repeat with xy = 1 to 2 2114 if char 1 of thePath = "/" then 2115 praef = praef & "/" 2116 delete char 1 of thePath 2117 end if 2118 end repeat 2119 2120 domain = offset("/", thePath) 2121 if domain = 0 then domain = length(thePath) 2122 praef = praef & thePath.char[1 .. domain] 2123 delete char 1 to domain of thePath 2124 end if 2125 ------------ 2126 1586 2127 else 1587 2128 praef = "" … … 1605 2146 1606 2147 1607 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1608 1609 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2148 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2149 2150 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1610 2151 -- xxxxxxxxxxxxxxxxxx Check for file existence 1611 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2152 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1612 2153 1613 2154 on mCheckFileExists me, aPath … … 1662 2203 end 1663 2204 1664 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2205 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1665 2206 1666 2207 on mGetUniqueFilename me, fullPath, backUpSuffix … … 1675 2216 splitPath = mSplitPath(me, fullPath) 1676 2217 dd = 0 1677 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd2218 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 1678 2219 repeat while mCheckFileExists(me, dup) = 1 1679 2220 dd = dd + 1 1680 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd2221 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 1681 2222 end repeat 1682 2223 … … 1685 2226 end 1686 2227 1687 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2228 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1688 2229 1689 2230 on mCreateDateSuffix me, praefix … … 1701 2242 1702 2243 1703 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2244 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1704 2245 1705 2246 -- dummy handler for translate function 1706 2247 1707 on mTranslate me, aString 2248 on mTranslate me, aString, variablesList 1708 2249 theGlobs = mGetGlobalList(me) 1709 2250 uebersetzungsListe = theGlobs.getaprop(#gUebersetzung) 1710 if ilk(uebersetzungsListe) <> #proplist then return aString 2251 if ilk(uebersetzungsListe) <> #proplist then return mReplacePlaceHoldersInString(me, aString, variablesList) 2252 1711 2253 uebersetzung = uebersetzungsListe.getaprop(aString) 1712 if voidP(uebersetzung) then 1713 return aString 1714 else 1715 currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage) 1716 if voidP(currLang) then 1717 currLang = theGlobs.getaprop(#gSprache) 1718 if voidP(currLang) then currLang = 0 1719 call(#mSetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage, currLang) 1720 end if 1721 ind = currLang + 1 1722 if ind > count(uebersetzung) then ind = 1 1723 return uebersetzung[ind] 1724 end if 1725 end 1726 1727 1728 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2254 if voidP(uebersetzung) then return mReplacePlaceHoldersInString(me, aString, variablesList) 2255 2256 currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage) 2257 if voidP(currLang) then 2258 currLang = theGlobs.getaprop(#gSprache) 2259 if voidP(currLang) then currLang = 0 2260 call(#mSetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage, currLang) 2261 end if 2262 ind = currLang + 1 2263 if ind > count(uebersetzung) then ind = 1 2264 2265 return mReplacePlaceHoldersInString(me, uebersetzung[ind], variablesList) 2266 end 2267 2268 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2269 2270 on mReplacePlaceHoldersInString me, aString, variablesList 2271 theIlk = ilk(variablesList) 2272 if theIlk = #proplist then 2273 cnt = count(variablesList) 2274 if cnt > 0 then 2275 repeat with n = 1 to cnt 2276 str = string(variablesList[n]) 2277 prop = variablesList.getPropAt(n) 2278 srchStr = "%%" & prop & "%%" 2279 len = length(srchStr) - 1 2280 offs = offset(srchStr, aString) 2281 repeat while offs > 0 2282 put str into char offs to offs + len of aString 2283 offs = offset(srchStr, aString) 2284 end repeat 2285 end repeat 2286 end if 2287 else if theIlk = #list then -- printf like replacement 2288 if count(variablesList) > 0 then 2289 offs = offset("%s", aString) 2290 str = string(variablesList[1]) 2291 repeat while offs > 0 2292 put str into char offs to offs + 1 of aString 2293 if count(variablesList) > 1 then variablesList.deleteAt(1) 2294 str = string(variablesList[1]) 2295 offs = offset("%s", aString) 2296 end repeat 2297 end if 2298 end if 2299 return aString 2300 end 2301 2302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1729 2303 -- xxxxxxxxxxxxxxxxxx encodes spaces as %20 rather than "+" as lingos urlencode does 1730 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2304 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1731 2305 1732 2306 1733 2307 on mUrlEncode me, srcText 1734 2308 1735 srcText = urlencode(s rcText)2309 srcText = urlencode(string(srcText)) 1736 2310 1737 2311 offs = offset("+", srcText) … … 1766 2340 1767 2341 1768 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2342 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1769 2343 -- xxxxxxxxxxxxxxxxxx the missing reverse for urlencode 1770 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2344 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1771 2345 1772 2346 … … 1815 2389 end 1816 2390 1817 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2391 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2392 2393 on mSymbolify me, any_var 2394 any_var = string(any_var) 2395 repeat while char 1 of any_var = "#" 2396 delete char 1 of any_var 2397 end repeat 2398 any_var = mString2Symb(me, any_var) 2399 return symbol(any_var) 2400 end 2401 2402 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1818 2403 1819 2404 on mString2Symb me, str … … 1825 2410 end repeat 1826 2411 2412 offs = offset(".", str) 2413 repeat while offs > 0 2414 put "_d_" into char offs of str 2415 offs = offset(".", str) 2416 end repeat 2417 2418 offs = offset("-", str) 2419 repeat while offs > 0 2420 put "_b_" into char offs of str 2421 offs = offset("-", str) 2422 end repeat 2423 1827 2424 if integerP(integer(str.char[1])) then put "n__" before str 1828 2425 2426 if length(str) < 1 then str = "xxx_" & the milliseconds 2427 1829 2428 return str 1830 2429 end 1831 2430 1832 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2431 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1833 2432 1834 2433 on mSymb2String me, sym … … 1841 2440 end repeat 1842 2441 2442 offs = offset("_d_", str) 2443 repeat while offs > 0 2444 put "." into char offs to offs+2 of str 2445 offs = offset("_d_", str) 2446 end repeat 2447 2448 offs = offset("_b_", str) 2449 repeat while offs > 0 2450 put "-" into char offs to offs+2 of str 2451 offs = offset("_b_", str) 2452 end repeat 2453 1843 2454 if str starts "n__" then delete char 1 to 3 of str 1844 2455 … … 1847 2458 1848 2459 1849 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2460 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1850 2461 1851 2462 on mHTMLize me, str 1852 2463 if offset("<html", str) < 1 then 1853 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 1854 2472 if offset("<body", str) < 1 then 1855 put "<body>" beforestr2473 put "<body>" after char firstchar of str 1856 2474 put "</body>" after str 1857 2475 end if … … 1863 2481 1864 2482 1865 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2483 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1866 2484 1867 2485 on mValidateEmailAddress me, emailAddress … … 1888 2506 end 1889 2507 1890 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2508 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1891 2509 -- the naming convention used throughout all my movies for names, filename etc.: 1892 2510 -- Names must be only alphanumeric chars and the underscore and should not start with a number … … 1900 2518 end 1901 2519 1902 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2520 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1903 2521 on ____________CONVERT_CASE 1904 2522 end 1905 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1906 1907 2523 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1908 2524 1909 2525 on mUpperCase me, aString … … 1925 2541 end 1926 2542 1927 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2543 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1928 2544 1929 2545 on mLowerCase me, aString … … 1944 2560 end 1945 2561 1946 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2562 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1947 2563 1948 2564 on mCreateCaseLists me … … 1956 2572 end if 1957 2573 1958 -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZ çË"&vA& "Ìéæèêíëìîñï1959 ÍòôÛ®¯ÎÙ"1960 -- pLowercase = "abcdefghijklmnopqrstuvwxyz "&""&"Ÿ¿ÏØ"1961 pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " ç", "Ë", vA, "A", "", "Ì", "", "", "", "é", "æ", "è", "ê", "í", "ë", "ì", "", "î", "ñ", "ï", "1962 ", " Í", "ò", "ô", "U", "", "®", "¯", "Î", "Ù"])1963 pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "", vA, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Ÿ", "¿", "Ï", "Ø"])1964 1965 end 1966 1967 1968 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2574 -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZÃÃ"&vA& "ÃÃà 2575 ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃâ¬ÃÃÃÅÅž" 2576 -- pLowercase = "abcdefghijklmnopqrstuvwxyzáà "&"â"&"ÀãåçéÚêëÃìîïñóòÎöõúùûÌÊÞÅÿ" 2577 pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Ã", "Ã", vA, "A", "Ã", "Ã", "à 2578 ", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "Ã", "U", "Ã", "Ã", "Ã", "Å", "Åž"]) 2579 pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "á", "à ", vA, "â", "À", "ã", "Ã¥", "ç", "é", "Ú", "ê", "ë", "Ã", "ì", "î", "ï", "ñ", "ó", "ò", "ÃŽ", "ö", "õ", "ú", "ù", "û", "ÃŒ", "Ê", "Þ", "Å", "ÿ"]) 2580 2581 end 2582 2583 2584 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1969 2585 on ____DATE_FUNCTIONS 1970 2586 end 1971 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2587 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1972 2588 1973 2589 on mGetWeekDay me, dateObject, lang … … 1979 2595 li = ["Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"] 1980 2596 "pt": 1981 li = ["Segunda-feira","Ter a-feira","Quarta-feira","Quinta-feira","Sexta-feira","Sbado","Domingo"]2597 li = ["Segunda-feira","Terça-feira","Quarta-feira","Quinta-feira","Sexta-feira","Sábado","Domingo"] 1982 2598 "fr": 1983 2599 li = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"] 1984 2600 "es": 1985 li = ["Lunes","Martes","Mi rcoles","Jueves","Viernes","Sbado","Domingo"]2601 li = ["Lunes","Martes","Miércoles","Jueves","Viernes","Sábado","Domingo"] 1986 2602 "it": 1987 li = ["Luned ","Marted","Mercoled","Gioved","Venerd","Sabato","Domenica"]2603 li = ["Lunedì","Martedì","Mercoledì","Giovedì","Venerdì","Sabato","Domenica"] 1988 2604 "nl": 1989 2605 li = ["Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag","Zondag"] … … 1997 2613 1998 2614 1999 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2615 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2000 2616 2001 2617 on mFormatdate me, theFormat, theDate … … 2024 2640 end 2025 2641 2026 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2642 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2027 2643 2028 2644 on mReplaceCharWithNumber me, theString, theChar, theNumber … … 2044 2660 end 2045 2661 2046 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2662 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2047 2663 2048 2664 on mGetCurrentDateAmerican me … … 2051 2667 2052 2668 2053 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2669 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2054 2670 2055 2671 on mGetCurrentTimeAmerican me … … 2058 2674 2059 2675 2060 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2676 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2061 2677 2062 2678 on mGetDateAmericanFormat me, dateObject … … 2065 2681 2066 2682 2067 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2683 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2068 2684 2069 2685 on mGetTimeAmericanFormat me, dateObject, withoutSeconds … … 2092 2708 end 2093 2709 2094 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2710 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2711 2712 on mGetDateTimeString me, date_Date 2713 2714 if ilk(date_Date) <> #date then theDate = the systemdate 2715 else theDate = date_Date 2716 2717 theYear = theDate.year 2718 2719 theDay = theDate.day 2720 if theDay < 10 then theDay = "0" & theDay 2721 2722 theMonth = theDate.month 2723 if theMonth < 10 then theMonth = "0" & theMonth 2724 2725 theTime = mGetTimeStringFromSeconds(me, theDate.seconds) 2726 2727 return theYear & "-" & theMonth & "-" & theDay & "T" & theTime 2728 end 2729 2730 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2731 2732 on mGetTimeStringFromSeconds me, integer_SecondsSinceMidnight 2733 2734 if ilk(integer_SecondsSinceMidnight) <> #integer then secs = (the systemdate).seconds 2735 else secs = integer_SecondsSinceMidnight 2736 2737 hours = secs / 3600 2738 if hours < 10 then hours = "0" & hours 2739 secs = secs mod 3600 2740 mins = secs / 60 2741 if mins < 10 then mins = "0" & mins 2742 secs = secs mod 60 2743 if secs < 10 then secs = "0" & secs 2744 2745 return hours & ":" & mins & ":" & secs 2746 end 2747 2748 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2095 2749 2096 2750 on interface me … … 2098 2752 put RETURN & "Shared Global Handlers" after str 2099 2753 2100 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2754 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2101 2755 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2102 2756 put RETURN & "on mGetGlobalList me" after str 2103 2757 put RETURN & "" after str 2104 2758 2105 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2759 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2106 2760 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2107 2761 put RETURN & "on mMyClearGlobals me" after str 2108 2762 put RETURN & "" after str 2109 2763 2110 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2764 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2111 2765 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2112 2766 put RETURN & "on mCallDestroy me" after str 2113 2767 put RETURN & "" after str 2114 2768 2115 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2769 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2116 2770 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2117 2771 put RETURN & "on ____WOODY_CHANGES" after str 2118 2772 put RETURN & "" after str 2119 2773 2120 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2774 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2121 2775 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2122 2776 put RETURN & "on Authoring_ExchangeScriptListColorsToRGBs me" after str 2123 2777 put RETURN & "" after str 2124 2778 2125 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2779 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2126 2780 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2127 2781 put RETURN & "on mCheckWoody me" after str 2128 2782 put RETURN & "" after str 2129 2783 2130 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2784 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2131 2785 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2132 2786 put RETURN & "on mGetVersionNumber me" after str 2133 2787 put RETURN & "" after str 2134 2788 2135 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2789 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2136 2790 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2137 2791 put RETURN & "on mGetPlatform me" after str 2138 2792 put RETURN & "" after str 2139 2793 2140 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2794 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2141 2795 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2142 2796 put RETURN & "on mCheckMemberType me, memref, aType" after str 2143 2797 put RETURN & "" after str 2144 2798 2145 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2799 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2146 2800 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2147 2801 put RETURN & "on mGetMemType me, memref" after str 2148 2802 put RETURN & "" after str 2149 2803 2150 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2804 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2151 2805 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2152 2806 put RETURN & "on mCreateTimeout me, theName, theDuration, theHandler, theTarget" after str 2153 2807 put RETURN & "" after str 2154 2808 2155 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2809 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2156 2810 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2157 2811 put RETURN & "on ____HANDLE_KEY_EVENTS" after str 2158 2812 put RETURN & "" after str 2159 2813 2160 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2814 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2161 2815 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2162 2816 put RETURN & "on mHandleKeyEvent me, tk, kc" after str 2163 2817 put RETURN & "" after str 2164 2818 2165 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2819 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2166 2820 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2167 2821 put RETURN & "on mSuspendAllKeyEvents me, flag" after str 2168 2822 put RETURN & "" after str 2169 2823 2170 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2824 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2171 2825 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2172 2826 put RETURN & "on mSuspendAllMouseEvents me, flag" after str 2173 2827 put RETURN & "" after str 2174 2828 2175 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2829 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2176 2830 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2177 2831 put RETURN & "on mDoQuit me" after str 2178 2832 put RETURN & "" after str 2179 2833 2180 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2834 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2181 2835 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2182 2836 put RETURN & "on mQuitMovie me" after str 2183 2837 put RETURN & "" after str 2184 2838 2185 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2839 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2186 2840 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2187 2841 put RETURN & "on ____MOVIE_IDENTIFIER_HANDLERS" after str 2188 2842 put RETURN & "" after str 2189 2843 2190 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2844 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2191 2845 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2192 2846 put RETURN & "on mSetThisMovieName me, aName" after str 2193 2847 put RETURN & "" after str 2194 2848 2195 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2849 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2196 2850 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2197 2851 put RETURN & "on mGetThisMovieName me" after str 2198 2852 put RETURN & "" after str 2199 2853 2200 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2854 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2201 2855 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2202 2856 put RETURN & "on ____SPRITE_NAMING_HANDLERS" after str 2203 2857 put RETURN & "" after str 2204 2858 2205 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2859 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2206 2860 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2207 2861 put RETURN & "on mGetKanal me, einname" after str 2208 2862 put RETURN & "" after str 2209 2863 2210 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2864 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2211 2865 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2212 2866 put RETURN & "on mMeldeKanalname me, einname, einkanal" after str 2213 2867 put RETURN & "" after str 2214 2868 2215 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2869 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2216 2870 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2217 2871 put RETURN & "on mMeldeAbKanalname me, einname, einkanal" after str 2218 2872 put RETURN & "" after str 2219 2873 2220 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2874 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2221 2875 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2222 2876 put RETURN & "on ____DEBUG_FUNCTIONS" after str 2223 2877 put RETURN & "" after str 2224 2878 2225 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2879 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2226 2880 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2227 2881 put RETURN & "on mEnablePut me, val" after str 2228 2882 put RETURN & "" after str 2229 2883 2230 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2884 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2231 2885 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2232 2886 put RETURN & "on mPut me, str, overwrite, dername" after str 2233 2887 put RETURN & "" after str 2234 2888 2235 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2889 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2236 2890 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2237 2891 put RETURN & "on mDebugImage me, img, overwrite, dername" after str 2238 2892 put RETURN & "" after str 2239 2893 2240 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2894 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2241 2895 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2242 2896 put RETURN & "on mLogDebugInfo me, str" after str 2243 2897 put RETURN & "" after str 2244 2898 2245 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2899 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2246 2900 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2247 2901 put RETURN & "on ____MEMBER_UTILITIES" after str 2248 2902 put RETURN & "" after str 2249 2903 2250 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2904 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2251 2905 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2252 2906 put RETURN & "on mSuchMemFwd me, num, cl, dername" after str 2253 2907 put RETURN & "" after str 2254 2908 2255 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2909 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2256 2910 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2257 2911 put RETURN & "on mGetNewMember me, aType" after str 2258 2912 put RETURN & "" after str 2259 2913 2260 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2914 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2261 2915 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2262 2916 put RETURN & "on mEraseMember me, aMember" after str 2263 2917 put RETURN & "" after str 2264 2918 2265 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2919 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2266 2920 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2267 2921 put RETURN & "on mGetTempMemberList me, aType" after str 2268 2922 put RETURN & "" after str 2269 2923 2270 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2924 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2271 2925 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2272 2926 put RETURN & "on mEraseAllTempMembers me" after str 2273 2927 put RETURN & "" after str 2274 2928 2275 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2929 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2276 2930 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2277 2931 put RETURN & "on ____TEXT_UTILITIES" after str 2278 2932 put RETURN & "" after str 2279 2933 2280 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2934 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2281 2935 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2282 2936 put RETURN & "on InitFonts me" after str 2283 2937 put RETURN & "" after str 2284 2938 2285 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2939 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2286 2940 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2287 2941 put RETURN & "on GetScrollRatio me, aMember -------------------------------------------" after str 2288 2942 put RETURN & "" after str 2289 2943 2290 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2944 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2291 2945 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2292 2946 put RETURN & "on mGetATextMem me, theFont, theFontsize, aliasFlag" after str 2293 2947 put RETURN & "" after str 2294 2948 2295 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2949 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2296 2950 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2297 2951 put RETURN & "on mGetAFont me, theFont" after str 2298 2952 put RETURN & "" after str 2299 2953 2300 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2954 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2301 2955 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2302 2956 put RETURN & "on mGetLineHeight me, textOrField" after str 2303 2957 put RETURN & "" after str 2304 2958 2305 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2959 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2306 2960 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2307 2961 put RETURN & "on mGetLinesOfWrappedText me, textOrField" after str 2308 2962 put RETURN & "" after str 2309 2963 2310 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2964 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2311 2965 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2312 2966 put RETURN & "on mCheckForTextAA me" after str 2313 2967 put RETURN & "" after str 2314 2968 2315 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2969 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2316 2970 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2317 2971 put RETURN & "on ____OBJECT_REFERENCING" after str 2318 2972 put RETURN & "" after str 2319 2973 2320 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2974 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2321 2975 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2322 2976 put RETURN & "on mCheckForXtra me, whichXtra" after str 2323 2977 put RETURN & "" after str 2324 2978 2325 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2979 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2326 2980 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2327 2981 put RETURN & "on mGetInstance me, instName" after str 2328 2982 put RETURN & "" after str 2329 2983 2330 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2984 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2331 2985 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2332 2986 put RETURN & "on mGetParentScriptList me, theModel" after str 2333 2987 put RETURN & "" after str 2334 2988 2335 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2989 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2336 2990 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2337 2991 put RETURN & "on ____MATH_UTILITIES" after str 2338 2992 put RETURN & "" after str 2339 2993 2340 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2994 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2341 2995 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2342 2996 put RETURN & "on mApplyDynamic me, proz, methode" after str 2343 2997 put RETURN & "" after str 2344 2998 2345 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str2999 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2346 3000 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2347 3001 put RETURN & "on mGetNextPowerOfTwo me, breite" after str 2348 3002 put RETURN & "" after str 2349 3003 2350 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3004 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2351 3005 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2352 3006 put RETURN & "on mGetNextLowerPowerOfTwo me, breite" after str 2353 3007 put RETURN & "" after str 2354 3008 2355 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3009 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2356 3010 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2357 3011 put RETURN & "on ____STRING_FUNCTIONS" after str 2358 3012 put RETURN & "" after str 2359 3013 2360 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3014 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2361 3015 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2362 3016 put RETURN & "on mSplitPath me, fname, delim -- delim optional: default = the systems pathdelimiter" after str 2363 3017 put RETURN & "" after str 2364 3018 2365 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3019 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2366 3020 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2367 3021 put RETURN & "on mGetRelativePath me, aPath, mp -- mp optional: default = the moviepath" after str 2368 3022 put RETURN & "" after str 2369 3023 2370 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3024 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2371 3025 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2372 3026 put RETURN & "on mGetDelimitedPath me, thePath, delim -- delim optional: default = the systems pathdelimiter" after str 2373 3027 put RETURN & "" after str 2374 3028 2375 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3029 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2376 3030 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2377 3031 put RETURN & "on mCheckFileExists me, aPath" after str 2378 3032 put RETURN & "" after str 2379 3033 2380 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3034 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2381 3035 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2382 3036 put RETURN & "on mTranslate me, aString" after str 2383 3037 put RETURN & "" after str 2384 3038 2385 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3039 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2386 3040 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2387 3041 put RETURN & "on mUrlEncode me, srcText" after str 2388 3042 put RETURN & "" after str 2389 3043 2390 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3044 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2391 3045 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2392 3046 put RETURN & "on urlDecode me, theString" after str 2393 3047 put RETURN & "" after str 2394 3048 2395 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3049 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2396 3050 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2397 3051 put RETURN & "on mString2Symb me, str" after str 2398 3052 put RETURN & "" after str 2399 3053 2400 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3054 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2401 3055 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2402 3056 put RETURN & "on mSymb2String me, sym" after str 2403 3057 put RETURN & "" after str 2404 3058 2405 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str3059 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2406 3060 put RETURN & "-- xxxxxxxxxxxxxxxxxx put <html>, <title> and <body> tags around chunk in order to use it as html of a text member" after str 2407 3061 put RETURN & "on mHTMLize me, str" after str 2408 3062 put RETURN & "" after str 2409 3063 2410 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3064 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2411 3065 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2412 3066 put RETURN & "on ____DATE_FUNCTIONS" after str 2413 3067 put RETURN & "" after str 2414 3068 2415 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3069 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2416 3070 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2417 3071 put RETURN & "on mGetWeekDay me, dateObject, lang" after str 2418 3072 put RETURN & "" after str 2419 3073 2420 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3074 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2421 3075 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2422 3076 put RETURN & "on mGetCurrentDateAmerican me" after str 2423 3077 put RETURN & "" after str 2424 3078 2425 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3079 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2426 3080 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2427 3081 put RETURN & "on mGetCurrentTimeAmerican me" after str 2428 3082 put RETURN & "" after str 2429 3083 2430 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3084 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2431 3085 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2432 3086 put RETURN & "on mGetDateAmericanFormat me, dateObject" after str 2433 3087 put RETURN & "" after str 2434 3088 2435 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str3089 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 2436 3090 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 2437 3091 put RETURN & "on mGetTimeAmericanFormat me, dateObject, withoutSeconds" after str … … 2440 3094 return str 2441 3095 end 3096 3097 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3098 3099 on getReferenceString me 3100 return "xscr()" 3101 end -
trunk/lingosource/castlib2/defaultLayoutDefinitions.ls
r97 r104 7 7 -- Purpose: 8 8 -- combine all formatting data into one single script 9 -- edit the appearance of tables and buttons here in10 9 11 10 -- Usage: … … 18 17 -- extended the functionality so that you can have seperate layoutdefinitions in seperate members 19 18 -- make a parent script for each layout you want to use (and later reuse it easier by just handling this single member) 20 -- the should be set to #parent (or #score for that matter) in order to have "privtae" handlers.19 -- they should be set to #parent (or #score for that matter) in order to have "private" handlers. 21 20 -- it MUST contain the following three handlers: mGetTextProps, mGetButtonLayoutList and mGetTableLayoutList 22 21 -- these handlers will receive a property list as the first paramater, change this property list in place and return it. … … 45 44 46 45 47 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx46 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 48 47 -- xxxxxxxxxxxxxxxxxx default lists for buttons, tables and menus => default layout 49 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 50 49 51 50 -- this is sort of Lingo-CSS for my button and table widgets … … 56 55 57 56 58 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx57 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 59 58 -- xxxxxxxxxxxxxxxxxx Internal: 60 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx59 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 61 60 -- (cache already known layout scripts, so we do not need to look them up in the castlibs every time) 62 61 … … 72 71 end 73 72 74 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx73 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 75 74 76 75 on mClearCachedLayoutScripts … … 78 77 end 79 78 80 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx79 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 81 80 -- xxxxxxxxxxxxxxxxxx Base font properties: 82 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx