Changeset 20 for trunk/lingosource
- Timestamp:
- 09/29/11 16:20:48 (8 months ago)
- Location:
- trunk/lingosource
- Files:
-
- 30 edited
-
castlib2/ButtonManagerHost.ls (modified) (8 diffs)
-
castlib2/CastLabelsMScript.ls (modified) (1 diff)
-
castlib2/HierMenu_DragNDrop.ls (modified) (15 diffs)
-
castlib2/HierMenu_KeyboardControl.ls (modified) (10 diffs)
-
castlib2/HierMenu_Renamer.ls (modified) (8 diffs)
-
castlib2/HierMenu_TextInputField.ls (modified) (5 diffs)
-
castlib2/HierarchicalMenuManager_1.ls (modified) (51 diffs)
-
castlib2/LinkScriptsMScript.ls (modified) (10 diffs)
-
castlib2/ToolTipBeaver_1Host.ls (modified) (5 diffs)
-
castlib2/ToolTipSpriteBehavior_1.ls (modified) (12 diffs)
-
castlib2/aleXtraLoader.ls (modified) (4 diffs)
-
castlib2/aleXtrasMovieScript.ls (modified) (12 diffs)
-
castlib2/creditBeaver.ls (modified) (6 diffs)
-
castlib2/newResizableStageBehavior.ls (modified) (17 diffs)
-
castlib2/resizeWindowScripts.ls (modified) (9 diffs)
-
castlib2/simpletooltip_1.ls (modified) (12 diffs)
-
castlib3/Alex_HierMenuParent.ls (modified) (94 diffs)
-
castlib3/ButtonImageCreator.ls (modified) (21 diffs)
-
castlib3/ButtonManager.ls (modified) (129 diffs)
-
castlib3/DropShadowPScript.ls (modified) (5 diffs)
-
castlib3/FileIOFunktionen.ls (modified) (19 diffs)
-
castlib3/GenericButtonPS.ls (modified) (62 diffs)
-
castlib3/GetSetPrefs.ls (modified) (13 diffs)
-
castlib3/ImageUtilityScripts.ls (modified) (35 diffs)
-
castlib3/PseudoXMLPS.ls (modified) (48 diffs)
-
castlib3/SliderScrollbarMenuParent.ls (modified) (47 diffs)
-
castlib3/SpriteNameBeaver.ls (modified) (3 diffs)
-
castlib3/ToolTipBeaver_1.ls (modified) (26 diffs)
-
castlib3/commonMovieScript.ls (modified) (86 diffs)
-
castlib3/dreiD_Utility_Scripts.ls (modified) (80 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lingosource/castlib2/ButtonManagerHost.ls
r18 r20 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/CastLabelsMScript.ls
r14 r20 1 1 -- CASTLABELS 2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3 3 -- xxxxxxxxxxxxxxxxxx mein labeler 4 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 5 5 6 6 on ____CAST_LABELS -
trunk/lingosource/castlib2/HierMenu_DragNDrop.ls
r14 r20 2 2 -- for use with the hierarchical menu scripts 3 3 4 -- Alex da Franca ©05 -- alex@farbflash.de4 -- Alex da Franca c05 -- alex@farbflash.de 5 5 6 6 … … 25 25 property pOptionDuplicate, pDuplicate 26 26 27 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx27 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 28 28 29 29 on mRolloverLine me, listreference, onScreenRect, rolloverLine … … 33 33 end 34 34 35 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx35 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 36 36 37 37 on endsprite me … … 40 40 end 41 41 42 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx42 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 43 43 44 44 on getPropertyDescriptionList … … 50 50 end 51 51 52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx52 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 53 53 54 54 on mouseDown me … … 63 63 end 64 64 65 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx65 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 66 66 67 67 on mStartDragging me, theTimeout … … 157 157 end 158 158 159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 160 160 161 161 on mouseUpOutside me … … 163 163 end 164 164 165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx165 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 166 166 167 167 on mouseUp me … … 192 192 end 193 193 194 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx194 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 195 195 196 196 on exitframe me … … 214 214 end 215 215 216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx216 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 217 217 218 218 on mGetLeftDragBorder me, ml, links … … 274 274 275 275 276 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx276 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 277 277 278 278 on mKillTimeOut me … … 281 281 end 282 282 283 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx283 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 284 284 285 285 on mDragItemDropped me, draggedItem, retList … … 419 419 end 420 420 421 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx421 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 422 422 423 423 on mTranslateKeywords me, draggedItem, oldpropnamelist, currentPropNameList … … 460 460 end 461 461 462 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx462 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 463 463 464 464 on mDeleteTextImages me, draggedItem, formatList … … 482 482 483 483 484 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx484 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 485 485 486 486 on mGetTreeViewData me, aNode, treeviewkeyword -
trunk/lingosource/castlib2/HierMenu_KeyboardControl.ls
r14 r20 2 2 -- for use with the hierarchical menu scripts 3 3 4 -- Alex da Franca ©05 -- alex@farbflash.de4 -- Alex da Franca c05 -- alex@farbflash.de 5 5 6 6 … … 17 17 property pBlockNextReturn 18 18 19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 20 20 21 21 on beginsprite me … … 42 42 43 43 44 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx44 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 45 45 46 46 on getPropertyDescriptionList … … 51 51 end 52 52 53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 54 54 55 55 on enterframe me … … 73 73 end 74 74 75 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx75 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 76 76 77 77 on mouseDown me … … 79 79 end 80 80 81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 82 82 83 83 on mEnableHierMenuListKeyboardControl me, enabledState … … 103 103 end 104 104 105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 106 106 107 107 on mCheckKeyState me, thisKey, ms … … 155 155 end 156 156 157 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx157 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 158 158 159 159 on mKeyDownEvent me, whichKey … … 238 238 end 239 239 240 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx240 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 241 241 242 242 on mKeyUpEvent me, whichKey … … 300 300 end 301 301 302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 303 303 304 304 on mBlockNextReturnKey me -
trunk/lingosource/castlib2/HierMenu_Renamer.ls
r14 r20 2 2 -- for use with the hierarchical menu scripts 3 3 4 -- Alex da Franca ©05 -- alex@farbflash.de4 -- Alex da Franca c05 -- alex@farbflash.de 5 5 6 6 … … 17 17 property pLastListref 18 18 19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx19 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 20 20 21 21 on endsprite me … … 23 23 end 24 24 25 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx25 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 26 26 27 27 on getPropertyDescriptionList … … 31 31 end 32 32 33 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx33 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 34 34 35 35 on mDoMenuChangeAction me, id, openCloseState, listref, linenumber, openCloseAction … … 55 55 end 56 56 57 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx57 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 58 58 59 59 on mShowRenameField me … … 72 72 end 73 73 74 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx74 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 75 75 76 76 on mShowRenameFieldAfterReturnKey me … … 79 79 end 80 80 81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx81 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 82 82 83 83 on mIsNodeRenameInAction me … … 86 86 end 87 87 88 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx88 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 89 89 90 90 on mRenameNode me, newName -
trunk/lingosource/castlib2/HierMenu_TextInputField.ls
r14 r20 2 2 -- for use with "Item renamer -- Hierarchical Menu List Enhancer Behavior" 3 3 4 -- Alex da Franca ©05 -- alex@farbflash.de4 -- Alex da Franca c05 -- alex@farbflash.de 5 5 6 6 … … 12 12 m.editable = 0 13 13 end 14 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx14 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 15 15 16 16 on mDisplayEdiatbleField me, targetRect, startText, formatList, callback … … 47 47 end 48 48 49 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx49 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 50 50 51 51 on mGetOnScreenState me … … 54 54 end 55 55 56 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx56 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 57 57 58 58 on keyDown me … … 65 65 end 66 66 67 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx67 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 68 68 69 69 on mStopEdit me -
trunk/lingosource/castlib2/HierarchicalMenuManager_1.ls
r18 r20 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/LinkScriptsMScript.ls
r14 r20 1 1 -- LINKED SCRIPTS 2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3 3 4 4 on mCreateLinkedScript wohin … … 82 82 end 83 83 84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx84 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 85 85 86 86 on mRefreshScripts … … 99 99 100 100 101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 102 102 103 103 … … 115 115 end 116 116 117 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx117 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 118 118 119 119 … … 132 132 end 133 133 134 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx134 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 135 135 136 136 … … 322 322 323 323 324 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx324 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 325 325 326 326 on mGetCurrentOSXUserName … … 341 341 342 342 343 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx343 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 344 344 -- compare selected scripts to the .ls script which is defined in their members comments 345 345 -- if a difference is found some lines will get put into the message window to open the script in bbedit to do a file compare … … 447 447 448 448 449 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx449 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 450 450 451 451 -- open the associated .ls, which is found in the member comments in bbedit … … 474 474 475 475 476 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx476 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 477 477 478 478 on mCheckFileExists aPath … … 518 518 end 519 519 520 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx520 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 521 521 -- xxxxxxxxxxxxxxxxxx check for availability of scripting xtra by name and store result for further access 522 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx522 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 523 523 524 524 on mCheckForXtra whichXtra -
trunk/lingosource/castlib2/ToolTipBeaver_1Host.ls
r18 r20 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
r18 r20 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/aleXtraLoader.ls
r18 r20 1 -- aleXtra Loader Behavior -- ©05 Alex da Franca -- alex@farbflash.de1 -- aleXtra Loader Behavior -- c05 Alex da Franca -- alex@farbflash.de 2 2 --------------------------------------------------------------------- 3 3 -- Purpose: … … 34 34 end 35 35 36 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx36 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 37 37 38 38 on endsprite me … … 41 41 end 42 42 43 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx43 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 44 44 45 45 on exitFrame me … … 80 80 81 81 82 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx82 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 83 83 -- hard to believe, but it seems, that you just can't work with external media, when the path is > 127 chars 84 84 -- the pathnames, which get compiled into the dcr, get all messed up and there is no joy in shockwave later -
trunk/lingosource/castlib2/aleXtrasMovieScript.ls
r18 r20 49 49 halt 50 50 end if 51 alextras = rawnew(cms.script) 51 52 if voidP(cms.script) then -- strangely enough this happened suddenly, dunno why... 53 -- until now it happened only in authoring with the stopped movie 54 -- therefore I just exit here without alert 55 halt 56 end if 57 58 alextras = new(cms.script) 52 59 if ilk(alextras) <> #instance then 53 60 alert "Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!" … … 55 62 end if 56 63 (script "aleXtrasMovieScript").pAleXtras = alextras 64 57 65 end if 58 66 return alextras … … 67 75 end 68 76 69 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx77 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 70 78 71 79 on xscr scrName … … 83 91 end 84 92 85 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx93 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 86 94 87 95 on mGetXScript scrName … … 101 109 if scrName = "commonMovieScript" then return alextras 102 110 103 inst = alextras.mGetInstance(scrName, 1) 111 str_scrName = alextras.mSymb2String(scrName) 112 inst = alextras.mGetInstance(str_scrName, 1) 104 113 if ilk(inst) <> #instance then 105 114 if the runmode contains "aut" then 106 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" 107 116 end if 108 117 inst = [] 109 118 end if 119 if ilk(inst) = #instance then 120 if inst.handler(#new) = 1 then inst.new() 121 end if 110 122 return inst 111 123 ---------------------- 112 124 113 125 114 scrName = symbol(scrName)126 scrName = alextras.mSymbolify(scrName) 115 127 if ilk(scrName) <> #symbol then scrName = #commonmoviescript 116 128 scri = (mGetAleXtras()).getaprop(#scripts) … … 122 134 end 123 135 124 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx136 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 125 137 -- if you have a stopmovie handler in a moviescript before this one, you should call 'mCallDestroy' yourself 126 138 -- if this script here is first, be aware, that your stopmovie handler might not get called … … 130 142 end 131 143 132 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx144 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 133 145 134 146 on mCallDestroy … … 137 149 end 138 150 139 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx151 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 140 152 -- load local scripts (instead of the ones from the LDM -> authoring this movie) 141 153 … … 150 162 -- TODO: - 151 163 ----------------------------------- 164 152 165 exit 153 166 154 155 mediaList = mGetAleXtras() 156 157 theScripts = mediaList.getaprop(#scripts) 158 if ilk(theScripts) <> #proplist then 159 theScripts = [:] 160 mediaList.setaprop(#scripts, theScripts) 161 end if 162 163 if voidP(cls) then 164 cls = [] 165 cl = the number of castlibs 166 repeat with n = 1 to cl 167 cls.add(n) 168 end repeat 169 end if 170 171 if not listP(cls) then 172 cls = [cls] 173 end if 174 175 cl = count(cls) 176 repeat with n = 1 to cl 177 thisCL = castlib(cls[n]) 178 if not voidP(thisCL) then 179 clnum = thisCL.number 180 num = the number of members of castlib clnum 181 repeat with m = 1 to num 182 mem = member(m,clnum) 183 if length(mem.name) > 0 then 184 if mem.type = #script then 185 theScripts.setaProp(symbol(mem.name), mem.script) 186 end if 187 end if 188 end repeat 189 end if 190 end repeat 191 192 end 193 194 195 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 196 197 on mLoadXScript whichName 198 199 exit 200 201 202 whichName = string(whichName) 203 if length(whichName) < 1 then return 0 204 scr = member(whichName) 205 if ilk(scr) <> #member then return 0 206 if scr.type <> #script then return 0 207 208 scr = script(whichName) 209 210 mediaList = mGetAleXtras() 211 212 theScripts = mediaList.getaprop(#scripts) 213 if ilk(theScripts) <> #proplist then 214 theScripts = [:] 215 mediaList.setaprop(#scripts, theScripts) 216 end if 217 theScripts.setaProp(symbol(whichName), scr) 218 219 return scr 220 221 end 222 223 -- 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 224 192 225 193 on mLoadScriptsFromLDM whichSprite … … 272 240 273 241 exit 274 ------------------------------ 242 ------------------------------ deprecated: 275 243 276 244 mediaList = mGetAleXtras() … … 306 274 end 307 275 308 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx276 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 309 277 310 278 on mListAleXtras 311 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" 312 286 exit 313 314 alextras = (script "aleXtrasMovieScript").pAleXtras 315 if voidP(alextras) then mLoadScripts 316 scripts = (mGetAleXtras()).getaprop(#scripts) 317 anz = count(scripts) 287 end if 288 289 anz = count(incl) 318 290 repeat with n = 1 to anz 319 put RETURN & "scr = mGetXScript(#"&scripts.getPropAt(n)&")" & RETURN291 put RETURN & "scr = xscr().mGetInstance(" & QUOTE & incl.getPropAt(n) & QUOTE & ")" & RETURN 320 292 end repeat 321 293 put RETURN & "put scr.handlers()" & RETURN 322 put RETURN & "put scr.interface()" & RETURN323 end 324 325 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx294 put RETURN & "put call(#interface, [scr])" & RETURN 295 end 296 297 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 326 298 327 299 on mListScriptMemberNames … … 345 317 346 318 347 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx319 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 348 320 349 321 on mUpdateSelectedAlexScripts rootPath -
trunk/lingosource/castlib2/creditBeaver.ls
r14 r20 1 -- simple credits behavior Alex da Franca ©03 -- alex@farbflash.de1 -- simple credits behavior Alex da Franca c03 -- alex@farbflash.de 2 2 3 3 property pColor, pHLcolor, pMailSubject 4 4 5 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx5 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 6 6 7 7 on beginSprite me … … 9 9 end 10 10 11 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx11 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 12 12 13 13 on endSprite me … … 15 15 end 16 16 17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx17 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 18 18 19 19 on mouseEnter me … … 22 22 end 23 23 24 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx24 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 25 25 26 26 on mouseLeave me … … 29 29 end 30 30 31 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx31 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 32 32 33 33 on mouseUp me … … 65 65 end 66 66 67 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx67 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 68 68 69 69 on getPropertyDescriptionList -
trunk/lingosource/castlib2/newResizableStageBehavior.ls
r18 r20 1 1 -- xxxx reposition or resize sprites for scalable movies 2 2 -- New Version -> more simple -> just takes relative values for distances to the screen bound 3 -- Alex da Franca c2002 da.franca@online.de4 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3 -- Alex da Franca c2002 alex@farbflash.de 4 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 5 5 6 6 … … 18 18 property pResizeListenerList 19 19 20 property pCenterOffset 21 22 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 23 20 24 on beginsprite me 25 21 26 pKanal = sprite(me.spritenum) 22 27 pOldrect = pKanal.rect … … 63 68 end if 64 69 65 66 70 mResizeWindow me, (the activewindow).rect 67 71 68 72 end 69 73 70 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx74 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 71 75 72 76 on endsprite me … … 81 85 end 82 86 83 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx87 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 84 88 85 89 on getPropertyDescriptionList … … 95 99 retlist[#pRight] = [#format:#string, #default:string(ar.width - sprite(currSpr).rect.right), #comment:"Distance from right (leave blank for none)"] 96 100 retlist[#pPreserveAspect] = [#format:#boolean, #default:0, #comment:"Preserve initial aspect ratio when scaling:"] 101 retlist[#pCenterOffset] = [#format:#point, #default:point(0, 0), #comment:"Offset from center (if centered):"] 97 102 return retlist 98 103 end 99 104 100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 105 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 106 107 on mResize_SetOldRect me, newRect 108 if ilk(newRect) <> #rect then exit 109 pOldRect = newRect 110 end 111 112 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 113 114 on mResize_SetSpriteCurrentRect me, newRect 115 if ilk(newRect) <> #rect then exit 116 pCurrentRect = newRect 117 end 118 119 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 120 121 on mResize_SetTopDistance me, integer_or_symbol_distance 122 dist = integer(integer_or_symbol_distance) 123 if integerP(dist) then 124 pTop = dist 125 else 126 if integer_or_symbol_distance contains "center" then pCenterV = 1 127 pTop = #none 128 end if 129 end 130 131 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 132 133 on mResize_SetBottomDistance me, integer_or_symbol_distance 134 dist = integer(integer_or_symbol_distance) 135 if integerP(dist) then 136 pBottom = dist 137 else 138 if integer_or_symbol_distance contains "center" then pCenterV = 1 139 pBottom = #none 140 end if 141 end 142 143 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 144 145 on mSetLeftDistance me, integer_or_symbol_distance 146 dist = integer(integer_or_symbol_distance) 147 if integerP(dist) then 148 pLeft = dist 149 else 150 if integer_or_symbol_distance contains "center" then pCenterH = 1 151 pLeft = #none 152 end if 153 end 154 155 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 156 157 on mResize_SetRightDistance me, integer_or_symbol_distance 158 dist = integer(integer_or_symbol_distance) 159 if integerP(dist) then 160 pRight = dist 161 else 162 if integer_or_symbol_distance contains "center" then pCenterH = 1 163 pRight = #none 164 end if 165 end 166 167 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 168 169 on mResize_SetPreserveAspect me, boolean_preserveAspectRatio 170 pPreserveAspect = boolean_preserveAspectRatio 171 end 172 173 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 174 175 on mResize_SetCenterOffset me, point_offset 176 if ilk(point_offset) = #point then pCenterOffset = point_offset 177 end 178 179 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 101 180 102 181 on RegisterForResizeEvent me, listenerList … … 113 192 end 114 193 115 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx194 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 116 195 117 196 on UnRegisterForResizeEvent me, atarget … … 124 203 end 125 204 126 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx205 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 127 206 128 207 on mSendResizeEventToListeners me, newRect, oldRect … … 138 217 end 139 218 140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx219 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 141 220 142 221 on mResizeWindow me, newRect … … 149 228 -- if StupidWindowsMenuHack > 0 then newRect = newRect - rect(0,0,0,StupidWindowsMenuHack) 150 229 151 152 153 r = sprite(me.spritenum).rect 230 -- r = sprite(me.spritenum).rect 231 r = duplicate(pCurrentRect) 154 232 155 233 if pTop <> #none then oben = pTop … … 214 292 newR = rect(0,0,nw,nh).offset(links+(newR.width-nw)/2, oben+(newR.height-nh)/2) 215 293 end if 294 end if 295 296 if ilk(pCenterOffset) = #point then 297 newR = newR.offset(pCenterOffset[1], pCenterOffset[2]) 216 298 end if 217 299 … … 250 332 251 333 252 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx334 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 253 335 254 336 on mRefreshResizeTargetRect me, r, onceOnly … … 291 373 end 292 374 293 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx375 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 294 376 295 377 on mChangeSingleGPDLProp me, whichProp, whichValue, relativ, onceOnly … … 323 405 end 324 406 325 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx407 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 326 408 327 409 on mMoveResizeTargetRect me, amount … … 332 414 end 333 415 334 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx416 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 335 417 336 418 on mSetResizeTargetRect me, newRect … … 339 421 end 340 422 341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx423 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 342 424 343 425 on mGetOriginalSpriteRect(me) … … 345 427 end 346 428 347 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx429 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 348 430 349 431 on mGetCurrentSpriteRect(me) … … 352 434 end 353 435 354 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx436 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx -
trunk/lingosource/castlib2/resizeWindowScripts.ls
r18 r20 19 19 -- and set the minimum and maximum sizes for the window 20 20 -- 21 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx21 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 22 22 -- xxxxxxxxxxxxxxxxxx add the following call to startmovie 23 23 -- … … 51 51 52 52 53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx53 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 54 54 on ______________________RESIZE_WINDOW 55 55 end 56 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx56 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 57 57 58 58 … … 80 80 if the runmode contains "plugin" then 81 81 82 call(#mSetPrefValue, xscr(#GetSetPrefs), #gWindowRect, sRect.duplicate()) 82 83 glob.setaprop(#gCurrentStageRect, sRect.duplicate()) 83 84 dto = call(#mCreateTimeout, xscr(), "resizeWindowListenerTimeout", 100, #mCheckResizeWindowSW) … … 98 99 99 100 100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 101 102 102 103 on mResizeStageWindow newRect … … 105 106 end 106 107 107 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx108 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 108 109 109 110 … … 157 158 end 158 159 159 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx160 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 160 161 161 162 -- click on appMaximize button … … 165 166 end 166 167 167 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx168 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 168 169 169 170 -- in shockwave we do not get the resize event, so we must keep track of changes in a timeout call … … 230 231 231 232 232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx233 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 233 234 234 235 on mGetPrefsWindowRect sRect … … 262 263 263 264 264 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx265 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 265 266 on ______________________AUTHORING_HELPER 266 267 end 267 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx268 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 268 269 269 270 -- after changing a sprites rect the GPDL for the Behavior "newResizableStageBehavior" must be actualized 270 271 -- select the sprite and call this handler 271 272 -- you can also select multiple sprites and call this handler to actualize all at once 272 -- so you can savely select all sprites and call "mReCalcSpriteRe altivRect" in the message window273 274 on mReCalcSpriteRe altivRect sprnum273 -- so you can savely select all sprites and call "mReCalcSpriteRelativeRect" in the message window 274 275 on mReCalcSpriteRelativeRect sprnum 275 276 276 277 if not listP(sprnum) then -
trunk/lingosource/castlib2/simpletooltip_1.ls
r18 r20 6 6 -- nothing else to care about, delete it from the score if you don't need it. 7 7 8 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx8 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 9 9 -- PROPERTIES 10 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx10 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 11 11 12 12 property pSavedMem, pMember … … 14 14 property pThreedChannelName, pOverlayCreated 15 15 16 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx16 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 17 17 -- DIRECTOR EVENTS 18 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx18 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 19 19 20 20 on beginsprite me … … 30 30 end 31 31 32 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx32 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 33 33 34 34 on endsprite me … … 39 39 end 40 40 41 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx41 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 42 42 43 43 on getPropertyDescriptionList … … 46 46 47 47 48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx48 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 49 49 -- CUSTOM EVENTS 50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx50 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 51 51 52 52 -- these are the reserved handlernames, that the hierarchical menu script calls 53 53 -- whenever the mouse is over a line, which is to long to dsiplay 54 54 55 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx55 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 56 56 -- invoke the 'fly out' tooltip 57 57 … … 99 99 end 100 100 101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx101 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 102 102 -- dismiss tooltip 103 103 … … 113 113 end 114 114 115 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx115 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 116 116 117 117 on mIsOnScreen me … … 120 120 121 121 122 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx122 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 123 123 -- 3-D FUNCTIONS 124 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx124 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 125 125 126 126 on mCreateOverlay me, spritename, whichImg, theLoc, maskImg … … 181 181 182 182 183 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx183 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 184 184 185 185 … … 208 208 209 209 210 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx210 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 211 211 212 212 on mCreatePowerImg me, whichImg, powerbreite, powerhoehe … … 227 227 228 228 229 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx229 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 230 230 231 231 on mGetOlayIndex me, camObj, tex … … 239 239 240 240 241 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx241 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 242 242 243 243 on mGetTexname me -
trunk/lingosource/castlib3/Alex_HierMenuParent.ls
r18 r20 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 … … 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: … … 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 … … 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 … … 3802 3802 end 3803 3803 3804 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3804 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3805 3805 3806 3806 on mDrawText me 3807 3807 3808 obenoffset = pHeaderOffset - (pZeilenhoehe - pMenuProps.getaprop(#myFontsize))/2 + 1 -- 1 -- + 1 3808 -- obenoffset = pHeaderOffset - (pZeilenhoehe - pMenuProps.getaprop(#myFontsize))/2 + 1 -- 1 -- + 1 3809 obenoffset = pHeaderOffset -- dunno what the above line was about, but it fails now, I guess it is a remnant from "older times" 3809 3810 3810 3811 -- obenoffset = obenoffset - integer(pZeilenhoehe * (pZeilenhoehe / 150.0)) … … 3856 3857 end 3857 3858 3858 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3859 3860 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3859 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3860 3861 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3861 3862 on ___________CREATE_IMAGES 3862 3863 end 3863 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3864 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 3864 3865 3865 3866 … … 3983 3984 end if 3984 3985 t = tababst * dietabs 3986 diff = pZeilenhoehe - zeilenhoehe 3985 3987 r = rect(t, oben, (t + timg.width), (oben + zeilenhoehe)) 3988 r = r.offset(0, diff/2) 3986 3989 textimg.copyPixels(timg, r, timg.rect) 3987 3990 … … 3989 3992 3990 3993 end if 3991 oben = oben + zeilenhoehe 3994 oben = oben + pZeilenhoehe 3995 3992 3996 end repeat 3993 3997 … … 4006 4010 end 4007 4011 4008 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4012 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4009 4013 4010 4014 on mBuildBigImg me … … 4206 4210 end 4207 4211 4208 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4209 4210 4211 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4212 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4213 4214 4215 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4212 4216 -- icons vorbereiten: 4213 4217 … … 4218 4222 end 4219 4223 4220 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4224 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4221 4225 4222 4226 on mCreateGrayImg me, img … … 4226 4230 end 4227 4231 4228 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4232 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4229 4233 4230 4234 on mCreateIconList me, theImg … … 4261 4265 end 4262 4266 4263 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4264 4265 4266 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4267 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4268 4269 4270 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4267 4271 -- ordner-Zu /-Auf dreiecke vorbereiten: 4268 4272 … … 4296 4300 end 4297 4301 4298 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4299 4300 4301 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4302 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4303 4304 4305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4302 4306 -- gestrichelte senkrechte vorbereiten: 4303 4307 … … 4335 4339 end 4336 4340 4337 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4341 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4338 4342 4339 4343 on mFillPatternImage me, img, patternImg … … 4353 4357 end 4354 4358 4355 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4359 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4356 4360 -- ende images erstellen und zeichnen 4357 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4358 4359 4360 4361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4361 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4362 4363 4364 4365 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4362 4366 -- text fuer das menu erstellen (mit tabulatoren): 4363 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4367 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4364 4368 4365 4369 -- mit ersterchar und letzterchar, um nur das wort heighlighten zu koennen: … … 4428 4432 end 4429 4433 4430 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4434 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4431 4435 4432 4436 … … 4469 4473 end 4470 4474 4471 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4472 4473 4474 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4475 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4476 4477 4478 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4475 4479 -- linien ermitteln, die nicht ins bitmap passen, um dann 'tooltips' fuer diese linien zu zeigen 4476 4480 … … 4495 4499 end 4496 4500 4497 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4498 4499 4500 4501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4501 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4502 4503 4504 4505 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4502 4506 -- hilfsscripts 4503 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4507 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4504 4508 4505 4509 -- gefakter datenbankaufruf zum testen … … 4512 4516 end 4513 4517 4514 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4518 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 4515 4519 4516 4520 -- fontliste fuer gpdl … … 4527 4531 --end 4528 4532 4529 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx4533 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx -
trunk/lingosource/castlib3/ButtonImageCreator.ls
r18 r20 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 … … 976 1011 977 1012 978 1013 ----------- now just add the property names of the table script and the buttonscript 1014 retlist.addProp(#myContent, retlist[#normal]) 1015 retlist.addProp(#myNormalImage, retlist[#normal]) 1016 retlist.addProp(#myPressImage, retlist[#pressed]) 1017 retlist.addProp(#myOverImage, retlist[#hilite]) 1018 retlist.addProp(#myDisabledImage, retlist[#disabled]) 1019 retlist.addProp(#mySelectedImage, retlist[#selected]) 1020 ---------------------------------------------------------- 979 1021 980 1022 return retlist … … 983 1025 984 1026 985 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1027 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 986 1028 -- xxxxxxxxxxxxxxxxxx Draw a background for the text button 987 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1029 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 988 1030 989 1031 on mDrawRoundRectButtonHG me, einrect, which, options … … 1074 1116 end 1075 1117 1076 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1118 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1077 1119 1078 1120 -- either it uses the supplied bitmap members: options[#normalImage], options[#pressedImage], options[#overImage], options[#disabledImage] … … 1082 1124 1083 1125 if ilk(options) <> #proplist then options = [:] 1126 1127 drawBorderOverBackGround = options[#drawBorderOverBackGround] 1084 1128 1085 1129 breite = einrect.width … … 1129 1173 1130 1174 1175 borderColor = options.getaprop(#pressedbordercolor) 1176 1131 1177 else if which = 5 then 1132 1178 … … 1163 1209 1164 1210 myColor = options.getaprop(#mySelectedBGColor) 1165 if ilk(myColor) <> #color then myColor = farbe - 601211 if ilk(myColor) <> #color then myColor = farbe + rgb(40,0,0) 1166 1212 c = [-150, -120, -100, -60, 30, -25, 45, -40, 15, -70, 45, -70, 35, -40, 15, -90] 1167 1213 1168 1214 borderColor = options.getaprop(#selectedbordercolor) 1169 1215 1170 1216 else … … 1184 1230 -- ullala changed for woody - mb end -- 1185 1231 end if 1232 1186 1233 end if 1187 1234 … … 1203 1250 end if 1204 1251 1205 if which = 3 then myColor = options.getaprop(#myHiliteBGColor) 1206 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 1207 1259 if ilk(myColor) <> #color then myColor = duplicate(farbe) 1208 1260 … … 1224 1276 if theBevel = 0 then -- not beveled => 2-D style 1225 1277 1278 drawBorderOverBackGround = 0 1226 1279 rahmenbreite = options.getaprop(#borderwidth) 1227 1280 if not voidP(rahmenbreite) then 1228 1281 if rahmenbreite > 0 then 1282 1229 1283 if which = 2 then 1230 1284 rahmenfarbe = options.getaprop(#pressedbordercolor) … … 1254 1308 1255 1309 else if theBevel = 4 then -- rounded button -> OS 9 stylish 1310 1311 drawBorderOverBackGround = 0 1256 1312 1257 1313 tempImg.fill(trect, myColor) … … 1306 1362 else -- beveled button -> windows stylish 3-D 1307 1363 1364 drawBorderOverBackGround = 0 1365 1308 1366 tempImg.fill(trect, myColor + c[1]) -- left up outline 1309 1367 … … 1350 1408 else 1351 1409 vorlage = options.getaprop(#disabledImage) 1410 bordercolor = options.getaprop(#disabledbordercolor) 1352 1411 1353 1412 if ilk(vorlage) <> #image then … … 1385 1444 end if 1386 1445 1387 1388 1446 if ilk(vorlage) <> #image then 1389 1447 … … 1394 1452 if ilk(myColor) <> #color then myColor = farbe + 20 1395 1453 1454 drawBorderOverBackGround = 0 1396 1455 rahmenbreite = options.getaprop(#borderwidth) 1397 1456 if not voidP(rahmenbreite) then … … 1423 1482 1424 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 1425 1498 return tempImg 1426 1499 end 1427 1500 1428 1501 1429 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1502 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1430 1503 1431 1504 on mCreateDropDownTriangle me, rHeight … … 1462 1535 end 1463 1536 1464 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1465 1538 1466 1539 on mCreateCheckBoxButton me, theLabel, options, retlist … … 1528 1601 1529 1602 buttonIconType = options.getaprop(#buttonIcon) 1530 1603 if voidP(buttonIconType) then buttonIconType = #checkbox 1531 1604 1532 1605 buttonIconList = [:] … … 1566 1639 end if 1567 1640 1568 buttonIconW = hoehe - marginV*21641 buttonIconW = hoehe * 0.7 - marginV*2 1569 1642 buttonIcon = image(buttonIconW, buttonIconW, 32, 1) 1570 1643 buttonIcon.fill(buttonIcon.rect, fontfarbe) … … 1854 1927 1855 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 1856 1939 return retlist 1857 1940 end 1858 1941 1859 1942 1860 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1943 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1861 1944 1862 1945 on interface me 1863 1946 str = "Button Image Creator Script by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved" 1864 1947 1865 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1948 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1866 1949 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1867 1950 put RETURN & "on mGetButtonImages me, theLabel, options, retlist" after str 1868 1951 put RETURN & "" after str 1869 1952 1870 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1953 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1871 1954 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1872 1955 put RETURN & "on mDrawRoundRectButtonHG me, einrect, which, options" after str 1873 1956 put RETURN & "" after str 1874 1957 1875 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1958 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1876 1959 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1877 1960 put RETURN & "on mDrawButtonHG me, einrect, which, options" after str 1878 1961 put RETURN & "" after str 1879 1962 1880 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx" after str1963 put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 1881 1964 put RETURN & "-- xxxxxxxxxxxxxxxxxx Description" after str 1882 1965 put RETURN & "on mCreateDropDownTriangle me, rHeight" after str 1883 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 1884 1973 return str 1885 1974 end -
trunk/lingosource/castlib3/ButtonManager.ls
r18 r20 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 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 620 -- 621 --on getPropertyDescriptionList 622 -- if the currentspritenum = 0 then exit 623 -- liste = [:] 624 -- fontliste = call(#InitFonts, [pIncludes.getaprop(#commonmoviescript)]) 625 -- if not listP(fontliste) then fontliste = ["Arial"] 626 -- 627 -- liste[#pCallFunction] = [#default:#funktion, #format:#symbol, #comment:"Event to sendAllSprites:"] 628 -- liste[#pBroadcastSprites] = [#format:#list, #default:[], #comment:"Send event to: ([] = All, [-1] = Moviescript, [0] = this Sprite)"] 629 -- liste[#pEventsToProcess] = [#format:#list, #default:[#mouseUp], #comment:"Which events to process:"] 630 -- liste[#pKeyboardshortcut] = [#default:"", #format:#string, #comment:"Keyboardshortcut:"] 631 -- 632 -- liste[#pLabel] = [#default:"Label", #format:#string, #comment:"Labeltext:"] 633 -- 634 -- liste[#pFarbe] = [#default:rgb(170,170,170),#format:#color,#comment: "Color:"] 635 -- liste[#pBevel] = [#default:"1 - Small Bevel", #format:#string, #range:["0 - No Bevel","1 - Small Bevel", "2 - Normal Bevel","3 - Large Bevel"], #comment:"Bevel:"] 636 -- liste[#pUseMember] = [#default:"myAquaButton", #format:#string, #comment:"Use prepared members based on name:"] 637 -- 638 -- liste[#pSaveImgs] = [#default:0, #format:#integer, #comment:"Save text images to which castlib (0 = dont save)"] 639 -- 640 -- liste[#pUseDefaultLayout] = [#default:0, #format:#boolean, #comment:"Use global layout settings from handler mGetDefaultButtonList()"] 641 -- liste[#pDefaultLayoutPreset] = [#default:"", #format:#string, #comment:"layout preset (only used when global layout = 1)"] 642 -- 643 -- liste[#pMarginH] = [#format:#integer, #default:20, #range:[#min:0, #max:30], #comment:"Margin horiz.:"] 644 -- liste[#pMarginV] = [#format:#integer, #default:10, #range:[#min:0, #max:20], #comment:"Margin vert.:"] 645 -- 646 -- liste[#pRotation] = [#format:#integer, #default:0, #range:[#min:0, #max:360], #comment:"Rotation:"] 647 -- 648 -- liste[#pFont] = [#format:#string, #default:fontliste[1], #range:fontliste, #comment:"Font:"] 649 -- liste[#pFontGroesse] = [#format:#integer, #default:10, #range:[#min:7, #max:36], #comment:"Fontsize:"] 650 -- liste[#pFontFarbe] = [#default:rgb(0,0,0),#format:#color,#comment: "Fontcolor"] 651 -- liste[#pFontHLFarbe] = [#default:rgb(0,0,0),#format:#color,#comment: "Font highlight color"] 652 -- liste[#pFontAA] = [#default:0,#format:#boolean,#comment: "Font Anti-Aliasing"] 653 -- liste[#pEnabled] = [#default:true, #format:#boolean, #comment:"Initially enabled ?"] 654 -- liste[#pDisableBlend] = [#format:#integer, #default:100, #range:[#min:0, #max:100], #comment:"When disabled dim to blend:"] 655 -- liste[#pStayHilited] = [#default:false, #format:#boolean, #comment:"Stay hilited on mouseLeave while mouse pressed ?"] 656 -- liste[#pRepeatDownEvent] = [#format:#integer, #default:0, #comment:"Repeat the mouseDown event while the mouse is down every <x> ms"] 657 -- liste[#pToggle] = [#default:false, #format:#boolean, #comment:"Toggle Button ?"] 658 -- liste[#pGroupName] = [#default:"", #format:#string, #comment:"Radio button group name:"] 659 -- liste[#pSelected] = [#default:true, #format:#boolean, #comment:"Initially Selected ?"] 660 -- return liste 661 --end 662 663 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 694 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 695 696 697 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 698 699 on getPropertyDescriptionList 700 if the currentspritenum = 0 then exit 701 liste = [:] 702 703 cmonm = mGetXScript() 704 if not voidP(cmonm) then fontliste = call(#InitFonts, cmonm) 705 706 if not listP(fontliste) then fontliste = ["Arial"] 707 708 liste[#pCallFunction] = [#default:#funktion, #format:#symbol, #comment:"Event to sendAllSprites:"] 709 liste[#pBroadcastSprites] = [#format:#list, #default:[], #comment:"Send event to: ([] = All, [-1] = Moviescript, [0] = this Sprite)"] 710 liste[#pEventsToProcess] = [#format:#list, #default:[#mouseUp], #comment:"Which events to process:"] 711 liste[#pKeyboardshortcut] = [#default:"", #format:#string, #comment:"Keyboardshortcut:"] 712 713 liste[#pLabel] = [#default:"Label", #format:#string, #comment:"Labeltext:"] 714 715 liste[#pFarbe] = [#default:rgb(170,170,170),#format:#color,#comment: "Color:"] 716 liste[#pBevel] = [#default:"1 - Small Bevel", #format:#string, #range:["0 - No Bevel","1 - Small Bevel", "2 - Normal Bevel","3 - Large Bevel"], #comment:"Bevel:"] 717 liste[#pUseMember] = [#default:"myAquaButton", #format:#string, #comment:"Use prepared members based on name:"] 718 719 liste[#pSaveImgs] = [#default:0, #format:#integer, #comment:"Save text images to which castlib (0 = dont save)"] 720 721 liste[#pUseDefaultLayout] = [#default:0, #format:#boolean, #comment:"Use global layout settings from handler mGetDefaultButtonList()"] 722 liste[#pDefaultLayoutPreset] = [#default:"", #format:#string, #comment:"layout preset (only used when global layout = 1)"] 723 724 liste[#pMarginH] = [#format:#integer, #default:20, #range:[#min:0, #max:30], #comment:"Margin horiz.:"] 725 liste[#pMarginV] = [#format:#integer, #default:10, #range:[#min:0, #max:20], #comment:"Margin vert.:"] 726 727 liste[#pRotation] = [#format:#integer, #default:0, #range:[#min:0, #max:360], #comment:"Rotation:"] 728 729 liste[#pFont] = [#format:#string, #default:fontliste[1], #range:fontliste, #comment:"Font:"] 730 liste[#pFontGroesse] = [#format:#integer, #default:10, #range:[#min:7, #max:36], #comment:"Fontsize:"] 731 liste[#pFontFarbe] = [#default:rgb(0,0,0),#format:#color,#comment: "Fontcolor"] 732 liste[#pFontHLFarbe] = [#default:rgb(0,0,0),#format:#color,#comment: "Font highlight color"] 733 liste[#pFontAA] = [#default:0,#format:#boolean,#comment: "Font Anti-Aliasing"] 734 liste[#pEnabled] = [#default:true, #format:#boolean, #comment:"Initially enabled ?"] 735 liste[#pDisableBlend] = [#format:#integer, #default:100, #range:[#min:0, #max:100], #comment:"When disabled dim to blend:"] 736 liste[#pStayHilited] = [#default:false, #format:#boolean, #comment:"Stay hilited on mouseLeave while mouse pressed ?"] 737 liste[#pRepeatDownEvent] = [#format:#integer, #default:0, #comment:"Repeat the mouseDown event while the mouse is down every <x> ms"] 738 liste[#pToggle] = [#default:false, #format:#boolean, #comment:"Toggle Button ?"] 739 liste[#pNoIcon] = [#default:false, #format:#boolean, #comment:"Don't use checkbox icon for toggle button"] 740 liste[#pGroupName] = [#default:"", #format:#string, #comment:"Radio button group name:"] 741 liste[#pSelected] = [#default:true, #format:#boolean, #comment:"Initially Selected ?"] 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 748 return liste 749 end 750 751 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 664 752 665 753 on mInitProps me … … 743 831 pOptionsListe[#broadcastSprites] = broadcastSprites 744 832 833 pOptionsListe[#tooltip] = pTooltip 834 745 835 if integerP(integer(pKeyboardshortcut)) then pKeyboardshortcut = integer(pKeyboardshortcut) 746 836 else pKeyboardshortcut = string(pKeyboardshortcut) … … 748 838 pOptionsListe[#keyboardshortcut] = pKeyboardshortcut 749 839 840 -- further properties known to this script (3-D only): 841 -- #renderformat ; default rgba8880 for images without alpha and rgba8888 for images with alpha 842 -- #useModel ; use the model with the name specified by #useModel (String) instead of an overlay (-> default) 843 750 844 sendSprite(me.spritenum, #mButtonManager_OverrideOptions, pOptionsListe) 751 845 end 752 846 753 847 754 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx848 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 755 849 on _____PUBIC_HANDLERS 756 850 end 757 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx758 759 760 761 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx851 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 852 853 854 855 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 762 856 -- xxxxxxxxxxxxxxxxxx Invoke the table (STARTING POINT) 763 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx857 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 764 858 765 859 … … 772 866 -- INPUT: <options> ; property list ; huge number of properties describing the button, most of which comes from mGetDefaultButtonList() 773 867 -- see script "defaultLayoutDefinitions" for all properties, which are available for the layout of the button 774 -- see the below example for the porperties concerning this script: 868 -- see the below example for the properties concerning this script 869 -- see handler "mInitProps" in this script for properties too 775 870 -- RETURNS: - 776 871 -- CALLER: - … … 793 888 -- options[#enabled] = 1 794 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 795 892 -- 796 893 -- spr = xscr().mGetKanal(#sceneSprite) … … 836 933 tabname = options.getaprop(#myName) 837 934 838 if voidP(tabname) then -- Sonderfall: ohne name loescht ALLE vorherigen tabellen935 if voidP(tabname) then -- Exception!: buttons without a name replaces ALL buttons 839 936 tabname = "button1" 840 937 841 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 842 946 843 947 repeat with n = count(pButtonList) down to 2 948 if count(pButtonList[n]) > 0 then 844 949 call(#mDestroy, [pButtonList[n].getaprop(#myScriptObject)]) 845 950 … … 870 975 871 976 end if 977 end if 872 978 873 979 end repeat … … 875 981 end if 876 982 877 if not(count(pButtonList)) then878 983 if pDreiDModus then 879 moname = options.getaprop(#useModel) 880 if ilk(moname) <> #string then 881 sendSprite(me.spritenum, #mAddToEventList, me, 0) 882 else 883 if not moname.length then 884 sendSprite(me.spritenum, #mAddToEventList, me, 0) 885 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 ??? 886 990 end if 887 991 end if … … 914 1018 if length(string(ks)) then 915 1019 theObject[#keyboardshortcut] = ks 916 pKeyboardshortcutList.setaprop(ks, [#theObject:theObject.getaprop(#myScriptObject), #keyboardshortcut:ks]) 917 end if 918 1020 pKeyboardshortcutList.setaprop(ks, [#theObject:theObject.getaprop(#myScriptObject), #keyboardshortcut:ks, #keyIsDown:0]) 1021 end if 919 1022 920 1023 if voidP(options.getaprop(#enabled)) then options[#enabled] = 1 … … 927 1030 928 1031 929 val = options.getaprop(#useModel) 930 if ilk(val) <> #string then 931 val = "" 932 theObject[#useModel] = val 933 end if 1032 options.setaprop(#useModel, string(options.getaprop(#useModel))) 1033 1034 theObject[#useModel] = options.getaprop(#useModel) 1035 theObject[#overlayCameraObject] = options.getaprop(#overlayCameraObject) 934 1036 935 1037 if pDreiDModus then 936 mo = pMember.model( val)1038 mo = pMember.model(options.getaprop(#useModel)) 937 1039 if not(voidP(mo)) then 938 1040 scr = pIncludes.mGetParentScriptList(mo) … … 940 1042 repeat with n = scr.count down to 1 941 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 942 1049 if erg = 1 then exit repeat 943 1050 end repeat … … 950 1057 end if 951 1058 952 pAktiv =11059 mSetButtonScriptActive me, 1 953 1060 954 1061 -- mPut options.getaprop(#myRect) … … 958 1065 end 959 1066 960 961 962 -- 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 963 1090 -- xxxxxxxxxxxxxxxxxx Hide the table 964 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1091 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 965 1092 966 1093 on mRemoveButton me, tabname … … 974 1101 ----------------------------------- 975 1102 976 if not(pButtonList.count)then exit1103 if count(pButtonList) < 1 then exit 977 1104 978 1105 theObject = pButtonList.getaprop(tabname) … … 987 1114 end if 988 1115 989 tblcnt = 0 990 repeat with n = pButtonList.count down to 1 991 if (pButtonList[n].count) and (pButtonList[n].getaprop(#myName) <> tabname) then tblcnt = tblcnt + 1 992 end repeat 1116 tblcnt = getButtonListCount(me, tabname) 993 1117 994 1118 if removeAll or (tblcnt = 0) then 995 1119 996 if not voidP(pOldKeyDown) then 997 the keyDownscript = pOldKeyDown 998 pOldKeyDown = void 999 end if 1120 -- do clean up, if no button is displayed anymore (used to be here to reset the keyDownScript) 1000 1121 1001 1122 end if … … 1008 1129 call(#mDestroy, [theObject.getaprop(#myScriptObject)]) 1009 1130 1010 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 1011 1136 1012 1137 if pDreiDModus then … … 1025 1150 end if 1026 1151 else 1152 camObj = theObject[#overlayCameraObject] 1153 if voidP(camObj) then 1027 1154 camObj = pKanal.camera 1155 else 1156 if ilk(camObj) <> #camera then camObj = pKanal.camera 1157 end if 1028 1158 1029 1159 tex = pMember.texture(pTextureBaseName&"_"&theObject.getaprop(#myName)) … … 1036 1166 end if 1037 1167 1038 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 1039 1172 1040 1173 else … … 1060 1193 end 1061 1194 1062 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1195 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1063 1196 -- this is on old handler which is left here for compatibility reasons for my own old movies 1064 -- use mHideTable() instead1197 -- use mHideTable() instead 1065 1198 on mABoxVerschwinde me 1066 1199 mRemoveButton me 1067 1200 end 1068 1201 1069 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1202 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1070 1203 -- -- comes from the drop down menu, if any 1071 1204 … … 1074 1207 end 1075 1208 1076 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1209 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1077 1210 -- xxxxxxxxxxxxxxxxxx Public Handlers to change, control or get the button contents and properties 1078 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1211 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1079 1212 1080 1213 … … 1087 1220 ----------------------------------- 1088 1221 1089 if not(pButtonList.count) then return 0 1090 1091 return objectP(pButtonList.getaprop(tabname)) 1092 1093 end 1094 1095 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1222 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 1229 1230 on mCheckMouseInsideButton me, tabname 1231 ----------------------------------- 1232 -- ACTION: check if mouse is currently over buttonrect 1233 -- sometimes we want to check that for a specific button 1234 -- INPUT: <tabname> ; string ; name of the button we want to check 1235 -- RETURNS: boolean ; true, if mouse is inside button rect, false otherwise 1236 ----------------------------------- 1237 return mCheckMouseInside(me, void, tabname) 1238 end 1239 1240 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1096 1241 1097 1242 … … 1103 1248 ----------------------------------- 1104 1249 1105 if not( pButtonList.count) then return [:]1250 if not(count(pButtonList)) then return [:] 1106 1251 1107 1252 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1113 1258 end 1114 1259 1115 1116 -- 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 1117 1285 1118 1286 on mChangeLabel me, newLabel, tabname 1119 1287 ----------------------------------- 1120 1288 -- ACTION: change the button label text => re-render the text and redraw the images 1121 -- INPUT: <newLabel> ; string ; new label1289 -- INPUT: <newLabel> ; string or image object ; new label 1122 1290 -- <tabname> ; string ; name of the button we want to address 1123 1291 -- RETURNS: - 1124 1292 ----------------------------------- 1125 1293 1126 if ilk(newLabel) <> #stringthen exit1127 1128 if not(pButtonList.count)then exit1294 if [#string,#image].getPos(ilk(newLabel)) < 1 then exit 1295 1296 if count(pButtonList) < 1 then exit 1129 1297 1130 1298 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1135 1303 end 1136 1304 1137 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1305 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1138 1306 1139 1307 on mChangeLanguage me, tabname 1140 1308 ----------------------------------- 1141 1309 -- ACTION: special case of label change 1142 --if mTranslate() yields another result the labels will change1310 -- if mTranslate() yields another result the labels will change 1143 1311 -- the new label will be determined by the "global" handler mTranslate() 1144 1312 -- mTranslate is a handler of "commonMovieScript" … … 1147 1315 ----------------------------------- 1148 1316 1149 if not(pButtonList.count)then exit1317 if count(pButtonList) < 1 then exit 1150 1318 1151 1319 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1155 1323 end 1156 1324 1157 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1325 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1158 1326 1159 1327 on mPause me, tValue … … 1170 1338 end 1171 1339 1172 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1340 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1173 1341 1174 1342 on mEnableButton me, val, tabname, alleAusser … … 1183 1351 ----------------------------------- 1184 1352 1185 if not(pButtonList.count)then exit1353 if count(pButtonList) < 1 then exit 1186 1354 1187 1355 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1189 1357 1190 1358 if (ilk(theObject) <> #proplist) or (alleAusser = 1) then 1191 repeat with n = pButtonList.countdown to 11359 repeat with n = count(pButtonList) down to 1 1192 1360 if (alleAusser = 1) then 1193 1361 if listP(tabname) then 1194 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 1195 1368 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1196 1369 end if 1197 1370 else 1198 1371 if theObject <> pButtonList[n] then 1372 1373 ---------------------------------------- process tooltip if any defined 1374 hideButtonTooltip me, void, pButtonList[n] 1375 ---------------------------------------- // tooltip 1376 1199 1377 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1200 1378 end if … … 1203 1381 if listP(tabname) then 1204 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 1205 1388 call(#mEnableMe, [pButtonList[n].getaprop(#myScriptObject)], val) 1206 1389 end if 1207 1390 else 1391 1208 1392 theObject = pButtonList[n] 1393 1394 ---------------------------------------- process tooltip if any defined 1395 hideButtonTooltip me, void, theObject 1396 ---------------------------------------- // tooltip 1397 1209 1398 call(#mEnableMe, [theObject.getaprop(#myScriptObject)], val) 1210 1399 end if … … 1212 1401 end repeat 1213 1402 else 1403 1404 1405 ---------------------------------------- process tooltip if any defined 1406 hideButtonTooltip me, void, theObject 1407 ---------------------------------------- // tooltip 1408 1214 1409 call(#mEnableMe, [theObject.getaprop(#myScriptObject)], val) 1215 1410 end if 1216 1411 end 1217 1412 1218 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1219 1414 1220 1415 on mGetButtonEnabledState me, tabname … … 1226 1421 ----------------------------------- 1227 1422 1228 if not( pButtonList.count) then return 01423 if not(count(pButtonList)) then return 0 1229 1424 1230 1425 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1236 1431 1237 1432 1238 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1433 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1239 1434 -- 1240 1435 -- accepts: #symbol, #string … … 1252 1447 ----------------------------------- 1253 1448 1254 if not(pButtonList.count)then exit1449 if count(pButtonList) < 1 then exit 1255 1450 1256 1451 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1264 1459 end 1265 1460 1266 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1461 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1267 1462 -- 1268 1463 -- accepts: #list … … 1281 1476 if not(listP(newBroadCastList)) then exit 1282 1477 1283 if not(pButtonList.count)then exit1478 if count(pButtonList) < 1 then exit 1284 1479 1285 1480 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1293 1488 end 1294 1489 1295 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1490 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1296 1491 -- 1297 1492 -- accepts: … … 1306 1501 ----------------------------------- 1307 1502 1308 if not(pButtonList.count)then exit1503 if count(pButtonList) < 1 then exit 1309 1504 1310 1505 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1317 1512 end 1318 1513 1319 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1514 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1320 1515 1321 1516 on mRemoveFromButtonBroadcastlist me, referenz, tabname … … 1328 1523 ----------------------------------- 1329 1524 1330 if not(pButtonList.count)then exit1525 if count(pButtonList) < 1 then exit 1331 1526 1332 1527 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1340 1535 end 1341 1536 1342 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1537 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1343 1538 -- 1344 1539 … … 1357 1552 if not(listP(newEventList)) then exit 1358 1553 1359 if not(pButtonList.count)then exit1554 if count(pButtonList) < 1 then exit 1360 1555 1361 1556 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1369 1564 end 1370 1565 1371 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1566 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1372 1567 -- 1373 1568 -- -- -- events which can be processed are: #mouseUp, #mouseDown, #mouseEnter, #mouseLeave … … 1384 1579 ----------------------------------- 1385 1580 1386 if not(pButtonList.count)then exit1581 if count(pButtonList) < 1 then exit 1387 1582 1388 1583 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1402 1597 end 1403 1598 1404 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1599 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1405 1600 1406 1601 on mRemoveFromEventsToProcessList me, theEvent, tabname … … 1414 1609 ----------------------------------- 1415 1610 1416 if not(pButtonList.count)then exit1611 if count(pButtonList) < 1 then exit 1417 1612 1418 1613 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1431 1626 end 1432 1627 1433 -- 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 1434 1647 1435 1648 on mGetButtonState me, tabname … … 1440 1653 ----------------------------------- 1441 1654 1442 if not( pButtonList.count) then return 01655 if not(count(pButtonList)) then return 0 1443 1656 1444 1657 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1449 1662 end 1450 1663 1451 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1664 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1452 1665 1453 1666 on mSetButtonState me, selState, tabname … … 1460 1673 ----------------------------------- 1461 1674 1462 if not(pButtonList.count)then exit1675 if count(pButtonList) < 1 then exit 1463 1676 1464 1677 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1482 1695 1483 1696 1484 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1697 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1485 1698 1486 1699 on mTranslateAllButtonRects me, delta … … 1498 1711 1499 1712 1500 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1713 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1501 1714 1502 1715 on mTranslateButtonRect me, trans, tabname … … 1509 1722 ----------------------------------- 1510 1723 1511 if not(pButtonList.count)then exit1724 if count(pButtonList) < 1 then exit 1512 1725 1513 1726 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1516 1729 call(#mTranslateRect, [theObject.getaprop(#myScriptObject)], trans) 1517 1730 1731 ---------------------------------------- process tooltip if any defined 1732 hideButtonTooltip me, void, theObject 1733 ---------------------------------------- // tooltip 1734 1518 1735 if not pDreiDModus then sendSprite(me.spritenum, #mRefreshResizeTargetRect, call(#mGetCurrentRect, [theObject.getaprop(#myScriptObject)])) 1519 1736 end 1520 1737 1521 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1738 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1522 1739 1523 1740 on mSetCurrentButtonRect me, newRect, tabname … … 1531 1748 ----------------------------------- 1532 1749 1533 if not(pButtonList.count)then exit1750 if count(pButtonList) < 1 then exit 1534 1751 1535 1752 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 1538 1755 call(#mSetCurrentRect, [theObject.getaprop(#myScriptObject)], newRect) 1539 1756 1757 ---------------------------------------- process tooltip if any defined 1758 hideButtonTooltip me, void, theObject 1759 ---------------------------------------- // tooltip 1760 1540 1761 if not pDreiDModus then sendSprite(me.spritenum, #mRefreshResizeTargetRect, call(#mGetCurrentRect, [theObject.getaprop(#myScriptObject)])) 1541 1762 end 1542 1763 1543 1764 1544 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1765 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1545 1766 1546 1767 on mGetCurrentButtonRect me, tabname … … 1552 1773 ----------------------------------- 1553 1774 1554 if not( pButtonList.count) then return 01775 if not(count(pButtonList)) then return 0 1555 1776 1556 1777 if not voidP(tabname) then table = pButtonList.getaprop(tabname) … … 1563 1784 end 1564 1785 1565 1566 -- 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 1567 1904 on _____SEMI_PUBLIC_HANDLERS 1568 1905 -- handlers from other scripts, in this case from the resize stage behavior 1569 1906 end 1570 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1907 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1571 1908 1572 1909 -- event from the resize bar behavior … … 1576 1913 end 1577 1914 1578 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1915 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1579 1916 1580 1917 on kackhandler me, newRect, oldrect … … 1582 1919 end 1583 1920 1584 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1921 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1585 1922 1586 1923 on mResizeWindow me, newRect, oldrect 1587 1924 1588 if not(pButtonList.count)then exit1925 if count(pButtonList) < 1 then exit 1589 1926 1590 1927 if pDreiDModus then -- currently only with 3-D overlays 1591 1928 1592 repeat with n = pButtonList.countdown to 11929 repeat with n = count(pButtonList) down to 1 1593 1930 whichButton = pButtonList[n] 1931 1932 ---------------------------------------- process tooltip if any defined 1933 hideButtonTooltip me, void, whichButton 1934 ---------------------------------------- // tooltip 1935 1594 1936 moname = whichButton.getaprop(#useModel) 1595 1937 if length(moname) < 1 then … … 1619 1961 end 1620 1962 1621 -- 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 1622 2000 on _____PRIVATE_HANDLERS 1623 2001 end 1624 -- 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 1625 2022 1626 2023 on mDoBlendAnimation me 1627 2024 remove = 1 1628 repeat with n = pButtonList.countdown to 12025 repeat with n = count(pButtonList) down to 1 1629 2026 thisButton = pButtonList[n] 1630 2027 starttime = thisButton.getaprop(#starttime) 1631 2028 if not voidP(starttime) then 1632 if starttime > 0 then2029 if starttime <> 0 then 1633 2030 proz = (the milliseconds - starttime) / thisButton.getaprop(#duration) 1634 2031 if proz >= 1 then … … 1651 2048 end 1652 2049 1653 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2050 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1654 2051 1655 2052 on mRadioButtonEvent me, groupname, eventObject … … 1662 2059 end 1663 2060 1664 -- 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 1665 2148 1666 2149 on mProcessEvent me, whichEvent, eventList, callerObject, secondEvent … … 1724 2207 eventsToProcess = eventList.getaprop(#eventsToProcess) 1725 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 1726 2220 if eventsToProcess.getPos(whichEvent) < 1 then exit 1727 2221 … … 1742 2236 -- if ilk(callFunction) = #symbol then 1743 2237 anz = count(eventList[#broadcastSprites]) 1744 1745 2238 eventList[#secondEvent] = secondEvent 2239 if not(anz) then 1746 2240 if ilk(callFunction) = #symbol then 1747 2241 sendAllSprites(callFunction, whichEvent, eventList, me, callerObject) 1748 2242 end if 1749 2243 else if eventList[#broadcastSprites][1] = -1 then 1750 2244 if ilk(callFunction) = #symbol then 1751 2245 str = string(callFunction)&&"#"&whichEvent&","&"E&eventList.getaprop(#label)"E&","&&eventList.getaprop(#selected)&","&&secondEvent 1752 2246 do str 1753 2247 end if 1754 2248 else if eventList[#broadcastSprites][1] = 0 then 1755 2249 if ilk(callFunction) = #symbol then 1756 2250 sendSprite(me.spritenum, callFunction, whichEvent, eventList, me, callerObject) 1757 2251 end if 1758 1759 1760 1761 2252 else 2253 repeat with n = 1 to anz 2254 this = eventList[#broadcastSprites][n] 2255 if integerP(this) then 1762 2256 if ilk(callFunction) = #symbol then 1763 2257 sendSprite(this, callFunction, whichEvent, eventList, me, callerObject) 1764 2258 end if 1765 2259 else if ilk(this) = #instance then 1766 2260 if ilk(callFunction) = #symbol then 1767 2261 call(callFunction, [this], whichEvent, eventList, me, callerObject) 1768 2262 end if 1769 2263 else if ilk(this) = #script then 1770 2264 if ilk(callFunction) = #symbol then 1771 2265 call(callFunction, [this], whichEvent, eventList, me, callerObject) … … 1796 2290 end 1797 2291 1798 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2292 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1799 2293 1800 2294 on mGibLaut me, scrName -- the check if this instance is already added to a models userdata … … 1803 2297 end 1804 2298 1805 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2299 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1806 2300 1807 2301 on mRemoveEmptyListEntries me … … 1811 2305 end if 1812 2306 -- ullala changed for woody - to end -- 1813 repeat with n = pButtonList.countdown to 12307 repeat with n = count(pButtonList) down to 1 1814 2308 if not(pButtonList[n].count) then pButtonList.deleteAt(n) 1815 2309 end repeat 1816 2310 end 1817 2311 1818 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2312 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1819 2313 -- xxxxxxxxxxxxxxxxxx Update the sprite/overlay image 1820 2314 … … 1909 2403 end 1910 2404 1911 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2405 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1912 2406 1913 2407 on mSendImageToVM me, theImage, theRect, tabname … … 1917 2411 end 1918 2412 1919 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1920 2414 1921 2415 on mUpdate3DImage me, theImage, theObject, theRect … … 1954 2448 if moname = "" then 1955 2449 2450 camObj = theObject[#overlayCameraObject] 2451 if voidP(camObj) then 1956 2452 camObj = pKanal.camera 2453 else 2454 if ilk(camObj) <> #camera then camObj = pKanal.camera 2455 end if 2456 1957 2457 olayIndex = mGetOlayIndex(me, camObj, tex) 1958 2458 if olayIndex > 0 then … … 1979 2479 end 1980 2480 1981 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2481 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1982 2482 1983 2483 on mSetBlend me, whichButton, newVal … … 1996 2496 1997 2497 tex = pMember.texture(pTextureBaseName&"_"&whichButton.getaprop(#myName)) 2498 2499 camObj = whichButton[#overlayCameraObject] 2500 if voidP(camObj) then 1998 2501 camObj = pKanal.camera 2502 else 2503 if ilk(camObj) <> #camera then camObj = pKanal.camera 2504 end if 2505 1999 2506 olayIndex = mGetOlayIndex(me, camObj, tex) 2000 2507 if olayIndex > 0 then … … 2015 2522 end 2016 2523 2017 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2524 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2018 2525 2019 2526 on mForceRectUpdate me, caller, tabname … … 2021 2528 if ilk(tabname) <> #string then 2022 2529 2023 repeat with n = pButtonList.countdown to 12530 repeat with n = count(pButtonList) down to 1 2024 2531 theObject = pButtonList[n].getaprop(#myScriptObject) 2025 2532 if theObject = caller then exit repeat … … 2039 2546 end 2040 2547 2041 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2548 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2042 2549 -- alex am Freitag, 23. April 2004 2043 2550 -- refresh the rect after a stage resize, sent from behavior "resizeStageBehavior" … … 2050 2557 pOptionsListe[#myRect] = newSpriteRect 2051 2558 2052 if pButtonList.countthen2559 if count(pButtonList) then 2053 2560 2054 2561 if not voidP(tabname) then table = pButtonList.getaprop(tabname) … … 2059 2566 call(#mSetCurrentRect, [table.getaprop(#myScriptObject)], newSpriteRect, 1) 2060 2567 2568 ---------------------------------------- process tooltip if any defined 2569 hideButtonTooltip me, void, table 2570 ---------------------------------------- // tooltip 2061 2571 2062 2572 table[#myRect] = 0 … … 2066 2576 2067 2577 2068 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2578 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2069 2579 -- xxxxxxxxxxxxxxxxxx Custom Input Event Handling 2070 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2071 2072 2073 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2580 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2581 2582 2583 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2074 2584 on _____Custom_Mouse_Events 2075 2585 end 2076 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2077 2078 2079 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2586 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2587 2588 2589 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2080 2590 2081 2591 on mMouseDown me, theModel, theMUList 2592 focusApplication me, 1 2082 2593 mProcessEventFromRouter me, #myMouseDown, theModel, theMUList 2083 2594 end 2084 2595 2085 2596 2086 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2597 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2087 2598 2088 2599 on mMouseUp me, theModel, theMUList … … 2091 2602 2092 2603 2093 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2604 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2094 2605 2095 2606 on mMouseUpOutside me, theModel … … 2098 2609 2099 2610 2100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2611 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2101 2612 2102 2613 on mProcessEventFromRouter me, whichEvent, theModel, theMUList 2103 repeat with n = pButtonList.countdown to 12614 repeat with n = count(pButtonList) down to 1 2104 2615 theObject = pButtonList[n] 2105 2616 if theObject.getaprop(#useModel) = theModel.name then … … 2127 2638 2128 2639 2129 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2640 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2130 2641 2131 2642 on mGetAbsolutMouse me, caller, forInsideCheck, tabname … … 2201 2712 2202 2713 2203 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2714 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2204 2715 2205 2716 on mCheckMouseInside me, caller, tabname … … 2208 2719 if ilk(ml) <> #point then return ml 2209 2720 2210 if ( pButtonList.count> 1) then2721 if (count(pButtonList) > 1) then 2211 2722 theObject = pButtonList.getaprop(tabname) 2212 2723 if not(voidP(theObject)) then … … 2223 2734 else 2224 2735 2225 if pButtonList.countthen2736 if count(pButtonList) then 2226 2737 theRect = pButtonList[1].getaprop(#myRect) 2227 2738 if ilk(theRect) = #rect then return (ml).inside(theRect) … … 2234 2745 2235 2746 2236 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2747 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2237 2748 2238 2749 on mHandleMouseWithinEvent me, cl 2239 2750 retval = 0 2240 2751 if (pAktiv = 1) then -- and pDreiDModus then 2241 repeat with n = pButtonList.countdown to 12752 repeat with n = count(pButtonList) down to 1 2242 2753 if count(pButtonList[n]) then 2243 2754 -- if pButtonList[n].getaprop(#myScriptObject).mGetEnabled() then … … 2253 2764 end 2254 2765 2255 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2766 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2256 2767 2257 2768 on mHandleMouseDownEvent me, cl … … 2260 2771 retval = 0 2261 2772 if (pAktiv = 1) then -- and pDreiDModus then 2262 repeat with n = pButtonList.countdown to 12773 repeat with n = count(pButtonList) down to 1 2263 2774 if count(pButtonList[n]) then 2264 2775 -- alex am 28. Juni 2004 um 09:49 … … 2269 2780 if cl.inside(theRect) then 2270 2781 2271 sendAllSprites(#mResetKeyDownScript)2272 -- pOldKeyDown = the keyDownscript2273 2782 if pKanal <> 0 then 2274 -- the keyDownscript = "sendSprite("&me.spritenum&", #myKeyDown, the key, the keycode, ""E&pButtonList[n].getaprop(#myName)"E&")"2275 2276 2783 cl = cl + point(pKanal.left, pKanal.top) 2277 2784 end if … … 2291 2798 2292 2799 2293 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2800 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2294 2801 2295 2802 on mDoMouseDownAction me, tabname 2296 2803 2297 if not(pButtonList.count)then exit2804 if count(pButtonList) < 1 then exit 2298 2805 2299 2806 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 2307 2814 2308 2815 2309 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2816 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2310 2817 2311 2818 on mHandleMouseUpEvent me, cl … … 2322 2829 retval = 0 2323 2830 if (pAktiv = 1) then -- and pDreiDModus then 2324 repeat with n = pButtonList.countdown to 12831 repeat with n = count(pButtonList) down to 1 2325 2832 thisButton = pButtonList[n] 2326 2833 … … 2359 2866 2360 2867 if count(pButtonList) > 0 then 2361 repeat with n = n down to 12362 thisButton = pButtonList[n]2363 if thisButton.getaprop(#currentPressed) = 1 then2364 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)]) 2365 2872 thisButton.setaprop(#currentPressed, 0) 2366 end if2367 end repeat2873 end if 2874 end repeat 2368 2875 end if 2369 2876 … … 2371 2878 end 2372 2879 2373 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2880 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2374 2881 2375 2882 on mDoMouseUpAction me, tabname 2376 2883 2377 if not(pButtonList.count)then exit2884 if count(pButtonList) < 1 then exit 2378 2885 2379 2886 if not voidP(tabname) then theObject = pButtonList.getaprop(tabname) … … 2386 2893 end 2387 2894 2388 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2895 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2389 2896 2390 2897 on mHandleMouseUpOutsideEvent me, cl 2391 2898 if (pAktiv = 1) then -- and pDreiDModus then 2392 repeat with n = pButtonList.countdown to 12899 repeat with n = count(pButtonList) down to 1 2393 2900 thisButton = pButtonList[n] 2394 2901 if thisButton.getaprop(#currentPressed) = 1 then … … 2399 2906 end 2400 2907 2401 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2908 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2402 2909 2403 2910 on mCheckMouseEnterLeave me, cl 2404 2911 2405 2912 if (pAktiv = 1) then -- and pDreiDModus then 2913 2406 2914 if pDreiDModus then 2915 2916 if sendSprite(me.spritenum, #mIsModalTableOnScreen) = 1 then exit 2917 2407 2918 cl = the mouseloc - point(pKanal.left, pKanal.top) 2408 2919 end if … … 2411 2922 objectToCall = 0 2412 2923 found = 0 2413 repeat with n = pButtonList.countdown to 12924 repeat with n = count(pButtonList) down to 1 2414 2925 theObject = pButtonList[n] 2415 2926 moname = string(theObject.getaprop(#useModel)) … … 2470 2981 2471 2982 2472 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2473 -- xxxxxxxxxxxxxxxxxx Key Events 2474 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2475 2476 2477 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2478 -- xxxxxxxxxxxxxxxxxx route the key events to the parentscript 2479 -- (I would rather have this in the parentscript, but I dunno how to set the keydownscript, that the parent script receives the key events :-() 2480 2481 on myKeyDown me, tk, kc, theName 2482 2483 if pIncludes.mHandleKeyEvent(tk, kc) then exit -- this is a movielevel handler, which gets keyevents first for example to quit the movie 2484 2485 if not pAktiv then exit 2486 2487 if voidP(theName) then 2488 repeat with n = pButtonList.count down to 1 2489 call(#mKeyDown, [pButtonList[n].getaprop(#myScriptObject)], tk, kc) 2490 end repeat 2491 else 2492 theObject = pButtonList.getaprop(theName) 2493 if objectP(theObject) then 2494 call(#mKeyDown, [theObject.getaprop(#myScriptObject)], tk, kc) 2495 end if 2496 end if 2497 end 2498 2499 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2500 2501 -- a mouseDown sends this call to all sprites, before setting the keydownscript to send only the clicked sprite the keyevents 2502 on mResetKeyDownScript me 2503 if not(voidP(pOldKeyDown)) then 2504 the keyDownscript = pOldKeyDown 2505 pOldKeyDown = void 2506 end if 2507 end 2508 2509 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2983 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2510 2984 on _____3_D_FUNCTIONS 2511 2985 end 2512 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2986 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2513 2987 2514 2988 on mCreateOverlay me, whichImg, theObject … … 2586 3060 else 2587 3061 3062 camObj = theObject[#overlayCameraObject] 3063 if voidP(camObj) then 2588 3064 camObj = pKanal.camera 3065 else 3066 if ilk(camObj) <> #camera then camObj = pKanal.camera 3067 end if 3068 2589 3069 olayIndex = mGetOlayIndex(me, camObj, tex) 2590 3070 … … 2628 3108 2629 3109 2630 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3110 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2631 3111 2632 3112 on mCreatePowerImg me, whichImg, powerbreite, powerhoehe … … 2646 3126 2647 3127 2648 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3128 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2649 3129 2650 3130 on mGetOlayIndex me, camObj, tex … … 2658 3138 2659 3139 2660 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3140 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2661 3141 2662 3142 on mGetTexname me … … 2667 3147 2668 3148 2669 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx3149 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2670 3150 -- xxxxxxxxxxxxxxxxxx map clickloc to 2-D image coordinates: 2671 3151 -
trunk/lingosource/castlib3/DropShadowPScript.ls
r18 r20 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/castlib3/FileIOFunktionen.ls
r18 r20 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/castlib3/GenericButtonPS.ls
r18 r20 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/castlib3/GetSetPrefs.ls
r18 r20 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 prefsText180 181 gPrefs = call(#mGetListFromXMLString , mGetXScript(#PseudoXMLPS), prefsText)219 -- delete line 1 of prefsText 220 221 gPrefs = call(#mGetListFromXMLStringX, mGetXScript(#PseudoXMLPS), prefsText) 182 222 if objectP(gPrefs) then globs[#gPrefs] = gPrefs 183 223 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/castlib3/ImageUtilityScripts.ls
r18 r20 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 … … 305 371 if ft = 32 then 306 372 maske = img.extractalpha() 307 maskImg = image(breite, hoehe, 32) -- 32 bit is twice as fast on the mac ???!!! and can be used as mask also373 maskImg = image(breite, hoehe, 8, #grayscale) -- 32 bit is twice as fast on the mac ???!!! and can be used as mask also 308 374 usemask = 1 309 375 else … … 311 377 end if 312 378 313 tempImg = image(breite, hoehe, origft, img.usealpha, img.paletteref)379 tempImg = image(breite, hoehe, origft, 0, img.paletteref) 314 380 if usemask then img.useAlpha = 0 315 381 … … 396 462 397 463 398 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx464 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 399 465 400 466 401 467 -- spiegelt ein image horizontal 402 468 on mSpiegelHoriz me, img 403 return mFlipImage(me, img, # horizontal)404 end 405 406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx469 return mFlipImage(me, img, #vertical) 470 end 471 472 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 407 473 408 474 -- spiegelt ein image vertikal 409 475 on mSpiegelVerti me, img 410 return mFlipImage(me, img, # vertical)411 end 412 413 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx476 return mFlipImage(me, img, #horizontal) 477 end 478 479 -- 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/castlib3/PseudoXMLPS.ls
r18 r20 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 … … 757 812 758 813 if val.length = 7 then 759 if (val.char[1] = "#") and (offset(val.char[2], "abcdef0123456789") > 0) then return rgb(val) 814 if (val.char[1] = "#") then 815 isColor = 1 816 repeat with n = 2 to 7 817 if (offset(val.char[n], "abcdef0123456789") < 1) then 818 isColor = 0 819 exit repeat 820 end if 821 end repeat 822 if isColor = 1 then return rgb(val) 823 end if 760 824 end if 761 825 … … 767 831 v2 = value(val) 768 832 769 if ilk(v2) = #vectorthen return v2833 if [#vector, #rect, #point, #float].getPos(ilk(v2)) then return v2 770 834 771 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 … … 775 839 776 840 777 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx841 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 778 842 779 843 on mRemoveXMLComments me, str … … 818 882 end 819 883 820 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx884 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 821 885 822 886 on mEscapeSpecialChars me, str 823 887 824 val = mReplaceAllGT(me, string(str), "<", "<") 888 val = mReplaceAllGT(me, string(str), "&", "&") 889 val = mReplaceAllGT(me, val, "<", "<") 825 890 val = mReplaceAllGT(me, val, ">", ">") 826 val = mReplaceAllGT(me, val, "&", "&")827 891 val = mReplaceAllGT(me, val, "'", "'") 828 892 val = mReplaceAllGT(me, val, QUOTE, """) … … 832 896 end 833 897 834 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx898 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 835 899 836 900 on mUnEscapeSpecialChars me, str … … 838 902 val = mReplaceAllGT(me, string(str), "<", "<") 839 903 val = mReplaceAllGT(me, val, ">", ">") 840 val = mReplaceAllGT(me, val, "&", "&")841 904 val = mReplaceAllGT(me, val, "'", "'") 842 905 val = mReplaceAllGT(me, val, """, QUOTE) 906 val = mReplaceAllGT(me, val, "&", "&") 843 907 844 908 return val 845 909 end 846 910 847 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx911 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 848 912 849 913 on mReplaceAllGT me, srcText, fromChunk, toChunk … … 858 922 end 859 923 860 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx924 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 861 925 862 926 -- mit offset() … … 884 948 end 885 949 886 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx950 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 887 951 888 952 property pRegExtra … … 902 966 903 967 904 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx968 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 905 969 906 970 on mConvertXMLPropList me, inputlist, convertValues, dontEscapeSpecialChars … … 921 985 if count(val) then 922 986 if ilk(retlist) = #proplist then 923 retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars))924 else987 retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 988 else 925 989 retlist.add(mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars)) 926 990 end if … … 943 1007 944 1008 -- unescape <>&'" 945 1009 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 946 1010 947 1011 #integer: … … 988 1052 989 1053 -- unescape <>&'" 990 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)1054 if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val) 991 1055 992 1056 … … 1000 1064 1001 1065 if ilk(retlist) = #proplist then 1002 retlist.addProp(symbol(inputlist[n].getaprop(#name)), val)1066 retlist.addProp(symbol(inputlist[n].getaprop(#name)), val) 1003 1067 else 1004 1068 retlist.add(val) … … 1015 1079 1016 1080 1017 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1081 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1018 1082 1019 1083 on mParseExcelXML me, theText 1084 ----------------------------------- 1085 -- ACTION: Read and convert an excel xml file into a lingo property list 1086 -- INPUT: <theText> ; string ; required => xml formatted string 1087 -- RETURNS: property list 1088 -- EXAMPLE: plist = new(script "PseudoXMLPS").mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile()) 1089 ----------------------------------- 1090 1020 1091 ms = the milliseconds 1021 1092 li = [] … … 1054 1125 1055 1126 else 1056 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" 1057 1128 end if -- if ilk(thisCell) = #proplist then 1058 1129 … … 1060 1131 1061 1132 else 1062 call(#mPut, mGetXScript(), "mParseExcelXML: Row "&n&" is not a list")1133 put "mParseExcelXML: Row "&n&" is not a list" 1063 1134 end if -- if listP(currRow) then 1064 1135 … … 1066 1137 1067 1138 else 1068 call(#mPut, mGetXScript(), "mParseExcelXML: Table not found")1139 put "mParseExcelXML: Table not found" 1069 1140 end if -- if listP(xmlList) then 1070 1141 1071 1142 else 1072 call(#mPut, mGetXScript(), "mParseExcelXML: Worksheet not found")1143 put "mParseExcelXML: Worksheet not found" 1073 1144 end if -- if ilk(xmlList) = #proplist then 1074 1145 1075 1146 else 1076 call(#mPut, mGetXScript(), "mParseExcelXML: Workbook not found")1147 put "mParseExcelXML: Workbook not found" 1077 1148 end if -- if ilk(xmlList) = #proplist then 1078 1149 1079 1150 else 1080 call(#mPut, mGetXScript(), "mParseExcelXML: ROOT is not a property list")1151 put "mParseExcelXML: ROOT is not a property list" 1081 1152 end if --if ilk(xmlList) = #proplist then 1082 1153 1083 1154 else 1084 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() returned empty list")1155 put "mParseExcelXML: Xml parser makelist() returned empty list" 1085 1156 end if -- if count(xmlList) > 0 then 1086 1157 1087 1158 else 1088 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() failed")1159 put "mParseExcelXML: Xml parser makelist() failed" 1089 1160 end if -- if listP(xmlList) then 1090 1161 1091 1162 else 1092 call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser error: "&xmlp.getError())1163 put "mParseExcelXML: Xml parser error: "&xmlp.getError() 1093 1164 end if -- if voidP(xmlp.getError()) then 1094 1165 … … 1098 1169 end 1099 1170 1100 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1171 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1101 1172 -- read apple style plist file 1102 1173 1103 1174 on mReadPList me, pfad 1175 ----------------------------------- 1176 -- ACTION: Read and convrt an apple style plist into a lingo style property list from file 1177 -- INPUT: <pfad> ; string ; full pathname to plist file. This is optional, if it is void or "" a file selection dialog is displayed 1178 -- RETURNS: property list 1179 -- EXAMPLE: plist = new(script "PseudoXMLPS").mReadPList() 1180 ----------------------------------- 1104 1181 1105 1182 str = "" … … 1151 1228 end 1152 1229 1153 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1230 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1154 1231 -- this is required to convert a 10.4 style binary plist file to xml: 1155 1232 … … 1169 1246 end 1170 1247 1171 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1248 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1172 1249 -- read apple style plist file 1173 1250 … … 1177 1254 1178 1255 1179 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1256 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1180 1257 -- convert apple style plist 1181 1258 … … 1200 1277 end 1201 1278 1202 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1279 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1203 1280 1204 1281 on mGetKeyListValue me, theIlk, theValue … … 1229 1306 1230 1307 1231 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1308 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1232 1309 -- fontmapping 1233 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1310 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1234 1311 1235 1312 on mMapCharCodes me, str, whichDirection … … 1249 1326 end if 1250 1327 1251 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 1252 1333 1253 1334 newStr = str … … 1255 1336 tstr = str 1256 1337 vers = 0 1257 rmac= numToChar(repl[indFrom])1258 r win= numToChar(repl[indTo])1259 offs = offset( rmac, tstr)1338 searchChar = numToChar(repl[indFrom]) 1339 replaceChar = numToChar(repl[indTo]) 1340 offs = offset(searchChar, tstr) 1260 1341 repeat while offs > 0 1261 1342 ctn = charToNum(char offs of tstr) 1262 1343 delete char 1 to offs of tstr 1263 1344 vers = vers + offs 1264 if ctn = repl[ 1] then1265 put r wininto char vers of newStr1345 if ctn = repl[indFrom] then 1346 put replaceChar into char vers of newStr 1266 1347 end if 1267 offs = offset( rmac, tstr)1348 offs = offset(searchChar, tstr) 1268 1349 end repeat 1269 1350 end repeat 1270 1271 1351 1272 1352 zehn = numToChar(10) … … 1277 1357 end repeat 1278 1358 1279 1280 1359 return newStr 1281 1360 end 1282 1361 1283 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1362 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1284 1363 -- using pregex: 1285 1364 … … 1301 1380 end 1302 1381 1303 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1382 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1304 1383 1305 1384 on mGetPregTranslateStrings me … … 1308 1387 fromStr = "" 1309 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 1310 1397 repeat with repl in replLi 1311 put numToChar(repl[ 1]) after fromStr1398 put numToChar(repl[fromIndex]) after fromStr 1312 1399 put numToChar(repl[2]) after toStr 1313 1400 end repeat … … 1317 1404 end 1318 1405 1319 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1406 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1320 1407 1321 1408 on mGetCharMapList me 1322 1409 li = [] 1323 li.add([128, 196 ])1324 li.add([129, 197 ])1325 li.add([130, 199 ])1326 li.add([131, 201 ])1327 li.add([132, 209 ])1328 li.add([133, 214 ])1329 li.add([134, 220 ])1330 li.add([135, 225 ])1331 li.add([136, 224 ])1332 li.add([137, 226 ])1333 li.add([138, 228 ])1334 li.add([139, 227 ])1335 li.add([140, 229 ])1336 li.add([141, 231 ])1337 li.add([142, 233 ])1338 li.add([143, 232 ])1339 li.add([144, 234 ])1340 li.add([145, 235 ])1341 li.add([146, 237 ])1342 li.add([147, 236 ])1343 li.add([148, 238 ])1344 li.add([149, 239 ])1345 li.add([150, 241 ])1346 li.add([151, 243 ])1347 li.add([152, 242 ])1348 li.add([153, 244 ])1349 li.add([154, 246 ])1350 li.add([155, 245 ])1351 li.add([156, 250 ])1352 li.add([157, 249 ])1353 li.add([158, 251 ])1354 li.add([159, 252 ])1355 li.add([160, 134 ])1356 li.add([161, 176 ])1357 li.add([164, 167 ])1358 li.add([165, 149 ])1359 li.add([166, 182 ])1360 li.add([167, 223 ])1361 li.add([168, 174 ])1362 li.add([170, 153 ])1363 li.add([171, 180 ])1364 li.add([172, 168 ])1365 li.add([173, 141 ])1366 li.add([174, 198 ])1367 li.add([175, 216 ])1368 li.add([176, 144 ])1369 li.add([178, 143 ])1370 li.add([179, 142 ])1371 li.add([180, 165 ])1372 li.add([182, 240 ])1373 li.add([183, 221 ])1374 li.add([184, 222 ])1375 li.add([185, 254 ])1376 li.add([186, 138 ])1377 li.add([187, 170 ])1378 li.add([188, 186 ])1379 li.add([189, 253 ])1380 li.add([190, 230 ])1381 li.add([191, 248 ])1382 li.add([192, 191 ])1383 li.add([193, 161 ])1384 li.add([194, 172 ])1385 li.add([195, 175 ])1386 li.add([196, 131 ])1387 li.add([197, 188 ])1388 li.add([198, 208 ])1389 li.add([199, 171 ])1390 li.add([200, 187 ])1391 li.add([201, 133 ])1392 li.add([202, 160 ])1393 li.add([203, 192 ])1394 li.add([204, 195 ])1395 li.add([205, 213 ])1396 li.add([206, 140 ])1397 li.add([207, 156 ])1398 li.add([208, 173 ])1399 li.add([209, 151 ])1400 li.add([210, 147 ])1401 li.add([211, 148 ])1402 li.add([212, 145 ])1403 li.add([213, 146 ])1404 li.add([214, 247 ])1405 li.add([216, 255 ])1406 li.add([217, 159 ])1407 li.add([218, 158 ])1408 li.add([219, 128 ])1409 li.add([220, 139 ])1410 li.add([221, 155 ])1411 li.add([222, 128 ])1412 li.add([223, 129 ])1413 li.add([224, 135 ])1414 li.add([225, 183 ])1415 li.add([226, 130 ])1416 li.add([227, 132 ])1417 li.add([228, 137 ])1418 li.add([229, 194 ])1419 li.add([230, 202 ])1420 li.add([231, 193 ])1421 li.add([232, 203 ])1422 li.add([233, 200 ])1423 li.add([234, 205 ])1424 li.add([235, 206 ])1425 li.add([236, 207 ])1426 li.add([237, 204 ])1427 li.add([238, 211 ])1428 li.add([239, 212 ])1429 li.add([240, 157 ])1430 li.add([241, 210 ])1431 li.add([242, 218 ])1432 li.add([243, 219 ])1433 li.add([244, 217 ])1434 li.add([245, 166 ])1435 li.add([246, 136 ])1436 li.add([247, 152 ])1437 li.add([248, 150 ])1438 li.add([249, 154 ])1439 li.add([250, 178 ])1440 li.add([251, 190 ])1441 li.add([252, 184 ])1442 li.add([253, 189 ])1443 li.add([254, 179 ])1444 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]) 1445 1532 return li 1446 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/castlib3/SliderScrollbarMenuParent.ls
r18 r20 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/castlib3/SpriteNameBeaver.ls
r18 r20 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/castlib3/ToolTipBeaver_1.ls
r18 r20 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/castlib3/commonMovieScript.ls
r18 r20 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 … … 387 558 -- ACTION: Create/Get timeout object 388 559 -- This handler works the same with the old player <10 and the new player >=10 389 -- INPUT: || ÊtheName || string || name for new timeout object||390 -- || ÊtheDuration || integer || timeout perios in milliseconds||560 -- INPUT: || theName || string || name for new timeout object|| 561 -- || theDuration || integer || timeout perios in milliseconds|| 391 562 -- || theHandler || symbol || handler to be called on each timepout event|| 392 563 -- || theTarget || object || object to be sent the timeout event <theHandler>|| … … 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 1416 repeat with n = len down to 1 1417 this = dateiname.char[n] 1418 put this before ext 1419 delete char n of dateiname 1420 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) 1421 1928 end repeat 1422 1929 1423 if char 1 of ext <> "." then -- no extension 1424 put ext after dateiname 1425 ext = "" 1426 end if 1427 1428 return [#basedir:fname, #basename:dateiname, #extension:ext] 1429 1430 end 1431 1432 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1433 1434 1435 -- 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 ;-) 1436 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 1437 1964 1438 1965 mp = string(mp) … … 1443 1970 mp = "" 1444 1971 else 1445 mp = the applicationpath1972 mp = the applicationpath 1446 1973 end if 1447 1974 if length(mp) < 1 then … … 1460 1987 delim = the last char of the moviepath 1461 1988 if length(delim) < 1 then 1462 1463 1989 if the runmode contains "plug" then 1464 mp= ""1990 -- delim = "" 1465 1991 else 1466 1992 delim = the last char of the applicationpath 1467 1993 end if 1468 1469 1470 1994 if length(delim) < 1 then delim = "/" 1471 1995 end if … … 1528 2052 end 1529 2053 1530 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2054 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1531 2055 -- converts each of the three pathdelimiters ("\", ":", "/") to the platform specific delimiter 1532 2056 … … 1553 2077 if delim = "\" then 1554 2078 if length(thePath) > 1 then 1555 if thePath.char[2] = ":" then 1556 num = charToNum(thePath.char[1]) 1557 if (num > 64 and num < 91) or (num > 96 and num < 123) then 1558 praef = thePath.char[1 .. 2] 1559 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 1560 2087 else 1561 2088 praef = "" 1562 2089 end if 1563 else1564 praef = ""1565 end if1566 2090 else 1567 2091 praef = "" … … 1583 2107 end if 1584 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 1585 2127 else 1586 2128 praef = "" … … 1604 2146 1605 2147 1606 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx1607 1608 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2148 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2149 2150 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1609 2151 -- xxxxxxxxxxxxxxxxxx Check for file existence 1610 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2152 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1611 2153 1612 2154 on mCheckFileExists me, aPath … … 1661 2203 end 1662 2204 1663 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2205 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1664 2206 1665 2207 on mGetUniqueFilename me, fullPath, backUpSuffix … … 1674 2216 splitPath = mSplitPath(me, fullPath) 1675 2217 dd = 0 1676 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd2218 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 1677 2219 repeat while mCheckFileExists(me, dup) = 1 1678 2220 dd = dd + 1 1679 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & splitPath.getaprop(#extension) & "_" & dd2221 dup = splitPath.getaprop(#basedir) & splitPath.getaprop(#basename) & backUpSuffix & "." & splitPath.getaprop(#extension) & "_" & dd 1680 2222 end repeat 1681 2223 … … 1684 2226 end 1685 2227 1686 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2228 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1687 2229 1688 2230 on mCreateDateSuffix me, praefix … … 1700 2242 1701 2243 1702 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2244 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1703 2245 1704 2246 -- dummy handler for translate function 1705 2247 1706 on mTranslate me, aString 2248 on mTranslate me, aString, variablesList 1707 2249 theGlobs = mGetGlobalList(me) 1708 2250 uebersetzungsListe = theGlobs.getaprop(#gUebersetzung) 1709 if ilk(uebersetzungsListe) <> #proplist then return aString 2251 if ilk(uebersetzungsListe) <> #proplist then return mReplacePlaceHoldersInString(me, aString, variablesList) 2252 1710 2253 uebersetzung = uebersetzungsListe.getaprop(aString) 1711 if voidP(uebersetzung) then 1712 return aString 1713 else 1714 currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage) 1715 if voidP(currLang) then 1716 currLang = theGlobs.getaprop(#gSprache) 1717 if voidP(currLang) then currLang = 0 1718 call(#mSetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage, currLang) 1719 end if 1720 ind = currLang + 1 1721 if ind > count(uebersetzung) then ind = 1 1722 return uebersetzung[ind] 1723 end if 1724 end 1725 1726 1727 -- 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 1728 2303 -- xxxxxxxxxxxxxxxxxx encodes spaces as %20 rather than "+" as lingos urlencode does 1729 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2304 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1730 2305 1731 2306 1732 2307 on mUrlEncode me, srcText 1733 2308 1734 srcText = urlencode(s rcText)2309 srcText = urlencode(string(srcText)) 1735 2310 1736 2311 offs = offset("+", srcText) … … 1765 2340 1766 2341 1767 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2342 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1768 2343 -- xxxxxxxxxxxxxxxxxx the missing reverse for urlencode 1769 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2344 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1770 2345 1771 2346 … … 1814 2389 end 1815 2390 1816 -- 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 1817 2403 1818 2404 on mString2Symb me, str … … 1824 2410 end repeat 1825 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 1826 2424 if integerP(integer(str.char[1])) then put "n__" before str 1827 2425 2426 if length(str) < 1 then str = "xxx_" & the milliseconds 2427 1828 2428 return str 1829 2429 end 1830 2430 1831 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2431 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1832 2432 1833 2433 on mSymb2String me, sym … … 1840 2440 end repeat 1841 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 1842 2454 if str starts "n__" then delete char 1 to 3 of str 1843 2455 … … 1846 2458 1847 2459 1848 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2460 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1849 2461 1850 2462 on mHTMLize me, str 1851 2463 if offset("<html", str) < 1 then 1852 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 1853 2472 if offset("<body", str) < 1 then 1854 put "<body>" beforestr2473 put "<body>" after char firstchar of str 1855 2474 put "</body>" after str 1856 2475 end if … … 1862 2481 1863 2482 1864 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2483 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1865 2484 1866 2485 on mValidateEmailAddress me, emailAddress … … 1887 2506 end 1888 2507 1889 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2508 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1890 2509 -- the naming convention used throughout all my movies for names, filename etc.: 1891 2510 -- Names must be only alphanumeric chars and the underscore and should not start with a number … … 1899 2518 end 1900 2519 1901 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2520 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1902 2521 on ____________CONVERT_CASE 1903 2522 end 1904 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1905 1906 2523 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1907 2524 1908 2525 on mUpperCase me, aString … … 1924 2541 end 1925 2542 1926 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx2543<