Lighthouse Design Suite/LIGHTHOUSE.mdf/Parasheet_1.04/Application/ParaSheet.app/Samples/Simple_Macro.parasheet/textArchive

Text File | 1995-02-09 | 4KB | 20 lines

ui = {rowHeights = (16,23,22,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16);
rowPageBreaks = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
columnWidths = (78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78);
columnPageBreaks = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
activeCell = (0,0);
rowsSameSize=NO;iconBarOrigin = (1952997742,10326);
allCells = (0,0,47,47);
cellSelGray={r=0.098040714859962463; g=0.57254248857498169;b=0.050981171429157257;};};
strings=({i=1;r=1;s="This sample shows a simple macro in action. Press the button below";},{i=3;r=1;s="What this sample shows...";},{i=4;r=1;s="to see it run, and to learn more about how to write macros.";});
formats=({defaultIndex=255;},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{});
styles=({i=1;},{i=2;r=4;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName=Univers;fontSize=10;};borderColor={r=0; g=0;b=0;};},{i=3;r=1;foreColor={r=1; g=1;b=1;};backColor={r=0; g=0;b=0;};font={fontName=Helvetica;fontSize=12;};borderColor={r=0; g=0;b=0;};},{i=4;r=1;foreColor={r=1; g=1;b=1;};backColor={r=0; g=0;b=0;};pattern2=1;borderColor={r=0; g=0;b=0;};},{i=5;r=2;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName="Times-Roman";fontSize=14;};borderColor={r=0; g=0;b=0;};},{i=6;r=1;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName="Times-Bold";fontSize=14;};borderColor={r=0; g=0;b=0;};},{i=7;r=2;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName="Times-Roman";fontSize=18;};border=24;borderColor={r=0; g=0;b=0;};},{i=8;r=1;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName="Times-Roman";fontSize=18;};border=40;borderColor={r=0; g=0;b=0;};},{i=9;r=4;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName=Univers;fontSize=10;};border=24;borderColor={r=0; g=0;b=0;};},{i=10;r=2;foreColor={r=0; g=0;b=0;};backColor={r=1; g=1;b=1;};font={fontName=Univers;fontSize=10;};border=40;borderColor={r=0; g=0;b=0;};});
formulas=({i=1;r=1;f="\004\vtypedstream\201\003\242\204\001S\201\000\200\204\002CC\000\362\223\003\002\223\001i\223\000\377";});
objects=({i=1;objectType=MACROBUTTON;objectBounds = {xOrigin=272;yOrigin=94;xExtent=179;yExtent=54;};
styleIndex=4;stuckCellH=3;stuckCellV=5;xOffset=38;yOffset=1;refCon=4;objectName="";macroFont={fontName=Helvetica;fontSize=12;};macroName="Press Here for Simple Macro";});
macros=(
{name="Press Here for Simple Macro";text="=Macro{\n\n\\\\ Defines two local variables\n\nlocal(count, answer);\n\n\n\\\\ Prompts the user for input, and assigns his response to the variable answer\n\nanswer:=prompt(\t\"Are you sure?\", \n\t\t\"Are you sure you want to run this macro?\", \n\t\t\"Yes\", \n\t\t\"No\");\n\n\\\\ If the user said Yes, then run the simple for loop, below.\n\nif(answer=1){\n\tfor(count:=0; count<10; count:=count+1){\n\tenter(count);\n\tnextcell(0,1);\n\t\t}\n\t}\n\n\\\\ Tell the user what we just did...\n\n\tprompt(\t\"See Macro Panel\", \n\t\t\"Raise the Macro Panel (Press the 'M' on the tool bar to the left of this spreadsheet) to open this macro, and see how simple it is to create others.\",\n\t\t\"\");\n}\n";}
);
namedRanges=({i=1;});
cells=({h=2;v=1;t=S;s=3;y=8;x=76;},{t=E;y=10;x=72;},{t=E;y=10;x=72;},{t=E;x=64;},{t=E;},{t=E;x=64;},{t=E;},{h=2;v=2;t=S;s=1;y=5;x=76;},{t=E;x=72;},{t=E;x=72;},{t=E;x=72;},{t=E;x=72;},{h=2;v=3;t=S;s=4;y=5;x=76;},{t=E;x=72;},{t=E;x=72;},{t=E;x=72;},{t=E;x=72;},{h=4;v=6;f=1;x=16;});