#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" altPropEditor28on preOpenStack if the mode of me is not 4 then send paletteMe to me in 30 milliseconds end if stripAndShip if the selectedObject is not empty then altGetProperties the long ID of the selectedObject else put the long ID of the topstack into tParam altGetProperties tParam end if end preOpenStack on altShowMe --palette this stack --show stack "AltHtml" end altShowMe on altGetInfo answer information "Version: " & last word of fld "vers" end altGetInfo on closeStack if the short name of the target contains "altProp" then remove script of btn "altPropsLib" from front end if end closeStack on paletteMe palette this stack end paletteMe on stripAndShip show img "size.gif" put "" into fld "fldObject" put "" into fld "index" put "" into fld "indexChar" put "" into fld "fldProps" set the altToggleSize of stack "altPropEditor" to "Large" set the width of stack "altPropEditor" to 204 set the height of stack "altPropEditor" to 239 insert script of btn "altPropsLib" into front put "frontScripts ON" into fld "tStatus" set the icon of btn "toggleSize" of stack "altPropEditor" to 1027 set the botRight of btn "Resizer" to the botRight of this cd set the minWidth of stack "altPropEditor" to 204 set the minHeight of stack "altPropEditor" to 239 end stripAndShip on resizeStack if the altToggleSize of stack "altPropEditor" is not "Small" then put the width of this cd into tW put the height of this cd into tH set the width of fld "fldObject" to tW-15 set the width of fld "fldProps" to tW-15 set the height of fld "fldProps" to tH -160 #set the tabStops of fld "fldProps" to 120,tW set the tabStops of fld "fldProps" to round((tW-15)/2) #set the bottom of fld "vers" to tH + 2 end if set the right of grp "ttop" to the right of this cd - 2 set the bottomRight of btn "resizer" to the width of this stack, the height of this stack end resizeStack on toggleSize pFrom pExpandTall if pFrom is "Small" then show img "size.gif" if pExpandTall is true then put the screenrect into tRect if the platform is "MacOS" then put 38 into item 2 of tRect else put 20 into item 2 of tRect put item 4 of the windowBoundingRect into item 4 of tRect end if get the width of stack "altPropEditor" set the rect of stack "altPropEditor" to \ item 3 of tRect - it, \ item 2 of tRect, item 3 of tRect, item 4 of tRect set the bottomRight of btn "resizer" to the width of this stack, the height of this stack #hide img "size.gif" else get the rect of stack "altPropEditor" set the altToggleSize of stack "altPropEditor" to "Large" set the rect of stack "altPropEditor" to \ item 1 of it, item 2 of it, \ item 1 of it + the altWidth of stack "altPropEditor", \ item 2 of it + the altHeight of stack "altPropEditor" end if insert script of btn "altPropsLib" into front put "frontScripts ON" into fld "tStatus" set the altToggleSize of stack "altPropEditor" to "Large" show btn "resizer" else set the altWidth of stack "altPropEditor" to the width of stack "altPropEditor" set the altHeight of stack "altPropEditor" to the Height of stack "altPropEditor" set the altToggleSize of stack "altPropEditor" to "Small" get the rect of stack "altPropEditor" set the rect of stack "altPropEditor" to \ item 1 of it, item 2 of it, item 1 of it + 204, item 2 of it + 50 remove script of btn "altPropsLib" from front put "frontScripts OFF" into fld "tStatus" #hide img "size.gif" hide btn "resizer" end if end toggleSize ialtVers1.0 altWidth204 altHeight974 altLargeRect78,186,282,425 altColorscforegroundColor backgroundColor hiliteColor borderColor topColor bottomColor shadowColor focusColoraltGlobalPropseaccentColor activatePalettes allowInlineInput allowInterrupts arcAngle backdrop beepDuration beepLoudness beepPitch blinkRate brush brushColor brushPattern bufferHiddenImages centered centuryCutoff colormap convertOctals cursor defaultCursor defaultMenubar defaultStack dialogData directory dontUseNS dontUseQT dontUseQTEffects doubleClickDelta doubleClickInterval dragSpeed effectRate emacsKeyBindings eraser explicitVariables extendKey fileType filled grid gridSize idleRate hideConsoleWindows hidePalettes httpHeaders httpProxy jpegQuality lineSize linkColor linkHiliteColor linkVisitedColor lockColormap lockCursor lockErrorDialogs lockMoves lockRecent lookAndFeel lowResolutionTimers moveSpeed multiple multiSpace navigationArrows numberFormat paintCompression pattern penColor penPattern playDestination playLoudness polySides printCardBorders printColors printFontTable printGutters printMargins printPaperSize printRotated printRowsFirst printScale printTextAlign printTextHeight printTextSize printTextStyle privateColors proportionalThumbs randomSeed raiseMenus raisePalettes recordChannels recordCompression recordFormat recording recordInput recordRate recordSampleSize recursionLimit relayerGroupedControls roundEnds roundRadius screenGamma screenNoPixmaps screenSharedMemory scriptTextFont scriptTextSize secureMode selectGroupedControls selectionHandleColor selectionMode serialControlString shellCommand showInvisibles slices socketTimeoutInterval spray stackFileType stacksInUse startAngle syncRate textArrows toolTipDelay traceDelay typingRate twelveHourTime underlineLinks useUnicode videoClipPlayer windowBoundingRectaltToggleSizeLargealtCurrentObjZstack "C:/Documents and Settings/chipp.CHIPP-OFFICE/Desktop/aaCurrent/altSplashConfig.rev"altPropEditor Ums sans serif @Ums sans serif @Wms sans serifUms sans serif UTahoma UTahomaUTahoma @UTahoma @WTahoma UTahoma U Courier New U Courier New UTahoma USystemUTahoma UVerdana @WVerdana WTahomaWTahoma ULucida Grande cREVGeneral debugObjects^field id 1008 of card id 1002 of stack field id 1008 of card id 1002 of stack "altPropEditor" breakPointsprops P  cREVGeneral   fldObject @5, cREVGeneral revUniqueID 1071895146754  [stack "C:/Documents and Settings/chipp.CHIPP-OFFICE/Desktop/aaCurrent/altSplashConfig.rev"  fldProps {6--> all handlers on linkClicked p put the altCurrentObj of stack "altPropEditor" into tObjName if tObjName = "global props" then put "" into tObjName else put " of " & tObjName into tObjName end if put the vScroll of me into tScroll put item 2 of p into tLineNum set itemDel to tab put item 1 of line tLineNum of me into tProp if ":" is in tProp then delete char 1 to 3 of tProp end if put item 2 of line tLineNum of me into tPropVal set itemDel to "," put item 1 of p into tLink put isValidEdit(tProp,tLink) into tLink switch tLink case "CheckTrue" put "set the " & tProp & tObjName & " to false" into toDo do toDo #put "" into tLinkName break case "CheckFalse" put "set the " & tProp & tObjName & " to true" into toDo do toDo #put "" into tLinkName break case "Number" ask "Enter a Number for the " &tProp& " property" with tPropVal if the result is "Cancel" then exit to top if isNumber(it) then put "set the " & tProp & tObjName & " to " & it into toDo do toDo #put ""&it&"" into tLinkName end if break case "Colors" put line tLineNum of the htmlText of fld "fldProps" of stack "altPropEditor" into tHtm put offset("bgcolor=",tHtm) into tOff put char tOff+9 to tOff + 15 of tHtm into tCol answer Color with tCol if the result is "Cancel" then put "set the " & tProp & tObjName & " to " "e"e into toDo else put "set the " & tProp & tObjName & " to " & quote & it & quote into toDo end if do toDo break case "Other" #breakpoint ask "Enter a Value for the " &tProp& " property" with tPropVal if the result is "Cancel" then exit to top put it into tNew replace "," with "" in tNew if isNumber(tNew) then if first word of tObjName is "card" then answer warning "Cannot edit this property!" else put "set the " & tProp & tObjName & " to " & it into toDo end if else put "set the " & tProp & tObjName & " to " "e&it"e into toDo end if do toDo break case "Prop" case "gProp" altFindProp tProp exit to top case "id" answer warning "Cannot edit this property!" break case "colors" answer warning "Cannot edit this property here. Use the Property Inspector." break case "htmlText" put the htmlText of the selectedObject into fld "props" of stack "longEdit" put "htmlText property:" into fld "PropLabel" of stack "longEdit" modal "longEdit" if the dialogdata is "cancel" then exit to top set the htmlText of the selectedObject to the dialogData break default #put ""&tPropVal&"" into tLinkName end switch if tProp is "name" then altGetProperties the selectedObject else altGetProperties the altCurrentObj of stack "altPropEditor" end if set the vScroll of me to tScroll end linkClicked function isValidEdit pPropName,pLinkName if pLinkName is "CheckTrue" or pLinkName is "CheckFalse" then return pLinkName switch pPropName case "id" return "id" break case "colors" return "colors" break case "htmltext" return "htmltext" break default return pLinkName end switch end isValidEdit on altFindProp pWord revDocsDisplayTranscriptTerm pWord,"property" end altFindProp O_ cConsLastpropHandlerScroll1 varCheckingfalse HandlerNamelinkClicked message cREVTablecurrentvscroll0formattedviewaltId 0 backgroundBehavior borderWidth 2 boundingRect empty cantDelete cantSelect colors disabled dontSearch hilitedButton 0 hScroll 0 hScrollbar id 1030 label empty layer 14 lockLoc margins 4 name group id 1030 opaque patterns radioBehavior rect 8,446,210,518 scrollbarWidth 20 showBorder showName tabGroupBehavior textFont empty textSize empty textStyle empty threeD toolTip empty traversalOn visible vScroll 0 vScrollbar currenthscroll0currentxmouseloc91 viewablerows35currentymouseloc76scrollbarwidth16 cellyspacing13rightfieldloc208viewablecolumns4numbertabstops1 topfieldloc96 leftfieldloc6 cellxspacing120 currentviewaltId 0 backgroundBehavior borderWidth 2 boundingRect empty cantDelete cantSelect colors disabled dontSearch hilitedButton 0 hScroll 0 hScrollbar id 1030 label empty layer 14 lockLoc margins 4 name group id 1030 opaque patterns radioBehavior rect 8,446,210,518 scrollbarWidth 20 showBorder showName tabGroupBehavior textFont empty textSize empty textStyle empty threeD toolTip empty traversalOn visible vScroll 0 vScrollbar bottomfieldloc328 cREVGeneraltablefalse revUniqueID 1071895165989 breakPoints43  altId 0 Prop,1   Number,1 alwaysBuffer Prop,2   ` CheckTrue,21012  cantAbort Prop,3   ` CheckFalse,31013  cantDelete Prop,4   ` CheckFalse,41013  cantModify Prop,5   ` CheckFalse,51013  #C: foregroundColor Effective  Prop,6  " Colors,6  #C: backgroundColor Effective  Prop,7  " Colors,7  C: hiliteColor Effective  Prop,8  " Colors,8  C: borderColor  Prop,9  " Colors,9 C: topColor Effective  Prop,10   " Colors,10   C: bottomColor Effective  Prop,11  " Colors,11  C: shadowColor Effective  Prop,12  " Colors,12  C: focusColor Effective  Prop,13   " Colors,13  decorations default Prop,14    Other,14  destroyStack Prop,15   ` CheckTrue,151012  destroyWindow Prop,16   ` CheckTrue,161012 dynamicPaths Prop,17   `CheckFalse,171013  formatForPrinting Prop,18  `CheckFalse,181013 hcAddressing Prop,19   `CheckFalse,191013  icon 0 Prop,20   Number,20 iconic Prop,21  `CheckFalse,211013 id 1063 Prop,22   Number,22 linkColor empty Prop,23    Other,23  linkHiliteColor empty Prop,24   Other,24 linkVisitedColor empty Prop,25   Other,25 liveresizing Prop,26   `CheckFalse,261013  maxHeight 65535 Prop,27    Number,27  maxWidth 65535 Prop,28   Number,28  menubar empty Prop,29   Other,29 metal Prop,30  `CheckFalse,301013 minHeight 32 Prop,31    Number,31  minWidth 32 Prop,32   Number,32  name altSplashConfig Prop,33   Other,33 passkey empty Prop,34   Other,34 password empty Prop,35   Other,35  patterns Prop,36   Other,36  rect 120,140,552,586 Prop,37   Other,37 resizable Prop,38   ` CheckTrue,381012  scroll 0 Prop,39   Number,39 shadow Prop,40  ` CheckTrue,401012 startUpIconic Prop,41   `CheckFalse,411013 style toplevel Prop,42   Other,42 textFont empty Prop,43   Other,43  textSize empty Prop,44   Other,44  textStyle empty Prop,45    Other,45  title empty Prop,46   Other,46 underlineLinks empty Prop,47   Other,47 visible Prop,48  ` CheckTrue,481012 windowManagerPlace Prop,49  `CheckFalse,491013 windowShape 0 Prop,50    Number,50  `@McheckedDLLLLLL4 16.@@@Q[_ND@8???0.0$p 1;? cREVGeneral revUniqueID 1071897675797 uncheckedDLLLLLL,4 16+@@@@@@@@@8????????? cREVGeneral revUniqueID 1071897708586 index  fon mouseMove put the mouseChar into fld "indexChar" end mouseMove on mouseDown --lock screen put fld "indexChar" into tC put fld "fldProps" into ttxt put 1 into tLine repeat for each line L in ttxt if char 1 of L is tC then put word 1 of L into tFound exit repeat end if end repeat find tFound in fld "fldProps" put word 2 of the foundLine into tLine put the textheight of fld "fldProps" into tHt put (tLine-1) * tHt into tPixels set the vScroll of fld "fldProps" to tPixels wait 90 milliseconds find empty --unlock screen end mouseDown black"x cREVGeneral revUniqueID 1071904661277 ACDFHILMNPRSTUVW  indexChar (s cREVGeneral revUniqueID 1071905963271   this cardEp--> all handlers on mouseUp if the altToggleSize of stack "altPropEditor" is "Small" then toggleSize "Small" end if altGetProperties the long ID of the current card of the topstack end mouseUp D: cConsLastpropHandlerScroll0 varCheckingfalse HandlerNamemouseUp message cREVGeneral revUniqueID 1071908692202 breakPoints  topStackEp--> all handlers on mouseUp if the altToggleSize of stack "altPropEditor" is "Small" then toggleSize "Small" end if altGetProperties the long ID of the topStack end mouseUp < cConsLastpropHandlerScroll1 varCheckingfalse HandlerNamemouseUp message cREVGeneral revUniqueID 1071908693744 breakPoints Field 1 ^d cREVGeneral revUniqueID 1071910064733 Properties: altPropsLibEpon selectedObjectChanged if the selectedObject is not empty then altGetProperties the long ID of the selectedObject else altGetProperties the long ID of the topstack end if pass selectedObjectChanged end selectedObjectChanged on altGetProperties pID if pID is "global Props" then put "Global Properties" into fld "fldObject" of stack "altPropEditor" put the altGlobalProps of stack "altPropEditor" into tList set the altCurrentObj of stack "altPropEditor" to "global props" sort lines of tList repeat with x = 1 to the number of lines in tList put line x of tList into tProp do "get the " & tProp put "

" & tProp & " " into tLine put altGetType(it,x) & "

" after tLine put tLine after tLines end repeat else put the long name of pID into fld "fldObject" of stack "altPropEditor" set the altCurrentObj of stack "altPropEditor" to the long name of pID put the properties of pID into thearray put the keys of thearray into keyList sort lines of keyList --> CREATE INDEX repeat for each line L in keyList get char 1 of L if it is not in tIndex then put it after tIndex end repeat put toUpper(tIndex) into fld "index" of stack "altPropEditor" put "" into fld "indexChar" of stack "altPropEditor" put 0 into tCount repeat with thisItem = 1 to the number of lines in the keys of thearray put line thisItem of keyList into t1 put thearray[line thisItem of keyList] into t2 --> IS THIS COLORS? if t1 is "colors" then --put 1 into tCount put the altColors of stack "altPropEditor" into tColorNames put the colors of pID into tColors repeat for each line L in tColorNames put "" into tIsEffective put "

C: " &L& " " into tLine put line tCount+1 of tColors into tColor if tColor is empty then put "get the effective " & L && "of " & pID into toDo do toDo put it into tColor put " Effective" into tIsEffective end if put " "&tIsEffective&"

"&cr after tLine put tLine after tLines if tCount + 1 < the number of lines in tColorNames then add 1 to tCount end repeat else --> CREATE HTML FOR THIS LINE #if t1 is "htmlText" then breakpoint put "

" &t1& " " into tLine #if t2 contains "<" then breakpoint put altGetType(t2,(thisItem+tCount)) & "

"&cr after tLine put tLine after tLines end if end repeat end if set the htmltext of fld "fldProps" of stack "altPropEditor" to tLines end altGetProperties function altGetType p,pLine switch case p="true" return "" break case p="false" return "" break case isNumber(p) return ""&p&"" break case p="" return "empty" break case p contains "<" replace "<" with "<" in p replace CR with space in p return ""&p&"" default return ""&p&"" end switch end altGetType *@@dR cREVGeneral revUniqueID 1072163323686 breakPoints  global propsEp--> all handlers on mouseUp if the altToggleSize of stack "altPropEditor" is "Small" then toggleSize "Small" end if altGetProperties "global props" end mouseUp F cConsLastpropHandlerScroll0 varCheckingfalse HandlerNamemouseUp message cREVGeneral revUniqueID 1072165068685 breakPoints switchToPaletteA*--> all handlers on mouseUp if the mode of this stack is 1 then palette this stack else toplevel this stack end if end mouseUp @ cConsLastpropHandlerScroll0 varCheckingfalse ScriptChunkchar 31 to 57 of field 93 HandlerNamemouseUp message cREVGeneral revUniqueID 1072771224673 breakPoints @h 200276nGIF89a fff!, *0P &|0?3b,ȱc C!clip2gif 0.7.2 by Yves Piguet; cREVGeneral revUniqueID 1072781204799@f 200275oGIF89a fff!, +H)\🀇 !&"4TH0 !clip2gif 0.7.2 by Yves Piguet; cREVGeneral revUniqueID 1072781208578ttop iD cREVGeneral revUniqueID 1072784058503 toggleSizebBPon mouseUp if the altToggleSize of this stack is "Small" then toggleSize "Small" set the icon of me to 1027 else toggleSize "Large" set the icon of me to 1026 end if end mouseUp @ cREVGeneral revUniqueID 1072781275711  vers on mouseUp if the shiftKey is down then ask "New Version:" with me if it is empty then exit mouseUp put it into me set the altVers of img "altPlug.png" of this stack to me end if end mouseUp " cREVGeneral revUniqueID 1071999709620 v1.7 size.gif P4on mouseUp toggleSize "Small",true end mouseUp @GIF89a!,"Br [AS; cREVGeneral revUniqueID 1074815477616Resizer*BP.--> all handlers local lMoving, lDistance on mouseDown put true into lMoving put the right of this stack - item 1 of the screenMouseloc,the bottom of this stack - item 2 of the screenMouseLoc into lDistance end mouseDown on mouseUp put false into lMoving unlock cursor end mouseUp on mouseRelease put false into lMoving unlock Cursor end mouseRelease on mouseMove if lMoving then put item 1 to 2 of the rect of this stack,item 1 of the screenMouseloc+item 1 of lDistance,item 2 of the screenMouseloc+item 2 of lDistance into tRect if item 3 of tRect < (the minWidth of this stack+the left of this stack) then put (the minWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect < (the minHeight of this stack+the top of this stack) then put (the minHeight of this stack+the top of this stack) into item 4 of tRect if item 3 of tRect > (the maxWidth of this stack+the left of this stack) then put (the maxWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect > (the maxHeight of this stack+the top of this stack) then put (the maxHeight of this stack+the top of this stack) into item 4 of tRect lock screen set the rect of this stack to tRect set the bottomRight of me to the width of this stack, the height of this stack unlock screen end if end mouseMove on mouseEnter if the platform is not "MacOS" then lock cursor set cursor to the ID of img "resizeCursor" end if end mouseEnter on mouseLeave put false into lMoving unlock cursor end mouseLeave  cWinCursor200308p cConsLastpropHandlerScroll488 varCheckingfalse ScriptChunkchar 1444 to 1485 of field 93 HandlerNamemouseEnter message cREVGeneral revUniqueID 1071909196126 breakPoints  altPlug.pngD@j altOpenVisibletruealtVersv1.7altPlugFileName altPropEditor altOnClickMe altShowMe altUpdateURL9http://www.gadgetplugins.com/altplugins/altPropEditor.txtProperty Editor0PNG  IHDR szzgAMA aIDATx=E]B"8 p YH2 !LarB H6?"ٙשk}gFӯE0@iܓk~ ggpz8K8=<84"@">A ~|P~ wcw??  cREVGeneral revUniqueID 1081801585194UpdateE --> all handlers on mouseUp answer question "This will check the server for updates to this stack." &cr& \ "Any changes you have made to this stack will be lost! Continue?" with "Cancel" or "OK" if it is "Cancel" then exit to top checkForPluginUpdate end mouseUp on checkForPluginUpdate get altCheckInternetConnect() put the altVers of image "altPlug.png" into tVers put the altUpdateURL of img "altPlug.png" into tURL put URL tURL into tData put getTagData(tData,"Version") into tVers2 if tVers2 <> tVers then answer information "There is an update to this stack. Do you wish to retrieve it?" with "Cancel" or "OK" if it is "Cancel" then exit checkForPluginUpdate end if --> DOWNLOAD NEW STACK put the filename of this stack into tPluginPath put getTagData(tData,"UpdateURL") into tURL put "Downloading file, please wait..." put URL tURL into tBinData put the result into tResult if tResult is not "" then answer information "Problem downloading stack." &cr&cr& tResult altStatus "" exit to top end if topLevel this stack if char -3 to -1 of tURL is ".gz" then --> NEED TO UNCOMPRESS put "Decompressing Stack..." put decompress(tBinData) into tBinData end if put tBinData into URL ("binfile:" & tPluginPath) revert put "Stack updated!" into msg else answer information "You are currently using the latest version of this stack" end if end checkForPluginUpdate function altCheckInternetConnect --> CHECK FOR INTERNET CONNECTION TO EXTERNALS SERVER put "Checking for internet connection..." get URL "http://www.gadgetplugins.com/RevAccessTest.txt" put the result into tResult put "" if line 1 of it is not "GOOD" or tResult is not empty then answer warning "Cannot connect with the Altuit Externals Server: Error" &cr& tResult exit to top else return true end if end altCheckInternetConnect function getTagData theTagData,theTagName filter theTagData with "<" & theTagName & ">*" replace "<" & theTagName & ">" with "" in theTagData replace " " with "" in theTagData replace "" with "" in theTagData replace "|" with tab in theTagData replace "\" with return in theTagData replace "/***---***/" with "" in theTagData replace " " with "" in theTagData return theTagData end getTagData b*  cConsLastprop varCheckingfalseHandlerScroll128 HandlerNamecheckForPluginUpdate command cREVGeneral revUniqueID 1144130433585 breakPoints  longEdithon closeStack end closeStack on preOpenStack set the loc of me to the screenloc end preOpenStack EEdit Property WTahoma Ums sans serif cREVGeneral @ Props)` &z> cREVGeneral revUniqueID 1072778254329 

hipp

  PropLabel | cREVGeneral revUniqueID 1072778277308 htmlText property:OKEpOon mouseUp set the dialogData to fld "props" close this stack end mouseUp Jn: cREVGeneral revUniqueID 1072778305811 CancelEpLon mouseUp set the dialogdata to "cancel" close this stack end mouseUp  n: cREVGeneral revUniqueID 1072778343982