REVO2700 A poor man's table @ $ U Lucida Grande U Times U Times W Times U Lucida Grande W Lucida Grande U Helvetica U Helvetica cREVGeometryCache stackID 4704 cRevOnline id 429 cREVGeneral breakpointconditions breakpoints breakpointstates stackfileversion 2.7 C P?on mouseUP put the short name of the target into tTarget If "cell" is not in tTarget then pass MouseUP-- the name of the target then pass mouseUP --If you have only one table --The line below will replace something like "3cell4" with "3,4" --So uncomment the line below and comment out the "put" and "replace" below --replace "cell" with comma in tTarget --If there is more than one table you need to get the word between the digits --and replace that word with a comma put theWord(tTarget) into tWord replace tWord with comma in tTarget answer "Row " & item 1 of tTarget & cr & "Column " & item 2 of tTarget end mouseUP function theWord tempWord repeat put char 1 of tempWord into temp if temp is a number then delete char 1 of tempWord else exit repeat end repeat repeat put char -1 of tempWord into temp if temp is a number then delete char -1 of tempWord else exit repeat end repeat return tempWord end theWord on mouseUp tButton put tButton into msg box put cr & the target after msg box put the target into tTarget set the currentTarget of this card to tTarget if tButton is 3 then if char 13 of tTarget is a number and char 14 of tTarget is a number then lock screen set the loc of button "popup menu" to the loc of tTarget show button "POPUP MENU" set the width of button "popup menu" to the width tTarget set the height of button "popup menu" to the height of tTarget set the layer of button "popup menu" to top unlock screen put the currentTarget of this card into msg box --send mouseUP to button "popup menu" --exit "mouseUP" end if end if --put the target into tTarget end mouseUp cREVGeometryCacheIDs :1264308829230 46181264007074021 18401264007074022 18411264308829314 46331264308829385 46461264007074023 18421264308829235 46191264007074024 18431264007074025 18441264308829157 46051264308829319 46341264308829391 46471264308829402 46491264308829241 46201264308829163 46061264308829325 46351264308829396 46481264009271770 18451264308829246 46211264308829330 46361264308829169 46071264308829252 46221264308829336 46371264308829175 46081264308829257 46231263936870804 18371264308829341 46381264308829180 46091264308829263 46241263935771568 18361264308829347 46391264308829186 46101264308829269 46251264308829352 46401264308829191 46111264308829202 46131264308829274 46261264308829358 46411264308725140 46041264308829197 46121264308829208 46141264308829280 46271264308829363 46421264013744646 20301264308829213 46151264308829285 46281264308829369 46431264308829219 46161264308829291 46291264308829302 46311264308829374 46441264308829224 46171264308836667 46021264308829297 46301264308829308 46321264308829380 46451263936999590 18391263936999589 1838 cREVGeometrycache order total 58 cREVGeneral scripteditorvscroll 0scripteditorselection 671 , - . / 0 1 2 3 4 5 P?on mouseUP put the short name of the target into tTarget If "cell" is not in tTarget then pass MouseUP-- the name of the target then pass mouseUP --If you have only one table --The line below will replace something like "3cell4" with "3,4" --So uncomment the line below and comment out the "put" and "replace" below --replace "cell" with comma in tTarget --If there is more than one table you need to get the word between the digits --and replace that word with a comma put theWord(tTarget) into tWord replace tWord with comma in tTarget answer "Row " & item 1 of tTarget & cr & "Column " & item 2 of tTarget end mouseUP function theWord tempWord repeat put char 1 of tempWord into temp if temp is a number then delete char 1 of tempWord else exit repeat end repeat repeat put char -1 of tempWord into temp if temp is a number then delete char -1 of tempWord else exit repeat end repeat return tempWord end theWord on mouseUp tButton put tButton into msg box put cr & the target after msg box put the target into tTarget set the currentTarget of this card to tTarget if tButton is 3 then if char 13 of tTarget is a number and char 14 of tTarget is a number then lock screen set the loc of button "popup menu" to the loc of tTarget show button "POPUP MENU" set the width of button "popup menu" to the width tTarget set the height of button "popup menu" to the height of tTarget set the layer of button "popup menu" to top unlock screen put the currentTarget of this card into msg box --send mouseUP to button "popup menu" --exit "mouseUP" end if end if --put the target into tTarget end mouseUp cREVGeometryCacheIDs H1264007074021 13351264007074022 13361264007074023 13371264007074024 13381264007074025 13391264009271770 16711264013693193 20291264029435620 23121264029435619 23111264029435622 23131264029435624 23141264029435625 23151264029435627 23161264029435628 23171264029435630 23181264029435631 23191263936999589 10331263936999590 10341264029435633 23201264029435634 23211264029435636 23221264029435637 23231264029435639 23241264029435640 23251264029435642 23261264029435644 23271264029435645 23281264029435647 23291264029435648 23301264029435650 23311264029435651 23321264029435653 23331264029435654 23341264029435656 23351264029435658 23361264029435659 23371264029435661 23381263936870804 10321264029435662 23391264029435664 23401264029435665 23411264029435667 23421263935771568 10041264029435668 23431264029435670 23441264029435672 23451264029435673 23461264029435675 23471264029435676 23481264029435678 23491264029435680 23501264029435681 23511264029435683 23521264029435684 23531264029435686 23541264029435688 23551264029435700 23631264029435689 23561264029435691 23571264029435692 23581264029435702 23641264029435694 23591264029435704 23651264029435705 23661264029435696 23601264029435697 23611264029435707 23671264029520301 20521264029435699 23621264029435709 23681264029435710 23691264029435712 2370 cREVGeometryCache order total 72 cREVGeneral scripteditorvscroll 510scripteditorselection 1854 7 8 9 : ; ; card id 2107 PNon mouseUP tMouseNo if tMouseNo is 3 then exit mouseUP put the short name of the target into tTarget if "cell" is not in tTarget then exit mouseUP put tTarget into tRowColumn replace "cell" with comma in tRowColumn if item 1 of tRowColumn is not 1 then exit mouseUP put item 2 of tRowColumn into tColumnSortNum set itemdel to tab put the fieldText of this card into tText switch tColumnSortNum case 1 sort lines of tText numeric by item 1 of each break default sort lines of tText by item tColumnSortNum of each end switch repeat with i = 1 to 10 repeat with j = 1 to 3 put i+1 & "cell" & j into tName if there is a field tName then put item j of line i of tText into field tName end repeat end repeat end mouseUP fieldText 9 Emilia Drake 8 Joe Guiliani 10 Warren Johnson 2 Mary Jones 7 Peter Peach 6 Franklin Ranssel 3 Harold Roosevelt 5 John Salmon 1 Harry Smith 4 Susan Windguth dataTransfer cREVTable acell false cREVGeometryCacheIDs /1264092268368 29441264007074021 20991264007074022 21001264012447634 21191264007074023 21011264007074024 21021264012447636 21201264007074025 21031264012447637 21211264012447643 21241264049611371 27921264012447645 21251264009271770 21041264012447647 21261264012447652 21291263936870804 20961264012447658 21301264012447660 21311263935771568 20951264012447668 21341264012447669 21351264012447671 21361264027578337 21901264012447677 21391264012447679 21401264012447681 21411264049611336 27901264013744646 21051264012447615 21091264012447687 21441264012447617 21101264012447689 21451264012447700 21511264012447619 21111264012447691 21461264012447624 21141264049244968 26821264012447696 21491264012447706 21541264012447626 21151264012447698 21501264012447708 21551264049611354 27911264012447628 21161263936999590 20981263936999589 20971264012447710 2156 cREVGeometryCache order total 47 cREVGeneral scripteditorvscroll 6scripteditorselection 844 / 0 1 2 3 4 5 6 7 8 9 = > ? B C D G H I L M N Q R S V W X [ \ ] ` a b e f g j k l z P on preopencard send mouseUP to button "Group fields" end preopencard on mouseUP tMouseNo put the short name of the target into tTarget if "cell" is not in tTarget then exit mouseUP put tTarget into tRowColumn replace "cell" with comma in tRowColumn if item 1 of tRowColumn is 1 then exit mouseUP if there is a button "dataList" then popup button "dataList" end if put the dataTransfer of this card into field tTarget end mouseUP on mouseUP put the short name of the target into tTarget If "cell" is not in tTarget then pass MouseUP-- the name of the target then pass mouseUP --If you have only one table --The line below will replace something like "3cell4" with "3,4" --So uncomment the line below and comment out the "put" and "replace" below --replace "cell" with comma in tTarget --If there is more than one table you need to get the word between the digits --and replace that word with a comma put theWord(tTarget) into tWord replace tWord with comma in tTarget answer "Row " & item 1 of tTarget & cr & "Column " & item 2 of tTarget end mouseUP function theWord tempWord repeat put char 1 of tempWord into temp if temp is a number then delete char 1 of tempWord else exit repeat end repeat repeat put char -1 of tempWord into temp if temp is a number then delete char -1 of tempWord else exit repeat end repeat return tempWord end theWord on mouseUp tButton put tButton into msg box put cr & the target after msg box put the target into tTarget set the currentTarget of this card to tTarget if tButton is 3 then if char 13 of tTarget is a number and char 14 of tTarget is a number then lock screen set the loc of button "popup menu" to the loc of tTarget show button "POPUP MENU" set the width of button "popup menu" to the width tTarget set the height of button "popup menu" to the height of tTarget set the layer of button "popup menu" to top unlock screen put the currentTarget of this card into msg box --send mouseUP to button "popup menu" --exit "mouseUP" end if end if --put the target into tTarget end mouseUp dataTransfer cREVGeometryCacheIDs s1264047106377 26311264046156950 25371264046157212 26031264046157051 25631264007074021 23831264007074022 23841264007074023 23851264046156953 25381264007074024 23861264046157216 26041264046157055 25641264007074025 23871264046156957 25391264046157220 26051264046157059 25651264046156961 25401264046157224 26061264046157063 25661264009271770 23881264046156965 25411264046157067 25671264046157229 26071264046156969 25421264046157071 25681264046157233 26081264046156973 25431264046157075 25691264045830555 25271264046157237 26091264046156977 25441264030463993 24411264046157241 26101264046157079 25701264046156981 25451264046193990 26241264046157083 25711264046157245 26111264046156985 25461264046157087 25721264046157249 26121264045824169 24951264046156989 25471264046157091 25731264046157253 26131264046156992 25481264027578337 23901264046157103 25761264045824175 24961264046157095 25741264046157257 26141264046156996 25491264046157107 25771264046157261 26151264046157099 25751264046157111 25781264046157265 26161264046157115 25791264046157119 25801264092624443 29451264046157123 25811264046157127 25821264092624451 29461263936999589 23811263936999590 23821264046157131 25831264092624457 29471264046157135 25841264045939365 25281264046157139 25851264046157143 25861264045939371 25291264046157147 25871264046157151 25881264046157000 25501264045939377 25301264046157155 25891264048537861 26471264046157004 25511263936870804 23801264308556459 21061264046157159 25901264046157008 25521264046157163 25911264046157012 25531263935771568 23791264046157167 25921264046157016 25541264046157171 25931264046157020 25551264046061369 25321264046157175 25941264046157024 25561264046157180 25951264046157028 25571264013744646 23891264046157032 25581264046157184 25961264046156934 25331264047106363 26291264046193942 26251264046157036 25591264046157188 25971264046157200 26001264046175334 26231264046156938 25341264046157040 25601264046157192 25981264047106370 26301264046156942 25351264046157204 26011264046157044 25611264046157196 25991264046156946 25361264046157208 26021264046157047 2562 cREVGeometrycache order total 115 cREVGeneral scripteditorvscroll 0scripteditorselection 318 K L M N O P Q R S T U : V ? @ A W card id 2107 Pon mouseUP tMouseNo if tMouseNo is 3 then exit mouseUP put the short name of the target into tTarget --if "cell" is not in tTarget then exit mouseUP switch case "header" is in tTarget put tTarget into tRowColumn replace "Header" with empty in tRowColumn PerformSort tRowColumn break case "cell" is in tTarget replace "cell" with comma in tTarget answer "Row " & item 1 of tTarget & cr & "Column " & item 2 of tTarget break end switch end mouseUP on PerformSort tColumnSortNum set itemdel to tab put field "dataField" into tText delete line 1 of tText --Get sort type, numeric or text repeat for each line tLine in tText put item tColumnSortNum of tLine into tItem if tItem is not a number then put "text" into tType exit repeat else put "numeric" into tType end if end repeat switch tColumnSortNum case 1 if tType is "numeric" then sort lines of tText numeric by item 1 of each else sort lines of tText by item 1 of each end if break default sort lines of tText by item tColumnSortNum of each end switch populateTable tText end PerformSort on populateTable tText set itemdel to tab put the number of lines in tText into tRows put the number of items in line 1 of tText into tColumns repeat with i = 1 to tRows repeat with j = 1 to tColumns put i&"cell" & j into tName put item j of line i of tText into field tName end repeat end repeat end populateTable fieldText 9 Emilia Drake 8 Joe Guiliani 10 Warren Johnson 2 Mary Jones 7 Peter Peach 6 Franklin Ranssel 3 Harold Roosevelt 5 John Salmon 1 Harry Smith 4 Susan WindguthToggleDefaultVisibility on mouseUP tMouseNum if tMouseNum is 3 then set the visible of field "1cell0" to not the visible of field "1cell0" else pass mouseUp end if end mouseUP cREVTable acell false cREVGeometryCacheIDs 1264013744646 35491264307641971 44861264224340628 35521264308527176 46001264007074025 35471264009271770 35481263935771568 35421264027578337 3550 cREVGeometryCache total 8order cREVGeneral scripteditorvscroll 343scripteditorselection 1067 a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ Create table Epon mouseUp lock screen if there is a group "fieldGroup" then send mouseUP to button "ungroup" put true into wasGrouped else put false into wasGrouped end if put the label of button "rows" into tRow put the label of button "columns" into tColumn put "cell" into myName repeat with i = 1 to tRow repeat with j = 1 to tColumn put i&"cell"&j into tName if there is no field tName then clone field "0cell1" set the name of the last field to tName set the script of field tName to empty end if --Special row properties --This will alternate the row colors and height switch i mod 2 case 0 set the backgroundcolor of field tName to red set the height of field tName to 50 break case 1 set the backgroundcolor of field tName to "lightblue" break end switch --Special column properties --This will change vary the column widths switch j case 1 put i-1&"cell"&1 into tFieldAboveInTheFIrstColumn set the width of field tName to 45 set the topleft of field tName to the bottomleft of field tFieldAboveInTheFIrstColumn set the backgroundcolor of field tName to yellow break default put i & "cell" &j-1 into tFieldToTheLeft set the topleft of field tName to the topright of field tFieldToTheLeft end switch end repeat end repeat repeat with i =1 to 30 repeat with j = 1 to 30 put i&myName & j into tName if i >tRow or J > tColumn then if there is a field tName then delete field tName end if end if end repeat end repeat if wasGrouped then send mouseUp to button "group fields" --play "bell1.wav" unlock screen end mouseUp $ R T cREVGeneral scripteditorvscroll 385revUniqueID 1263935771568scripteditorselection 707 0cell1 (x local tLoc ON Mousedown grab me put the loc of me into tLoc end mouseDown on MouseUp if there is a group "fieldGroup" then --lock screen if the loc of me is not tLoc then send mouseUP to button "ungroup" send mouseUP to button "Create table" send mouseUP to button "group Fields" end if else send mouseUP to button "create table" end if --unlock screen end MouseUp --on mouseUp -- put the short name of me into myName -- put the label of button "columns" into tColumnNum -- put the label of button "rows" into tRowNum -- put the loc of field myName into tLoc -- put the height of field myName into h -- put the width of field myName into w -- put item 1 of tLoc into x -- put item 2 of tLoc into y -- add w to x -- add h to y -- lock screen -- put the groupnames of this card into tGrNames -- if "fieldGroup" is among the lines of tGrNames then -- send "mouseUP" to button "ungroup" -- put true into wasGrouped -- else -- put false into wasGrouped -- end if -- repeat with i = 1 to tRowNum -- repeat with j = 1 to tColumnNum -- put i & myName & j into tName -- if there is no field tName then -- copy field myName -- paste -- --clone field myName -- set the name of the last field to tName -- set the script of field tName to "" -- if i mod 2 is 0 then -- set the backgroundcolor of field tName to "lightsteelblue" -- else -- set the backgroundcolor of field tName to "white" -- end if -- --set the selected of field tName to true -- end if -- set the loc of field tName to x + (j-1)*w, y + (i-1) *h -- set the locktext of field tName to true -- end repeat -- end repeat -- --If decreasing the number rows or columns it is necessary to delete the surplus -- repeat with i = 30 down to tRowNum + 1 -- end repeat -- put the number of fields into tNum -- repeat with i =1 to 30 -- repeat with j = 1 to 30 -- put i&myName & j into tName -- if i >tRowNum or J > tColumnNum then -- if there is a field tName then -- delete field tName -- end if -- end if -- end repeat -- end repeat -- if wasGrouped then send mouseUP to button "Group fields" -- Unlock screen --end mouseUp jj @ I selectd true cREVGeneral scripteditorvscroll 104revUniqueID 1263936870804scripteditorselection 102 columns u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName -- send mouseUP to field "cell" --end menuPick - 1 5 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral revUniqueID 1263936999589scripteditorvscroll 0scripteditorselection 66 Rows u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName --send mouseUP to field "cell" --end menuPick 8 8 - 3 12 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral scripteditorvscroll 0revUniqueID 1263936999590scripteditorselection 66 7 Group fields Epon mouseUp lock screen put the groupNames of this card into tGroups if there is a group "fieldGroup" of this card then ungroup group "FieldGroup" of this card end if repeat with i =1 to the label of button "rows" --30 repeat with j = 1 to the label of button "columns" put i & "cell" & j into tName if there is a field tName then set the selected of field tName to true end if end repeat end repeat -- set the selected of button "rows" to false -- set the selected of button "columns" to false -- set the selected of field "cell" to false set the selected of field "Help" to false -- if there is a group "cellGroup" of this card then -- set the selected of group "cellGroup" of this card to false -- end if group put the groupNames of this card into tNewGroups if tNewGroups is not empty then set the name of the first group of this card to "FieldGroup" if the label of button "rows" > 10 then set the vscrollbar of group "fieldGroup" to true if there is a group "fieldGroup" then set the margins of group "fieldGroup" to 0 set the height of group "fieldGroup" to 200 set the topleft of group "fieldGroup" to the bottomleft of field "0cell1" end if -- put the number of groups into tNum -- repeat with i = tNum down to 1 -- ungroup group i -- end repeat --unlock screen select empty end mouseUp W R cREVGeneral revUniqueID 1264007074021scripteditorvscroll 169scripteditorselection 1135 8 Ungroup Ep on mouseUp put the groupNames of this card into tGroups lock screen if there is a group "fieldGroup" of this card then ungroup group "fieldGroup" of this card end if select empty --unlock screen end mouseUp V R cREVGeneral revUniqueID 1264007074022scripteditorvscroll 0scripteditorselection 207 9 Populate fields EpYon mouseUp --Get a tab delimited text list put the text of field "Table Field" into tText set the itemdel to tab repeat with i = 1 to 3 repeat with j = 1 to 4 put i&"cell" & j into tName if there is a field tName then put item j of line i of tText into field tName end repeat end repeat end mouseUp b V d cREVGeneral scripteditorvscroll 0revUniqueID 1264007074023scripteditorselection 231 : Empty fields Ep on mouseUp put the text of field "Table Field" into tText set the itemdel to tab repeat with i = 1 to 3 repeat with j = 1 to 4 put i&"cell" & j into tName if there is a field tName then put "" into field tName end repeat end repeat end mouseUp V d cREVGeneral revUniqueID 1264007074024scripteditorvscroll 0scripteditorselection 219 ; Help )` p B cREVGeneral revUniqueID 1264007074025 AThis card allows for a greater variety in the rows and columns. 4See the "Switch" code in the "Create table" button. Table Field !c >> K cREVTable formattedview V
ONe Two Three Four
Five Six Seven
topcellloc 589leftcellloc 519currenthscroll 0currentxmouseloc 575bottomcellloc 610currentymouseloc 597 rightcellloc 594scrollbarwidth 16 cellyspacing 14rightfieldloc 834topfieldloc 574 leftfieldloc 516 cellxspacing 75currentviewOne Two Three Four
Five Six Seven Eight
Nine Ten Eleven Twelve
currentvscroll 0 viewablerows 13 currentxcell 1 currentycell 2currentcellvalueFive
viewablecolumns 7numbertabstops 1 celledit truebottomfieldloc 754 cREVGeneral table truerevUniqueID 1264009271770 One Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve ` 1? , Create table Epon mouseUp lock screen if there is a group "fieldGroup" then send mouseUP to button "ungroup" put true into wasGrouped else put false into wasGrouped end if put the label of button "rows" into tRow put the label of button "columns" into tColumn -- put 4 into tRow -- put 3 into tColumn put "cell" into myName repeat with i = 1 to tRow repeat with j = 1 to tColumn put i&"cell"&j into tName if there is no field tName then clone field "0cell1" set the name of the last field to tName set the script of field tName to empty end if switch j case 1 put i-1&"cell"&1 into tFieldAboveInTheFIrstColumn set the topleft of field tName to the bottomleft of field tFieldAboveInTheFIrstColumn break default put i & "cell" &j-1 into tFieldToTheLeft set the topleft of field tName to the topright of field tFieldToTheLeft end switch end repeat end repeat repeat with i =1 to 30 repeat with j = 1 to 30 put i&myName & j into tName if i >tRow or J > tColumn then if there is a field tName then delete field tName end if end if end repeat end repeat if wasGrouped then send mouseUp to button "group fields" --play "bell1.wav" unlock screen end mouseUp $ R cREVGeneral revUniqueID 1263935771568scripteditorvscroll 483scripteditorselection 1415 - 0cell1 (x local tLoc ON Mousedown grab me put the loc of me into tLoc end mouseDown on MouseUp if there is a group "fieldGroup" then --lock screen if the loc of me is not tLoc then send mouseUP to button "ungroup" send mouseUP to button "Create table" send mouseUP to button "group Fields" end if else send mouseUP to button "create table" end if --unlock screen end MouseUp --on mouseUp -- put the short name of me into myName -- put the label of button "columns" into tColumnNum -- put the label of button "rows" into tRowNum -- put the loc of field myName into tLoc -- put the height of field myName into h -- put the width of field myName into w -- put item 1 of tLoc into x -- put item 2 of tLoc into y -- add w to x -- add h to y -- lock screen -- put the groupnames of this card into tGrNames -- if "fieldGroup" is among the lines of tGrNames then -- send "mouseUP" to button "ungroup" -- put true into wasGrouped -- else -- put false into wasGrouped -- end if -- repeat with i = 1 to tRowNum -- repeat with j = 1 to tColumnNum -- put i & myName & j into tName -- if there is no field tName then -- copy field myName -- paste -- --clone field myName -- set the name of the last field to tName -- set the script of field tName to "" -- if i mod 2 is 0 then -- set the backgroundcolor of field tName to "lightsteelblue" -- else -- set the backgroundcolor of field tName to "white" -- end if -- --set the selected of field tName to true -- end if -- set the loc of field tName to x + (j-1)*w, y + (i-1) *h -- set the locktext of field tName to true -- end repeat -- end repeat -- --If decreasing the number rows or columns it is necessary to delete the surplus -- repeat with i = 30 down to tRowNum + 1 -- end repeat -- put the number of fields into tNum -- repeat with i =1 to 30 -- repeat with j = 1 to 30 -- put i&myName & j into tName -- if i >tRowNum or J > tColumnNum then -- if there is a field tName then -- delete field tName -- end if -- end if -- end repeat -- end repeat -- if wasGrouped then send mouseUP to button "Group fields" -- Unlock screen --end mouseUp jj @ I selectd true cREVGeneral revUniqueID 1263936870804scripteditorvscroll 0scripteditorselection 2474 C . columns u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName -- send mouseUP to field "cell" --end menuPick - 5 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral scripteditorvscroll 0revUniqueID 1263936999589scripteditorselection 66 / Rows u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName --send mouseUP to field "cell" --end menuPick 8 8 - 9 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral revUniqueID 1263936999590scripteditorvscroll 0scripteditorselection 66 0 Group fields Epon mouseUp lock screen put the groupNames of this card into tGroups if there is a group "fieldGroup" of this card then ungroup group "FieldGroup" of this card end if repeat with i =1 to the label of button "rows" --30 repeat with j = 1 to the label of button "columns" put i & "cell" & j into tName if there is a field tName then set the selected of field tName to true end if end repeat end repeat -- set the selected of button "rows" to false -- set the selected of button "columns" to false -- set the selected of field "cell" to false set the selected of field "Help" to false -- if there is a group "cellGroup" of this card then -- set the selected of group "cellGroup" of this card to false -- end if group put the groupNames of this card into tNewGroups if tNewGroups is not empty then set the name of the first group of this card to "FieldGroup" if the label of button "rows" > 10 then set the vscrollbar of group "fieldGroup" to true if there is a group "fieldGroup" then set the margins of group "fieldGroup" to 0 set the height of group "fieldGroup" to 200 set the topleft of group "fieldGroup" to the bottomleft of field "0cell1" end if -- put the number of groups into tNum -- repeat with i = tNum down to 1 -- ungroup group i -- end repeat --unlock screen select empty end mouseUp R cREVGeneral scripteditorvscroll 169revUniqueID 1264007074021scripteditorselection 1114 1 Ungroup Ep on mouseUp put the groupNames of this card into tGroups lock screen if there is a group "fieldGroup" of this card then ungroup group "fieldGroup" of this card end if select empty --unlock screen end mouseUp , R cREVGeneral scripteditorvscroll 0revUniqueID 1264007074022scripteditorselection 207 2 Populate fields EpYon mouseUp --Get a tab delimited text list put the text of field "Table Field" into tText set the itemdel to tab repeat with i = 1 to 3 repeat with j = 1 to 4 put i&"cell" & j into tName if there is a field tName then put item j of line i of tText into field tName end repeat end repeat end mouseUp d cREVGeneral revUniqueID 1264007074023scripteditorvscroll 0scripteditorselection 231 3 Empty fields Ep on mouseUp put the text of field "Table Field" into tText set the itemdel to tab repeat with i = 1 to 3 repeat with j = 1 to 4 put i&"cell" & j into tName if there is a field tName then put "" into field tName end repeat end repeat end mouseUp d cREVGeneral scripteditorvscroll 0revUniqueID 1264007074024scripteditorselection 219 4 Help )` cREVGeneral revUniqueID 1264007074025 C "1) Grab and drag the green field. \2) Set the value of the option buttons to create the table with that many rows and columns. J3) Click on any cell in the table to see the value of the row and column. f4) To resize the shape and color of the table cells, just edit the default (green, upper left) field. g5) If the table goes off the screen, it should be grouped and the appropriate scroll bar set to true. 6) If you change the properties of the green cell, you should first "Delete all cells" so that the new cell will inherit the properties of the new default cell. 5 Table Field !c >> K cREVTable leftcellloc 519topcellloc 589formattedview VONe Two Three Four
Five Six Seven
currentxmouseloc 575currenthscroll 0currentymouseloc 597bottomcellloc 610scrollbarwidth 16 rightcellloc 594 cellyspacing 14rightfieldloc 834 cellxspacing 75 leftfieldloc 516topfieldloc 574currentviewOne Two Three Four
Five Six Seven Eight
Nine Ten Eleven Twelve
currentvscroll 0 viewablerows 13 currentxcell 1 currentycell 2viewablecolumns 7currentcellvalueFive
numbertabstops 1 celledit truebottomfieldloc 754 cREVGeneral table truerevUniqueID 1264009271770 C One Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve D ` 1? Next card Ep +on mouseUp go to next card end mouseUp | T cREVGeneral revUniqueID 1264013693193scripteditorvscroll 0scripteditorselection 41 Next card Ep +on mouseUp go to next card end mouseUp | V cREVGeneral scripteditorvscroll 0revUniqueID 1264013744646scripteditorselection 41 / Create table Epton mouseUp lock screen if there is a group "fieldGroup" then send mouseUP to button "ungroup" put true into wasGrouped else put false into wasGrouped end if put the label of button "rows" into tRow put the label of button "columns" into tColumn -- put 4 into tRow -- put 3 into tColumn put "cell" into myName repeat with i = 1 to tRow repeat with j = 1 to tColumn put i&"cell"&j into tName if there is no field tName then clone field "0cell1" set the name of the last field to tName set the script of field tName to empty end if switch i case 1 set the backgroundcolor of field tName to lightBlue break end switch switch j case 1 put i-1&"cell"&1 into tFieldAboveInTheFIrstColumn set the topleft of field tName to the bottomleft of field tFieldAboveInTheFIrstColumn break default put i & "cell" &j-1 into tFieldToTheLeft set the topleft of field tName to the topright of field tFieldToTheLeft end switch end repeat end repeat repeat with i =1 to 30 repeat with j = 1 to 30 put i&myName & j into tName if i >tRow or J > tColumn then if there is a field tName then delete field tName end if end if end repeat end repeat if wasGrouped then send mouseUp to button "group fields" --play "bell1.wav" unlock screen end mouseUp $ R cREVGeneral scripteditorvscroll 231revUniqueID 1263935771568scripteditorselection 767 0 0cell1 (x local tLoc ON Mousedown grab me put the loc of me into tLoc end mouseDown on MouseUp if there is a group "fieldGroup" then --lock screen if the loc of me is not tLoc then send mouseUP to button "ungroup" send mouseUP to button "Create table" send mouseUP to button "group Fields" end if else send mouseUP to button "create table" end if --unlock screen end MouseUp --on mouseUp -- put the short name of me into myName -- put the label of button "columns" into tColumnNum -- put the label of button "rows" into tRowNum -- put the loc of field myName into tLoc -- put the height of field myName into h -- put the width of field myName into w -- put item 1 of tLoc into x -- put item 2 of tLoc into y -- add w to x -- add h to y -- lock screen -- put the groupnames of this card into tGrNames -- if "fieldGroup" is among the lines of tGrNames then -- send "mouseUP" to button "ungroup" -- put true into wasGrouped -- else -- put false into wasGrouped -- end if -- repeat with i = 1 to tRowNum -- repeat with j = 1 to tColumnNum -- put i & myName & j into tName -- if there is no field tName then -- copy field myName -- paste -- --clone field myName -- set the name of the last field to tName -- set the script of field tName to "" -- if i mod 2 is 0 then -- set the backgroundcolor of field tName to "lightsteelblue" -- else -- set the backgroundcolor of field tName to "white" -- end if -- --set the selected of field tName to true -- end if -- set the loc of field tName to x + (j-1)*w, y + (i-1) *h -- set the locktext of field tName to true -- end repeat -- end repeat -- --If decreasing the number rows or columns it is necessary to delete the surplus -- repeat with i = 30 down to tRowNum + 1 -- end repeat -- put the number of fields into tNum -- repeat with i =1 to 30 -- repeat with j = 1 to 30 -- put i&myName & j into tName -- if i >tRowNum or J > tColumnNum then -- if there is a field tName then -- delete field tName -- end if -- end if -- end repeat -- end repeat -- if wasGrouped then send mouseUP to button "Group fields" -- Unlock screen --end mouseUp jj @ I selectd true cREVGeneral scripteditorvscroll 0revUniqueID 1263936870804scripteditorselection 438 ; 1 columns u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName -- send mouseUP to field "cell" --end menuPick - 3 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral revUniqueID 1263936999589scripteditorvscroll 0scripteditorselection 66 2 Rows u On mouseUP send "mouseUP" to button "Create table" end mouseUP --on menuPick pItemName --send mouseUP to field "cell" --end menuPick 4 : - 11 T0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 cREVGeneral scripteditorvscroll 0revUniqueID 1263936999590scripteditorselection 66 3 Group fields Epon mouseUp lock screen put the groupNames of this card into tGroups if there is a group "fieldGroup" of this card then ungroup group "FieldGroup" of this card end if repeat with i =1 to the label of button "rows" --30 repeat with j = 1 to the label of button "columns" put i & "cell" & j into tName if there is a field tName then set the selected of field tName to true end if end repeat end repeat -- set the selected of button "rows" to false -- set the selected of button "columns" to false -- set the selected of field "cell" to false set the selected of field "Help" to false -- if there is a group "cellGroup" of this card then -- set the selected of group "cellGroup" of this card to false -- end if group put the groupNames of this card into tNewGroups if tNewGroups is not empty then set the name of the first group of this card to "FieldGroup" if the label of button "rows" > 10 then set the vscrollbar of group "fieldGroup" to true if there is a group "fieldGroup" then set the margins of group "fieldGroup" to 0 set the height of group "fieldGroup" to 200 set the topleft of group "fieldGroup" to the bottomleft of field "0cell1" end if -- put the number of groups into tNum -- repeat with i = tNum down to 1 -- ungroup group i -- end repeat --unlock screen select empty end mouseUp R cREVGeneral revUniqueID 1264007074021scripteditorvscroll 133scripteditorselection 1276 4 Ungroup Ep on mouseUp put the groupNames of this card into tGroups lock screen if there is a group "fieldGroup" of this card then ungroup group "fieldGroup" of this card end if select empty --unlock screen end mouseUp , R cREVGeneral revUniqueID 1264007074022scripteditorvscroll 0scripteditorselection 207 5 Populate fields EpZon mouseUp --Get a tab delimited text list put the text of field "DataField" into tText set the itemdel to tab repeat with i = 2 to 11 repeat with j = 1 to 3 put i&"cell" & j into tName if there is a field tName then put item j of line i-1 of tText into field tName end repeat end repeat end mouseUp d cREVGeneral scripteditorvscroll 0revUniqueID 1264007074023scripteditorselection 332 6 Empty fields EpVon mouseUp put the text of field "Table Field" into tText set the itemdel to tab repeat with i = 1 to the label of button "rows" repeat with j = 1 to the label of button "columns" put i&"cell" & j into tName if there is a field tName then put "" into field tName end repeat end repeat end mouseUp d cREVGeneral revUniqueID 1264007074024scripteditorvscroll 0scripteditorselection 195 7 Help )` 4( T cREVGeneral revUniqueID 1264007074025 ; :1) Grab and drag the green field to reposition the table. 12) Click on Row, First, or Last to see the sort. l3) If you right click on the upper left, blue row button, you can toggle the visibity of the default field. 8 DataField !c 0 K cREVTable formattedview K1 Harry Smith
2 Mary Jones
3 Harold Roosevelt
4 Susan Windguth
5 John Salmon
6 Franklin Ranssel
7 Peter Peach
8 Joe Guiliani
9 Emilia Drake
10 Warren Johnson
topcellloc 431leftcellloc 610currenthscroll 0currentxmouseloc 629bottomcellloc 452currentymouseloc 397 rightcellloc 685scrollbarwidth 16 cellyspacing 14rightfieldloc 958topfieldloc 304 leftfieldloc 532 cellxspacing 75currentview K1 Harry Smith
2 Mary Jones
3 Harold Roosevelt
4 Susan Windguth
5 John Salmon
6 Franklin Ranssel
7 Peter Peach
8 Joe Guiliani
9 Emilia Drake
10 Warren Johnson
currentvscroll 0 viewablerows 15 currentxcell 2 currentycell 10currentcellvalue viewablecolumns 10numbertabstops 1 celledit truebottomfieldloc 512 cREVGeneral table truerevUniqueID 1264009271770 ; 9 Emilia Drake 8 Joe Guiliani 10 Warren Johnson 2 Mary Jones 7 Peter Peach 6 Franklin Ranssel 3 Harold Roosevelt 5 John Salmon 1 Harry Smith 4 Susan Windguth <