ListMagic requires Rev 2.9 or later.
" with "Sorry" close this stack exit to top end if ----- if isMC() then modeless this stack -- lib set the loc of this stack to the screenLoc put the fontNames into tFonts sort tFonts put tFonts into btn "Fonts" ----- if the platform = "MacOS" then set the menuHistory of btn "Fonts" to lineOffset("Lucida Grande",tFonts) set the loc of btn "Actions" to 710,40 else set the menuHistory of btn "Fonts" to lineOffset("Tahoma",tFonts) set the loc of btn "Actions" to 710,33 end if set the menuHistory of btn "Size" to 1 ----- lock messages set the cSSSHeader["uCurHeaderLabels"] of fld "ALaiTunes" to empty if the platform = "MacOS" then LMPopulate isoToMac(the uRefList of cd "Action") -- lib else LMPopulate the uRefList of cd "Action" -- lib unlock messages end if end preOpenStack ------------------------------------ on commandKeyDown pKey if pKey = "F" and the short name of this cd <> "Action" then click at the loc of btn "Search" else if pKey = "P" and the short name of this cd <> "Action" then click at the loc of btn "Print" else pass commandKeyDown end commandKeyDown ------------------------------------ on resizeStack pNewWidth,pNewHeight,pOldWidth,pOldHeight -- resizing is completely scripted for compatibility with MC local tHDelta,tVDelta,tNewLoc,tNewTop ----- if the long name of this stack = the long name of me then put pNewWidth - pOldWidth into tHDelta put pNewHeight - pOldHeight into tVDelta ----- set the rect of btn "Tabs" to NewRect(the long ID of btn "Tabs",tHDelta,tVDelta) -- set the loc of img "SSS.png" to NewLoc(the long ID of img "SSS.png",pNewWidth,tVDelta) -- set the rect of fld "Info" of cd "Presentation" to NewRect(the long ID of fld "Info" of cd "Presentation",tHDelta,tVDelta) ----- set the rect of fld "Prompt" of cd "Action" to NewWidth(the long ID of fld "Prompt" of cd "Action",tHDelta,tVDelta) -- set the top of fld "Prompt" of cd "Action" to NewTop(the long ID of fld "Prompt" of cd "Action",tVDelta) -- set the left of btn "Actions" of cd "Action" to NewLeft(the long ID of btn "Actions" of cd "Action",tHDelta) -- ----- set the right of btn "Print" of cd "Presentation" to the right of fld "Info" of cd "Presentation" put NewTop(the long ID of btn "Print" of cd "Presentation",tVDelta) into tNewTop -- set the top of btn "Print" of cd "Presentation" to tNewTop set the top of btn "Search" of cd "Presentation" to tNewTop ----- put NewLoc(the long ID of btn "Buy" of cd "Presentation",pNewWidth,tVDelta) into tNewLoc -- set the loc of btn "Buy" of cd "Presentation" to tNewLoc set the loc of btn "Install" of cd "Installation" to tNewLoc end if pass resizeStack end resizeStack ------------------------------------ private function NewRect pObj,pHDelta,pVDelta local tRect ----- put the rect of pObj into tRect add pHDelta to item 3 of tRect add pVDelta to item 4 of tRect return tRect end NewRect ------------------------------------ private function NewWidth pObj,pHDelta local tRect ----- put the rect of pObj into tRect add pHDelta to item 3 of tRect return tRect end NewWidth ------------------------------------ private function NewTop pObj,pVDelta local tTop ----- put the top of pObj into tTop add pVDelta to tTop return tTop end NewTop ------------------------------------ private function NewLeft pObj,pHDelta local tLeft ----- put the left of pObj into tLeft add pHDelta to tLeft return tLeft end NewLeft ------------------------------------ private function NewLoc pObj,pNewWidth,pVDelta local tLoc ----- put the loc of pObj into tLoc put pNewWidth div 2 into item 1 of tLoc add pVDelta to item 2 of tLoc return tLoc end NewLoc ------------------------------------ -- added for Metacard compatibility: command revMail pTo, pCC, pSubject, pBody revMailUnicode pTo, pCC, uniEncode(pSubject), uniEncode(pBody) end revMail ------------------------------------ command revMailUnicode pTo, pCC, pSubject, pBody local tURL,tCC,tSubject,tBody ----- put uniDecode(pSubject, "UTF8") into pSubject put uniDecode(pBody, "UTF8") into pBody put urlEncode(pSubject) into pSubject put urlEncode(pBody) into pBody replace "+" with "%20" in pSubject replace "+" with "%20" in pBody ----- if the paramcount is 1 then put "mailto:" & pTo into tURL else if pCC is not empty then put true into tCC if pSubject is not empty then put true into tSubject if pBody is not empty then put true into tBody ----- put "mailto:" & pTo into tURL if tCC then if (tURL contains "?Subject=") or (tURL contains "?Body=") then put "&" & "CC=" & pCC after tURL else put "?" & "CC=" & pCC after tURL end if end if if tSubject then if (tURL contains "?CC=") or (tURL contains "?Body=") then put "&" & "Subject=" & pSubject after tURL else put "?" & "Subject=" & pSubject after tURL end if end if if tBody then if (tURL contains "?CC=") or (tURL contains "?Subject=") then put "&" & "Body=" & pBody after tURL else put "?" & "Body=" & pBody after tURL end if end if if tCC or tBody or tSubject then put "&Content-Type:text/plain;"&"charset=utf-8" after tURL end if end if launch url tURL end revMailUnicode w uPaypalUrl Chttps%3A%2F%2Fwww.paypal.com%2Fcgi-bin%2Fwebscr%3Fcmd%3D_xclick%26business%3Deric%252echatonet%2540sosmartsoftware%252ecom%26item_name%3DEric%2520Chatonet%26item_number%3DDev%2520Support%26no_shipping%3D0%26no_note%3D1%26tax%3D0%26currency_code%3DEUR%26return%3Dhttp%3A%2F%2Fwww.sosmartsoftware.com%2F%26charset%3DUTF%252d8 ListMagic 1.1 - Trial version U Lucida Grande U Lucida Grande U Lucida Grande U Georgia U Georgia U tahoma U arial U Arial Black U B Optima Bold U Cracked U Courier New U Courier CE U Courier U Copperplate Light U Copperplate Gothic Light U Chalkboard U TektoMMObl_240 RG 250 CN U Tahoma U Lucida Grande U Lucida Grande U Lucida Grande U Tahoma U Lucida Grande CE U Lucida Handwriting W Verdana U Verdana U Verdana U 4 data columns U New York U New York U Monaco W Verdana W Lucida Grande U Lucida Grande CE,Polish @U Verdana AU Verdana W Verdana U Verdana W Lucida Grande W U U U Krungthep U Krop U I Garamond LightItalic U Novarese Bold U Lucida Grande CY W Verdana U Verdana W Verdana U Segoe UI U Papyrus U Papyrus U Tahoma U Segoe UI U Segoe UI @U Segoe UI W Segoe UI W Verdana U Segoe UI W Segoe UI U @Gulim U @Gulim U Aharoni U Aharoni U Cambria U Cambria U Lucida Grande U Lucida Handwriting U Lucida Grande U Lucida Grande U Marker Felt @W Verdana U Lucida Grande U Verdana @W Lucida Grande 0 U Lucida Grande 0 W Lucida Grande U Tahoma U Tahoma W Tahoma 0 U Tahoma 0 W Tahoma W Lucida Grande W Marker Felt U mad W mad U I Optima Oblique W I Optima Oblique W Monaco W Tahoma W Tahoma U Arial W Arial U Arial W Arial W Arial U Book Antiqua W Book Antiqua U Book Antiqua W Book Antiqua U Book Antiqua W Arial W Book Antiqua W Book Antiqua U Book Antiqua U Book Antiqua W Book Antiqua U Verdana W Verdana W Verdana W Tahoma U I Optima Oblique W I Optima Oblique U Optima W Optima U Optima W Optima U Optima W Optima U Helvetica U Helvetica W courier new U Tahoma W Lucida Grande W Lucida Handwriting W Lucida Grande W Marker Felt U Marker Felt Lucida Grande cREVGeneral scriptChecksum ;ؒ` e debugObjects breakPoints handlerList |preOpenCard preOpenStack SSSAdjustColumn SSSAdjustAllColumns SSSExtractList SSSExtractColumn SSSExtractLines SSSGetCheckedBoxes SSSGetHilitedLines SSSGetCurSort SSSPopulate SSSSetCheckBoxes SSSSetHilitedLines SSSSetHilitedLinesColor SSSCreateHeader SSSLastVisibleTab cSSSHeader[pProp] _RealTabStops _RealColumnsNum _SSSAnswerError _CreateFieldAlternatingColors _RightColorNotationbreakpointstates scriptSelection char 457 to 456scripteditorvscroll 0breakpointconditions bookmarks scripteditorselection 55 tempScript prevHandler preOpenStackstackfileversion 2.7script AlreadyHidden false cREVGeometryCache stackID 94757 altStackID 9259 cSSSHeader uLibName SSSLMLib Action PY------------------------------------ ## Messages sent by ListMagic widget -- To get the short name of the widget use: -- put the short name of pWidget into tWidgetShortName ------------------------------------ on LMSelectionChanged pWidget,pHilitedLines DisplayPrompt "LMSelectionChanged - highlighted line(s):" && pHilitedLines -- sent when selection changed in the list -- pWidget is the long ID of the widget -- pHilitedLines is an integer (one line number) or a comma delimited list (multiple lines) -- write your code here: end LMSelectionChanged ------------------------------------ on LMListEdited pWidget,pItem,pLineNo,pOldValue,pNewValue DisplayPrompt "LMListEdited - item" && pItem && "of line" && pLineNo && "-" && pOldValue && ">" && pNewValue -- sent when an item has been edited and changed in the list -- pWidget is the long ID of the widget -- pItem is the item number -- pLineNo is the line number -- pOldValue is previous value -- pNewValue is new vlaue -- write your code here: end LMListEdited ------------------------------------ on LMListFiltered pWidget,pColumn,pPattern DisplayPrompt "LMListFiltered - column:" && pColumn && "by" && pPattern -- sent when a column is filtered -- pWidget is the long ID of the widget -- pColumn is a column number -- pPattern is the pattern used to filter -- write your code here: end LMListFiltered ------------------------------------ on LMLineHovered pWidget,pLineNo DisplayPrompt "LMLineHovered - hovered line:" && pLineNo -- sent when a line is hovered or the hovered line changes -- pWidget is the long ID of the widget -- pLineNo is a line number -- write your code here: end LMLineHovered ------------------------------------ on LMCheckBoxChanged pWidget,pLineNo,pStatus DisplayPrompt "LMCheckBoxChanged - on line:" && pLineNo && "- status:" && pStatus -- sent when a mini check box highlight changed in the list -- pWidget is the long ID of the widget -- pLineNo is a line number and pStatus is a Boolean (true or false) -- write your code here: end LMCheckBoxChanged ------------------------------------ on LMColumnsReorganized pWidget,pSourceColumn,pDestColumn DisplayPrompt "LMColumnsReorganized -" && pSourceColumn && ">" && pDestColumn -- sent when columns order changed in the list -- pWidget is the long ID of the widget -- pSourceColumn has been put at pDestColumn place (columns numbers) -- write your code here: end LMColumnsReorganized ------------------------------------ on LMColumnWidthChanged pWidget,pColumn,pNewWidth DisplayPrompt "LMColumnWidthChanged - column" && pColumn && ">" && pNewWidth && "pixels" -- sent when a column width was manually changed -- pWidget is the long ID of the widget -- pColumn is the column number -- write your code here: end LMColumnWidthChanged ------------------------------------ on LMSort pWidget,pColumn,pDirection DisplayPrompt "LMSortChanged -" && "column:" && pColumn && "- direction:" && pDirection -- sent when columns order changed in the list -- pWidget is the long ID of the widget -- pSourceColumn has been put at pDestColumn place (columns numbers) -- write your code here: end LMSort ------------------------------------ on LMMouseDoubleUp pWidget,pLineNo DisplayPrompt "LMMouseDoubleUp - double click on line" && pLineNo -- sent when a double click occurs in the list -- pWidget is the long ID of the widget -- pLineNo is a line number -- write your code here: end LMMouseDoubleUp ----------------------------------- on rawKeyDown pKey -- allows to delete lines using the delete key in edition mode global gLMLanguage local tWidget,tText,tRef,tLocalizedData,tPrompt,tDelete,tCancel ------ if the selectedField <> empty then pass rawKeyDown if pKey = 65288 and the clickLine <> empty then put word 4 to 5 of the clickLine into tWidget if the short name of tWidget is among the lines of the cSSSHeader["uLMWidgets"] of this cd then put the long name of tWidget into tWidget put the hilitedText of tWidget into tText if tText = empty then pass rawKeyDown set the itemdel to tab if the cSSSHeader["uNumLines"] of tWidget then repeat for each line tLine in tText if the cSSSHeader["uCheckbox"] of tWidget then put "" & item 1 of tLine && char 5 to -1 of item 2 of tLine & "...
" after tRef else put "" & item 1 of tLine && item 2 of tLine & "...
" after tRef end if end repeat else repeat for each line tLine in tText if the cSSSHeader["uCheckbox"] of tWidget then put "" & char 5 to -1 of item 1 of tLine && item 2 of tLine & "...
" after tRef else put "" & item 1 of tLine && item 2 of tLine & "...
" after tRef end if end repeat end if if gLMLanguage = empty then put GetUserLang() into gLMLanguage -- lib put line 4 of the cSSSMenus[gLMLanguage] of tWidget into tLocalizedData if the platform <> "MacOS" then put MacToIso(tLocalizedData) into tLocalizedData set the itemDel to tab if the number of lines of tText = 1 then delete item 2 of tLocalizedData else delete item 1 of tLocalizedData put item 1 of tLocalizedData into tPrompt put item 2 of tLocalizedData into tDelete put item 3 of tLocalizedData into tCancel answer warning "" & tPrompt & "
" & tRef & "
" with tDelete or tCancel as sheet send "resumeStack" to me if it = tDelete then LMChangeLine 3,tWidget -- lib end if else pass rawKeyDown else pass rawKeyDown end rawKeyDown ----------------------------------- private command DisplayPrompt pPrompt -- used in the tutorial only put pPrompt into fld "Prompt" end DisplayPrompt ------------------------------------ on mouseLeave -- used in the ListMagic only put empty into fld "Prompt" end mouseLeave uRefList @Name First Name N Street City ZIP Phone Ref Status Allen Jimmy 100 Broadway street Baltimore 38781 968-7544-278 451 Inactive Morgan Oliver 41 West street Las Vegas 99486 169-5976-968 447 Inactive Smith Bryan 21 Lee street Tucson 91613 194-8382-252 634 Inactive Cooper Kevin 26 College street Cleveland 81562 615-3117-191 650 Active Williams Geoffrey 83 Lakeview street Louisville 31677 681-7798-324 685 Inactive Davis Logan 81 Central street Oklahoma 39212 272-5166-877 990 Active James Paul 86 Center street Portland 66536 136-5264-574 552 Active Baker Vanessa 82 Birch street Washington 33499 247-8738-258 433 Inactive Harris James 69 Smith street Indianapolis 28599 658-6799-758 697 Active Moore Dave 42 Adams street San Jose 59668 487-7299-928 179 Inactive Lewis Harold 51 Church street Fort Worth 68579 278-1981-384 729 Inactive Martin Marvin 17 Lake street Memphis 59847 835-5356-155 326 Inactive Anderson Luke 36 Pine street Los Angeles 86738 465-8596-327 114 Inactive Morris David 50 East street Philadelphia 13498 113-8322-247 547 Inactive Clarke Sandy 86 Wilson street Chicago 29685 282-2721-673 404 Inactive Thompson Jennifer 18 Spring street Austin 21297 774-2651-145 227 Inactive Green Karen 60 Hill street Phoenix 19397 416-3259-699 911 Inactive Watson Edward 39 North street Mesa 81828 124-4778-284 989 Active Jones Georgia 96 Cedar street San Diego 33652 139-1989-938 355 Active Roberts William 2 Washington street El Paso 63533 454-4646-748 703 Active Evans John 81 Ridge street New York 74217 397-8334-542 490 Active Parker Elton 21 Elme street San Antonio 82917 212-1113-633 808 Active Edwards Bill 90 South street Fresno 96531 165-5472-839 329 Active Phillips Dorothy 2 Locust street Jacksonville 48418 842-8223-813 546 Active Lee Ronald 95 Sunset street Denver 64632 562-4515-784 265 Active Wilson Shirley 10 Taylor street Boston 11346 493-4438-492 588 Inactive Turner Douglas 14 Hillcrest street Nashville 57864 438-2594-899 429 Inactive Walker Gordon 17 Madison street Dallas 57794 613-4264-532 742 Active Brown Peter 90 Oak street Albuquerque 79219 141-1335-686 232 Inactive Scott Stephen 20 Highland street Houston 37185 248-2653-553 177 Inactive Mitchell Joey 28 Mill street Charlotte 75861 255-2638-754 876 Inactive Hall Ian 85 Green street Seattle 34461 882-7776-233 155 Active Hughes Harry 84 Twelfth street San Francisco 19493 345-2916-715 768 Active Robinson Donald 72 Main street Atlanta 93593 214-9546-394 642 Inactive Taylor Heather 68 Franklin street Detroit 88723 512-5686-681 655 Active Wright Gary 15 Sycamore street Kansas City 77263 788-2546-251 542 Active Bell Irwin 61 Jefferson street Milwaukee 47423 545-9367-869 997 Inactive Johnson Walter 45 Park street Long Beach 55165 523-9985-779 156 Active Jackson Dustin 87 View street Columbus 15936 935-7265-122 628 Active Wood Edwin 25 Maple street Sacramento 17595 257-3159-952 621 Inactive cREVGeometryCacheIDs 01225888508944 20081226493549508 190201227461701508 334061229072969553 533021104075103241 16001225886195455 19211225820820934 16921226066164278 120821229076165859 534691225960768142 53301226048351501 108311226052866736 109271225988367309 81201225883658547 17801225885462753 19161225988375650 81211227883658454 372901231341189689 947401231341189690 947411231341189700 947511227258484868 298181225989140574 81221231341189691 947421231341189701 947521225990147442 83731231341189692 947431231341189693 947441225887935657 19791225973144815 63531231341189694 947451231341189695 947461231341189696 947471225883327554 17771231341189697 947481231341189698 947491226307946522 141891231341189699 947501226566763745 191611227524787457 335001225888586341 20091225886267581 19221225989160435 81231227353245010 325141228988303198 509011226047070458 108181228991829275 509021225120838316 10061230654311760 77490 cREVGeometrycache total 48order cREVGeneral scriptChecksum .t 0ű3\PM breakPoints handlerList SSSSelectionChanged SSSLIneHovered SSSCheckBoxChanged SSSSortChanged SSSRightClick SSSMouseDoubleUp resizeStack resumeStack suspendStack closeCard GetHilitedLines preOpenCard CheckForRegistration DisplayPrompt mouseLeavescriptSelection char 5544 to 5543scripteditorvscroll 1636 bookmarks scripteditorselection 5796 prevHandler CheckForRegistration tempScript script cSSSHeader uHilitedLines uLMWidgets ALaiTunes | *B *O @ JL 6 . r& + Presentation P on preOpenCard set the enabed of btn "Buy" to not CheckForRegistration() -- lib -- resizeStack -- pass preOpenCard end preOpenCard uDisclaimer ListMagic provides a full automatized Installation and Modification Wizard dedicated to a highly sophisticated widget. Using this Wizard, you are sure to get ListMagic customized as you want it in your projects with one or two clicks only: a lot of time saved for you and a professional look for your applications.
ListMagic is provided with a library of more than twenty custom messages, commands and functions allowing to master it straightforward in your scripts.
In this trial version, all features are fully functional: the only restriction is lines added to your data saying it is a trial version as you can see it in Action section. Of course, this limitation will disappear once you will have bought ListMagic.
Just click on the Buy ListMagic! button below to know how you can purchase ListMagic for 49 dollars (36 euros) only.
ListMagic provides a full automatized Installation and Modification Wizard dedicated to a highly sophisticated widget. Using this Wizard, you are sure to get ListMagic customized as you want it in your projects with one or two clicks only: a lot of time saved for you and a professional look for your applications.
ListMagic is provided with a library of more than twenty custom messages, commands and functions allowing to master it straightforward in your scripts.
In this trial version, all features are fully functional: the only restriction is lines added to your data saying it is a trial version as you can see it in Action section. Of course, this limitation will disappear once you will have bought ListMagic.
Just click on the Buy ListMagic! button below to know how you can take advantage of ListMagic introducing offer for 39 dollars (28 euros) only (a 20% discount). This offer will end on 2009 January 15th and then retail price will be 49 dollars.
on mouseUp
set the cSSSHeader["uNumLines"] of this cd to the hilite of me
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
Fonts u on menuPick pFont set the cSSSHeader["uFont"] of fld "ALaiTunes" to pFont -- see setprop cSSSHeader[pProp] in field's script if the cSSSHeader["uDefaultTabStop"] of fld "ALaiTunes" = "Auto" then LMAdjustColumn -- lib end menuPick B Font name ? Lucida Grande #PC #üü #A #ʱü ACaslon AltBold ACaslon AltBoldItalic ACaslon AltItalic ACaslon AltRegular ACaslon AltSemibold ACaslon AltSemiboldItalic ACaslon Bold ACaslon BoldItalic ACaslon BoldItalicOsF ACaslon BoldOsF ACaslon Italic ACaslon ItalicOsF ACaslon Ornaments ACaslon Regular ACaslon RegularSC ACaslon Semibold ACaslon SemiboldItalic ACaslon SemiboldItalicOsF ACaslon SemiboldSC ACaslon SwashBoldItalic ACaslon SwashItalic ACaslon SwashSemiboldItalic ACaslonExp Bold ACaslonExp BoldItalic ACaslonExp Italic ACaslonExp Regular ACaslonExp Semibold ACaslonExp SemiboldItalic AGaramond AGaramond Bold AGaramond BoldItalic AGaramond Italic AGaramond Semibold AGaramond SemiboldItalic American Typewriter American Typewriter Condensed American Typewriter Condensed Light American Typewriter Light Andale Mono Apple Chancery Apple LiGothic Medium Apple LiSung Light AppleGothic AppleMyungjo Arial Arial Black Arial Narrow Arial Rounded MT Bold Ayuthaya B Optima Bold baby Baskerville Baskerville Semibold BI Optima BoldOblique BiauKai Big Caslon BlairMdITC TT-Medium Brush Script MT Capitals Century Gothic Chalkboard Chalkboard Bold Charcoal Charcoal CY Chicago Cochin Comic Sans MS Copperplate Copperplate Gothic Bold Copperplate Gothic Light Copperplate Light Courier Courier CE Courier New Cracked Curlz MT Didot dyrk Edwardian Script ITC erkend Euphemia UCAS Euphemia UCAS Bold Euphemia UCAS Italic Futura Futura Condensed Gadget Garamond GB18030 Bitmap Geeza Pro Geeza Pro Bold Geneva Geneva CE Geneva CY Georgia Gill Sans Gill Sans Light Handwriting - Dakota Hei Helvetica Helvetica CE Helvetica CY Helvetica Neue Helvetica Neue Black Condensed Helvetica Neue Bold Condensed Helvetica Neue Light Helvetica Neue UltraLight Herculanum Hoefler Text Hoefler Text Ornaments hushold I Garamond LightItalic I Optima Oblique Impact InaiMathi info Kai Krop Krungthep Lucida Grande Lucida Grande CE Lucida Grande CY Lucida Handwriting mad Marker Felt Monaco Monaco CE Monaco CY Monotype Sorts New York Novarese Bold Novarese BoldItalic Novarese Book Novarese BookItalic Novarese Medium Novarese MediumItalic Novarese Ultra Optima Optima ExtraBlack Osaka Osaka| Palatino Papyrus Plantagenet Cherokee PortagoITC TT rg samvr Sand Sathu Silom Skia sport Symbol Tahoma Techno TektoMM_100 LT 250 CN TektoMM_100 LT 564 NO TektoMM_100 LT 850 EX TektoMM_240 RG 250 CN TektoMM_240 RG 564 NO TektoMM_240 RG 850 EX TektoMM_503 BD 250 CN TektoMM_503 BD 488 NO TektoMM_503 BD 850 EX TektoMMObl_100 LT 250 CN TektoMMObl_100 LT 564 NO TektoMMObl_100 LT 850 EX TektoMMObl_240 RG 250 CN TektoMMObl_240 RG 564 NO TektoMMObl_240 RG 850 EX TektoMMObl_503 BD 250 CN TektoMMObl_503 BD 488 NO TektoMMObl_503 BD 850 EX Textile Thonburi Tilstand Times Times CE Times CY Times New Roman Trebuchet MS ude Verdana VT100 Webdings Wingdings Zapf Dingbats Zapfino qMmpS Pro W3 qMmpS Pro W6 qMmpS Std W8 qMmۃS Pro W4 qMm Pro W3 qMm Pro W6 ķ ĺ Ŀ ϸ ק Pro Pro { cREVGeneral scriptChecksum Ey}N(U҈T handlerList menuPickscriptSelection char 19 to 18scripteditorvscroll 0 bookmarks revUniqueID 1225883327554scripteditorselection 76 prevHandler menuPick tempScript scripton menuPick pFont
set the cSSSHeader["uFont"] of this cd to pFont
-- see setprop cSSSHeader[pProp] in card's script
end menuPick
Size u on menuPick pSize set the cSSSHeader["uFontSize"] of fld "ALaiTunes" to pSize -- see setprop cSSSHeader[pProp] in field's script if the cSSSHeader["uDefaultTabStop"] of fld "ALaiTunes" = "Auto" then LMAdjustColumn -- lib end menuPick B* F Font size ; 11 11 12 13 14 16 cREVGeneral scriptChecksum -C handlerList menuPickscriptSelection char 125 to 124 bookmarks revUniqueID 1225883658547scripteditorvscroll 0scripteditorselection 230 prevHandler menuPick tempScript scripton menuPick pSize
set the cSSSHeader["uFontSize"] of this cd to pSize
-- see setprop cSSSHeader[pProp] in card's script
end menuPick
Label Field on mouseEnter set the tooltip of me to "Stripes color:" && the backColor of fld "Stripes" & cr & "Click on the square to change it" end mouseEnter ^M dListMagic wizard allows to specify any number of columns." into tPrompt answer info tPrompt as sheet send "resumeStack" to this cd lock screen set the menuHistory of me to sCurMenuHistory unlock screen else SetColumns tNumOfColumns -- end if unlock screen end menuPick --------------------------------------- private command SetColumns pColumns local tWidget,tHilitedLines,tRefList,tData ----- put the long ID of fld "ALaiTunes" into tWidget put the hilitedLines of tWidget into tHilitedLines lock messages set the cSSSHeader["uHeaderColumsNum"] of tWidget to pColumns -- see setprop cSSSHeader[pProp] in field's script if the cSSSHeader["uHeaderColumsNum"] of tWidget = "Auto" then if the platform = "MacOS" then put isoToMac(the uRefList of this cd) into tRefList else put the uRefList of this cd into tRefList set the itemDel to tab if pColumns = "Auto" then put the number of items of line 1 of tRefList into pColumns repeat for each line tLine in tRefList put item 1 to pColumns of tLine & cr after tData end repeat delete last char of tData else if the platform = "MacOS" then put isoToMac(the uRefList of this cd) into tData else put the uRefList of this cd into tData end if ----- lock screen set the hScroll of tWidget to 0 set the hScroll of grp "ALaiTunes" to 0 LMPopulate tData,tWidget -- lib LMSetHilitedLines tHilitedLines -- lib unlock screen end SetColumns B ^ Number of columns: 'Auto' fits data list according to the number of items per line Specifying a number limits data seen by the user to this number Horizontal scroll bar is only shown when 'Auto' is chosen 5 columns gAuto 1 column 2 columns 3 columns 4 columns 5 columns 6 columns 7 columns 8 columns 9 columns Other... cREVGeneral scriptChecksum | 0MH breakPoints handlerList menuPickscriptSelection char 89 to 88scripteditorvscroll 43 bookmarks revUniqueID 1225960768142scripteditorselection 905 prevHandler menuPick tempScript script 0
on menuPick pItem
set the cSSSHeader["uHeaderColumsNum"] of this cd to word 1 of pItem
-- see setprop cSSSHeader[pProp] in card's script
end menuPick
Label Field on mouseEnter set the tooltip of me to "Highlight color:" && the hiliteColor of fld "ALaiTunes" & cr & "Click on the square to change it" end mouseEnter ^f d =Highlight color: 62,127,227 Click on the square to change it cREVTable currentview Highlight color: cREVGeneral scripteditorvscroll 0 revUniqueID 1225988375650scripteditorselection 0 Highlight color: Label Field on mouseEnter set the tooltip of me to "Highlighted text color:" && the backColor of fld "HighlightText" & cr & "Click on the square to change it" end mouseEnter B EHighlighted text color: 255,255,255 Click on the square to change it cREVTable currentview Highlighted text color: cREVGeneral scripteditorvscroll 0 revUniqueID 1225989160435scripteditorselection 148 Highlighted text color: Stripes pon mouseUp answer color with the backColor of me if it = empty then exit mouseUp set the backColor of me to it mouseEnter -- set the cSSSHeader["uStripsColor"] of fld "ALaiTunes" to it -- see setprop cSSSHeader[pProp] in field's script end mouseUp ---------------------------------- on mouseEnter set the tooltip of me to "Stripes color:" && the backColor of me & cr & "Click here to change it" end mouseEnter @ L 3Stripes color: 241,245,250 Click here to change it cREVGeneral scriptChecksum ٶͻlH2?j handlerList scriptSelection char 240 to 239 bookmarks revUniqueID 1225886267581scripteditorvscroll 0scripteditorselection 424 prevHandler mouseUp tempScript scripton mouseUp
answer color with the backColor of me
if it = empty then exit mouseUp
set the backColor of me to it
mouseEnter --
set the cSSSHeader["uStripsColor"] of this cd to it
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
----------------------------------
on mouseEnter
set the tooltip of me to "Stripes color:" && the backColor of me
end mouseEnter
HighLight pon mouseUp answer color with the hiliteColor of fld (the cSSSHeader["uWidgetName"] of fld "ALaiTunes") if it = empty then exit mouseUp set the backColor of me to it mouseEnter -- set the cSSSHeader["uHighlightColor"] of fld "ALaiTunes" to it -- see setprop cSSSHeader[pProp] in field's script end mouseUp ---------------------------------- on mouseEnter set the tooltip of me to "Highlight color:" && the hiliteColor of fld "ALaiTunes" & cr & "Click here to change it" end mouseEnter >> @ f 5Highlight color: 192,192,192 Click here to change it cREVGeneral scriptChecksum [^!P>~w'z handlerList mouseUp mouseEnterscriptSelection char 258 to 257scripteditorvscroll 0 revUniqueID 1225988367309 bookmarks scripteditorselection 20 tempScript prevHandler mouseUpscript *on mouseUp
answer color with the hiliteColor of fld "ListField"
if it = empty then exit mouseUp
set the backColor of me to it
mouseEnter --
set the cSSSHeader["uHighlightColor"] of this cd to it
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
----------------------------------
on mouseEnter
set the tooltip of me to "Highlight color:" && the hiliteColor of fld "ListField"
end mouseEnter
HighLightText pon mouseUp answer color with the backColor of me if it = empty then exit mouseUp set the backColor of me to it mouseEnter -- set the cSSSHeader["uHighlightedTextColor"] of fld "ALaiTunes" to it -- see setprop cSSSHeader[pProp] in field's script end mouseUp ---------------------------------- on mouseEnter set the tooltip of me to "Highlighted text color:" && the backColor of me & cr & "Click here to change it" end mouseEnter @answer color with the backColor of me
if it = empty then exit mouseUp
set the backColor of me to it
mouseEnter --
set the cSSSHeader["uHighlightedTextColor"] of this cd to it
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
----------------------------------
on mouseEnter
set the tooltip of me to "Highlighted text color:" && the backColor of me
end mouseEnter
* Selection u jon menuPick set the cSSSHeader["uSelectType"] of fld "ALaiTunes" to the menuHistory of me end menuPick B Selection mode q Select non contiguous lines GSelect one line only Select multiple lines Select non contiguous lines cREVGeneral scriptChecksum ("> k' #^vW handlerList menuPickscriptSelection char 12 to 11 revUniqueID 1226052866736 bookmarks scripteditorvscroll 0scripteditorselection 50 tempScript prevHandler menuPickscripton menuPick
set the cSSSHeader["uSelectType"] of this cd to the menuHistory of me
end menuPick
/2 Box heon mouseUp local tCurSort ----- set the cSSSHeader["uCheckBox"] of fld "ALaiTunes" to the hilite of me -- see setprop cSSSHeader[pProp] in field's script put the cSSSHeader["uCurSort"] of fld "ALaiTunes" into tCurSort if tCurSort <> empty and item 1 of tCurSort <> 0 then LMSetSort item 1 of tCurSort,item 3 of tCurSort,the long ID of fld "ALaiTunes" end if end mouseUp D 4Add a check boxes row in front of first data column Check boxes column cREVGeneral scriptChecksum |wi handlerList mouseUpscriptSelection char 34 to 51scripteditorvscroll 0 revUniqueID 1226066164278 bookmarks scripteditorselection 396 tempScript prevHandler mouseUpscripton mouseUp
set the cSSSHeader["uSelectAllCheckBox"] of this cd to the hilite of me
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
7m TabStops u~local sCurMenuHistory --------------------------------------- on mouseDown put the menuHistory of me into sCurMenuHistory end mouseDown --------------------------------------- on menuPick pItem local tTabStops,tPrompt,tCurSort ----- lock screen put word 1 of pItem into tTabStops if tTabStops = "Other..." then if IsMC() then put "For demonstration only, columns width is limited to five choices." & cr & cr & "ListMagic wizard allows to specify any width." into tPrompt else put "For demonstration only, columns width is limited to five choices.
ListMagic wizard allows to specify any width." into tPrompt answer info tPrompt as sheet send "resumeStack" to this cd lock screen set the menuHistory of me to sCurMenuHistory unlock screen else set the cSSSHeader["uDefaultTabStop"] of fld "ALaiTunes" to word 1 of pItem -- see setprop cSSSHeader[pProp] in field's script if the cSSSHeader["uHeaderColumsNum"] of fld "ALaiTunes" = "Auto" then set the hScrollBar of fld "ALaiTunes" to the formattedWidth of fld "ALaiTunes" > the width of fld "ALaiTunes" end if put the cSSSHeader["uCurSort"] of fld "ALaiTunes" into tCurSort if tCurSort <> empty then LMSetSort item 1 of tCurSort,item 3 of tCurSort,the long ID of fld "ALaiTunes" end if unlock screen end menuPick B y ZColumns width: Auto fits data width A number forces columns width to this value in pixels * Auto 9Auto 50 pixels 100 pixels 150 pixels 200 pixels Other... cREVGeneral scriptChecksum | 0MH handlerList menuPick breakPoints scriptSelection char 89 to 88scripteditorvscroll 0 revUniqueID 1226307946522 bookmarks scripteditorselection 677 tempScript prevHandler menuPickscript 0
on menuPick pItem
set the cSSSHeader["uHeaderColumsNum"] of this cd to word 1 of pItem
-- see setprop cSSSHeader[pProp] in card's script
end menuPick
J DandD he on mouseUp set the cSSSHeader["uColumnsDandD"] of fld "ALaiTunes" to the hilite of me -- see setprop cSSSHeader[pProp] in field's script end mouseUp D 7Allow columns order reorganization using drag and drop Columns drag & drop cREVGeneral scriptChecksum |wi handlerList mouseUpscriptSelection char 34 to 51 bookmarks revUniqueID 1226566763745scripteditorvscroll 0scripteditorselection 46 prevHandler mouseUp tempScript scripton mouseUp
set the cSSSHeader["uSelectAllCheckBox"] of this cd to the hilite of me
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
tz TextHeight u on menuPick pItem set the cSSSHeader["uTextHeight"] of fld "ALaiTunes" to the menuHistory of me -- see setprop cSSSHeader[pProp] in field's script if the cSSSHeader["uDefaultTabStop"] of fld "ALaiTunes" = "Auto" then LMAdjustColumn end menuPick * F Line space - 16 Auto 16 cREVGeneral scriptChecksum -C handlerList menuPickscriptSelection char 125 to 124scripteditorvscroll 0 revUniqueID 1227258484868 bookmarks scripteditorselection 237 tempScript prevHandler menuPickscripton menuPick pSize
set the cSSSHeader["uFontSize"] of this cd to pSize
-- see setprop cSSSHeader[pProp] in card's script
end menuPick
~ Resize u oon menuPick set the cSSSHeader["uResizeType"] of fld "ALaiTunes" to the menuHistory of me - 1 end menuPick B Resizing mode Resize both directions JDon't resize Resize vertically Resize horizontally Resize both directions cREVGeneral scriptChecksum ("> k' #^vW handlerList menuPickscriptSelection char 12 to 11scripteditorvscroll 0 bookmarks revUniqueID 1227461701508scripteditorselection 66 prevHandler menuPick tempScript scripton menuPick
set the cSSSHeader["uSelectType"] of this cd to the menuHistory of me
end menuPick
Edit he on mouseUp set the cSSSHeader["uEdition"] of fld "ALaiTunes" to the hilite of me -- see setprop cSSSHeader[pProp] in field's script end mouseUp D Allow list editing into a superimposed entry box using a second mouseDown on any item Allow to add or delete lines: see list pop up menu y Editing cREVGeneral scriptChecksum |wi handlerList mouseUpscriptSelection char 34 to 51scripteditorvscroll 0 revUniqueID 1228991829275 bookmarks scripteditorselection 148 tempScript prevHandler mouseUpscripton mouseUp
set the cSSSHeader["uSelectAllCheckBox"] of this cd to the hilite of me
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
Filter he on mouseUp set the cSSSHeader["uFiltering"] of fld "ALaiTunes" to the hilite of me -- see setprop cSSSHeader[pProp] in field's script if not the hilite of me and there is a grp "LMFilterALaiTunes" then LMShowFilters the long ID of fld "ALaiTunes" end mouseUp D ;Allow list filtering by any column: see header pop up menu k Filtering cREVGeneral scriptChecksum |wi handlerList mouseUpscriptSelection char 34 to 51 bookmarks revUniqueID 1229076165859scripteditorvscroll 0scripteditorselection 204 prevHandler mouseUp tempScript scripton mouseUp
set the cSSSHeader["uSelectAllCheckBox"] of this cd to the hilite of me
-- see setprop cSSSHeader[pProp] in card's script
end mouseUp
LMGenericHeader i & w/* ListMagic 1.1 by Eric Chatonet http://www.sosmartsoftware.com/ */ local sPopUpInUse,sSourceHeaderTab,sHilitedLines,sDragData,sDrag,sMoveColumnFlag,sMouseH -- script local variables ----------------------------------------------- on mouseDown pButton global gLMLanguage local tNumOfColumns,tHeaderNum,tMenu,tWidget ----- LMHideEntryBox -- lib put pButton = 3 into sPopUpInUse -- a flag if sPopUpInUse then lock messages set the cSSSHeader["uCurHeader"] of fld (the short name of me) to char 7 to -1 of the short name of the target -- header number unlock messages put LMRealColumnsNum(the long ID of fld (the short name of me)) into tNumOfColumns -- lib if the cSSSHeader["uNumLines"] of fld (the short name of me) then add 1 to tNumOfColumns -- builds popUp menu if gLMLanguage = empty then put GetUserLang() into gLMLanguage -- lib put line 1 to 2 of the cSSSMenus[gLMLanguage] of me into tMenu if the uAdjust of btn ("Header" & the cSSSHeader["uCurHeader"] of fld (the short name of me)) of me then put "(" before line 1 of tMenu if AllColumnsAdjusted() then put "(" before line 2 of tMenu -- if the cSSSHeader["uCheckBox"] of fld (the short name of me) then put the long ID of fld (the short name of me) into tWidget if (the cSSSHeader["uCurHeader"] of fld (the short name of me) = 1 and not the cSSSHeader["uNumLines"] of fld (the short name of me)) or (the cSSSHeader["uCurHeader"] of fld (the short name of me) = 2 and the cSSSHeader["uNumLines"] of fld (the short name of me)) then put cr & line 3 to 6 of the cSSSMenus[gLMLanguage] of me after tMenu if not (quote & the ID of img "CaseChecked" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) & quote is in the htmlText of tWidget) then put "(" before line -2 of tMenu else if not (quote & the ID of img "Case" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) & quote is in the htmlText of tWidget) then put "(" before line -3 of tMenu if not (quote & the ID of img "Case" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) & quote is in the htmlText of tWidget and quote & the ID of img "CaseChecked" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) & quote is in the htmlText of tWidget) then put "(" before line -1 of tMenu end if end if end if if the cSSSHeader["uFiltering"] of fld (the short name of me) then put cr & line 7 to 8 of the cSSSMenus[gLMLanguage] of me after tMenu if the textColor of char 1 of fld (the short name of me) = "160,0,0" then put "!c" before last line of tMenu else if the number of lines of the text of fld (the short name of me) < 2 then put "(" before line -1 of tMenu else if there is a fld ("Filter" & the short name of me & 1) then put "!c" before last line of tMenu end if end if if the platform <> "MacOS" then put MacToIso(tMenu) into tMenu put tMenu into btn "LMPopUp" set the uCurCall of btn "LMPopUp" to "Header" set the uCurWidget of btn "LMPopUp" to the long ID of fld (the short name of me) popup btn "LMPopUp" else put char 7 to -1 of the short name of the target into tHeaderNum if the cursor = 81 then ResizeHeaders tHeaderNum -- resizes columns else -- set patterns and icons according to possible states ----- if the number of lines of the text of fld (the short name of me) < 2 then exit mouseDown lock screen if the backPattern of btn ("Header" & tHeaderNum) of me = the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the backPattern of btn ("Header" & tHeaderNum) of me to the ID of img "Header+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the backPattern of btn ("Header" & tHeaderNum) of me to the ID of img "HeaderHilited+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) if the icon of btn ("HArrow" & tHeaderNum) of me = the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Down+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Up+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end if end if unlock screen end if end if end mouseDown ----------------------------------------------- on mouseEnter global gLMLanguage local tTooltip ----- if gLMLanguage = empty then put GetUserLang() into gLMLanguage -- lib put the cSSSTooltips[gLMLanguage] of me into tTooltip if the platform <> "MacOS" then put MacToIso(tTooltip) into tTooltip set the tooltip of the target to tTooltip end mouseEnter ----------------------------------------------- on mouseLeave if the mouse is up then unlock cursor -- when cursor 81 has been used end mouseLeave ----------------------------------------------- on mouseRelease -- restores previous state local tHeaderNum ----- if the cursor <> 81 and not sDrag and not sMoveColumnFlag and the number of lines of fld (the short name of me) > 1 then put char 7 to -1 of the short name of the target into tHeaderNum ----- lock screen if the backPattern of btn ("Header" & tHeaderNum) = the ID of img "Header+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) set the icon of btn ("HArrow" & tHeaderNum) to the ID of img "Arrow" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "HeaderHilited" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) if the icon of btn ("HArrow" & tHeaderNum) = the ID of img "Arrow Down+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the icon of btn ("HArrow" & tHeaderNum) to the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the icon of btn ("HArrow" & tHeaderNum) to the ID of img "Arrow Up" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end if end if put false into sMoveColumnFlag unlock screen unlock cursor end if end mouseRelease ----------------------------------------------- on mouseUp local tHeaderNum,tColumNo ----- if sPopUpInUse then exit mouseUp ----- if sMoveColumnFlag then put false into sMoveColumnFlag exit mouseUp end if ----- if the number of lines of the text of fld (the short name of me) < 2 then exit mouseUp if the cursor <> 81 then -- not resizing a column put char 7 to -1 of the short name of the target into tHeaderNum ----- lock screen repeat with i = 1 to (the number of btns of me / 2) if i = tHeaderNum then next repeat set the backPattern of btn ("Header" & i) of me to the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) set the icon of btn ("HArrow" & i) of me to the ID of img "Arrow" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end repeat set the backPattern of btn ("Header" & tHeaderNum) of me to the ID of img "HeaderHilited" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) ----- if the cSSSHeader["uNumLines"] of fld (the short name of me) then put tHeaderNum - 1 into tColumNo else put tHeaderNum into tColumNo if the number of lines of the text of fld (the short name of me) > 1 then if the icon of btn ("HArrow" & tHeaderNum) of me = the ID of img "Arrow Up+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) SortColumn the long ID of fld (the short name of me),tHeaderNum,"Up" -- lib lock messages set the cSSSHeader["uCurSort"] of fld (the short name of me) to tColumNo,the label of btn ("Header" & tHeaderNum) of me,"descending" if "#A00000" is not in the htmlText of fld (the short name of me) then set the CSSSHeader["uCurList"] of fld (the short name of me) to LMExtractList(true,the long ID of fld (the short name of me)) end if try -- in the case this message is not handled higher in the message hierarchy LMSort the long ID of me,tHeaderNum,"descending" -- sent to the card catch tErr end try else set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Up" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) SortColumn the long ID of fld (the short name of me),tHeaderNum,"Down" -- lib lock messages set the cSSSHeader["uCurSort"] of fld (the short name of me) to tColumNo,the label of btn ("Header" & tHeaderNum) of me,"ascending" if "#A00000" is not in the htmlText of fld (the short name of me) then set the CSSSHeader["uCurList"] of fld (the short name of me) to LMExtractList(true,the long ID of fld (the short name of me)) end if try -- in the case this message is not handled higher in the message hierarchy LMSort the long ID of me,tHeaderNum,"ascending" -- sent to the card catch tErr end try end if unlock screen else if the icon of btn ("HArrow" & tHeaderNum) of me = the ID of img "Arrow Up+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Up" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the icon of btn ("HArrow" & tHeaderNum) of me to the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end if end if end if unlock cursor end mouseUp ----------------------------------------------- on dragStart -- Rev 2.9 drag and drop local tTarget,tWidget,tBottomRight,tRect,tID ----- if not the cSSSHeader["uColumnsDandD"] of fld (the short name of me) or the cursor = 81 then exit dragStart -- no D&D allowed in theses cases ----- LMHideEntryBox -- lib put char 7 to -1 of the short name of the target into sSourceHeaderTab if (the cSSSHeader["uNumLines"] of fld (the short name of me) and the cSSSHeader["uCheckbox"] of fld (the short name of me) and sSourceHeaderTab is among the items of "1,2") \ or ((the cSSSHeader["uNumLines"] of fld (the short name of me) or the cSSSHeader["uCheckbox"] of fld (the short name of me)) and sSourceHeaderTab = 1) then exit dragStart -- we don't want first column and mini check boxes column moved ----- put true into sDrag if "HArrow" is in the short name of the target then put the long ID of btn ("Header" & char 7 to -1 of the short name of the target) of me into tTarget else put the long ID of the target into tTarget ----- put "SSS" & random(100) into sDragData -- this will allow to limit D&D to current widget even if there are more than one widget in the card -- and to refuse any D&D coming from another app set the dragData["text"] to sDragData put the long ID of fld (the short name of me) into tWidget put the hilitedLines of tWidget into sHilitedLines ----- if the vScrollBar of tWidget then put min(the right of tTarget,the right of tWidget - (the scrollbarWidth of tWidget + 1)),the bottom of tWidget into tBottomRight else put min(the right of tTarget,the right of tWidget),the bottom of tWidget into tBottomRight put globalLoc(the topleft of tTarget),globalLoc(tBottomRight) into tRect if the hScrollbar of tWidget then subtract the scrollbarWidth of tWidget from item 4 of tRect ----- create invisible image -- creates drag image do "export snapshot from rect tRect to" && it && "as PNG" set the dragImageOffset to 50,the height of tTarget div 2 set the dragImage to the ID of it ----- set the opaque of the templateGraphic to true set the lineSize of the templateGraphic to 0 set the blendlevel of the templateGraphic to 30 set the backColor of the templateGraphic to "136,136,136" put the topleft of tTarget,tBottomRight into tRect if the hScrollbar of tWidget then subtract the scrollbarWidth of tWidget from item 4 of tRect set the rect of the templateGraphic to tRect set the rect of it to tRect create grc -- creates a graphic overlapping dragged column reset the templateGraphic end dragStart ----------------------------------------------- on dragMove local tCurTab,tNum ----- if the cSSSHeader["uColumnsDandD"] of fld (the short name of me) and the dragData["text"] = sDragData then if the mouseControl <> empty then put char 7 to -1 of the short name of the mouseControl into tCurTab if the cSSSHeader["uNumLines"] of fld (the short name of me) and the cSSSHeader["uCheckbox"] of fld (the short name of me) then put 2 into tNum else if (the cSSSHeader["uNumLines"] of fld (the short name of me) or the cSSSHeader["uCheckbox"] of fld (the short name of me)) then put 1 into tNum else put 0 into tNum if tCurTab <= tNum then set the dragAction to "None" else set the dragAction to "Move" else set the dragAction to "Move" else set the dragAction to "None" end dragMove ----------------------------------------------- on dragEnd -- cleanup local tSourceHeaderTab ----- lock screen choose browse tool -- MC put sSourceHeaderTab into tSourceHeaderTab if the backPattern of btn ("Header" & tSourceHeaderTab) of grp (the short name of me) = the ID of img "Header+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the backPattern of btn ("Header" & tSourceHeaderTab) of grp (the short name of me) to the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) set the icon of btn ("Harrow" & tSourceHeaderTab) to the ID of img "Arrow" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else if the backPattern of btn ("Header" & tSourceHeaderTab) of grp (the short name of me) = the ID of img "HeaderHilited+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then set the backPattern of btn ("Header" & tSourceHeaderTab) of grp (the short name of me) to the ID of img "HeaderHilited" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) if item 3 of the cSSSHeader["uCursort"] of fld (the short name of me) = "ascending" then set the icon of btn ("Harrow" & tSourceHeaderTab) to the ID of img "Arrow Up" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) else set the icon of btn ("Harrow" & tSourceHeaderTab) to the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end if end if if not the cSSSHeader["uColumnsDandD"] of fld (the short name of me) or the dragData["text"] <> sDragData then exit dragEnd delete last image delete last grc unlock screen DragCleanUp -- end dragEnd ----------------------------------------------- on dragDrop local tDestHeaderTab,tLineNo,tInput,tLine,tItemNo,tOutput,tSourceButtonNo,tDestButtonNo local tLabel,tWidget,tHeader1,tHeader2,tPattern,tRect,tText,tData,tColumn1,tColumn2,tCurSel local tHeaders,tLinesToSkip ----- put sSourceHeaderTab if not the cSSSHeader["uColumnsDandD"] of fld (the short name of me) or the dragData["text"] <> sDragData then exit dragDrop ----- repeat with i = 1 to the number of btns of me div 2 if the mouseH > the left of btn ("Header" & i) and the mouseH < the right of btn ("Header" & i) then exit repeat end repeat put i into tDestHeaderTab put sSourceHeaderTab,tDestHeaderTab if (the cSSSHeader["uNumLines"] of fld (the short name of me) or the cSSSHeader["uCheckbox"] of fld (the short name of me)) and tDestHeaderTab = 1 then exit dragDrop if sSourceHeaderTab = tDestHeaderTab then exit dragDrop ----- set the itemDel to tab put LMExtractList("all",the long ID of fld (the short name of me)) into tInput -- lib delete line 1 of tInput -- headers ----- if the cSSSHeader["uNumLines"] of fld (the short name of me) then subtract 1 from sSourceHeaderTab subtract 1 from tDestHeaderTab end if put 1 into tLineNo repeat for each line tLine in tInput put 1 into tItemNo repeat for each item tItem in tLine if tItemNo = sSourceHeaderTab then put tItem into item tDestHeaderTab of line tLineNo of tOutput else if tItemNo = tDestHeaderTab then put tItem into item sSourceHeaderTab of line tLineNo of tOutput else put tItem into item tItemNo of line tLineNo of tOutput add 1 to tItemNo end repeat put cr after tOutput add 1 to tLineNo end repeat delete last char of tOutput ----- lock screen -- refreshes displayed list LMPopulate cr & tOutput,the long ID of fld (the short name of me),true,true -- lib put sSourceHeaderTab into tSourceButtonNo put tSourceButtonNo into tHeader1 put tDestHeaderTab into tDestButtonNo put tDestHeaderTab into tHeader2 if the cSSSHeader["uNumLines"] of fld (the short name of me) then add 1 to tSourceButtonNo add 1 to tDestButtonNo end if -- refreshes headers labels put the label of btn ("Header" & tSourceButtonNo) of me into tLabel set the label of btn ("Header" & tSourceButtonNo) of me to the label of btn ("Header" & tDestButtonNo) of me set the label of btn ("Header" & tDestButtonNo) of me to tLabel ----- put the backPattern of btn ("Header" & tSourceButtonNo) of me into tPattern[1] put the icon of btn ("HArrow" & tSourceButtonNo) of me into tPattern[2] put the backPattern of btn ("Header" & tDestButtonNo) of me into tPattern[3] put the icon of btn ("HArrow" & tDestButtonNo) of me into tPattern[4] repeat with i = 1 to 4 if tPattern[i] = the ID of img "Header+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then put the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) into tPattern[i] else if tPattern[i] = the ID of img "HeaderHilited+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then put the ID of img "HeaderHilited" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) into tPattern[i] else if tPattern[i] = the ID of img "Arrow+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then put the ID of img "Arrow" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) into tPattern[i] else if tPattern[i] = the ID of img "Arrow Down+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then put the ID of img "Arrow Down" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) into tPattern[i] else if tPattern[i] = the ID of img "Arrow Up+" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) then put the ID of img "Arrow Up" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) into tPattern[i] end repeat set the backPattern of btn ("Header" & tDestButtonNo) of me to tPattern[1] set the icon of btn ("HArrow" & tDestButtonNo) of me to tPattern[2] set the backPattern of btn ("Header" & tSourceButtonNo) of me to tPattern[3] set the icon of btn ("HArrow" & tSourceButtonNo) of me to tPattern[4] ----- if there is a grp ("LMFilter" & the short name of me) then if the selectedField <> empty then if (tSourceButtonNo is in the short name of the selectedField) then put the long ID of fld ("Filter" & the short name of me & tDestButtonNo) of grp ("LMFilter" & the short name of me) into tCurSel else if (tDestButtonNo is in the short name of the selectedField) then put the long ID of fld ("Filter" & the short name of me & tSourceButtonNo) of grp ("LMFilter" & the short name of me) into tCurSel else put empty into tCursel end if end if put the rect of fld ("Filter" & the short name of me & tSourceButtonNo) of grp ("LMFilter" & the short name of me) into tRect set the rect of fld ("Filter" & the short name of me & tSourceButtonNo) of grp ("LMFilter" & the short name of me) to the rect of fld ("Filter" & the short name of me & tDestButtonNo) of grp ("LMFilter" & the short name of me) set the rect of fld ("Filter" & the short name of me & tDestButtonNo) of grp ("LMFilter" & the short name of me) to tRect ----- put the text of fld ("Filter" & the short name of me & tSourceButtonNo) of grp ("LMFilter" & the short name of me) into tText set the text of fld ("Filter" & the short name of me & tSourceButtonNo) of grp ("LMFilter" & the short name of me) to the text of fld ("Filter" & the short name of me & tDestButtonNo) of grp ("LMFilter" & the short name of me) set the text of fld ("Filter" & the short name of me & tDestButtonNo) of grp ("LMFilter" & the short name of me) to tText if tCurSel <> empty then put word 1 to 5 of the selectedChunk && tCurSel into tCurSel do "select" && tCurSel end if end if lock messages set the cSSSHeader["uCurHeaderLabels"] of fld (the short name of me) to GetCurLabels() -- if there is a grp ("LMFilter" & the short name of me) then put the CSSSHeader["uCurList"] of fld (the short name of me) into tData set the itemdel to tab repeat for each line tLine in tData put item tHeader1 of tLine & cr after tColumn1 put item tHeader2 of tLine & cr after tColumn2 end repeat repeat with i = 1 to the number of lines of tData put line i of tColumn1 into item tHeader2 of line i of tData put line i of tColumn2 into item tHeader1 of line i of tData end repeat set the CSSSHeader["uCurList"] of fld (the short name of me) to tData else set the CSSSHeader["uCurList"] of fld (the short name of me) to LMExtractList(true,the long ID of fld (the short name of me)) -- lib unlock messages put the long ID of fld (the short name of me) into tWidget if the cSSSHeader["uDefaultTabStop"] of fld (the short name of me) = "Auto" then LMAdjustColumn ,,tWidget -- lib ----- SetItalics the long ID of fld (the short name of me) -- lib ----- set the hilitedLInes of tWidget to sHilitedLines send "scrollBarDrag" to fld (the short name of me) -- LMSetHilitedLinesColor tWidget -- lib unlock screen ----- try -- in the case this message is not handled higher in the message hierarchy LMColumnsReorganized the long ID of me,tHeader1,tHeader2 -- sent to current card catch tErr end try end dragDrop --------------------------------------------- on DragCleanUp put false into sDrag end DragCleanUp --------------------------------------------- on deleteGroup -- when deleting the widget local tCurWidgets,tSets ----- lock messages delete fld (the short name of me) -- list field put the CSSSHeader["uLMWidgets"] of this card into tCurWidgets delete line lineOffset(the short name of me,tCurWidgets) of tCurWidgets if tCurWidgets = empty then if there is a grp "LMGenericHeader" then delete grp "LMGenericHeader" if there is a grp "LMGenericFilter" then delete grp "LMGenericFilter" if there is a btn "LMPopUp" then delete btn "LMPopUp" if there is a fld "LMBox" then delete fld "LMBox" put the customPropertySets of this cd into tSets delete line lineOffset("CSSSHeader",tSets) of tSets set the customPropertySets of this cd to tSets else set the CSSSHeader["uLMWidgets"] of this card to tCurWidgets end deleteGroup ----------------------------------------------- on mouseMove pX,pY -- sets cursor to allow columns resizing or not local tHeaderNum,tHeaderLeftRect,tHeaderRightRect ----- put char 7 to -1 of the short name of the target into tHeaderNum if tHeaderNum is not an integer or tHeaderNum < 1 then exit mouseMove ----- if "HArrow" is in the target and px > (the right of the target - 4) then if the right of the target = the right of fld (the short name of me) then exit mouseMove if the CSSSHeader["uNumLines"] of fld (the short name of me) and the short name of the target = "HArrow1" then exit mouseMove ----- if the mouse is down then put true into sMoveColumnFlag set the cursor to 81 lock cursor else unlock cursor end mouseMove ----------------------------------------------- command ResizeHeaders pHeaderNum -- resizes columns local tWidget,tMouseH,tHeaderLeftRect,tHeaderRightRect,tNumOfColumns,tLastVisibleTab constant kMinWidth = 40 ----- if the mouse is up then put false into sMoveColumnFlag try -- in the case this message is not handled higher in the message hierarchy if the cSSSHeader["uNumLines"] of fld (the short name of me) then subtract 1 from pHeaderNum LMColumnWidthChanged the long ID of me,pHeaderNum,the width of btn ("Header" & (pHeaderNum + 1)) -- sent to current card else LMColumnWidthChanged the long ID of me,pHeaderNum,the width of btn ("Header" & pHeaderNum) -- sent to current card end if catch tErr end try exit ResizeHeaders end if put the mouseH into tMouseH put the long ID of fld (the short name of me) into tWidget put the rect of btn ("Header" & pHeaderNum) of me into tHeaderLeftRect put the cSSSHeader["uHeaderColumsNum"] of tWidget into tNumOfColumns if tNumOfColumns = "Auto" then set the itemDel to tab put the number of items of line 1 of fld (the short name of me) into tNumOfColumns set the itemDel to comma else if the cSSSHeader["uNumLines"] of tWidget then add 1 to tNumOfColumns put LMLastVisibleTab(tWidget) into tLastVisibleTab -- lib if tMouseH - item 1 of tHeaderLeftRect < kMinWidth then put item 1 of tHeaderLeftRect + kMinWidth into tMouseH put tMouseH into item 3 of tHeaderLeftRect ----- lock screen set the uAdjust of btn ("Header" & pHeaderNum) of me to false set the rect of btn ("Header" & pHeaderNum) of me to tHeaderLeftRect set the right of btn ("HArrow" & pHeaderNum) of me to tMouseH repeat with i = (pHeaderNum + 1) to tNumOfColumns set the left of btn ("Header" & i) of me to the right of btn ("Header" & (i - 1)) of me if there is a fld ("Filter" & the short name of tWidget & i) then set the width of fld ("Filter" & the short name of tWidget & i) to the width of btn ("Header" & i) of me set the left of fld ("Filter" & the short name of tWidget & i) to the left of btn ("Header" & i) of me set the width of fld ("Filter" & the short name of tWidget & pHeaderNum) to the width of btn ("Header" & pHeaderNum) of me set the left of fld ("Filter" & the short name of tWidget & pHeaderNum) to the left of btn ("Header" & pHeaderNum) of me end if if i = tLastVisibleTab then set the right of btn ("HArrow" & i) of me to the right of tWidget else set the right of btn ("HArrow" & i) of me to the right of btn ("Header" & i) of me end repeat if tMouseH <> sMouseH then put tMouseH into sMouseH SetTabstops pHeaderNum,tWidget -- end if unlock screen send "ResizeHeaders" && pHeaderNum to me in 30 milliseconds end ResizeHeaders ----------------------------------------------- private command SetTabstops pHeaderNum,pFld -- sets list field tabstops when resizing columns local tScroll,tTabStops ----- put the hScroll of pFld into tScroll if pHeaderNum > 1 then put item 1 to (pHeaderNum - 1) of the the tabstops of pFld & comma into tTabStops end if repeat with i = pHeaderNum to ((the number of btns of me) div 2) put the right of btn ("Header" & i) of me - (the left of pFld + 3) + the hScroll of pFld & comma after tTabStops end repeat delete last char of tTabStops set the tabstops of pFld to tTabStops set the hScroll of pFld to tScroll set the hScroll of grp (the short name of pFld) to tScroll end SetTabstops ------------------------------------------------- private function GetCurLabels -- returns current headers labels local tNum,tHeaders ----- repeat with i = 1 to (the number of btns of me / 2) if the label of btn ("Header" & i) of me <> empty then put the label of btn ("Header" & i) of me & cr after tHeaders end repeat delete last char of tHeaders return tHeaders end GetCurLabels ----------------------------------------------- private function AllColumnsAdjusted -- returns all columns width are adjusted ot not according to a custom property -- this way 'divides work' and is much fatser than any calculation on-the-fly local tWidget,tNum ----- put the long ID of fld (the short name of me) into tWidget if the cSSSHeader["uNumLines"] of fld (the short name of me) then put 2 into tNum else put 1 into tNum repeat with i = tNum to (the number of btns of me / 2) - 1 if i = the cSSSHeader["uCurHeader"] of tWidget then next repeat if not the uAdjust of btn ("Header" & i) of me then return false end repeat return true end AllColumnsAdjusted cREVGeneral scriptChecksum >'kw,'fr Ɲ breakPoints handlerList XmouseDown mouseLeave mouseRelease mouseUp mouseMove ResizeHeaders SetTabstops SortColumnscriptSelection char 72 to 71 revUniqueID 1225887935657 bookmarks scripteditorvscroll 0scripteditorselection 16 tempScript prevHandler mouseUpscript 'jlocal lPopUpInUse
-----------------------------------------------
on mouseDown pButton
local tNumOfColumns,tHeaderNum
-----
put pButton = 3 into lPopUpInUse
if lPopUpInUse then
lock messages
set the cSSSHeader["uCurHeader"] of this cd to char -1 of the short name of the target
if tHeaderNum = 0 then set the cSSSHeader["uCurHeader"] of this cd to 10
unlock messages
put the cSSSHeader["uHeaderColumsNum"] of this cd into tNumOfColumns
if the cSSSHeader["uNumLines"] of this cd then add 1 to tNumOfColumns
if the cSSSHeader["uCurHeader"] of this cd < tNumOfColumns then
popup btn "HeaderPopUp"
end if
else
put char -1 of the short name of the target into tHeaderNum
if tHeaderNum = 0 then put 10 into tHeaderNum
if not the showName of btn ("Header" & tHeaderNum) then exit mouseDown
if the cursor = 81 then ResizeHeaders tHeaderNum --
else
-----
lock screen
if the backPattern of btn ("Header" & tHeaderNum) = the ID of img "Header" then
set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "Header+"
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow+"
else
set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "HeaderHilited+"
if the icon of btn ("Arrow" & tHeaderNum) = the ID of img "Arrow Down" then
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Down+"
else
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Up+"
end if
end if
unlock screen
end if
end if
end mouseDown
-----------------------------------------------
on mouseLeave
if the mouse is up then unlock cursor
end mouseLeave
-----------------------------------------------
on mouseRelease
local tHeaderNum
-----
if the cursor <> 81 then
put char -1 of the short name of the target into tHeaderNum
if tHeaderNum = 0 then put 10 into tHeaderNum
if not the showName of btn ("Header" & tHeaderNum) then exit mouseRelease
-----
lock screen
if the backPattern of btn ("Header" & tHeaderNum) = the ID of img "Header+" then
set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "Header"
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow"
else
set the backPattern of the target to the ID of img "HeaderHilited"
if the icon of btn ("Arrow" & tHeaderNum) = the ID of img "Arrow Down+" then
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Down"
else
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Up"
end if
end if
unlock screen
end if
unlock cursor
end mouseRelease
-----------------------------------------------
on mouseUp
local tHeaderNum
-----
if lPopUpInUse then exit mouseUp
if the cursor <> 81 then
put char -1 of the short name of the target into tHeaderNum
if tHeaderNum = 0 then put 10 into tHeaderNum
if not the showName of btn ("Header" & tHeaderNum) then exit mouseUp
-----
lock screen
repeat with i = 1 to (the number of btns of me / 2)
if i = tHeaderNum then next repeat
set the backPattern of btn ("Header" & i) of me to the ID of img "Header"
set the icon of btn ("Arrow" & i) to the ID of img "Arrow"
end repeat
set the backPattern of btn ("Header" & tHeaderNum) to the ID of img "HeaderHilited"
if the icon of btn ("Arrow" & tHeaderNum) = the ID of img "Arrow Up+" then
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Down"
SortColumn "ListField",tHeaderNum,"Up"
lock messages
set the cSSSHeader["uCurSort"] of this cd to the label of btn ("Header" & tHeaderNum) & cr & "descending"
-- see setprop cSSSHeader[pProp] in card's script
else
set the icon of btn ("Arrow" & tHeaderNum) to the ID of img "Arrow Up"
SortColumn "ListField",tHeaderNum,"Down"
lock messages
set the cSSSHeader["uCurSort"] of this cd to the label of btn ("Header" & tHeaderNum) & cr & "ascending"
-- see setprop cSSSHeader[pProp] in card's script
end if
unlock screen
end if
unlock cursor
end mouseUp
-----------------------------------------------
on mouseMove pX,pY
local tHeaderNum,tHeaderLeftRect,tHeaderRightRect
-----
put char -1 of the short name of the target into tHeaderNum
if tHeaderNum is not an integer or tHeaderNum < 1 then exit mouseMove
if not the showName of btn ("Header" & tHeaderNum) then exit mouseMove
-----
if "Arrow" is in the target and px > (the right of the target - 4) then
if the right of the target = the right of fld (the short name of me) then exit mouseMove
-----
set the cursor to 81
lock cursor
else unlock cursor
end mouseMove
-----------------------------------------------
on ResizeHeaders pHeaderNum
local tMouseH,tHeaderLeftRect,tHeaderRightRect
constant kMinWidth = 40
-----
if the mouse is up then exit ResizeHeaders
put the mouseH into tMouseH
put the rect of btn ("Header" & pHeaderNum) into tHeaderLeftRect
put the rect of btn ("Header" & pHeaderNum + 1) into tHeaderRightRect
if tMouseH - item 1 of tHeaderLeftRect < kMinWidth then put item 1 of tHeaderLeftRect + kMinWidth into tMouseH
if item 3 of tHeaderRightRect - tMouseH < kMinWidth then put item 3 of tHeaderRightRect - kMinWidth into tMouseH
put tMouseH into item 3 of tHeaderLeftRect
put tMouseH into item 1 of tHeaderRightRect
-----
lock screen
set the rect of btn ("Header" & pHeaderNum) to tHeaderLeftRect
set the rect of btn ("Header" & pHeaderNum + 1) to tHeaderRightRect
set the right of btn ("Arrow" & pHeaderNum) to tMouseH
SetTabstops the long name of fld "ListField" --
unlock screen
send "ResizeHeaders" && pHeaderNum to me in 50 milliseconds
end ResizeHeaders
-----------------------------------------------
on SetTabstops pFld
local tStopTabs
-----
repeat with i = 1 to min(the number of btns of me,9)
put the right of btn i of me - (the left of pFld + 3) & comma after tStopTabs
end repeat
set the tabstops of pFld to tStopTabs
end SetTabstops
-----------------------------------------------
on SortColumn pFld,pColNum,pDirection
local tHilitedText,tHilitedLines,tHtmlText
-----
lock screen
set the itemdel to tab
put the hilitedText of fld pFld into tHilitedText
if pDirection = "Down" then
sort fld pFld ascending by item pColNum of each
else
sort fld pFld descending by item pColNum of each
end if
repeat for each line tLine in tHilitedText
put lineOffset(tLine,fld pFld) & comma after tHilitedLines
end repeat
if the cSSSHeader["uNumLines"] of this cd then
repeat with i = 1 to the number of lines of fld pFld
put i into item 1 of line i of fld pFld
end repeat
end if
set the hilitedLines of fld pFld to tHilitedLines
unlock screen
end SortColumn
cSSSMenus fr Ajuster cette colonne Ajuster toutes les colonnes - Cocher toutes les cases Dcocher toutes les cases Basculer toutes les cases - Filtrer...es Ajustar esta columna Ajustar todas las columnas - Hacer una cruz en todas las casillas Desnudar todas las casillas Oscilar todas las casillas - Filtrar...de zSpaltengre anpassen Alle Spaltengren anpassen - Alles aktivieren Alles deaktivieren Checkboxen umschalten - Filter... en rAdjust this column size Adjust all columns size - Check all boxes Uncheck all boxes Toggle check boxes - Filter...pt Ajustar esta coluna Ajustar todas as colunas - Assinalar todos os compartimentos Atirar todos os compartimentos Balanar todos os compartimentos - Filtrar...it Regolare questa colonna Regolare tutte le colonne - Intaccare tutte le scatole Scoccare tutte le scatole Oscillare tutte le scatole - Filtrare... cSSSTooltips fr -Un clic droit permet de nombreuses oprationses 2Un chasquido derecho permite numerosas operacionesde 2Erlaubt ein gerades Klicken zahlreiche Operationenen $A right click allows many operationspt -Um clique direito permite numerosas operaesit ,Un clic diritto permette numerose operazioni Tabs i cREVGeneral revUniqueID 1225888586341 bookmarks handlerList tempScript prevHandler script Tabs } on menuPick pItem local tText,tStartLine,tEndLine,tFlag,tDate,tDisclaimer ----- if pItem = "Presentation" then -- this code adds or suppresses information about purchase according to ListMagic status on current computer put the htmlText of fld "Info" of cd pItem into tText put lineOffset("ListMagic provides a full automatized",tText) into tStartLine if tStartLine <> 0 then put lineOffset("Just click on the Buy ListMagic!",tText) into tEndLine delete line tStartLine - 1 to tEndLine + 1 of tText end if if CheckForRegistration() then -- lib disable btn "Buy" of cd pItem else put true into tFlag put the date into tDate convert tDate from short date to seconds if tDate < 1231628400 then put the uSpecialOfferDisclaimer of cd pItem into tDisclaimer else put the uDisclaimer of cd pItem into tDisclaimer put tDisclaimer into line lineOffset("ListMagic has been deeply",tText) - 1 of tText enable btn "Buy" of cd pItem end if set the htmlText of fld "Info" of cd pItem to tText end if go cd pItem end menuPick 4Action Presentation Installation Syntax FAQ History cREVGeneral scriptChecksum {R8 handlerList menuPickscriptSelection char 56 to 55scripteditorvscroll 0 bookmarks revUniqueID 1225888508944scripteditorselection 0 prevHandler menuPick tempScript script SSS.png Hon mouseUp launch url "http://www.sosmartsoftware.com/" end mouseUp P " -PNG IHDR " . pHYs .# .#x?v 9iCCPPhotoshop ICC profile xڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{. $O ./ 'z8WGб x 0Y驾A@$/7z HeOOҬT _lN:K"N3"$F/JPrb[䥟}Qd [Sl1x{#bG\NoX3I[ql2 $ 8xtr p/8 pCfq.Knjm͠{r28?.)ɩL^6 g,qm"[Z[Z~Q7%" 3R `̊j[~ : w! $E}kyhyRm333 : }=#vʉe tqX)I)B>== <8Xȉ9on mouseUp
launch url "http://www.sosmartsoftware.com/"
end mouseUp
LMPopUp ūu on menuPick pItem local tWidget,tColumn,tHilitedLines,tData,tColumnsNum,tOutPut,tFlag ----- put the uCurWidget of me into tWidget switch the uCurCall of me -- custom property allowing to know from where the menu was called case "Header" switch lineOffset(pItem,me) case 1 put the cSSSHeader["uCurHeader"] of tWidget into tColumn if the cSSSHeader["uNumLines"] of tWidget then subtract 1 from tColumn LMAdjustColumn "Auto",tColumn,tWidget -- lib break case 2 LMAdjustColumn ,,tWidget -- lib break case 4 if the number of lines of me > 4 then LMSetCheckedBoxes "all", true,tWidget -- lib else LMShowFilters tWidget -- lib end if break case 5 LMSetCheckedBoxes "all", false,tWidget -- lib break case 6 LMSetCheckedBoxes "all","Toggle",tWidget -- lib break case 8 LMShowFilters tWidget -- lib end switch break case "List" switch lineOffset(pItem,me) case 1 put LMExtractLines(LMGetHilitedLines(tWidget),tWidget) into tData -- lib put the cSSSHeader["uHeaderColumsNum"] of tWidget into tColumnsNum put CheckForRegistration() into tFlag -- lib -- if tFlag then put if tColumnsNum is an integer then set the itemdel to tab repeat for each line tLine in tData if tFlag then else put item 1 to tColumnsNum of tLine & cr after tOutPut end repeat delete last char of tOutPut set the clipboardData["text"] to tOutPut else set the clipboardData["text"] to tData end if break case 2 if the number of items of the hilitedLines of tWidget = the number of lines of fld (the short name of tWidget) then LMSetHilitedLines ,tWidget -- lib else repeat with i = 1 to the number of lines of fld (the short name of tWidget) put i & comma after tHilitedLines end repeat LMSetHilitedLines tHilitedLines,tWidget -- lib end if break default LMChangeLine lineOffset(pItem,me),the long ID of the mouseControl -- lib end switch end switch end menuPick f uCurCall List uCurWidget afield id 1006 of card id 1002 of stack "/Users/eric/Documents/Revolution/ListMagic/ListMagic.rev"s }Copier la slection Tout slectionner - Insrer une ligne avant Insrer une ligne aprs - Supprimer les lignes slectionnes cREVGeneral scriptChecksum wPi#F2Tg=u breakPoints handlerList menuPick AdjustColumnscriptSelection char 1034 to 1033scripteditorvscroll 206 bookmarks revUniqueID 1225990147442scripteditorselection 1273 prevHandler menuPick tempScript script PVon menuPick pItem
local tFldName,tText,tNumOfColumns
-----
lock screen
put the cSSSHeader["uListField"] of this cd into tFldName
put the text of fld tFldName into tText
create invisible fld "SSSFormat"
-----
switch lineOffset(pItem,me)
case 1
AdjustColumn tFldName,tText,the cSSSHeader["uCurHeader"] of this cd --
break
case 2
put the cSSSHeader["uHeaderColumsNum"] of this cd into tNumOfColumns
if not the cSSSHeader["uNumLines"] of this cd then subtract 1 from tNumOfColumns
repeat with i = 1 to tNumOfColumns
AdjustColumn tFldName,tText,i --
end repeat
if the cSSSHeader["uNumLines"] of this cd then
set the left fld "Boxes" to the left of fld tFldName + item 1 of the tabStops of fld tFldName + 8
set the left btn "SSSSelectAll" to the left of fld tFldName + item 1 of the tabStops of fld tFldName + 4
else
set the left fld "Boxes" to the left of fld tFldName + 8
set the left btn "SSSSelectAll" to the left of fld tFldName + 4
end if
break
default
end switch
unlock screen
if there is a fld "SSSFormat" then delete fld "SSSFormat"
end menuPick
----------------------------------
on AdjustColumn pFldName,pText,pColumn
local tLine,tList,tNextWidth,tTabstops,tCurWidth,tNumOfColumns,tRect
-----
set the itemDel to tab
repeat for each line tLine in pText
put item pColumn of tLine & cr after tList
end repeat
set the text of fld "SSSFormat" to tList
put the formattedWidth of fld "SSSFormat" + 5 into tNextWidth
put the tabstops of fld pFldName into tTabstops
set the itemDel to comma
put item pColumn of tTabstops - item (pColumn - 1) of tTabstops into tCurWidth
put the cSSSHeader["uHeaderColumsNum"] of this cd into tNumOfColumns
if the cSSSHeader["uNumLines"] of this cd then add 1 to tNumOfColumns
if tNextWidth > tCurWidth then
repeat with i = pColumn to tNumOfColumns
add tNextWidth - tCurWidth to item i of tTabstops
end repeat
else
repeat with i = pColumn to tNumOfColumns
subtract tCurWidth - tNextWidth from item i of tTabstops
end repeat
end if
set the tabstops of fld pFldName to tTabstops
-----
put RealTabStops(tTabstops,tNumOfColumns) into tTabstops -- S
repeat with i = pColumn to the number of items of tTabstops
put the rect of btn ("Header" & i) of grp pFldName into tRect
put item 1 of tRect + item i of tTabstops into item 3 of tRect
set the rect of btn ("Header" & i) of grp pFldName to tRect
if i = 1 then
set the left of btn ("Header" & i) of grp pFldName to the left of grp pFldName
else
set the left of btn ("Header" & i) of grp pFldName to the right of btn ("Header" & (i-1)) of grp pFldName
end if
if item 3 of tRect >= the right of fld pFldName then
set the right of btn ("Arrow" & i) of grp pFldName to the right of fld pFldName
else
set the right of btn ("Arrow" & i) of grp pFldName to the right of btn ("Header" & i) of grp pFldName
end if
end repeat
end AdjustColumn
*B Tests uon menuPick local tRefList,tHeaders,tResult,tCurSort,tColumnNo,tDirection,tPrompt ----- switch the menuHistory of me case 1 -- User's raw list set the vGrid of fld "List" of stack "SSSLMFeedList" to true put LMExtractList(false) into tRefList -- lib put tRefList into fld "List" of stack "SSSLMFeedList" -- set the label of stack "SSSLMFeedList" to "User's Raw list (what the user may see)" put "Modify these simple tab/tab/return data and see how they are automatically installed in the widget when clicking on the Display these data button.
" \ & "First line indicates headers labels.
" into tPrompt set the label of btn "Apply" of stack "SSSLMFeedList" to "Display these data" show btn "Apply" of stack "SSSLMFeedList" break case 2 -- Complete raw list (includes hidden data) set the vGrid of fld "List" of stack "SSSLMFeedList" to true put LMExtractList(true) into tRefList -- lib put tRefList into fld "List" of stack "SSSLMFeedList" -- if the cSSSHeader["uHeaderColumsNum"] of fld "ALaiTunes" = "Auto" then set the label of stack "SSSLMFeedList" to "Raw list (as there is a hscrollbar there are no possible hidden data)" else set the label of stack "SSSLMFeedList" to "User's Raw list (what the user may see)" put "Modify these simple tab/tab/return data and see how they are automatically installed in the widget when clicking on the Display these data button.
" \ & "First line indicates headers labels.
" into tPrompt set the label of btn "Apply" of stack "SSSLMFeedList" to "Display these data" show btn "Apply" of stack "SSSLMFeedList" break case 3 -- lines with a checked box put LMGetCheckedBoxes() into tResult -- if "error" is in tResult then put "No check boxes columns in current settings." & cr & "Check 'Check box column' box first." into fld "List" of stack "SSSLMFeedList" else if tResult = empty then put "None" into fld "List" of stack "SSSLMFeedList" else put tResult into fld "List" of stack "SSSLMFeedList" end if set the label of btn "Apply" of stack "SSSLMFeedList" to "Apply" show btn "Apply" of stack "SSSLMFeedList" set the vGrid of fld "List" of stack "SSSLMFeedList" to false set the label of stack "SSSLMFeedList" to "Checked lines (lines with a checked box)" break case 4 -- highlighted lines put LMGetHilitedLines() into tResult -- if tResult = empty then put "None" into fld "List" of stack "SSSLMFeedList" else put tResult into fld "List" of stack "SSSLMFeedList" set the vGrid of fld "List" of stack "SSSLMFeedList" to false if the cSSSHeader["uSelectType"] of fld "ALaiTunes" = 1 then set the label of stack "SSSLMFeedList" to "Highlihted lines (one line only)" else set the label of stack "SSSLMFeedList" to "Highlihted lines (multiples lines)" end if set the label of btn "Apply" of stack "SSSLMFeedList" to "Apply" show btn "Apply" of stack "SSSLMFeedList" break case 5 put LMGetCurSort() into tCurSort if tCurSort = empty then put "None" into fld "List" of stack "SSSLMFeedList" else put "Column number:" && item 1 of tCurSort & cr & "Header tab label:" && item 2 of tCurSort & cr & "Direction:" && item 3 of tCurSort into fld "List" of stack "SSSLMFeedList" set the vGrid of fld "List" of stack "SSSLMFeedList" to false set the label of stack "SSSLMFeedList" to "Current list sort" hide btn "Apply" of stack "SSSLMFeedList" end switch modeless stack "SSSLMFeedList" set the defaultstack to "SSSLMFeedList" if tPrompt <> empty then answer info tPrompt as sheet end menuPick B9 Current sort OUser's raw list Complete raw list Checked boxes Highlighted lines Current sort cREVGeneral scriptChecksum \Yy Vqpl# breakPoints handlerList menuPickscriptSelection char 816 to 815 bookmarks revUniqueID 1226047070458scripteditorvscroll 436scripteditorselection 2269 prevHandler ExtractList tempScript script *O Label Field ># cREVTable currentview Retrieve and modify: cREVGeneral revUniqueID 1226048351501 Retrieve and modify: @ Arrow2.png PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,Xv$ϯ.?~~e'P#@ 11 @ ?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,? d +@ 021~K?@fӬ ~W XXY};w<||| ߿}Kw^W @ koǑ74;Gڷo_߿uLL7qe` &Fqϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVTempMaster palindromeFrames false traversalOn falseink srcCopy repeatCount 0size 639threeD true blendLevel 50rect -19,-17,-7,-6angle 0 fileName hotSpot 1,1name Arrow.pngcolors alwaysBuffer truetoolTip dontDither falselayer 19 borderWidth 2 cantSelect falsevisible trueopaque falseyHot 1id 1772altId 0 currentFrame 1 showBorder false disabled falsexHot 1 frameCount 0 constantMask falselockLoc falseshowFocusBorder true cControlPicker controlPickerPos 300,200 cREVGeneral bookmarks revUniqueID 1104075103241 handlerList prevHandler tempScript script JL Info 2 Q cREVGeneral revUniqueID 1226493549508 Label: Jj Rev3 Icons i ; D cREVGeneral revUniqueID 1226513980598 Je setprop-private.png K PNG IHDR Vu\ pHYs OiCCPPhotoshop ICC profile xڝSgTS=BKKoR RB&*! J!QEEȠQ, !{kּ> H3Q5 B .@ $p d!s# ~<<+" x M0 B\t8K @zB @F&S `cb P- `' { [! eD h; VE X0 fK9 - 0IWfH 0Q) { `##x FW<+* x<$9E[-qWW. (I+6aa@.y24 x6_-"bbϫp@ t~,/;m%h^ uf@ Wp~<99999 Trial Version Trial Version Trial Version Trial Version Trial
02 Allen Jimmy 100 Broadway street Baltimore 38781 968-7544-278 451 Inactive
03 Morgan Oliver 41 West street Las Vegas 99486 169-5976-968 447 Inactive
04 Smith Bryan 21 Lee street Tucson 91613 194-8382-252 634 Inactive
05 Cooper Kevin 26 College street Cleveland 81562 615-3117-191 650 Active
06 Williams Geoffrey 83 Lakeview street Louisville 31677 681-7798-324 685 Inactive
07 Davis Logan 81 Central street Oklahoma 39212 272-5166-877 990 Active
08 James Paul 86 Center street Portland 66536 136-5264-574 552 Active
09 Baker Vanessa 82 Birch street Washington 33499 247-8738-258 433 Inactive
10 Trial Version Trial Version Trial Version Trial Version Trial
11 Harris James 69 Smith street Indianapolis 28599 658-6799-758 697 Active
12 Moore Dave 42 Adams street San Jose 59668 487-7299-928 179 Inactive
13 Lewis Harold 51 Church street Fort Worth 68579 278-1981-384 729 Inactive
14 Martin Marvin 17 Lake street Memphis 59847 835-5356-155 326 Inactive
15 Anderson Luke 36 Pine street Los Angeles 86738 465-8596-327 114 Inactive
16 Morris David 50 East street Philadelphia 13498 113-8322-247 547 Inactive
17 Clarke Sandy 86 Wilson street Chicago 29685 282-2721-673 404 Inactive
18 Thompson Jennifer 18 Spring street Austin 21297 774-2651-145 227 Inactive
19 Green Karen 60 Hill street Phoenix 19397 416-3259-699 911 Inactive
20 Trial Version Trial Version Trial Version Trial Version Trial
21 Watson Edward 39 North street Mesa 81828 124-4778-284 989 Active
22 Jones Georgia 96 Cedar street San Diego 33652 139-1989-938 355 Active
23 Roberts William 2 Washington street El Paso 63533 454-4646-748 703 Active
24 Evans John 81 Ridge street New York 74217 397-8334-542 490 Active
25 Parker Elton 21 Elme street San Antonio 82917 212-1113-633 808 Active
26 Edwards Bill 90 South street Fresno 96531 165-5472-839 329 Active
27 Phillips Dorothy 2 Locust street Jacksonville 48418 842-8223-813 546 Active
28 Lee Ronald 95 Sunset street Denver 64632 562-4515-784 265 Active
29 Wilson Shirley 10 Taylor street Boston 11346 493-4438-492 588 Inactive
30 Trial Version Trial Version Trial Version Trial Version Trial
31 Turner Douglas 14 Hillcrest street Nashville 57864 438-2594-899 429 Inactive
32 Walker Gordon 17 Madison street Dallas 57794 613-4264-532 742 Active
33 Brown Peter 90 Oak street Albuquerque 79219 141-1335-686 232 Inactive
34 Scott Stephen 20 Highland street Houston 37185 248-2653-553 177 Inactive
35 Mitchell Joey 28 Mill street Charlotte 75861 255-2638-754 876 Inactive
36 Hall Ian 85 Green street Seattle 34461 882-7776-233 155 Active
37 Hughes Harry 84 Twelfth street San Francisco 19493 345-2916-715 768 Active
38 Robinson Donald 72 Main street Atlanta 93593 214-9546-394 642 Inactive
39 Taylor Heather 68 Franklin street Detroit 88723 512-5686-681 655 Active
40 Trial Version Trial Version Trial Version Trial Version Trial
41 Wright Gary 15 Sycamore street Kansas City 77263 788-2546-251 542 Active
42 Bell Irwin 61 Jefferson street Milwaukee 47423 545-9367-869 997 Inactive
43 Johnson Walter 45 Park street Long Beach 55165 523-9985-779 156 Active
44 Jackson Dustin 87 View street Columbus 15936 935-7265-122 628 Active
45 Wood Edwin 25 Maple street Sacramento 17595 257-3159-952 621 Inactive
46
47
48
49
50 Trial Version Trial Version Trial Version Trial Version Trial
local sCurChar,sCurCharChunk,sClickedLineNo,sHoveredLine
---------------------------------------------
on mouseDown pButton
local tLastLineNo,tHilitedLines,tScroll,tItemNo
-----
put sClickedLineNo into tLastLineNo
put ClickedLineNo() into sClickedLineNo --
if line sClickedLineNo of me = empty then exit mouseDown
if the vScrollbar of me and the mouseH >= (the right of me - the scrollBarWidth of me) then exit mouseDown
-----
put the mouseChar into sCurChar
put the mouseCharChunk into sCurCharChunk
if pButton = 3 then
SSSRightClick the long ID of me,sClickedLineNo-- S
else
put the hilitedLines of me into tHilitedLines
lock screen
if sCurChar <> the cSSSHeader["uCheckBoxesReplaceChar"] of me then
switch the cSSSHeader["uSelectType"] of me
case 1
set the hilitedLines of me to sClickedLineNo
break
case 2
if the shiftKey is down then
set the hilitedLines of me to AllLines(sClickedLineNo,tLastLineNo) --
else
set the hilitedLines of me to sClickedLineNo
end if
break
case 3
if the shiftKey is down then
set the hilitedLines of me to the hilitedLines of me & comma & AllLines(sClickedLineNo,tLastLineNo) --
else if the commandKey is down then
set the hilitedLines of me to the hilitedLines of me & comma & sClickedLineNo
else
set the hilitedLines of me to sClickedLineNo
end if
break
end switch
if the hilitedLines of me <> tHilitedLines then
SSSSelectionChanged the long ID of me,the hilitedLines of me -- C
end if
else
put the vScroll of me into tScroll
if the imageSource of sCurCharChunk = the ID of img "Case" then
set the imageSource of sCurCharChunk to the ID of img "Case+"
else
set the imageSource of sCurCharChunk to the ID of img "CaseChecked+"
end if
set the hilitedLines of me to tHilitedLines
set the vScroll of me to tScroll
end if
SSSSetHilitedLinesColor -- S
unlock screen
end if
end mouseDown
---------------------------------------------
on mouseUp
local tStatus
-----
if line sClickedLineNo of me = empty then exit mouseUp
if sCurChar = the cSSSHeader["uCheckBoxesReplaceChar"] of me then
lock screen
if the mouseChar = sCurChar then -- mouseUp taken into account
if the imageSource of sCurCharChunk = the ID of img "Case+" then
set the imageSource of sCurCharChunk to the ID of img "CaseChecked"
put true into tStatus
else
set the imageSource of sCurCharChunk to the ID of img "Case"
put false into tStatus
end if
SSSCheckBoxChanged the long ID of me,sClickedLineNo,tStatus -- S
else -- fakes a mouseRelease
if the imageSource of sCurCharChunk = the ID of img "Case+" then
set the imageSource of sCurCharChunk to the ID of img "Case"
else
set the imageSource of sCurCharChunk to the ID of img "CaseChecked"
end if
end if
unlock screen
end if
end mouseUp
---------------------------------------------
on mouseDoubleUp
SSSMouseDoubleUp the long ID of me,sClickedLineNo -- S
end mouseDoubleUp
---------------------------------------------
on mouseMove
local tHilitedLines,tHoveredLine
-----
if the vScrollbar of me and the mouseH >= (the right of me - the scrollBarWidth of me) then exit mouseMove
if the mouse is down and the cSSSHeader["uSelectType"] of me is in "2,3" and the mouseChar <> the cSSSHeader["uCheckBoxesReplaceChar"] of me then
put the hilitedLines of me into tHilitedLines
if word 2 of the mouseline is not among the items of tHilitedLines then
put comma & word 2 of the mouseline after tHilitedLines
set the hilitedLines of me to tHilitedLines
SSSSelectionChanged the long ID of me,the hilitedLines of me -- S
end if
end if
if the hiliteColor of me = the cSSSHeader["uHighlightColor"] of me then
SSSSetHilitedLinesColor -- S
end if
-----
put HoveredLineNo() into tHoveredLine --
if tHoveredLine <> sHoveredLine then
put tHoveredLine into sHoveredLine
SSSLineHovered the long ID of me,sHoveredLine --
end if
end mouseMove
---------------------------------------------
on resizeControl
UpdateHeader --
end resizeControl
---------------------------------------------
on moveControl
UpdateHeader --
end moveControl
---------------------------------------------
private command UpdateHeader
lock messages
set the cSSSHeader["uRightDelta"] of me to the right of this cd - the right of me
set the cSSSHeader["uBottomDelta"] of me to the bottom of this cd - the bottom of me
SSSCreateHeader -- S
end UpdateHeader
---------------------------------------------
function AllLines pLineNo1,pLineNo2
local tLines
-----
if pLineNo1 < pLineNo2 then
repeat with i = pLineNo1 to pLineNo2
put i & comma after tLines
end repeat
else
repeat with i = pLineNo2 to pLineNo1
put i & comma after tLines
end repeat
end if
delete last char of tLines
return tLines
end AllLines
---------------------------------------------
on scrollbarDrag pPos
local tWidget,tRect,tLastVisibleTab,tNum
-----
if the mouseV > the bottom of me - the scrollbarWIdth of me then
lock screen
set the hscroll of grp (the short name of me) to pPos
put the long ID of grp (the short name of me) into tWidget
put SSSLastVisibleTab() into tLastVisibleTab --
repeat with i = 1 to the number of btns of tWidget
put char 7 to -1 of the short name of btn i of tWidget into tNum
if "Header" is in the short name of btn i of tWidget and tNum <> tLastVisibleTab then
set the right of btn ("HArrow" & tNum) of tWidget to the right of btn ("Header" & tNum) of tWidget
else
set the right of btn ("HArrow" & tLastVisibleTab) of tWidget to the right of tWidget
end if
end repeat
unlock screen
end if
end scrollbarDrag
---------------------------------------------
on arrowKey pDirection
local tLineNo
-----
if pDirection is among the items of "left,right" then pass arrowkey
put item 1 of the hilitedlines of me into tLineNo
-----
switch pDirection
case "down"
put min(the number of lines of the text of me, tLineNo + 1) into tLineNo
break
case "up"
put max(1, tLineNo - 1) into tLineNo
break
end switch
-----
lock screen
set the hilitedlines of me to tLineNo
SSSSetHilitedLinesColor -- S
unlock screen
end arrowKey
---------------------------------------------
function ClickedLineNo
local tVpos
-----
put item 2 of the clickLoc - the top of me into tVpos
return (tVpos - the topMargin of me + the vScroll of me) div the effective textHeight of me + 1
end ClickedLineNo
---------------------------------------------
function HoveredLineNo
local tVpos
-----
put item 2 of the mouseLoc - the top of me into tVpos
return (tVpos - the topMargin of me + the vScroll of me) div the effective textHeight of me + 1
end HoveredLineNo
------------------------------------
setProp cSSSHeader[pProp] pValue
local tHilitedLines,tHeader,tCurList,tTabStops,tNum,tNumOfColumns
-- this setProp handler triggers all ways to set any property in SSSCreateHeader: by script, the msg of in Rev properties inspector
-- note that it checks a new value before setting it
-----
-- if there is no tWidget then
-- _SSSAnswerError "You have to display a card with a widget first to change any of its properties."
-- end if
lock screen
put the hilitedLines of me into tHilitedLines
-----
switch pProp
case "uWidgetName"
if there is a fld pValue of this cd and the short name of me <> pValue then _SSSAnswerError "There is already a field" && quote & pValue & quote && "in the current card.",pProp --
else
set the name of me to pValue
set the name of grp (the short name of me) to pValue
put the long ID of me into pValue
pass cSSSHeader
end if
break
-----
case "uCurHeaderLabels"
_SSSAnswerError pProp && "is used internally and can't be set.",pProp --
break
-----
case "uDefaultHeaderLabels"
repeat with i = 1 to _RealColumnsNum() --
if the cSSSHeader["uNumLines"] of me then put line (i - 1) of pValue into tHeader
else put line i of pValue into tHeader
if tHeader = empty then put space into tHeader
set the label of btn ("Header" & i) of grp (the short name of me) to tHeader
end repeat
pass cSSSHeader
break
-----
case "uCurHeader"
case "uRightDelta"
case "uBottomDelta"
_SSSAnswerError pProp && "is used internally and can't be set.",pProp --
break
-----
case "uDefaultTabStop"
put word 1 of pValue into pValue
if not (pValue is an integer or pValue = "Auto") then
_SSSAnswerError pProp && "value must be an integer (a number of pixels) or 'Auto'.",pProp --
else
lock messages
set the cSSSHeader["uDefaultTabStop"] of me to pValue
SSSCreateHeader --
end if
break
-----
case "uCurSort"
_SSSAnswerError pProp && "can be read but can't be set.",pProp --
-----
break
case "uSelectType"
if pValue is not in "123" then
_SSSAnswerError "uSelectType value must be:" & cr & cr & "1 for selecting one line only." & cr & "2 for selecting multiple lines." & cr & "3 for selecting non contiguous lines.",pProp --
else
set the hilitedLines of me to item 1 of the hilitedLines of me
SSSSetHilitedLinesColor --
pass cSSSHeader
end if
break
-----
case "uResizeType"
if pValue is not in "0123" then
_SSSAnswerError "uSelectType value must be:" & cr & cr & "0 for no resizing." & cr & "1 for vertical resizing." & cr & "2 for horizontal resizing." & cr & "3 for vertical and horizontal resizing.",pProp --
else
lock messages
set the cSSSHeader["uResizeType"] of me to pValue
send "resizeStack" to this cd
end if
break
-----
case "uCheckBox"
case "uNumLines"
if pValue is not a boolean then
_SSSAnswerError pProp && "value must be a Boolean (true or false).",pProp --
else
put SSSExtractList() into tCurList --
lock messages
if pProp = "uCheckBox" then set the cSSSHeader["uCheckBox"] of me to pValue
else set the cSSSHeader["uNumLines"] of me to pValue
SSSPopulate tCurList --
end if
break
-----
case "uHeaderColumsNum"
if not (pValue is an integer or pValue = "Auto") then
_SSSAnswerError pProp && "value must be an integer between one (min) and ten (max) or 'Auto'.",pProp --
else
put the tabstops of me into tTabStops
if pValue is an integer then put item 1 to pValue of tTabStops into tTabStops
else
set the itemDel to tab
put the number of items of line 1 of me into tNum
if the the cSSSHeader["uNumLines"] of me then subtract 1 from tNum
set the itemdel to comma
put item 1 to tNum of tTabStops into tTabStops
put tNum into pValue
end if
repeat with i = 1 to the number of items of tTabStops
if item i tTabStops > 200 then put 100 into item i of tTabStops
end repeat
put (sum(item 1 to (pValue - 1) of tTabStops)) + 2000 into item pValue of tTabStops
repeat with i = 1 to the number of items of tTabStops
if item i tTabStops = empty then put 100 into item i of tTabStops
end repeat
set the tabstops of me to tTabStops
lock messages
set the cSSSHeader["uHeaderColumsNum"] of me to pValue
SSSCreateHeader --
end if
break
-----
case "uFont"
if pValue is not among the lines of the fontNames then
_SSSAnswerError pValue & ": unknown font name.",pProp --
else
set the textFont of me to pValue
set the textFont of grp (the short name of me) to pValue
repeat with i = 1 to (the number of btns of grp (the short name of me) / 2)
set the uAdjust of btn ("Header" & i) of grp (the short name of me) to false
end repeat
pass cSSSHeader
end if
break
-----
case "uColumnsDandD"
if pValue is not a boolean then
_SSSAnswerError pProp && "value must be a Boolean (true or false).",pProp --
else
pass cSSSHeader
end if
break
-----
case "uFontSize"
if pValue is not an integer then
_SSSAnswerError pProp && "value must be an integer.",pProp --
else
set the textSize of me to pValue
set the textSize of grp (the short name of me) to min (13,pValue)
CreateFieldAlternatingColors the long ID of img "Back Pattern",the cSSSHeader["uStripsColor"] of me,"255,255,255",the textHeight of me,10,2 -- C
set the backPattern of me to the ID of img "Back Pattern"
repeat with i = 1 to (the number of btns of grp (the short name of me) / 2)
set the uAdjust of btn ("Header" & i) of grp (the short name of me) to false
end repeat
-- set the cSSSHeader["uTextHeight"] of me to the cSSSHeader["uTextHeight"] of me
switch the cSSSHeader["uTextHeight"] of me
case 1
set the fixedLineHeight of me to false
case 2
set the fixedLineHeight of me to true
set the textHeight of me to 16
end switch
pass cSSSHeader
end if
break
------
case "uTextHeight"
if pValue is not an integer then
_SSSAnswerError pProp && "value must be an integer.",pProp --
else
if pValue = 2 then
set the fixedLineHeight of me to true
set the textHeight of me to 16
else
set the fixedLineHeight of me to false
end if
CreateFieldAlternatingColors the long ID of img "Back Pattern",the cSSSHeader["uStripsColor"] of me,"255,255,255",the effective textHeight of me,10,2 -- C
set the backPattern of me to the ID of img "Back Pattern"
pass cSSSHeader
end if
break
-----
case "uCheckBoxesReplaceChar"
if the number of chars of pValue <> 1 then _SSSAnswerError pProp && "value must be a single char.",pProp --
else
lock messages
set the cSSSHeader["uCheckBoxesReplaceChar"] of me to pValue
SSSCreateHeader --
end if
break
-----
case "uHighlightColor"
if not _RightColorNotation(pValue) then _SSSAnswerError pProp && "value must be a valid RGB triplet like 255,255,255 (white).",pProp --
else
set the hiliteColor of me to pValue
pass cSSSHeader
end if
break
-----
case "uHighlightedTextColor"
if not _RightColorNotation(pValue) then _SSSAnswerError pProp && "value must be a valid RGB triplet like 255,255,255 (white).",pProp --
else
lock messages
set the cSSSHeader["uHighlightedTextColor"] of me to pValue
SSSSetHilitedLinesColor --
end if
break
-----
case "uStripsColor"
if not _RightColorNotation(pValue) then _SSSAnswerError pProp && "value must be a valid RGB triplet like 255,255,255 (white).",pProp --
else
CreateFieldAlternatingColors the long ID of img "Back Pattern",pValue,"255,255,255",the textHeight of me,10,2 -- C
set the backPattern of me to the ID of img "Back Pattern"
pass cSSSHeader
end if
break
end switch
set the hilitedLines of me to tHilitedLines
SSSSetHilitedLinesColor --
unlock screen
end cSSSHeader
------------------------------------
private function _RightColorNotation pValue
if the number of items of pValue <> 3 then return false
repeat for each item tValue in pValue
if tValue is not an integer then return false
if tValue > 255 then return false
end repeat
return true
end _RightColorNotation
prevHandler mouseDownscript cSSSMenus fr Copier la slection Tout slectionner,Tout dslectionner Insrer une ligne avant Insrer une ligne aprs Supprimer la ligne slectionne,Supprimer les lignes slectionnes tes-vous sr de vouloir supprimer cette ligne ? tes-vous sr de vouloir supprimer ces lignes ? Supprimer Annuleres 5Copiar la seleccin Seleccionarlo todo,Deseleccionarlo todo Insertar una lnea delantera Insertar una lnea despus de Suprimir la lnea seleccionada,Suprimir las lneas seleccionadas Est seguro que quiere borrar la lnea seleccionada? Est seguro que quiere borrar las lneas seleccionadas? Borrar Cancelarde Auswahl kopieren Alles auszuwhlen,Alles aufzuwhlen Zeile davor einfgen Zeile danach einfgen Ausgewhlte Linie abschaffen,Ausgewhlte Zeilen lschen Sind Sie sicher, diese Linie abschaffen zu wollen? Sind Sie sicher, diese Linien abschaffen zu wollen? Abschaffen Annullierenen Copy the selection Select all,Deselect all Insert line before Insert line after Delete selected line,Delete selected lines Are you sure you want to delete this line? Are you sure you want to delete these lines? Delete Cancelpt Copiar a seleco Seleccion-lo todo,Deseleccion-lo todo Inserir uma linha ante Inserir uma linha aps Suprimir a linha seleccionada,Suprimir as linhas seleccionadas So certos querer suprimir esta linha? So certos querer suprimir estas linhas? Suprimir Anularit Copiare la selezione Tutto scegliere,Tutto descegliere Inserire una linea anteriore Inserire una linea dopo Eliminare la linea scelta,Eliminare le linee scelte Siete sicuri di volere eliminare questa linea? Siete sicuri di volere eliminare queste linee? Eliminare Annullare cSSSTooltips es Cuando se selecciona una lnea, un chasquido izquierdo sobre el edicin item permite su y un chasquido derecho permite numerosas operacionesfr Quand une ligne est slectionne, un clic gauche sur un item permet son dition et un clic droit permet de nombreuses oprationsde Wenn eine Linie ausgewhlt wird, erlaubt ein linkes Klicken auf einem Item seine Ausgabe, und ein gerades Klicken erlaubt zahlreiche Operationenen fWhen a line is selected, a left click allows editing any item and a right click allows many operationspt Quando uma linha seleccionada, um clique esquerdo sobre edio item permite a sua e um clique direito permite numerosas operaesit |Quando una linea scelta, un clic sinistro su item permette la sua edizione ed un clic diritto permette numerose operazioni E01 | Trial Version Trial Version Trial Version Trial Version Trial @ 60001 @ Q02 | Allen Jimmy 100 Broadway street Baltimore 38781 968-7544-278 451 Inactive @ 60001 L N03 | Morgan Oliver 41 West street Las Vegas 99486 169-5976-968 447 Inactive @ 60001 I H04 | Smith Bryan 21 Lee street Tucson 91613 194-8382-252 634 Inactive @ 60001 C N05 | Cooper Kevin 26 College street Cleveland 81562 615-3117-191 650 Active @ 60001 I W06 | Williams Geoffrey 83 Lakeview street Louisville 31677 681-7798-324 685 Inactive @ 60001 R L07 | Davis Logan 81 Central street Oklahoma 39212 272-5166-877 990 Active @ 60001 G J08 | James Paul 86 Center street Portland 66536 136-5264-574 552 Active @ 60001 E P09 | Baker Vanessa 82 Birch street Washington 33499 247-8738-258 433 Inactive @ 60001 K E10 | Trial Version Trial Version Trial Version Trial Version Trial @ 60001 @ O11 | Harris James 69 Smith street Indianapolis 28599 658-6799-758 697 Active @ 60001 J K12 | Moore Dave 42 Adams street San Jose 59668 487-7299-928 179 Inactive @ 60001 F P13 | Lewis Harold 51 Church street Fort Worth 68579 278-1981-384 729 Inactive @ 60001 K L14 | Martin Marvin 17 Lake street Memphis 59847 835-5356-155 326 Inactive @ 60001 G P15 | Anderson Luke 36 Pine street Los Angeles 86738 465-8596-327 114 Inactive @ 60001 K P16 | Morris David 50 East street Philadelphia 13498 113-8322-247 547 Inactive @ 60001 K M17 | Clarke Sandy 86 Wilson street Chicago 29685 282-2721-673 404 Inactive @ 60001 H Q18 | Thompson Jennifer 18 Spring street Austin 21297 774-2651-145 227 Inactive @ 60001 L J19 | Green Karen 60 Hill street Phoenix 19397 416-3259-699 911 Inactive @ 60001 E E20 | Trial Version Trial Version Trial Version Trial Version Trial @ 60001 @ H21 | Watson Edward 39 North street Mesa 81828 124-4778-284 989 Active @ 60001 C M22 | Jones Georgia 96 Cedar street San Diego 33652 139-1989-938 355 Active @ 60001 H Q23 | Roberts William 2 Washington street El Paso 63533 454-4646-748 703 Active @ 60001 L I24 | Evans John 81 Ridge street New York 74217 397-8334-542 490 Active @ 60001 D M25 | Parker Elton 21 Elme street San Antonio 82917 212-1113-633 808 Active @ 60001 H I26 | Edwards Bill 90 South street Fresno 96531 165-5472-839 329 Active @ 60001 D S27 | Phillips Dorothy 2 Locust street Jacksonville 48418 842-8223-813 546 Active @ 60001 N H28 | Lee Ronald 95 Sunset street Denver 64632 562-4515-784 265 Active @ 60001 C N29 | Wilson Shirley 10 Taylor street Boston 11346 493-4438-492 588 Inactive @ 60001 I E30 | Trial Version Trial Version Trial Version Trial Version Trial @ 60001 @ T31 | Turner Douglas 14 Hillcrest street Nashville 57864 438-2594-899 429 Inactive @ 60001 O L32 | Walker Gordon 17 Madison street Dallas 57794 613-4264-532 742 Active @ 60001 G M33 | Brown Peter 90 Oak street Albuquerque 79219 141-1335-686 232 Inactive @ 60001 H P34 | Scott Stephen 20 Highland street Houston 37185 248-2653-553 177 Inactive @ 60001 K N35 | Mitchell Joey 28 Mill street Charlotte 75861 255-2638-754 876 Inactive @ 60001 I F36 | Hall Ian 85 Green street Seattle 34461 882-7776-233 155 Active @ 60001 A R37 | Hughes Harry 84 Twelfth street San Francisco 19493 345-2916-715 768 Active @ 60001 M N38 | Robinson Donald 72 Main street Atlanta 93593 214-9546-394 642 Inactive @ 60001 I O39 | Taylor Heather 68 Franklin street Detroit 88723 512-5686-681 655 Active @ 60001 J E40 | Trial Version Trial Version Trial Version Trial Version Trial @ 60001 @ P41 | Wright Gary 15 Sycamore street Kansas City 77263 788-2546-251 542 Active @ 60001 K P42 | Bell Irwin 61 Jefferson street Milwaukee 47423 545-9367-869 997 Inactive @ 60001 K N43 | Johnson Walter 45 Park street Long Beach 55165 523-9985-779 156 Active @ 60001 I L44 | Jackson Dustin 87 View street Columbus 15936 935-7265-122 628 Active @ 60001 G M45 | Wood Edwin 25 Maple street Sacramento 17595 257-3159-952 621 Inactive @ 60001 H p! ` I # Label Field > D cREVTable currentview NFor more information display tooltips and see Installation pane documentation. cREVGeneral revUniqueID 1227353245010 OFor more information display tooltips and see Installation pane documentation. Prompt Won mouseEnter put the tooltip of me && "are displayed here" into me end mouseEnter u Messages sent by the widget y cREVGeneral revUniqueID 1227524787457scripteditorvscroll 0scripteditorselection 63 Print i - a cREVGeneral revUniqueID 1227779257042 ` Print ex on mouseUp set the printPaperOrientation to "landscape" revPrintText the htmlText of fld "Info",,,the long id of fld "Info" end mouseUp --------------------------- on mouseEnter switch the menuHistory of btn "Tabs" case 2 set the tooltip of me to "Presentation section: 4 pages" break case 3 set the tooltip of me to "Intallation section: 19 pages" break case 4 set the tooltip of me to "Syntax section: 34 pages" break case 5 set the tooltip of me to "FAQ section: 9 pages" break case 6 set the tooltip of me to "History section: 3 pages" break default set the tooltip of me to empty end switch end mouseEnter R History section: 3 pages Print... cREVGeneral scriptChecksum ] 5Xt+( handlerList mouseUpscriptSelection char 91 to 90scripteditorvscroll 0 revUniqueID 1226736735445 bookmarks scripteditorselection 472 tempScript prevHandler mouseUpscripton mouseUp
revPrintField the name of field (the hilitedText of btn tabs)
end mouseUp
w Search ex local sSearchString,sFoundChunk ---------------------------------- on mouseUp local tResult ----- if IsMC() then ask info "Search ListMagic docs for:" & cr & cr & "If you want to search a specific section, display this section before calling this dialog." with sSearchString as sheet else ask info "Search ListMagic docs for:
If you want to search a specific section, display this section before calling this dialog.
" with sSearchString as sheet put it into tResult ----- if tResult = empty or the result = "Cancel" then put empty into sSearchString exit mouseUp else find tResult in fld "Info" if the result <> empty then beep else put tResult into sSearchString put the foundChunk into sFoundChunk set the backColor of the foundChunk to "yellow" find empty unlock screen send "Deselect" to me in 100 milliseconds end if end if end mouseUp --------------------------- on Deselect lock screen do "set the backColor of" && sFoundChunk && "to empty" unlock screen with visual "dissolve very slow" end Deselect 1 R .Click here to find anything in ListMagic docs Search... cREVGeneral scriptChecksum ] 5Xt+( handlerList mouseUpscriptSelection char 91 to 90 bookmarks revUniqueID 1228933621556scripteditorvscroll 0scripteditorselection 264 prevHandler mouseUp tempScript scripton mouseUp
revPrintField the name of field (the hilitedText of btn tabs)
end mouseUp
Actions u5on menuPick local tWidget,tWidgets,tButtons,tPrompt,tAnswer,tResult ----- put the CSSSHeader["uLMWidgets"] of this cd into tWidgets if the number of lines of tWidgets > 1 then repeat with i = 1 to the number of lines of tWidgets put quote & line i of tWidgets & quote && "or" & space after tButtons end repeat put "Cancel" after tButtons get empty put "On which widget do you want to act:
" into tPrompt do "answer info tPrompt with" && tButtons && "as sheet" if it = "Cancel" then exit menuPick else put the long ID of fld it into tWidget else put the long ID of fld tWidgets into tWidget end if ----- switch the menuHistory of me case 1 LMFindNext -- lib break case 2 LMPrint ,tWidget -- lib break case 3 put LMExport(,,,tWidget) into tResult -- lib if tResult <> "cancel" then answer info "Data have been saved in" && tResult & "." as sheet send "resumeStack" to me -- end if break case 5 if the short name of this stack = "ListMagic" then if the platform = "MacOS" then LMPopulate isoToMac(the uRefList of cd "Action"),tWidget -- else LMPopulate the uRefList of cd "Action",tWidget -- send "SetLastClickedLineNo" to tWidget else answer error "you have to modify the script of this menu button when you copy paste it in another stack than ListMagic.
" end if end switch end menuPick L WThe widget provides ways to find data, print or export to a file current data: try it! Actions 2Find... Print... Export to file... - Refresh list cREVGeneral scripteditorvscroll 78 revUniqueID 1227883658454scripteditorselection 1333 Q Install epon mouseUp local tCardLongName,tCurWidgets,tPrompt,tMenu ----- if the mode of this stack < 3 then modeless this stack if the short name of the topStack is the short name of this stack or char 1 to 3 of the short name of the topStack = "rev" or the short name of the topStack = "Home" then if IsMC() then put "Could not find an editable stack where to install ListMagic." & cr & cr & "Bring up an editable stack where you want to install ListMagic into and display the right card first." into tPrompt else put "Could not find an editable stack where to install ListMagic.
Bring up an editable stack where you want to install ListMagic into and display the right card first.
" into tPrompt answer error tPrompt as sheet -- exit mouseUp else if the password of the topStack <> empty then if IsMC() then put "Current top stack (" & the short name of the topStack & ") is password protected." & cr & cr & "Bring up an editable stack where you want to install ListMagic into and display the right card first." into tPrompt put "Current top stack (" & the short name of the topStack & ") is password protected.
Bring up an editable stack where you want to install ListMagic into and display the right card first.
" into tPrompt answer error tPrompt as sheet -- exit mouseUp end if ----- put the long name of this cd of the topStack into tCardLongName put the CSSSHeader["uLMWidgets"] of tCardLongName into tCurWidgets put "Install new widget" into tMenu repeat for each line tWidget in tCurWidgets put cr & "Modify" && quote & tWidget & quote && "widget" after tMenu end repeat put tMenu into btn "Process" of stack "SSSLMInstall" set the menuHistory of btn "Process" of stack "SSSLMInstall" to 1 put "In" && the short name of tCardLongName && "of stack" && quote & the short name of the topstack & quote into fld "Dest" of stack "SSSLMInstall" InstallList tCardLongName -- end mouseUp ------------------------------ on InstallList pLongCardName set the uDest of stack "SSSLMInstall" to pLongCardName set the style of stack "SSSLMInstall" to "modeless" go stack "SSSLMInstall" end InstallList "s Install or modify a widget cREVGeneral revUniqueID 1227958341834scripteditorvscroll 0scripteditorselection 294 v Buy ep 5on mouseUp modeless stack "SSSLMBuy" end mouseUp "s enabed true Buy ListMagic! cREVGeneral revUniqueID 1227962444708scripteditorvscroll 0scripteditorselection 10 LMBox x Elocal sLeft,sWidth --------------------------------- on enterInField UpdateList true -- end enterInField --------------------------------- on openField local tWIdget,tLastVisibleTab,tNum ----- put the left of me into sLeft put the long ID of fld (the uCurWidget of me) into tWidget put the width of tWidget into sWidth if the vScrollBar of tWidget then subtract the scrollBarWidth of tWidget from sWidth ----- put the long ID of grp (the uCurWidget of me) into tWidget put LMLastVisibleTab(the long ID of fld (the uCurWidget of me)) into tLastVisibleTab -- lib put LMLastVisibleTab(tWidget) into tLastVisibleTab -- lib repeat with i = 1 to the number of btns of tWidget put char 7 to -1 of the short name of btn i of tWidget into tNum if "Header" is in the short name of btn i of tWidget and tNum <> tLastVisibleTab then set the right of btn ("HArrow" & tNum) of tWidget to the right of btn ("Header" & tNum) of tWidget else set the right of btn ("HArrow" & tLastVisibleTab) of tWidget to the right of tWidget end if end repeat end openField --------------------------------- on tabKey local tWidget,tNextItem,tColumnsNum ----- lock screen UpdateList false -- put the long ID of fld (the uCurWidget of me) into tWidget if the shiftKey is down then put the uCurItem of me - 1 into tNextItem if (the CSSSHeader["uNumLines"] of tWidget and tNextItem = 1) or tNextItem = 0 then if not the hScrollbar of tWidget then set the hScroll of tWidget to 0 set the hScroll of grp (the short name of tWidget) to 0 unlock screen end if exit tabKey end if else put the uCurItem of me + 1 into tNextItem if tNextItem > (the number of btns of grp (the short name of tWidget) / 2) then if not the hScrollbar of tWidget then set the hScroll of tWidget to 0 set the hScroll of grp (the short name of tWidget) to 0 unlock screen end if exit tabKey end if end if LMEditField ,ClickedLineNo(tWidget),EffectiveClickedLineNo(tWidget),tNextItem,tWidget -- lib unlock screen end tabKey --------------------------------- on returnInField local tLoc,tWidget,tReverseOrderFlag,tScroll ----- lock screen UpdateList true -- put the long ID of fld (the uCurWidget of me) into tWidget put the shiftKey is down into tReverseOrderFlag ----- if not (((word 2 of the clickLine = the number of lines of the text of tWidget) and not tReverseOrderFlag) or (word 2 of the clickLine = 1 and tReverseOrderFlag)) then put the scroll of tWidget into tScroll put the loc of me into tLoc if tReverseOrderFlag then set the uCurLine of me to the uCurLine of me - 1 LMSetHilitedLines the uCurLine of me,tWidget -- lib else set the uCurLine of me to the uCurLine of me + 1 LMSetHilitedLines the uCurLine of me,tWidget -- lib end if ----- if the scroll of tWidget = tScroll then if tReverseOrderFlag then subtract the textHeight of fld (the uCurWidget of me) from item 2 of tLoc else add the textHeight of fld (the uCurWidget of me) to item 2 of tLoc end if ----- lock messages click at tLoc send "SetLastClickedLineNo" && the uCurLine of me to tWidget-- LMEditField "a",ClickedLineNo(tWidget),EffectiveClickedLineNo(tWidget),,tWidget -- lib end if unlock screen end returnInField --------------------------------- on rawKeyUp local tWidget,tMaxWidth,tWidth,tRight ----- lock screen put the uCurWidget of me into tWidget set the width of me to min(the formattedWidth of me,sWidth) set the left of me to sLeft put the right of fld tWidget into tRight if the vScrollBar of fld tWidget then subtract the scrollBarWidth of fld tWidget from tRight if the right of me > tRight then set the right of me to tRight if the left of me < the left of fld tWidget then set the width of me to the width of fld tWidget set the left of me to the left of fld tWidget end if unlock screen pass rawKeyUp end rawKeyUp --------------------------------- on commandKeyDown pKey if pKey = "V" then put line 1 of the clipboardData["text"] into me else pass commandKeyDown end commandKeyDown --------------------------------- private command UpdateList pSortFlag local tText,tWidget,tHiliteLines,tItem,tLineNo,tID,tCurList,tNum ----- lock messages put the uCurText of me into tText lock screen put the uCurWidget of me into tWidget if the text of me <> tText and the text of me <> empty then put the hilitedLines of fld tWidget into tHiliteLines put the uCurItem of me into tItem put the uCurLine of me into tLineNo set the itemDel to tab if the uCheckBox of me then put the imageSource of char 1 of item tItem of line tLineNo of fld tWidget into tID put the cSSSHeader["uCheckBoxesReplaceChar"] of fld tWidget & " " & the text of me into item tItem of line tLineNo of fld tWidget set the imageSource of char 1 of item tItem of line tLineNo of fld tWidget to tID else put the text of me into item tItem of line tLineNo of fld tWidget end if set the hilitedLines of fld tWidget to tHiliteLines if the cSSSHeader["uNumLines"] of fld tWidget then subtract 1 from tItem put the cSSSHeader["uCurList"] of fld tWidget into tCurList put the text of me into item tItem of line (tLineNo + 1) of tCurList set the textStyle of char 1 to -1 of line tLineNo of fld tWidget to "plain" set the cSSSHeader["uCurList"] of fld tWidget to tCurList set the itemDel to comma if item 1 of the cSSSHeader["uCurSort"] of fld tWidget = tItem then if pSortFlag then LMSetSort tItem,item 3 of the cSSSHeader["uCurSort"] of fld tWidget,the long ID of fld tWidget -- lib else if the cSSSHeader["uNumLines"] of fld tWidget then put tItem + 1 into tNum else put tItem into tNum set the backPattern of btn ("Header" & tNum) of grp (the short name of fld tWidget) to the ID of img "Header" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) set the icon of btn ("HArrow" & tNum) of grp (the short name of fld tWidget) to the ID of img "Arrow" of stack (the CSSSHeader["uLibName"] of stack the mainstack of this stack) end if end if ----- if the cSSSHeader["uDefaultTabstop"] of fld tWidget = "Auto" then LMAdjustColumn "Auto",tItem,the long ID of fld tWidget -- lib end if ----- try -- in the case this message is not handled higher in the message hierarchy LMListEdited the long ID of me,tItem,tLineNo,tText,the text of me -- sent to current card catch tErr end try end if set the hiliteColor of fld tWidget to the CSSSHeader["uHighlightColor"] of fld tWidget set the hScroll of grp tWidget to (the uHScroll of me) set the hScroll of fld tWidget to (the uHScroll of me) hide me unlock screen end UpdateList @~ / uCurWidget ALaiTunes uCurText Logan uCheckBox false uHScroll 0 uCurItem 3 uCurLine 7 cREVGeneral revUniqueID 1228988303198scripteditorvscroll 273scripteditorselection 3714 Logan 6 LMGenericFilter ion rawKeyUp pKey local tColumnNo ----- if pKey is in "65421,65293" then exit rawKeyUp put char (the number of chars of the uSource of me + 7) to -1 of the short name of the target into tColumnNo LMFilterList tColumnNo ,the text of the target,the long ID of fld (the uSource of me) -- lib end rawKeyUp ------------------------------- on enterInField end enterInField ------------------------------- on returnInField end returnInField cREVGeneral revUniqueID 1229072969553scripteditorvscroll 0scripteditorselection 429 e Install1.jpg @ , = JFIF d d Ducky 2 Adobe d #"""#'''''''''' !! !!'''''''''' ," !1A"Q2aRr#qTBSUb3$4DtCcs%E& !1QAaq"2BRb# ? ͼ8l^Ȭz̘,WJF B(MuþۊM#TP$IMv} ¦ SՌ8n92 5ccrG -YrZG R*dVk t̂,ȍ̚5#d*y mW#|||, WXq|# mL^w nZVʾ쿱# bS):h ^#p}5՟~X'% , 4OKXk՟~OV~b4?/ch V~=Y5_D Ŀ6Y5C}26ݛ3pk͎#` 3.*#o_(u.S94Mýr1_|A.+'ŋ*;,*!w-̊ŹIF ;|Ys͊)6LY^$6}D&/n jf' >k2Oʟ y%A1w:Z^!ѵvn5?2q66Ym) u}:u4 os_LNrFia:c$'UV]r\pJ|4pזּX$>,\|^ZY2"QrnbWCe.$m,zXJVi`ycǕh3E(> &i$˂|46eަȊ<_$+Owzmco V9Ŗŋa8F7]ZRϐN\' _He$ _5eGǘҟ l/>: