/3.1 (ODB.1 Dependencies: "$AVEXT/dlogcore.___\n" FirstRootClassName: "Project" Roots: 2 Version: 31 ) (Project.2 Name: "install.apr" CreationDate: "Monday, May 18, 1998 12:42:22" GUIName: "Project" Win: 3 CSMgr: 4 DocExts: 5 VisGUIWidth: 70 Doc: 6 Doc: 10 Doc: 14 Doc: 18 Doc: 22 Doc: 26 Doc: 30 Buttons: 34 Buttons: 35 Buttons: 36 Dependencies: 37 Scripts: 38 Prefs: 39 GUI: 53 GUI: 507 GUI: 808 WorkDir: 862 WinX: 27 WinY: 17 WinW: 510 WinH: 473 StartUp: "DefaultProject.install" SerialNumber: "752151130575" SelColor: 863 GUINames: 864 GUINames: 865 GUINames: 866 GUINames: 867 GUINames: 868 GUINames: 869 GUINames: 870 TocWidthScale: 1.00000000000000 ) (DocWin.3 Owner: 2 Open: 1 X: 3 Y: 1 W: 252 H: 344 ) (CSMgr.4 ) (DocAct.5 Doc: 2 ) (SEd.6 Name: "AVStart Extension" CreationDate: "Tuesday, February 02, 1999 11:05:51" GUIName: "Script" Win: 7 CSMgr: 8 DocExts: 9 Source: "/3.1\n(Extension.1\n Name: \"StartUp Wizard\"\n Dependencies: \"$AVBIN/avdlog.dll\\n\"\n FirstRootClassName: \"AVDLog\"\n Roots: 2\n Roots: 40\n Roots: 41\n Roots: 42\n Roots: 43\n Roots: 44\n Roots: 45\n Roots: 46\n Version: 31\n CanUnloadScript: 47\n UnloadScript: 48\n)\n\n(AVDLog.2\n Name: \"StartUp\"\n X: 433\n Y: 259\n W: 375\n H: 381\n ConstrainedControlNames: 3\n ConstrainedControlNames: 4\n Constraints: 5\n Constraints: 6\n Server: 7\n ControlPanel: 8\n Title: \"Welcome to ArcView GIS\"\n Modal: 1\n AlwaysOnTop: 1\n HasTitleBar: 1\n Closeable: 1\n Close: \"StartUp.Close\"\n Open: \"StartUp.Open\"\n DefaultButton: 39\n)\n\n(AVStr.3\n S: \"OK\"\n)\n\n(AVStr.4\n S: \"cancel\"\n)\n\n(Numb.5\n N: 85.00000000000000\n)\n\n(Numb.6\n N: 85.00000000000000\n)\n\n(Nil.7\n)\n\n(CPanel.8\n Child: 9\n Child: 27\n Child: 28\n Child: 29\n Child: 30\n Child: 32\n ResBox: 33\n ResBox: 34\n ResBox: 35\n ResBox: 36\n ResBox: 37\n ResBox: 38\n Listening: 1\n)\n\n(CPanel.9\n InternalName: \"aControlPanel\"\n Child: 10\n Child: 12\n Child: 13\n Child: 14\n Child: 15\n Child: 17\n Child: 19\n Constraints: 0x55\n ResBox: 20\n ResBo x: 21\n ResBox: 22\n ResBox: 23\n ResBox: 24\n ResBox: 25\n ResBox: 26\n Label: \"Create a new project\"\n VisibleBorder: 1\n Listening: 1\n)\n\n(AVIBox.10\n InternalName: \"aIconBox9\"\n Constraints: 0x55\n Icon: 11\n Listening: 1\n)\n\n(AVIcon.11\n Name: \"DefaultDocument\"\n Res: \"Icons.DefaultDocument\"\n\n)\n\n(RButn.12\n InternalName: \"View\"\n Constraints: 0x55\n Listening: 1\n Label: \"with a new View\"\n)\n\n(RButn.13\n InternalName: \"newapr\"\n Constraints: 0x55\n Listening: 1\n Label: \"as a blank project\"\n)\n\n(RButn.14\n InternalName: \"openapr \"\n Constraints: 0x55\n Listening: 1\n Label: \"Open an existing project\"\n)\n\n(AVIBox.15\n InternalName: \"aIconBox10\"\n Constraints: 0x55\n Icon: 16\n Listening: 1\n)\n\n(AVIcon.16\n Name: \"FileBrowser\"\n Res: \"Icons.FileBrowser\"\n\n)\n\n(AVIBox.17\n InternalName: \"aIconBox11\"\n Constraints: 0x55\n Icon: 18\n Listening: 1\n)\n\n(AVIcon.18\n Name: \"av2_color\"\n Res: \"Icons.av2_color\"\n\n)\n\n(CPanel.19\n InternalName: \"aControlPanel7\"\n Constraints: 0x55\n Label: \" or \"\n VisibleBorder: 1\n Listening: 1\n)\n\n(RectD.20\n Left: 14.00000000000000\n Top: 125.00000000000000\n Right: 74.00000000000000\n Bottom: 65.00000000000000\n)\n\n(RectD.21\n Left: 72.00000000000000\n Top: 61.00000000000000\n Right: 316.00000000000000\n Bottom: 31.00000000000000\n)\n\n(RectD.22\n Left: 72.00000000000000\n Top: 110.00000000000000\n Right: 316.00000000000000\n Bottom: 80.00000000000000\n)\n\n(RectD.23\n Left: 72.00000000000000\n Top: 167.00000000000000\n Right: 316.00000000000000\n Bottom: 137.00000000000000\n)\n\n(RectD.24\n Left: 14.00000000000000\n Top: 182.00000000000000\n Right: 74.0000000000 0000\n Bottom: 122.00000000000000\n)\n\n(RectD.25\n Left: 25.00000000000000\n Top: 64.00000000000000\n Right: 63.00000000000000\n Bottom: 25.00000000000000\n)\n\n(RectD.26\n Top: 127.00000000000000\n Right: 363.00000000000000\n Bottom: 110.00000000000000\n)\n\n(LButn.27\n InternalName: \"OK\"\n Label: \"OK\"\n Click: \"StartUp.Click Button\"\n)\n\n(LButn.28\n InternalName: \"cancel\"\n Label: \"Cancel\"\n Click: \"StartUp.Cancel\"\n)\n\n(AVCBox.29\n InternalName: \"show\"\n Listening: 1\n Selected: 1\n Label: \"Show this window when ArcView GIS starts\"\n Constraints: 0x55\n)\n\n(AVLBox.30\n InternalName: \"Recent Projects lbx\"\n NextControl: 7\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n VerticalScroll: 1\n SelectionStyle: 31\n Apply: \"Startup.ProjectOpen\"\n)\n\n(AVEnum.31\n Name: \"LISTBOX_SELECTION_SINGLECELL\"\n)\n\n(TextLabel.32\n InternalName: \"aTextLabel2\"\n Constraints: 0x55\n Label: \"Recently Opened Projects\"\n Listening: 1\n)\n\n(RectD.33\n Left: 8.00000000000000\n Top: 185.00000000000000\n Right: 371.00000000000000\n Bottom: 10.00000000000000\n)\n\n(RectD.34\n Left: 151.000 00000000000\n Top: 373.00000000000000\n Right: 253.00000000000000\n Bottom: 343.00000000000000\n)\n\n(RectD.35\n Left: 262.00000000000000\n Top: 372.00000000000000\n Right: 364.00000000000000\n Bottom: 342.00000000000000\n)\n\n(RectD.36\n Left: 7.00000000000000\n Top: 344.00000000000000\n Right: 397.00000000000000\n Bottom: 321.00000000000000\n)\n\n(RectD.37\n Left: 9.00000000000000\n Top: 322.00000000000000\n Right: 370.00000000000000\n Bottom: 207.00000000000000\n)\n\n(RectD.38\n Left: 10.00000000000000\n Top: 206.00000000000000\n Rig ht: 367.00000000000000\n Bottom: 190.00000000000000\n)\n\n(Nil.39\n)\n\n(Script.40\n Name: \"StartUp.Cancel\"\n SourceCode: \"self.getdialog.close\\n\"\n)\n\n(Script.41\n Name: \"StartUp.Click Button\"\n SourceCode: \"'StartUp.Click radio\\nthedialog=self.getdialog\\ntheRadio=thedialog.findbyname(\\\"AControlPanel\\\").getselected\\n\\nav.run(\\\"Startup.showAgain\\\",thedialog)\\n\\nif (theDialog.FindByName(\\\"Recent Projects lbx\\\").GetSelection.Count > 0) then\\n theFName = theDialog.FindByName(\\\"Recent Projects lbx\\\").GetSelection.Get(0).as filename\\n if (file.Exists(theFName).Not) then\\n msgbox.error(\\\"Unable to find Project\\\"++theFName.asstring,Script.The.GetName)\\n return nil\\n end\\n thedialog.close\\n theProject = av.GetProject\\n if (theProjec\nt <> nil) then\\n theProject.Close\\n end\\n av.DelayedRun(\\\"Project.OpenPart2\\\",theFName,0.1)\\n else\\n thename=theradio.getname\\n if (thename=\\\"View\\\") then\\n av.delayedrun(\\\"Startup.MakeView\\\",\\\"\\\",0.1) \\n elseif (thename=\\\"OpenAPR\\\") then\\n av.delayedrun(\\\"Project.Open\\\" ,\\\"\\\",0.1)\\n elseif (thename=\\\"NewAPR\\\") then\\n end\\n thedialog.close\\nend\\n\\n\"\n)\n\n(Script.42\n Name: \"StartUp.Close\"\n SourceCode: \"thedialog=self\\nthedialog.FindByName(\\\"Recent Projects lbx\\\").Empty\\nav.run(\\\"Startup.showAgain\\\",thedialog)\\n\"\n)\n\n(Script.43\n Name: \"StartUp.MakeView\"\n SourceCode: \"' newView = View.MakeWithGUI(\\\"View\\\")\\n' newView.GetWin.Open\\n av.Delayedrun(\\\"View.New\\\",nil,0.1)\\n theView = av.GetActiveDoc\\n if (msgbox.yesno(\\\"Would you like to add data to the View now?\\\",\\\"Add data\\\",TRUE)) then\\n av.delayedrun(\\\"view.add\\\",\\\"\\\",0.1)\\n end\\n\"\n)\n\n(Script.44\n Name: \"StartUp.Open\"\n SourceCode: \"thedialog=self\\n\\nAVUpperLeft = av.ReturnOrigin \\nAVCenter = avUpperLeft + (av.ReturnExtent / (2@2)) \\nhalfDialogWidthHeight = TheDialog.ReturnExtent.ReturnSize / (2@2) \\nMovePoint = AVCenter - halfDialogWidthHeight \\nTheDialog.MoveTo(MovePoint.GetX, MovePoint.GetY)\\nthedialog.findbyname(\\\"view\\\").select\\n\\ntheodb = odb.open(\\\"$TEMP\\\\default.l4\\\".asfilename)\\nif (theodb = nil) then\\n flist = nil\\n thedialog.FindByName(\\\"Recent Projects lbx\\\").empty\\n else\\n flist = theodb.get(0)\\n theDialog.FindByName(\\\"Recent P\nrojects lbx\\\").definefromlist(flist)\\nend\\n\\n\"\n)\n\n(Script.45\n Name: \"Startup.ProjectOpen\"\n SourceCode: \"theDialog = av.FindDialog(\\\"Startup\\\")\\ntheFName = theDialog.FindbyName(\\\"Recent Projects lbx\\\").GetSelection.get(0).asfilename\\nif (file.Exists(theFName).Not) then\\n msgbox.error(\\\"Unable to find Project\\\"++theFName.asstring,Script.The.GetName)\\n return nil\\ nend\\ntheProject = av.GetProject\\nif (theProject <> nil) then\\n theProject.Close\\nend\\nav.DelayedRun(\\\"Project.OpenPart2\\\",theFName,0.1)\\nav.DelayedRun(\\\"Project.UpdateInterface\\\",nil,1)\\ntheDialog.Close\\n\"\n)\n\n(Script.46\n Name: \"StartUp.ShowAgain\"\n SourceCode: \"if (self.findbyname(\\\"Show\\\").isSelected.Not) then\\n alinef=\\\"$HOME/avstart.txt\\\".asfilename\\n startfile=linefile.make(alinef,#FILE_PERM_WRITE )\\n startfile.writeelt(\\\"If this file exists then ArcView will not display the startup wizard\\\")\\n sta rtfile.close\\nend\\n\"\n)\n\n(Script.47\n Name: \"StartUpExt.CanUnload\"\n SourceCode: \"return System.CanUnloadLibrary(self.GetDependencies.Get(0))\"\n)\n\n(Script.48\n Name: \"StartUpExt.Unload\"\n SourceCode: \"Dialog.DetachFromExtension(self)\"\n)\n\n" FontSize: 1 ) (DocWin.7 Owner: 6 X: 252 Y: 56 W: 363 H: 245 ) (CSMgr.8 ) (DocAct.9 Doc: 6 ) (SEd.10 Name: "Default Project" CreationDate: "Monday, May 18, 1998 12:42:56" GUIName: "Script" Win: 11 CSMgr: 12 DocExts: 13 Source: "/3.1\n(ODB.1\n Dependencies: \"$AVEXT/dlogcore.___\\n\"\n FirstRootClassName: \"Project\"\n Roots: 2\n Version: 31\n)\n\n(Project.2\n Name: \"default.apr\"\n GUIName: \"Project\"\n CSMgr: 3\n DocExts: 4\n VisGUIWidth: 70\n Flags: 0x01\n Dependencies: 5\n Scripts: 6\n Prefs: 457\n GUI: 467\n GUI: 742\n GUI: 871\n GUI: 967\n GUI: 1157\n GUI: 1267\n GUI: 1322\n WinX: 189\n WinY: 29\n WinW: 1063\n WinH: 849\n GUINames: 1340\n GUINames: 1341\n GUINames: 1342\n GUINames: 1343\n GUINames: 1344\n GUINames: 1345\n GUINames: 1346\n TocWidthScale: 1.000000000000 00\n)\n\n(CSMgr.3\n)\n\n(DocAct.4\n Doc: 2\n)\n\n(FN.5\n Path: \"$AVEXT/dlogcore.___\"\n)\n\n(NameDict.6\n Obj: 7\n Obj: 8\n Obj: 9\n Obj: 10\n Obj: 11\n Obj: 12\n Obj: 13\n Obj: 14\n Obj: 15\n Obj: 16\n Obj: 17\n Obj: 18\n Obj: 19\n Obj: 20\n Obj: 21\n Obj: 22\n Obj: 23\n Obj: 24\n Obj: 25\n Obj: 26\n Obj: 27\n Obj: 28\n Obj: 30\n Obj: 31\n Obj: 32\n Obj: 33\n Obj: 34\n Obj: 35\n Obj: 36\n Obj: 37\n Obj: 38\n Obj: 39\n Obj: 40\n Obj: 41\n Obj: 43\n Obj: 44\n Obj: 45\n Obj: 46\n Obj: 47\n Obj: 48\n Obj: 49\n Obj: 50\n Obj: 51\n Obj: 52\n Obj: 53\n Obj: 54\n Obj: 55\n Ob j: 56\n Obj: 57\n Obj: 58\n Obj: 59\n Obj: 60\n Obj: 61\n Obj: 62\n Obj: 63\n Obj: 64\n Obj: 65\n Obj: 66\n Obj: 67\n Obj: 68\n Obj: 69\n Obj: 70\n Obj: 71\n Obj: 72\n Obj: 73\n Obj: 74\n Obj: 75\n Obj: 76\n Obj: 77\n Obj: 78\n Obj: 79\n Obj: 80\n Obj: 81\n Obj: 82\n Obj: 83\n Obj: 84\n Obj: 85\n Obj: 86\n Obj: 87\n Obj: 88\n Obj: 89\n Obj: 90\n Obj: 91\n Obj: 92\n Obj: 93\n Obj: 94\n Obj: 95\n Obj: 96\n Obj: 97\n Obj: 98\n Obj: 99\n Obj: 100\n Obj: 101\n Obj: 102\n Obj: 103\n Obj: 104\n Obj: 105\n Obj: 106\n Obj: 107\n Obj: 108\n Obj: 109\n Obj: 110\n Obj: 111 \n Obj: 112\n Obj: 113\n Obj: 114\n Obj: 115\n Obj: 116\n Obj: 117\n Obj: 118\n Obj: 119\n Obj: 120\n Obj: 121\n Obj: 122\n Obj: 123\n Obj: 124\n Obj: 125\n Obj: 126\n Obj: 127\n Obj: 128\n Obj: 129\n Obj: 130\n Obj: 131\n Obj: 132\n Obj: 133\n Obj: 134\n Obj: 135\n Obj: 136\n Obj: 137\n Obj: 138\n Obj: 139\n Obj: 140\n Obj: 141\n Obj: 142\n Obj: 143\n Obj: 144\n Obj: 145\n Obj: 146\n Obj: 147\n Obj: 148\n Obj: 149\n Obj: 150\n Obj: 151\n Obj: 152\n Obj: 153\n Obj: 154\n Obj: 155\n Obj: 156\n Obj: 157\n Obj: 158\n Obj: 159\n Obj: 160\n Obj: 161\n Obj: 162\n Obj: 163\n Obj: 164\n Obj: 165\n Obj: 166\n Obj: 167\n Obj: 168\n Obj: 169\n Obj: 170\n Obj: 171\n Obj: 172\n Obj: 173\n Obj: 174\n Obj: 175\n Obj: 176\n Obj: 177\n Obj: 178\n Obj: 179\n Obj: 180\n Obj: 181\n Obj: 182\n Obj: 183\n Obj: 184\n Obj: 185\n Obj: 186\n Obj: 187\n Obj: 188\n Obj: 189\n Obj: 190\n Obj: 191\n Obj: 192\n Obj: 193\n Obj: 194\n Obj: 195\n Obj: 196\n Obj: 197\n Obj: 198\n Obj: 199\n Obj: 200\n Obj: 201\n Obj: 202\n Obj: 203\n Obj: 204\n Obj: 205\n Obj: 206\n Obj: 207\n Obj: 208\n Obj: 209\n Obj: 210\n Obj: 211\n Obj: 212\n Obj: 213\n Ob j: 214\n Obj: 215\n Obj: 216\n Obj: 217\n Obj: 218\n Obj: 219\n Obj: 220\n Obj: 221\n Obj: 222\n Obj: 223\n Obj: 224\n Obj: 225\n Obj: 226\n Obj: 227\n Obj: 228\n Obj: 229\n Obj: 230\n Obj: 231\n Obj: 232\n Obj: 233\n Obj: 234\n Obj: 235\n Obj: 236\n Obj: 237\n Obj: 238\n Obj: 239\n Obj: 240\n Obj: 241\n Obj: 242\n Obj: 243\n Obj: 244\n Obj: 245\n Obj: 246\n Obj: 247\n Obj: 248\n Obj: 249\n Obj: 250\n Obj: 251\n Obj: 252\n Obj: 253\n Obj: 254\n Obj: 255\n Obj: 256\n Obj: 257\n Obj: 258\n Obj: 259\n Obj: 260\n Obj: 261\n Obj: 262\n Obj: 263\n Obj: 264\n Obj: 265\n Obj: 266\n Obj: 267\n Obj: 268\n Obj: 269\n Obj: 270\n Obj: 271\n Obj: 272\n Obj: 273\n Obj: 274\n Obj: 275\n Obj: 276\n Obj: 277\n Obj: 278\n Obj: 279\n Obj: 280\n Obj: 281\n Obj: 282\n Obj: 283\n Obj: 284\n Obj: 285\n Obj: 286\n Obj: 287\n Obj: 288\n Obj: 289\n Obj: 290\n Obj: 291\n Obj: 292\n Obj: 293\n Obj: 294\n Obj: 295\n Obj: 296\n Obj: 297\n Obj: 298\n Obj: 299\n Obj: 300\n Obj: 301\n Obj: 302\n Obj: 303\n Obj: 304\n Obj: 305\n Obj: 306\n Obj: 307\n Obj: 308\n Obj: 309\n Obj: 310\n Obj: 311\n Obj: 312\n Obj: 313\n Obj: 314\n Obj: 315\n Obj: 3 16\n Obj: 317\n Obj: 318\n Obj: 319\n Obj: 320\n Obj: 321\n Obj: 322\n Obj: 323\n Obj: 324\n Obj: 325\n Obj: 326\n Obj: 327\n Obj: 328\n Obj: 329\n Obj: 330\n Obj: 331\n Obj: 332\n Obj: 333\n Obj: 334\n Obj: 335\n Obj: 336\n Obj: 337\n Obj: 338\n Obj: 339\n Obj: 340\n Obj: 341\n Obj: 342\n Obj: 343\n Obj: 344\n Obj: 345\n Obj: 346\n Obj: 347\n Obj: 348\n Obj: 349\n Obj: 350\n Obj: 351\n Obj: 352\n Obj: 353\n Obj: 354\n Obj: 355\n Obj: 356\n Obj: 357\n Obj: 358\n Obj: 359\n Obj: 360\n Obj: 361\n Obj: 362\n Obj: 363\n Obj: 364\n Obj: 365\n Obj: 366\n Obj: 367 \n Obj: 368\n Obj: 369\n Obj: 370\n Obj: 371\n Obj: 372\n Obj: 373\n Obj: 374\n Obj: 375\n Obj: 376\n Obj: 377\n Obj: 378\n Obj: 379\n Obj: 380\n Obj: 381\n Obj: 382\n Obj: 383\n Obj: 384\n Obj: 385\n Obj: 386\n Obj: 387\n Obj: 388\n Obj: 389\n Obj: 390\n Obj: 391\n Obj: 392\n Obj: 393\n Obj: 394\n Obj: 395\n Obj: 396\n Obj: 397\n Obj: 398\n Obj: 399\n Obj: 400\n Obj: 401\n Obj: 402\n Obj: 403\n Obj: 404\n Obj: 405\n Obj: 406\n Obj: 407\n Obj: 408\n Obj: 409\n Obj: 410\n Obj: 411\n Obj: 412\n Obj: 413\n Obj: 414\n Obj: 415\n Obj: 416\n Obj: 417\n Obj: 418\n Obj: 419\n Obj: 420\n Obj: 421\n Obj: 422\n Obj: 423\n Obj: 424\n Obj: 425\n Obj: 426\n Obj: 427\n Obj: 428\n Obj: 429\n Obj: 430\n Obj: 431\n Obj: 432\n Obj: 433\n Obj: 434\n Obj: 435\n Obj: 436\n Obj: 437\n Obj: 438\n Obj: 439\n Obj: 440\n Obj: 441\n Obj: 442\n Obj: 443\n Obj: 444\n Obj: 445\n Obj: 446\n Obj: 447\n Obj: 448\n Obj: 449\n Obj: 450\n Obj: 451\n Obj: 452\n Obj: 453\n Obj: 454\n Obj: 455\n Obj: 456\n)\n\n(Script.7\n Name: \"View.SelectToEditTool\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.SetSelectMode(#GRAPHICS_SELECT_VERTEX)\"\n )\n\n(Script.8\n Name: \"View.AddGraphicsUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nSELF.SetEnabled((theView.GetActiveThemes.Count = 1) AND theView.GetGraphics.HasSelected)\\n\\n\"\n)\n\n(Script.9\n Name: \"Project.HelpTopics\"\n SourceCode: \"av.Help.SetAVFile\\nav.Help.Show\"\n)\n\n(Script.10\n Name: \"Project.Delete\"\n SourceCode: \"theProject = av.GetProject\\ntheDocs = theProject.GetSelectedDocs\\nif (theDocs.IsEmpty) then\\n return nil\\nend\\ndoc_names = \\\"\\\"\\nall = false\\nresult = false\\nfor each d in theDocs\\n if (NO T all) then\\n result = MsgBox.AllYesNo( \\\"Are you sure you want to delete\\\"++d.GetName, \\\"Delete\\\", NIL )\\n if (result = nil) then\\n all = true\\n elseif (result = false) then\\n continue\\n end\\n end\\n if(d.Is(View)) then\\n editThm = d.GetEditableTheme\\n if (editThm <> nil) then\\n doSave = MsgBox.YesNoCancel(\\\"Sa\nve Edits to \\\"+editThm.GetName+\\\" in \\\"+\\n d.GetName+\\\"?\\\", \\\"Stop Editing\\\", true)\\n if (doSave = nil) then\\n continue\\n end\\n if (edi tThm.StopEditing(doSave).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits to Theme \\\"\\n + editThm.GetName +\\n \\\", please use the Save Edits As option\\\", \\\"\\\")\\n continue\\n else\\n d.SetEditableTheme(NIL)\\n end\\n end \\n end\\n if (d.Is(Table)) then\\n if (d.GetVTab.IsBeingEditedWithrecovery) then\\n \n doSave = MsgBox.YesNoCancel(\\\"Save Edits to the table \\\"+d.GetName+\\n \\\"?\\\", \\\"Stop Editing\\\", True)\\n if (doSave = n il) then\\n continue\\n end\\n if (d.GetVtab.StopEditingWithRecovery(doSave).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits to Table \\\" + d.GetName +\\n \\\", please use the Save Edits As option\\\", \\\"\\\")\\n continue\\n end\\n end \\n end \\n av.GetProject.RemoveDoc( d )\\nend\\n\\nav.PurgeObjects\"\n)\n\n(Script.11\n Name: \"UTIL.MakeDir\"\n SourceCode: \"' Name: UTIL.MKDir\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Sept 9th 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script creates a subdirectory using the operating system command\\n' designed for the task. It uses \nthe COMMAND.COM on windows 3.1 based\\n' systems and the MKDIR command for UNIX. \\n' If tye OS is Win NT or 95 and above the script uses the API call to the\\n' kernel32.dll.\\n' If you are running windows 3.1 and AV3.0a ExecuteSyncronous is used, if you are \\n' using windows 3.1 and AV3.0 then system.Execute is used.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: {dir}\\n' Returns: \\n' -------------------------------------------------------------------\\n'\n Name: UTIL.MakeDir\\n'\\n' Headline: Makes a subdirectory\\n'\\n' Self: a string object representing the path to create\\n'\\n' Returns: nil if unsuccessful, true if successful\\n'\\n'\\n' Topics: execute system programs\\n'\\n' Search Keys: execute\\n'\\n' Requires: \\n'\\n' History: Tim Loesch Original Coding 4-14-96\\n'\\n'-ESRI - ArcView 3.0a\\n'\\n\\n'this script makes subdirectories\\n\\nif ( Self = nil ) then \\n msgbox.info(\\\"No Directory Name Passed to DNR.MAKEDIR\\\",\\\"Oh, Oh\\\")\\n return nil\\nend\\n\\ndir = self.get(0)\\n\\nif ( file.exists(dir.asfilen\name) ) then\\n' msgbox.info(\\\"Directory \\\"++dir++\\\" Exists!, No need to create\\\",\\\"DNR.MAKEDIR\\\")\\n return nil\\nend\\n\\n' we must use the DOS, UNIX, or NT command to do this because ArcView does not have a request\\n' to create a subdirectory. We will construct two variables here one that represents\\n' the operating system and one that represents the arguement to the program that \\n' creates the subdirectory.\\n'\\nsys = System.GetOS\\nvar = System.GetOSVariant\\n\\n\\nif ( file.exists((dir).asfilename).not ) then\\n if ( sys = #SYSTEM\n_OS_MSW ) then\\n dir = dir .substitute(\\\"/\\\",\\\"\\\\\\\")\\n if (system.GetOSVariant = #SYSTEM_OSVARIANT_MSW16) then\\n ex = FileName.FindInSystemSearchPath(\\\"command.com\\\")\\n \\n ver = av.GetVersion\\n if (ver = \\\"3.0\\\") then\\n system.execute(ex++dir)\\n else\\n system.executesynchronous(ex++dir)\\n end\\n else\\n kernelDLL = DLL.Make( FileName.FindInSystemSearchPath( \\\"kernel32.dll\\\" ))\\n procGetLastError = DLLProc.Make( kernelDLL, \\\"GetLastError\\\", #DLLPROC_TYPE_INT32,{#DLLPROC_TY\nPE _VOID})\\n CreateDirectoryDLLProc = DLLProc.Make( kernelDLL, \\\"CreateDirectoryA\\\",#DLLPROC_TYPE_INT32,\\n {#DLLPROC_TYPE_STR,#DLLPROC_TYPE_INT32} )\\n if (CreateDirectoryDLLProc.Is(DLLProc) ) then\\n returnNumber = CreateDirectoryDLLProc.Call( { dir, 0 } )\\n end\\n end\\n elseif ( sys = #SYSTEM_OS_UNIX ) then\\n dir = dir.substitute(\\\"\\\\\\\",\\\"/\\\")\\n ex = \\\"mkdir -p\\\"\\n system.execute(ex++dir)\\n end\\nend\\n\\n\\n' now check to see if the d irectory did in fact g\net made. If it did return a true,\\n' if it didn't get made, return a nil value....\\n'\\nif ( (file.exists(dir.asfilename)) and ((dir.asfilename).isdir) ) then\\n' msgbox.info(\\\"System Directory\\\"++dir++\\\"Successfully Created\\\",\\\"DNR.MAKEDIR\\\")\\n success = true\\n return success\\n else\\n msgbox.error(\\\"Unable to make system directory\\\"++dir,\\\"Problem making directory\\\")\\n return nil\\nend\\n\\n\\n\\n\"\n)\n\n(Script.12\n Name: \"View.RedoEditUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nenab led = False\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n SELF.SetVisible(True)\\n if (theTheme.GetFTab.CanRedo) then\\n enabled = True\\n end\\nelse\\n SELF.SetVisible(False) \\nend\\n\\nself.SetEnabled(enabled)\\n\"\n)\n\n(Script.13\n Name: \"Last4.SaveName\"\n SourceCode: \"new = av.GetProject.GetFileName.GetName.Substitute( \\\"\\\\\\\", \\\"/\\\")\\n\\nav.run(\\\"Last4.RestoreState\\\",nil) \\n\\nif ((_RememberLast.Count <> 0) AND (_RememberLast.Get(0) = new)) then\\n return nil\\nend \\n_RememberLast.Insert( new )\\nif (_RememberLast.Count > 1) then\\n _RememberLast.RemoveDuplicates\\n if (_RememberLast.Count > 9) then\\n _RememberLast.Remove( 9 )\\n end\\nend\\n\\n'save to file\\n\\nlast = ODB.Make( \\\"$TEMP/default.l4\\\".AsFileName )\\nlast.Add( _RememberLast )\\nlast.commit\"\n)\n\n(Script.14\n Name: \"View.Find\"\n SourceCode: \"theView = av.GetActiveDoc\\nkey = MsgBox.Input(\\\"Search for:\\\", \\\"Find Text in Attributes\\\", theView.GetFindString)\\nif (key <> nil) then\\n av.UseWaitCursor\\n if (theView.Find(key).not) then\\n M sgBox.Warning(\\\"No more matches found.\\\",\\\"Find\\\")\\n end\\nend\"\n)\n\n(Script.15\n Name: \"Coordinate.DDtoDMS\"\n SourceCode: \"' Name: Coordinate.DDtoDMS\\n'\\n' Author: Timothy N. Loesch\\n' Date: Tue Jul 28 13:21:15 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script displays a lat/long on the screen from a UTM zone 15 point\\n' and displays the DMS and DD versions of the point.\\n' Requires: \\n' Runs: \\ n' Run by: \\n' Self: a point object in Decimal Degrees\\n' Returns: a list object with two objects lat and long in DMS\\n' --------------\n-----------------------------------------------------\\nif ((self = nil) or (self.Is(Point).not)) then\\n msgbox.Error(\\\"This script expects a point object to be passed to it!\\\",\\\"Coordinate.DDtoDMS\\\")\\n return nil\\nend\\n\\nlatdd = self.gety\\nlongdd = self.getx\\n\\ntmplist = {}\\nfor each num in {latdd,longdd}\\n deg = num.truncate\\n tmp = num - deg\\n tmpmn = (tmp * 60).abs\\ n mn = tmpmn.truncate\\n tmp = tmpmn - mn\\n sec = (tmp * 60).truncate\\n tmplist.add(deg.asstring++mn.asstring++sec.asstring)\\nend\\n\\nreturn tmplist\\n\\n\"\n)\n\n(Script.16\n Name: \"View.New\"\n SourceCode: \"' Name: View.New\\n'\\n' Headline: Minnesota's Version of Add New View \\n'\\n' Self: \\n'\\n' Returns:\\n'\\n' Description: This is a re-write of the original View.New script. What it does \\n' extra is that it requests a name for the view and automatically sets\\n' the map and display uni ts to the values stored in the property sheet. \\n'\\n\\n' History: Tim Loesch Original coding 1-2-97\\n\\nmsg = system.getenvvar(\\\"DNRMSG\\\")\\nif (msg = nil) then\\n msg = \\\"ON\\\"\\nend\\nif ( msg.ucase <> \\\"OFF\\\") the\nn\\n vname = msgbox.input(\\\"Enter View Name\\\",\\\"Add View\\\",\\\"\\\")\\n if (vname = nil) then return nil end\\nend\\nnewView = View.MakeWithGUI(av.GetProject.GetSelectedGUI.GetName)\\nMapUnits = system.getenvvar(\\\"MAPUNITS\\\")\\nDistUnits = system.getenvvar(\\\"DISUNITS\\\")\\n\\nunitslist = {\\\"MET ERS\\\",\\\"MILES\\\",\\\"FEET\\\",\\\"YARDS\\\",\\\"KILOMETERS\\\",\\\"DEGREES\\\",\\\"NAUTICALMILES\\\",\\\"CENTIMETERS\\\",\\\"MILLIMETERS\\\"}\\nfound = false\\nfor each aunit in unitslist\\n if (MapUnits.ucase = aunit) then\\n MUnits = \\\"#UNITS_LINEAR_\\\"+aunit\\n found = true\\n end\\nend\\nif (found.n\not) then\\n MapUnits = \\\"Unknown\\\"\\n MUnits = \\\"#UNITS_LINEAR_UNKNOWN\\\"\\nend\\n\\nfound = false\\nfor each aunit in unitslist\\n if (DistUnits.ucase = aunit) then\\n DUnits = \\\"#UNITS_LINEAR_\\\"+aunit\\n found = true\\n end\\nend\\nif (fo und.not) then\\n distUnits = \\\"Unknown\\\"\\n DUnits = \\\"#UNITS_LINEAR_UNKNOWN\\\"\\nend\\n\\n\\nnewView.SetUnits(MUnits.AsEnum)\\nnewView.getdisplay.setdistanceunits(DUnits.AsEnum)\\nnewView.GetWin.Open\\nif (msg.ucase <> \\\"OFF\\\") then\\n newView.SetName(vname)\\n msgbox.info(\\\"Map Units set to \\\"+mapunits+\\\", Distance un\nits set to \\\"+distunits,\\\"New View\\\")\\nend\\n\\n\"\n)\n\n(Script.17\n Name: \"Project.NewPart2\"\n SourceCode: \"' DO NOT DELETE GLOBALS\\n'\\n\\nSystem.RefreshWindows\\nav.PurgeObjects\\nav.ProcessAllInvals\\nthePr oject = Project.Make\\ntheProject.GetWin.Open\\ntheProject.SetModified(FALSE)\\nav.Run(\\\"Codepage.Install\\\",nil)\\n\\n\"\n)\n\n(Script.18\n Name: \"Table.UndoEdit\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVtab.Undo\\n\"\n)\n\n(Script.19\n Name: \"DNR.Layout.AddTableGraphic\"\n SourceCode: \"' Name: DNR.Layout.AddTableGraphic\\n'\\n' Author: ESRI - derived from samples script.......\\n' \\n' Date: Sun Nov 29 07:13:01 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' ------------------ -------------------------------------------------\\n' Description: This script is a copy of the one provided by ESRI to \\n' add a table to a layout as a graphic rather than a table\\n' object. \\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' ---------------------\n----------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheLayout = av.GetActiveDoc\\ngl = theLayout.GetGraphics\\nbRect = theLayout.ReturnUserRect\\nif (bRect.GetWidth < 0.1) then\\n r eturn nil\\nend\\n\\nif (System.IsShiftKeyDown) then\\n SelectedOnly = true\\nelse\\n SelectedOnly = false\\nend\\n\\nTableDocNames = {}\\nfor each d in av.GetProject.GetDocs\\n if(d.Is(Table)) then\\n TableDocNames.Add(d.GetName)\\n end\\nend\\n\\nif (TableDocNames.Count = 0) then\\n Msgbox.Error(\\\"You must have a table document in the\n Project\\\",\\\"Duh!\\\")\\n return nil\\n\\nend\\ngl.UnSelectAll\\n\\nTableName = Msgbox.ChoiceAsString(TableDocNames,\\\"Choose a table:\\\",\\\"Smart Table\\\")\\nif (TableName = nil) then\\n return nil\\nend\\n\\ntheTable = av.GetProject.FindDoc(TableName)\\ntheVTab = theTable.GetVTab\\ntheFieldNames = {}\\nfor each f in theVTab.GetFields\\n if (f.IsTypeShape.Not) then\\n theFieldNames.Add(f.GetAlias)\\n end\\nend\\n\\nFieldsToShow = Msgbox.MultiListAsString(theFieldNames,\\\"Choose the Fields to Show\\\",\\\"Smart Table\\\")\\nif (FieldsToShow = nil) then return nil e\nnd\\n\\nif (FieldsToShow.Count = 0) then\\n return nil\\nend\\n\\nbc = Color.Make\\nbc.SetRGBList({255,255,225})\\nftbf = RasterFill.Make\\nftbf.SetStyle(#RA STERFILL_STYLE_SOLID)\\nftbf.SetColor(bc)\\n\\nbRectO = bRect.ReturnOrigin\\nbRectH = bRect.GetHeight\\nbRectW = bRect.GetWidth\\nbRectT = bRect.GetTop\\nbrectB = bRect.GetBottom\\nbRectR = bRect.GetRight\\nHeightLeft = bRect.GetHeight\\n\\ntbo = bRectO + (0@bRectH)\\ncspace = 0\\n\\nfor each f in FieldsToShow\\n \\n 'Make Field Title\\n fl = GraphicText.Make(f,(tbo +(0.1@0)) )\\n\\n fl.GetSymbol.SetSiz\ne(12)\\n fl.SetDisplay(theLayout.GetDisplay)\\n tbo = tbo - (0@(fl.GetBounds.GetHeight + 0.05))\\n fl.SetSelected(true)\\ n \\n gl.AddBatch(fl)\\n HeightLeft = HeightLeft - fl.GetBounds.GetHeight - 0.05\\n HbarHeight = HeightLeft\\n \\n 'Now do the column of values\\n \\n if (SelectedOnly) then\\n theBitmap = theVTab.GetSelection\\n else\\n ResetSelection = false\\n if (theVTab.GetSelection.Count <> 0) then\\n theVTab.RememberSelection\\n theVTab.GetSelection.SetAll\\n\\n theVtab.UpdateSelection\\n ResetSel\nection = true\\n end\\n theBitmap = theVTab.GetDefBitmap\\n end\\n \\n counter = -1\\n ColStr = \\\"\\\"\\n vst = GraphicText.Make(ColStr,(0@0))\\n vst.SetDisplay(theLayout.GetDisplay)\\n vst.GetSymbol.SetSize(10)\\n While (HeightLeft <> 0)\\n rec = theBitmap.GetNextSet(counter)\\n counter = rec\\n ValStr = theVTab.ReturnValueString(theVTab.FindField(f),rec)\\n ColStr = ColStr + ValStr\\n vst.SetText(ColStr)\\n 'Check to see if column has exceeded Height\\n\\n if (HeightLeft < vst.GetBounds.GetHeight) then\\n H\neightLeft = 0\\n end \\n if (theBitmap.GetNextSet(counter) = -1) then\\n HeightLeft = 0\\n end\\n ColStr = ColStr + nl\\n end\\n \\n vst.SetOrigin(tbo - (0@(vst.getBounds.GetHeight)) )\\n \\n 'Check to see if the Column is wider than the Title\\n if (fl.GetBounds.GetWidth > vst.GetBounds.GetWidth) then\\n 'Title is wider, so move column\\n if (theVTab.FindField(f).IsTypeNumber) then\\n vst.SetAlignment(#TEXTCOMPOSER_JUST_RIGHT)\\n\\n vst.GetBounds.Move((fl.GetBounds.GetWidth - vst.GetBounds.GetWidth \n+ 0.1),0.1)\\n gl.AddBatch(vst)\\n elseif(theVTab.Find Field(f).IsTypeString) then\\n vst.SetAlignment(#TEXTCOMPOSER_JUST_LEFT)\\n vst.GetBounds.Move(0.1,0.1)\\n gl.AddBatch(vst)\\n end \\n else\\n 'Column is wider so move & justify title\\n if (theVTab.FindField(f).IsTypeNumber) then\\n vst.SetAlignment(#TEXTCOMPOSER_JUST_RIGHT)\\n vst.GetBounds.Move(0.1, 0.1)\\n gl.AddBatch(vst)\\n\\n elseif (theVTab.FindField(f).IsTypeString) then\\n vst.SetAlignment(#TEXTCOMPOSER_JUST_LEFT)\\n \n vst.GetBounds.Move(0.1, 0.1)\\n gl. AddBatch(vst)\\n end \\n fl.GetBounds.Move( ( (vst.GetBounds.GetWidth - fl.GetBounds.GetWidth) /2 ) ,0)\\n end \\n vst.SetSelected(true)\\n \\n cbr = gl.ReturnSelectedExtent.clone\\n cbr.ExpandBy(0.05)\\n cbp = GraphicShape.Make(cbr)\\n cbp.GetSymbol.SetOLWidth(0.1)\\n gl.AddBatch(cbp)\\n cbp.SetSelected(true) \\n gl.GroupSelected\\n\\n gl.GetSelected.Get(0).SetObjectTag(\\\"col\\\")\\n cspace = cspace + gl.ReturnSelectedExtent.GetWidth \\n gl.UnSelectAll\\n HeightLeft = bRectH\\n \n tbo = bRectO + (cspa ce@bRectH)\\nend\\n\\nfor each g in gl.FindAllByObjectTag(\\\"col\\\")\\n g.SetSelected(true)\\nend\\n\\nse = gl.ReturnSelectedExtent\\nseO = se.ReturnOrigin\\nftr = Rect.Make(SeO + (0@(se.GetHeight - 0.275)),(se.GetWidth@0.275))\\n\\ncoltits = {}\\nfor each g in gl.FindAllByObjectTag(\\\"col\\\")\\n colTitleRect = ftr.IntersectWith(g.GetBounds.Clone)\\n\\n coltits.Add(colTitleRect)\\n g.SetSelected(false)\\nend\\ntc = Color.Make\\ntc.SetTransParent(true)\\n\\nfor each ftr in coltits\\n bp = ftr.Clone.InsetBy(0.0125)\\n bpd = Polyg on.Mak\ne({{ftr.ReturnOrigin,(ftr.GetRight@ftr.GetBottom),(ftr.GetRight@ftr.GetTop),(bp.GetRight@bp.GetTop),(bp.GetLeft@bp.GetBottom),ftr.ReturnOrigin}})\\n bpl = Polygon.Make({{ftr.ReturnOrigin,(bp.ReturnOrigin),(bp.GetRight@bp.GetTop),(ftr.GetRight@ftr.GetTop),(ftr.GetLeft@ftr.GetTop),ftr.ReturnOrigin}})\\n\\n gbp = GraphicShape.Make(bp)\\n gbpd = GraphicShape.Make(bpd)\\n gbpl = GraphicShape.Make(bpl)\\n gbp.SetSymbol(ftbf.Clone)\\n gbpd.SetSymbol(ftbf.Clone)\\n gbpl.SetSymbol(ftbf.Clone)\\n lg = Color.Mak e\\n lg.SetRGBLis\nt({220,220,220})\\n dg = Color.Make\\n dg.SetRGBList({120,120,120})\\n gbpd.GetSymbol.SetColor(dg.Clone)\\n gbpl.GetSymbol.SetColor(lg.Clone)\\n gbpl.GetSymbol.SetOLWidth(0)\\n gbpd.GetSymbol.SetOLWidth(0)\\n gbpl.GetSymbol.SetColorLock(true)\\n gbpd.GetSymbol.SetColorLock(true)\\n\\n gbp.GetSymbol.SetOLWidth(0)\\n gbpl.GetSymbol.SetOLColor(tc.Clone)\\n gbpd.GetSymbol.SetOLColor(tc.Clone)\\n gbp.GetSymbol.SetOLColor(tc.Clone)\\n gl.AddBatch(gbpd)\\n gl.AddBatch(gbpl)\\n gl.AddBatch(gbp)\\n gbpd.SetSelected(true)\\n gbpl.SetSe\nlected(true)\\n gbp.SetSelected(True)\\nend\\ngl.GroupSelected\\ngl.MoveSelectedToBack\\ngl.GetSelected.Get(0).SetObjectTag(\\\"buttons\\\")\\ngl.UnSelectAll \\n\\nfor each g in gl.FindAllByObjectTag(\\\"col\\\")\\n g.SetSelected(true)\\n gl.MoveSelectedToFront\\n\\nend\\ngl.FindByObjectTag(\\\"buttons\\\").SetSelected(true)\\n\\nNeatRect = gl.ReturnSelectedExtent.Clone\\nnrgs = GraphicShape.Make(NeatRect)\\nnrgs.GetSymbol.SetOLWidth(0.6)\\ntheLayout.GetGraphics.AddBatch(nrgs)\\n\\ngl.UnSelectAll\\n \\nbp = GraphicShape.Make(NeatRect)\\nbw = Color.GetWhite\\nbpf = Rast\nerFill.Make\\nbpf.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\\nbp.SetSymbol(bpf)\\nbp.GetSymbol.SetColor(tc.Clone)\\nbp.GetSymbol.SetBGColor(Color.GetWhite)\\ntheLayout.GetGraphics.AddBatch(bp)\\n\\nbp.SetSelected(True)\\ngl.MoveSelectedToBack\\n\\nif (ResetSelection) then\\n LastSel = theVTab.GetLastSelection.Clone\\n theVTab.SetSelection(LastSel)\\n theVTab.UpdateSelection\\nend\\n\\nfor each g in gl.FindAllByObjectTag(\\\"col\\\")\\n g.SetSelected(true)\\n end\\ngl.FindByObjectTag(\\\"buttons\\\").SetSelected(true)\\nnrgs.SetSelected(true)\\ngl.GroupSelec\nted\\n\\ntheLayout.GetGraphics.EndBatch\\n\\n\"\n)\n\n(Script.20\n Name: \"View.SplitTool\"\n SourceCode: \"theView = av.GetActiveDoc\\nl = theView.ReturnUserPolyLine\\ntheTheme = theView.GetEditableTheme\\n\\nif (l.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n theTheme.GetFtab.BeginTransaction\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n theType = theField.GetType\\n if ((theType = #FIELD_SHAPE POLY) or (theType = #FIELD_SHAPELINE)) then\\n theTheme.Split(l)\\n end\\n theTheme.GetFtab.EndTransaction\\n end \\n av.GetProject.SetModified(true)\\nend\\n\\n\"\n)\n\n(Script.21\n Name: \"Layout.ZoomPage\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.ZoomToPage\"\n)\n\n(Script.22\n Name: \"Script.Comment\"\n SourceCode: \"' Comment out selected lines\\n\\ntheSEd = av.GetActiveDoc\\n\\n' Comment out selected lines\\nselected = \\\"'\\\"+theSEd.GetSelected\\ncommented = sele cted.Substitute( NL, NL+\\\"'\\\" )\\n\\n' BUT not the next line!\\nif (commented.right( 1 ) = \\\"'\\\" ) then\\n commented = commented.left( commented.count - 1 )\\nend \\n\\n' Add revised text back into script\\nnew = theSEd.Insert( commented ) 'UNDO works!\\n\"\n)\n\n(Script.23\n Name: \"View.HighwayToolUpdate\"\n SourceCode: \"v = av.GetActiveDoc\\nenabled = false\\nif (Extension.GetExtensions.Get(\\\"Label & Text Tools\\\") = NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend \\nif (v.GetActiveThemes.Count > 0) then\\n for eac h t in v.GetActiveThemes\\n if (t.Is(FTheme)) then\\n if (t.GetFTab.GetShapeClass.GetClassname.Contains(\\\"Line\\\")) then\\n enabled = true\\n end\\n end\\n end\\nend\\n\\nSelf.SetEnabled(enabled)\\n\\n\"\n)\n\n(Script.24\n Name: \"SymWin.DisplayPenPanel\"\n SourceCode: \"if ((av.GetSymbolWin.GetPanel = #SYMBOLWIN_PANEL_COLOR).not) then\\n av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_PEN)\\nend\"\n)\n\n(Script.25\n Name: \"Script.ShiftRight\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.ShiftRight\"\n)\n\n(Script.26\n Name: \"Chart.Identify\"\n SourceCode: \"theChart = av.GetActiveDoc\\nrec = theChart.GetUserRecord\\nif (rec <> -1) then\\n idlabel = theChart.GetName++\\\"-\\\"\\n f = theChart.GetRecordLabelField\\n if (f = Nil) then\\n idlabel = idlabel++rec.AsString\\n else\\n idlabel = idlabel++theChart.GetVTab.ReturnValueString(f,rec)\\n end\\n theChart.GetVTab.Identify(rec, idlabel)\\nend\\n\"\n)\n\n(Script.27\n Name: \"Script.Embed\"\n SourceCode: \"'Embeds the current script in the Project\\n' and deletes the script editor\\n'\\ntheS Ed = av.GetActiveDoc\\nif (NOT (theSEd.IsCompiled)) then\\n msgbox.error(\\\"Script is uncompiled:\\\"++theSEd.GetName, \\\"\\\")\\n return nil\\nend\\n\\n'See if script name has been modified\\nSEdName = theSed.GetName\\nif ((SEdName.Left(6)=\\\"Script\\\") and (SEdName.Right(sedName.Count-6).IsNumber)) then\\n change = msgbox.yesno( \\\"Do you want to change the script name?\\\", \\\"Embed Script\\\", TRUE )\\n if (change) then\\n return nil\\n end\\nend\\n \\n'See if scrip\nt is already on the script list\\nif ( av.GetProject.Get Scripts.Get(theSEd.GetName ) <> nil) then\\n replace = msgbox.yesno( \\\"Do you want to overwrite\\\"++theSEd.GetName+\\\"?\\\",\\n \\\"Embed Script\\\", TRUE)\\n if (replace.Not) then \\n return nil\\n end\\nend\\n \\n'Embed the script\\ntheScript = theSEd.GetScript\\nav.GetProject.AddScript( theScript )\\n\\n'Remove the script editor\\nav.GetProject.RemoveDoc( theSEd )\\n\\n'Report success\\nav.ShowMsg(\\\"Script embedded:\\\"++theScript.Ge\ntName )\\n\\n\"\n)\n\n(Script.28\n N ame: \"WindowMenuUpdate\"\n SourceCode: \"\\n' Get the open documents and their names\\nnames = av.GetProject.GetName\\ndoclist = { av.GetProject }\\n\\nfor each d in av.GetProject.GetDocs\\n if (d.GetWin.IsOpen) then\\n doclist.Add( d )\\n names = names++d.GetName\\n end\\nend \\n \\n' Get last state and look for change\\noldNames = self.GetObjectTag\\nif (oldNames = nil) then\\n oldNames = \\\"\\\" \\nelseif (names = oldNames) then\\n return nil ' bail out if no change\\nend\\n \\n' save current state\\nself.SetObjectTa g( names )\\n \\n' set the default number format\\nScript.The.Set\nNumberFormat( \\\"d\\\" )\\n\\n' delete all of the menu items from the bottom to the separator\\nctlset = self.GetControlSet\\nl = ctlset.GetControls\\nlast = l.get(l.count - 1)\\n\\nwhile (last <> self)\\n ctlset.Remove(last)\\n last = l.get(l.count- 1)\\nend\\n\\n ' iterate through the open docs and add them back as menu items\\ncount = 1\\nfor each d in doclist\\n n= ctlset.New(l.Count)\\n n.setLabel(\\\"&\\\"+count.AsString++d.GetName)\\n n.setClick(\\\"WindowA ctivate\\\")\\n n.SetHelp(\\\"Activates\\\"++d.GetName)\\n count=count+1\\nend\\n\"\n NumberFormat: 29\n)\n\n(AVStr.29\n S: \"d\"\n)\n\n(Script.30\n Name: \"View.RemoveThemeLabels\"\n SourceCode: \"v = av.GetActiveDoc\\nfor each t in v.GetVisibleThemes\\n if (t.IsActive) then\\n if (t.GetGraphics.HasLabels) then\\n t.GetGraphics.SelectLabels\\n t.GetGraphics.Invalidate\\n end\\n end\\nend\\nv.GetGraphics.ClearSelected\"\n)\n\n(Script.31\n Name: \"Layout.UndoUpdate\"\n SourceCode: \"SELF.SetEnabled(av.GetActiveDoc.GetGraphics.CanRe storeGraphic)\\n\"\n)\n\n(Script.32\n Name: \"Layout.ShowHideMarginsUpdate\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nif (theLayout.GetDisplay.IsMarginVisible) then\\n SELF.SetLabel(\\\"Hide &Margins\\\")\\nelse\\n SELF.SetLabel(\\\"Show &Margins\\\")\\nend\\n\"\n)\n\n(Script.33\n Name: \"Table.StopEditing\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.StopEditing\"\n)\n\n(Script.34\n Name: \"View.Print\"\n SourceCode: \"theView = av.GetActiveDoc\\nvn = theView.GetName\\nl = {vn+\\\" - Display\\\", vn+\\\" - Table of Contents\\\"}\\nwhat = Prin ter.The.Edit(l)\\nif (what = 1) then\\n theView.PrintTOC\\nelseif (what = 0) then\\n theView.Print\\nend\"\n)\n\n(Script.35\n Name: \"Script.Properties\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.Edit\"\n)\n\n(Script.36\n Name: \"Script.ClearAllBreaks\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.ClearAllBreaks\\n\"\n)\n\n(Script.37\n Name: \"View.SaveEditsAs\"\n SourceCode: \"theView = av.GetActiveDoc\\neditThm = theView.GetEditableTheme\\n\\nif (editThm <> nil) then\\n \\n def = av.GetProject.MakeFileName(\\\"theme\\\", \\\"sh p\\\")\\n def = FileDialog.Put(def, \\\"*.shp\\\", \\\"Save Edits For Theme \\\" + editThm.GetName)\\n \\n if (def = NIL) then return nil end\\n\\n\\n newTheme = editThm.SaveEditsAs(def)\\n \\n if ((newTheme <> nil) and (newTheme.GetFTab.HasError.Not)) then\\n\\n theView.SetEditableTheme(nil)\\n theView.AddTheme(newTheme)\\n theView.SetEditableTheme(newTheme)\\n \\n editThm.SetVisible(False)\\n newThem\ne.SetVisible(True)\\n \\n else\\n MsgBox.Info(\\\"Unable to Save Edits As \\\"\\n + def.AsString +\\n \\\", please try another file name\\\", \\\"\\\") \\n end\\n \\nend\\n\"\n)\n\n(Script.38\n Name: \"Chart.ToggleTitle\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.GetTitle.SetVisible(theChart.GetTitle.IsVisible.Not)\\n\"\n)\n\n(Script.39\n Name: \"Layout.TextToolUpdate\"\n SourceCode: \"theExt = Extension.GetExtensions.Get(\\\"Label & Text Tools\\\")\\nSELF.SetEnabled(theExt <> nil)\\n\"\n)\n\n(Script.40\n Name: \"View.RectTool\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nr = theView.ReturnUserRect\\ntheTheme = theView.GetEditable Theme\\n\\nif (r.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n p = r.AsPolygon\\n thePrj = theView.GetProjection\\n if (thePrj.IsNull.Not) then\\n p = p.ReturnUnprojected(thePrj)\\n end\\n theTheme.getFTab.BeginTransaction\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n rec = theTheme.GetFTab.AddRecord\\n theTheme.GetFTab.SetValue(theField, rec, p)\\n theTheme.GetFTab.EndTransaction\\n theTheme.\nGetFTab.GetSelection.ClearAll\\n theTheme.GetFTab.GetSelection. Set(rec)\\n theTheme.GetFTab.UpdateSelection\\n else\\n gr = GraphicShape.Make(r)\\n theView.GetGraphics.UnselectAll\\n gr.SetSelected(TRUE)\\n theView.GetGraphics.Add(gr)\\n end\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.41\n Name: \"Table.Statistics\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\ntheField = theTable.GetActiveField\\n\\nthePrecision = \\\"d.dddddddddd\\\"\\ntheFieldPrecision = theField.GetPrecision\\nScript.The.SetNumberFormat( thePrecision.Left( theFieldPre cision + 2 ) )\\n\\nif ( theVTab.GetSelection.Count = 0 ) then\\n theSet = theVTab\\nelse\\n theSet = theVTab.GetSelection\\nend\\n\\ntheSum = 0\\ntheCount = 0\\ntheMinimum = nil\\ntheMaximum = nil\\nfor each rec in theSet\\n theValue = theVTab.ReturnValueNumber( theField, rec )\\n if ( not ( theValue.IsNull ) ) th\nen\\n if ( theMinimum = nil ) then\\n theMinimum = theValue\\n theMaximum = theValue\\n else\\n theMinimum = theMinimum min theValue\\n theMaximum = theMaximum max theValue\\n end\\n theSum = theValue + theSum\\n theCount = theCount + 1\\n end\\nend\\ntheMean = theSum / theCount\\n\\ntheSumSqDev = 0\\nfor each rec in theSet\\n theValue = theVTab.ReturnValueNumber( theField, rec )\\n if ( not ( theValue.IsNull ) ) then\\n theSqDev = ( theValue - theMean ) * ( theValue - theMean )\\n theSumSqDev = theSq\nDev + theSumSqDev\\n end\\nend\\n\\nif (theCount > 1) then\\n theVariance = theSumsqdev / (theCount - 1)\\n theStdDev = theVariance.Sqrt\\nelse\\n theVariance = 0\\n theStdDev = 0\\nend\\n\\nM sgBox.Report( \\\"Sum: \\\" + theSum.AsString + nl +\\n \\\"Count: \\\" + theCount.SetFormat( \\\"d\\\" ).AsString + nl +\\n \\\"Mean: \\\" + theMean.AsString + nl +\\n \\\"Maximum: \\\" + theMaximum.AsString + nl +\\n \\\"Minimum: \\\" + theMinimum.AsString + nl +\\n \\\"Range: \\\" + ( theMaximum-theMinimum ).Abs.AsSt\nring + nl +\\n \\\"Variance: \\\" + theVariance.AsString + nl +\\n \\\"Standard Deviation: \\\" + theStdDev.AsString,\\n \\ \"Statistics for\\\" ++ theField.GetAlias ++ \\\"field\\\" )\\n\\n\"\n NumberFormat: 42\n)\n\n(AVStr.42\n S: \"d.dddddd\"\n)\n\n(Script.43\n Name: \"Table.AddField\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheFld = theTable.MakeField\\n\\nif (theFld <> NIL) then\\n theTable.GetVTab.AddFields({theFld})\\n theTable.SetActiveField(theFld)\\nend\"\n)\n\n(Script.44\n Name: \"View.AOITool\"\n SourceCode: \"theView = av.GetActiveDoc\\nr = theView.ReturnUserRect\\nif (r.IsNull.not) then\\n theView.SetAOI(r)\\n av.GetProject.SetModified(true)\\nend\\n \\n\"\n)\n\n(Script.45\n Name: \"View.SnapToEndPointUpdate\"\n SourceCode: \"SELF.SetVisible(FALSE)\\nSELF.SetEnabled(FALSE)\\ntheView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n if (theTheme.IsInteractiveSnapping) then\\n theTool = av.GetActiveGUI.GetToolBar.GetActive\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n if ((theType = #FIELD_SHAPELINE) and \\n ((theTool.GetApply.AsString = \\\"View.PolyLineTool\\\") or\\n (theTool.GetApply.AsString = \\\"View.SplitTool\\\"))) then\\n SELF.SetVisible(theTheme.IsInteractiveSnapping)\\n \n SELF.SetEnabled(TRUE)\\n end\\n end\\nend\\n\"\n)\n\n(Script.46\n Name: \"Layout.Circle\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nc = theLayout.ReturnUserCircle\\nif (c.IsNull.not) then\\n gc = GraphicShape.Make(c)\\n theLayout.GetGraphics.UnselectAll\\n gc.SetSelected(TRUE)\\n theLayout.GetGraphics.Add(gc)\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.47\n Name: \"Layout.Template\"\n SourceCode: \"theLayout = av.GetActive Doc\\nt = TemplateMgr.Show\\nif (t <> nil) then\\n objs = theLayout.GetGraphics.GetFrameObjs\\n objs.Merge(av.GetProject.GetDocs)\\n theLayout.UseTemplate(t)\\n theLayout.GetGraphics.FillFrames(objs)\\nend\"\n)\n\n(Script.48\n Name: \"View.EditLegend\"\n SourceCode: \"self.editlegend\"\n)\n\n(Script.49\n Name: \"Layout.SelectToEdit\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.SelectToEdit\"\n)\n\n(Script.50\n Name: \"WindowActivate\"\n SourceCode: \"'Window Menu selection that activates an open document\\n\\n'entries in the Wi ndow menu can look like this: &1 View of the World\\n\\n'get the menu item label\\nmenulabel = self.GetLabel\\n\\n'find where the document name starts\\noff = menulabel.Extract(0).Count + 1\\n\\n'get the document name out of the item label\\ndocname=menulabel.Middle(off,menulabel.Count - off)\\n\\n'find the document in the project\\ntheDoc = av.GetProject.FindDoc(docname)\\n\\n'bring the doc to the front\\nif (theDoc = nil) then\\n av.GetProject.GetWin.Open\\nelseif \n(theDoc.GetWin.IsOpen) then\\n theDoc.GetWin.Open\\nend\\n \\n\\n\"\n)\n\n(Script.51\n Name: \"Table.Find\"\n SourceCode: \"theTable = av.GetActiveDoc\\nkey = MsgBox.Input(\\\"Search for:\\\", \\\"Find\\\", theTable.GetFindString)\\nif (key <> Nil) then\\n rec = theTable.Find(key)\\n if (rec = Nil) then\\n MsgBox.Warning(\\\"No more matches found.\\\",\\\"Find\\\")\\n else\\n b = theTable.GetVTab.GetSelection\\n b.ClearAll\\n b.Set(rec)\\n theTable.GetVTab.UpdateSelection\\n theTable.ShowRow(theTable.ConvertRecordToRow(rec))\\nend\\nend\\n\"\n)\n\n(Script.52\n Name: \"Chart.ToggleXAxis\"\n So urceCode: \"theChart = av.GetActiveDoc\\ntheChart.GetXAxis.SetVisible(theChart.GetXAxis.IsVisible.Not)\\n\"\n)\n\n(Script.53\n Name: \"DNR.UpdateProjectControls\"\n SourceCode: \"' Name: DNR.UpdateProjectControls\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Apr 14 11:28:58 1999\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script is run from the Project.Open script and resolves\\n' differences in menus\n, buttons, and controls from earlier versions\\n' of the default project.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheproject = av.getproject\\nif (theproject = nil) then\\n return nil\\nend\\n\\n \\n' Update the additions to the project interface\\n'\\n'msgbox.info(\\\"Updating interface\\\",\\\"\\\")\\n\\nProjMenuBar = theProject.FindGUI(\\\"Project\\\").GetMenuBar\\n\\nthemenu = ProjMenuBar.FindByLabel(\\\"File\\\")\\nfor each ac\ntrl in themenu\\n if (actrl.Is(Space).Not) then\\n thetext = actrl.GetLabel\\n if (thetext.left(11) = \\\"DNR Default\\\") then\\n if (thetext.right(7) <> \\\"4/28/99\\\") then\\n actrl.SetLabel(\\\"DNR Default V3.1e - 4/28/99\\\")\\n end\\n end\\n end\\nend\\n\\ntheChoice = ProjMenubar.Fin dByScript(\\\"DNR.ExportProject\\\")\\nlabellist = {}\\nif (theChoice = nil) then\\n thechoice = Choice.Make\\n theChoice.SetClick(\\\"DNR.ExportProject\\\")\\n theChoice.SetHelp(\\\"Exports Project and Data to a Single Location\\\")\\n theChoice.SetLabel(\\\"Ex\nport Project\\\")\\n theChoice.SetUpdate(\\\"DNR.ExportProject.Update\\\")\\n themenu = Projmenubar.FindByLabel(\\\"File\\\")\\n for each actrl in themenu\\n if (actrl.Is(Space).Not) then\\n labellist.add(actrl.getLabel)\\n else\\n labelList.Add(\\\"Space\\\")\\n end\\n end\\n themenu.Add(thechoice,labelList.FindByValue(\\\"Save Project &As...\\\"))\\nend\\n\\n' make changes to the View and Layout document Interfaces...\\n'\\n\\nViewMenubar = theProject.FindGUI(\\\"View\\\").GetMenuBar\\nLayoutMenuBar = theProject.FindGUI(\\\"Layout\\\").GetMenuBar\\nfor e\nach amenubar in {ViewMenuBar,LayoutMenuBar}\\n thechoice = amenubar.FindByScript(\\\"Graphic.Label Defaults Show.DNR\\\")\\n if (thechoice <> nil) then\\n thechoice.SetClick(\\\"Graphic.Label Defaults Show\\\")\\n end\\nend\\n\\n\\ntheChoice = LayoutMenubar.FindByScript(\\\"Layout.ExportToAlchemy\\\")\\nlabellist = {}\\nif (theChoice = nil) then\\n thechoice = Choice.Make\\n theChoice.SetClick(\\\"Layout.ExporttoAlchemy\\\")\\n theChoice.SetHelp(\\\"Print a Layout using Image Alchemy\\\")\\n theChoice.SetLabel(\\\"Print Using Alchemy\\\")\\n theChoice.SetUpdate\n(\\\"Layout.ExportToAlchemy.Update\\\")\\n themenu = Layoutmenubar.FindByLabel(\\\"File\\\")\\n for each actrl in themenu\\n if (actrl.Is(Space).Not) then\\n labellist.add(actrl.getLabel)\\n else\\n l abelList.Add(\\\"Space\\\")\\n end\\n end\\n themenu.Add(thechoice,labelList.FindByValue(\\\"&Export...\\\"))\\nend\\n\\ntheChoice = LayoutMenubar.FindByScript(\\\"Layout.PrintRTLFile\\\")\\nlabellist = {}\\nif (theChoice = nil) then\\n thechoice = Choice.Make\\n theChoice.SetClick(\\\"Layout.PrintRTLFile\\\")\\n theChoice.SetHelp(\\\"Spool an Existing RTL\n File\\\")\\n theChoice.SetLabel(\\\"Print RTL File\\\")\\n theChoice.SetUpdate(\\\"Layout.ExportToAlchemy.Update\\\")\\n themenu = Layoutmenubar.FindByLabel(\\\"File\\\")\\n for each actr l in themenu\\n if (actrl.Is(Space).Not) then\\n labellist.add(actrl.getLabel)\\n else\\n labelList.Add(\\\"Space\\\")\\n end\\n end\\n themenu.Add(thechoice,labelList.FindByValue(\\\"Export to Alchemy\\\"))\\nend\\n\\nSedNamelist = {\\\"View.LabelTool.DNR\\\",\\\"View.CalloutLabelTool.DNR\\\",\\\"View.BulletLeaderLabelTool.DNR\\\",\\n \\\"View.ShadowBoxLabelTool.\nDNR\\\",\\\"View.TextTool.DNR\\\",\\\"View.CalloutTextTool.DNR\\\",\\n \\\"View.BulletLeaderTextTool.DNR\\\",\\\"View.ShadowBoxTextTool.DNR\\\" ,\\\"View.CreateDropShadowText.DNR\\\",\\n \\\"View.SplineText.DNR\\\"}\\nViewToolbar = theproject.findgui(\\\"View\\\").GetToolBar\\nLayoutToolBar = theProject.FindGUI(\\\"Layout\\\").GetToolBar\\nfor each amenu in {ViewToolBar,LayoutToolBar}\\n for each atool in amenu\\n if (atool.Is(ToolMenu)) then\\n for each ased in SEDNameList\\n thetool = atool.FindByScript(aSED)\\n if (theto\nol <> nil) then\\n newname = aSED.Substitute(\\\".DNR\\\",\\\"\\\")\\n theTool.SetApply(newname)\\n end\\n end\\n end\\n end\\nend\\n\\nSedNameList = {\\\"Project.Open.DNR\\\",\\\"Project.Save.DNR\\\",\\\"Project.SaveAs.DNR\\\"}\\n\\nfor each aGUI in {\\\"Project\\\",\\\"View\\\",\\\"Table\\\",\\\"Chart\\\",\\\"Layout\\\",\\\"Script\\\"}\\n themenubar = theProject.FindGUI(aGUI).GetMenuBar\\n for each ased in SEDNameList\\n thetool = themenubar.FindByScript(aSED)\\n if (thetool <> nil) then\\n newname = aSED.Substitute(\\\".DNR\\\",\\\"\\\")\\n theTool.SetClick(newna\nme)\\n end\\n end\\nend\\n\\nfor each aGUI in {\\\"Project\\\",\\\"View\\\",\\ \"Table\\\",\\\"Chart\\\",\\\"Layout\\\",\\\"Script\\\"}\\n thebuttonbar = theProject.FindGUI(aGUI).GetbuttonBar\\n for each ased in SEDNameList\\n thetool = thebuttonbar.FindByScript(aSED)\\n if (thetool <> nil) then\\n newname = aSED.Substitute(\\\".DNR\\\",\\\"\\\")\\n theTool.SetClick(newname)\\n end\\n end\\nend\\n\\n\\nfor each aGUI in {\\\"Appl\\\",\\\"Project\\\",\\\"View\\\",\\\"Table\\\",\\\"Chart\\\",\\\"Layout\\\",\\\"Script\\\"}\\n thebtnbar = theProject.FindGUI(aGUI).GetButtonBar\\n for each ased in SEDNameList\\n \n thebutton = theb tnbar.FindByScript(ased)\\n if (thebutton <> nil) then\\n newname = aSED.Substitute(\\\".DNR\\\",\\\"\\\")\\n thebutton.SetClick(NewName)\\n end\\n end\\nend\\n\"\n)\n\n(Script.54\n Name: \"Script.Action\"\n SourceCode: \"'\\n' run scripts contained in selected\\n' script documents\\n'\\nfor each d in av.GetProject.GetSelectedDocs\\n d.Run( nil )\\nend\\n\"\n)\n\n(Script.55\n Name: \"Table.Refresh\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.Refresh\"\n)\n\n(Script.56\n Name: \"Doc.Print\"\n SourceCode: \"d = av.GetActiv eDoc\\nif (0 <= Printer.The.Edit({d.GetName})) then\\n av.ShowMsg(\\\"Printing \\\"+d.GetName+\\\"...\\\")\\n av.UseWaitCursor\\n System.RefreshWindows\\n d.Print\\n av.ShowMsg(\\\"\\\")\\nend\"\n)\n\n(Script.57\n Name: \"View.PasteUpdate\"\n SourceCode: \"SELF.SetEnabled(Clipboard.The.HasKindOf(Graphic) or Clipboard.The.HasKindOf(Theme))\\n\"\n)\n\n(Script.58\n Name: \"View.ZoomtoLatlong\"\n SourceCode: \"' Name: View.ZoomToLatlong\\n'\\n' Author: Timothy N. Loesch\\n' Date: Tue Jul 28 13:21:15 1998\\n' Revised by: \\n' Revision Date: \\n' Revi sions: \\n' -------------------------------------------------------------------\\n' Description: This script displays a lat/long on the screen from a UTM zone 15 point\\n' and displays the DMS and DD versions of the point.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = fals\ne\\n\\nscript.the.setnumberformat(\\\"d.dddd\\\")\\nthelabels = {\\\"Longitude\\\",\\\"Latitude\\\"}\\nthedefaults = {\\\"\\\",\\\"\\\"}\\ndm slist = msgbox.multiinput(\\\"Enter Degrees Minutes and Seconds\\\",\\\"Zoom to Lat/Long\\\",thelabels,thedefaults)\\nif (dmslist.count < 1) then\\n return nil\\nend\\n\\ntheView = av.GetActiveDoc\\n\\np = TrnMerc.Make(theView.ReturnExtent)\\np.SetCentralMeridian(-93)\\np.SetReferenceLatitude(0)\\np.SetScale(0.9996)\\np.SetFalseEasting(500000)\\np.SetFalseNorthing(0)\\np.SetSpheroid(#SPHEROID_GRS80)\\n\\nthelong = dmslist.get(0)\\nthelat = dmslist.ge\nt(1)\\nthelonglist = thelong.astokens(\\\" \\\")\\nthelatlist = thelat.astokens(\\\" \\\") \\nif ( (thelonglist.count <> 3) or (thelatlist.count <> 3) )then\\n msgbox.info(\\\"Invalid input for DMS - Must be seperated by a space\\\",\\\"View.Coordinates\\\")\\n return nil\\nend\\n\\nlongdd = ((((thelonglist.get(2).asnumber / 60) + thelonglist.get(1).asnumber))/60) + (thelonglist.get(0).asnumber.abs)\\nif (thelonglist.get(0).asnumber < 0) then\\n longdd = longdd * -1\\nend\\nlatdd = ((((thelatlist.get(2).asnumber / 60) + thelatlist.get(1).asnumber)) / 6\n0) + thelatlist.get(0).asnumber\\n\\n\\nllpt = point.make(long dd,latdd)\\n\\np.projectpt(llpt)\\n\\n'msgbox.info(llpt.getx.setformat(\\\"dd\\\").asstring+\\\",\\\"++llpt.gety.abs.setformat(\\\"dd\\\").asstring,\\\"\\\")\\n\\ntheorigin = point.make(llpt.getx - 750,llpt.gety - 750)\\ntherect = rect.makenull\\ntherect.setorigin(theorigin)\\ntherect.setsize(1500@1500)\\ntheview.getdisplay.zoomtorect(therect)\\n\\n\\naPoint = Point.Make(llpt.getx,llpt.gety)\\ngPoint = GraphicShape.Make(aPoint)\\ntheSymbol = gPoint.GetSymbol\\ntheSymbol.SetColor(Color.GetRed)\\ntheSymbol.SetS\nize(10)\\nthetext = graphictext .make(\\\"You are here\\\"+NL+\\n \\\"X = \\\"++llpt.getx.asstring+NL+\\n \\\"Y = \\\"++llpt.gety.asstring+NL+\\n \\\"Lat DD =\\\"++latdd.asstring+NL+\\n \\\"Long DD =\\\"++longdd.asstring+NL+\\n \\\"Lat DMS =\\\"++thelat+NL+\\n \\\"Long DMS =\\\"++thelong\\n ,(llpt.getx+30)@(llpt.gety+30))\\n \\ntheView.GetGraphics.UnselectAll\\ntheVi\new.G etGraphics.Add(gPoint)\\ntheView.GetGraphics.add(thetext)\\n\\nthebox = Rect.make((thetext.getbounds.returnorigin.getx - 20)@(thetext.getbounds.returnorigin.gety - 20),\\n (thetext.getbounds.getwidth + 20)@(thetext.getbounds.getheight+20))\\nagbox = graphicshape.make(thebox)\\nthesymbol = rasterfill.make\\nthesymbol.setstyle(#rasterfill_style_solid)\\nthesymbol.setcolor(color.getwhite)\\nthesymbol.setolcolor(color.getblack)\\nagbox.setsymbol(thesymbol)\\ntheView.GetGraphics.add(agbox)\\n\\ntheView.Get Display.h\nookupsymbol(agbox.getsymbol)\\ntheView.GetDisplay.HookupSymbol(thetext.getsymbol)\\ntheView.GetDisplay.HookupSymbol(gpoint.getsymbol)\\n\\n\\nagbox.select\\ntheView.GetGraphics.MoveSelectedToBack\\nthetext.select\\ngpoint.select\\n\\ntheView.GetGraphics.GroupSelected\\n\\ntheview.invalidate\"\n)\n\n(Script.59\n Name: \"Chart.ToggleYAxisUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nSELF.SetEnabled( theChart.GetChartDisplay.GetType <> #CHARTDISPLAY_PIE) \\n if (theChart.GetYAxis.IsVisible) then\\n SELF.SetLabel (\\\"Hide &Y Axis\\\")\\n else\\n SELF.SetLabel(\\\"Show &Y Axis\\\")\\n end\\n\"\n)\n\n(Script.60\n Name: \"Script.ToggleBreak\"\n SourceCode: \"theScript = av.GetActiveDoc\\nthePos = theScript.ReturnInsertPos\\nif (theScript.BreakExists(thePos)) then\\n res = theScript.ClearBreak(thePos)\\nelse\\n res = theScript.AddBreak(thePos)\\nend\\n\"\n)\n\n(Script.61\n Name: \"Table.HasLinksUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled( theTable.GetVTab.IsLinked )\"\n)\n\n(Script.62\n Name: \"Frame.RefreshUpdate\"\n SourceCode: \" theLayout = av.GetActiveDoc\\nSELF.SetEnabled(theLayout.GetGraphics.HasKindOf(ViewFrame) = true)\\n\\n\\n\"\n)\n\n(Script.63\n Name: \"View.IntersectUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nenabled = FALSE\\nif (theTheme <> nil) then\\n SELF.SetLabel(\\\"&Intersect Features\\\")\\n SELF.SetHelpTopic(\\\"Intersect_Features\\\")\\n fCount = theTheme.GetFTab.GetSelection.Count\\n shapeClass = theTheme.GetFTab.FindField(\\\"shape\\\").GetType\\n enabled = ((fcount > 1) and (shapeClass = # FIELD_SHAPEPOLY))\\nelse\\n SELF.SetLabel(\\\"&Intersect Graphics\\\")\\n SELF.SetHelpTopic(\\\"Intersect_Graphics\\\")\\n theGraphics = theView.GetGraphics.GetSelected\\n gcount = theGraphics.\nCount\\n if (gcount > 1) then\\n dim2 = 0\\n for each gra in theGraphics\\n dim = gra.GetShape.GetDimension\\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\\n dim2 = dim2 + 1\\n end\\n end\\n enabled = (gcount = dim2)\\n end\\nend\\n\\nSELF.SetEnabled(enabled)\\n\"\n)\n\n( Script.64\n Name: \"View.EditMatch\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nfor each t in theView.GetActiveThemes\\n if ((t.Is( FTHEME )) and (t.GetFTab.IsGeocoded)) then\\n editing = true\\n refresh = false\\n while (editing)\\n editing = RematchDialog.Show(t)\\n if (editing) then\\n refresh = true\\n end\\n end\\n if (refresh) then\\n t.Invalidate(true)\\n end\\n return nil\\n end\\nend\\n\"\n)\n\n(Script.65\n Name: \"Chart.LineGallery\"\n SourceCode: \"theChart = av.GetActiveDoc \\ntheChart.ShowGallery(#CHARTDISPLAY_LINE)\\n\"\n)\n\n(Script.66\n Name: \"Table.Edit\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.EditValues\\n\"\n)\n\n(Script.67\n Name: \"Layout.ExportToAlchemy\"\n SourceCode: \"' Name: Layout.ExporttoAlchemy\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Tue Oct 06 08:23:17 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script exports a layout to EPS format and then executes\\n' Image Alchemy to proces\ns the information.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheLayout = av.getactivedoc\\nif (theLayout.Is(Layout).Not) then\\n msgbox.error(\\\"This script only works o n Layouts\\\",\\\"Layout.ExporttoAlchemy\\\")\\n return nil\\nend\\n\\nalchemy = system.getEnvVar(\\\"ALCHLOC\\\")\\nif (alchemy = nil) then\\n msgbox.warning(\\\"Unable to find Image Alchemy. Looking for the project Property ALCHLOC\\\",\\\"Layout.ExportToAlchemy\\\")\\n \n return nil\\nend\\n\\nif (file.exists(alchemy.asfilename).not) then\\n msgbox.Warning(\\\"Unable to find the Image Alchemy Program. Looking for\\\"++alchemy)\\n return nil\\nend\\n\\nprtsrv = system.getenvvar(\\\"PRTSRV\\\")\\nif (prtsrv = nil) then\\n prtsrv = \\\"lobo\\\"\\nend \\n\\nigamma = system.getenvvar(\\\"IGAMMA\\\")\\nif (igamma = nil) then\\n igamma = \\\"1.0\\\"\\nend\\nogamma = system.getenvvar(\\\"OGAMMA\\\")\\nif (ogamma = nil) then\\n ogamma = \\\"1.8\\\"\\nend\\n\\nres = thelayout.getdisplay.getResolution\\n\\nLayoutWidth = theLayout.GetDisplay.ReturnPageExtent.GetWidth\\nLa\nyoutHeight = theLayout.GetDisplay.ReturnPageExtent.GetHeight\\n\\nif ( (layoutWidth > 36) and (layoutHeight > 36) ) then\\n if (msgbox.yesno(\\\"Plot size exceeds 36 inches in both width and height! Do you want to proceed?\\\", \\\"Export to Alchemy\\\",false).not ) then\\n return nil\\n end\\nend\\n \\nif ( (layoutWidth > 36) and (layoutHeight < 36) ) then\\n rotate = true\\n else\\n rotate = false\\nend\\n\\nprlist = {}\\nfor each var in {\\\"PRINTER1\\\",\\\"PRINTER2\\\",\\\"PRINTER3\\\"}\\n if (system.getenvvar(var) <> nil) then\\n prlist.add(system.geten\nvvar(var))\\n end\\nend\\n\\nif (prlist.count < 1) then\\n msgbox.info(\\\"No Printers Defined! See documentation for setting up Printers\\\",Script.The.GetName)\\n return nil\\nend\\n\\ndpi = msgbox.Lis tAsString({\\\"150\\\",\\\"300\\\",\\\"600\\\"},\\\"Select Output Resolution\\\",\\\"Export To Alchemy\\\")\\nif (dpi = nil) then\\n return nil\\nend\\n\\ndest = msgbox.ListAsString(prlist,\\\"Select Printer\\\",\\\"Layout.ExportToAlchemy\\\")\\nif (dest = nil) then\\n return nil\\nend\\n\\ntmpdir = system.getenvvar(\\\"TEMP\\\").asfilename\\nkillrtl = true\\nif (msgbox.MiniYesNo(\\\"Do you want to s\nave the output RTL File?\\\",TRUE)) then\\n tmprtl = filedialog.put(\\\"map.rtl\\\".asfilename,\\\"*.rtl\\\",\\\"Specify Output RTL Filename\\\")\\n if (tmprtl = nil) then\\n return nil\\n else\\n killrtl = false\\n end\\nelse\\n tmprtl = tmpdir.MakeTmp(\\\"AVRTL\\\",\\\"rtl\\\")\\nend\\n\\ntmpeps = tmpdir.MakeTmp(\\\"AVEPS\\\",\\\"eps\\\")\\ntmpeps.SetExtension(\\\"\\\")\\n\\n\\n'now write the batch file for image alchemy......\\n'\\nf1 = linefile.make(\\\"$TEMP/alch.bat\\\".asfilename,#FILE_PERM_WRITE)\\nspoolcmd = system.getenvvar(\\\"SPOOLCMD\\\")\\n\\nif (rotate) then\\n 'include rotate statem\nent -Zr90 and then the input and output sizes must be switched\\n f1.WriteElt(alchemy++tmpeps.asstring+\\\"eps\\ \"++tmprtl.asstring++\\\" -o --r7 -Zm2 -Zi\\\"+LayoutWidth.Asstring+\\\"i\\\"++LayoutHeight.AsString+\\\"i -Zo\\\"+layoutheight.AsString+\\\"i\\\"++LayoutWidth.AsString+\\\"i -Gi1.0 -Go1.8 -Zd\\\"++dpi++dpi++\\\"-Zr90\\\")\\n else\\n f1.WriteElt(alchemy++tmpeps.asstring+\\\"eps\\\"++tmprtl.asstring++\\\" -o --r7 -Zm2 -Zi\\\"+LayoutWidth.AsString+\\\"i\\\"++LayoutHeight.AsString+\\\"i -Gi\\\"+igamma++\\\"-Go\\\"+ogamma++\\\"-Zd\\\"++dpi++dpi)\\nend\\nif (spoolcmd = \\\"NPRINT\\\") then\\n \nf1.WriteElt(\\\"nprint\\\"++tmprtl.AsString++\\\"Q=\\\"+dest)\\nelse\\n f1.WriteElt (\\\"lpr -S\\\"++prtsrv++\\\" -P\\\"++dest++tmprtl.AsString)\\nend\\nif (killrtl = true) then \\n f1.WriteElt(\\\"del\\\"++tmprtl.AsString) \\nend\\nf1.WriteElt(\\\"del\\\"++tmpeps.AsString+\\\"eps\\\")\\nf1.WriteElt(\\\"pause\\\")\\nf1.close\\nfor each fname in {\\\"cmd.exe\\\",\\\"command.com\\\"}\\n cmd32exe = FileName.FindInSystemSearchPath( fname )\\n if (cmd32exe <> nil) then\\n break\\n end\\nend\\n\\nif (cmd32exe = nil) then\\n msgbox.info(\\\"Unable to find COMMAND.COM or CMD.EXE\\\",\\\"Layout.ExporttoAlchemy\\\"\n)\\n return nil\\nend\\n\\ntheLayo ut.ExportToFile((tmpeps.asstring+\\\"eps\\\").asfilename,\\\"PostScript New (EPS)\\\",{dpi.asnumber})\\nsystem.execute(cmd32exe.asstring++\\\"/c\\\"++f1.getname)\\n\\n\"\n)\n\n(Script.68\n Name: \"UTIL.InteractiveCopyCoverage\"\n SourceCode: \"' Name: UTIL.InteractiveCopyCoverage\\n'\\n' Headline: Gathers input interactively from the user for copying a coverage from one workspace \\n' to another. This script then sends the necessary information tot he UTIL.CopyCoverage script.\\n'\\n' SELF: none\\n'\\n' Returns: \\n'\\n' Description: \\n' \\n' Topics: Copy, Arc/Info, Coverage\\n'\\n' Search Keys: Copy, Arc/Info,Coverage\\n'\\n' Requires: \\n'\\n' History: Tim Loesch Original Coding 3/27/98\\n'\\n'-ESRI - ArcView 3.0a\\n'\\n\\nCovList = sourceDialog.ShowClass(\\\"Select Coverage To Copy\\\",fsr\nc)\\nif (covlist = nil) then\\n return nil\\nend\\nif (covlist.count < 1) then\\n return nil\\nend\\n\\nthesrcname = CovList.Get(0)\\n\\nthedatasource = thesrcname.getfilename\\nif (coverage.exists(thedatasource.asstring).not) then\\n msgbox.info(\\\"This command only copies Ar c/Info Coverages.\\\",\\\"Copy Coverage\\\")\\n return nil\\nend\\n\\ncovername = thesrcname.GetName\\n\\ndest = filedialog.put(\\\"SELECT DIRECTORY\\\".asfilename,\\\"\\\",\\\"Select Destination Workspace\\\")\\n\\nif (dest = nil) then\\n return nil\\nend\\n\\ndest.stripfile\\n\\nav.run(\\\"UTIL.CopyCoverage\\\",{t\nhedatasource.asstring,dest.asstring})\\n\"\n)\n\n(Script.69\n Name: \"Table.IsEditableUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled(theTable.GetVTab.IsEditable)\"\n)\n\n(Script.70\n Name: \"View.PopupPan\"\n SourceCode: \"av .GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheDisp = theView.GetDisplay\\ntheMouseLoc = theDisp.GetMouseLoc\\ntheDisp.PanTo(theMouseLoc)\"\n)\n\n(Script.71\n Name: \"View.UnionUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nenabled = FALSE\\nif (theTheme <> nil) then\\n SELF.SetLabel(\\\"U&nion Features\\\")\\n SELF.SetHelpTopic(\\\"Union_Features\\\")\\n SELF.SetHelp(\\\"Unions the selected features to create a new feature\\\")\\n fCount = theTheme.GetFTab.GetSelection.Count \\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n enabled = ((fcount > 1) and ((theType = #FIELD_SHAPEPOLY) or\\n (theType = #FIELD_SHAPELINE))) \\n else\\n SELF.SetLabel(\\\"U&nion Graphics\\\")\\n SELF.\nSetHelpTopic(\\\"Union_Graphics\\\")\\n SELF.SetHelp(\\\"Unions the selected graphics to create a new graphic\\\")\\n theGraphics = theView.GetGraphics.GetSelected\\n gcount = theGraphics.Count\\n if (gcount > 1) then\\n dim2 = 0\\n dim1 = 0\\n dim0 = 0\\n for each gra in theGraphic s\\n dim = gra.GetShape.GetDimension\\n if ((gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\\n if (dim = 2) then\\n dim2 = dim2 + 1\\n end\\n if (dim = 1) then\\n dim1 = dim1 + 1\\n end\\n\n end\\n end\\n enabled = ((gcount = dim2) or (gcount = dim1))\\n end\\nend\\n\\nSELF.SetEnabled(enabled)\\n\"\n)\n\n(Script.72\n Name: \"Script.ShowVariables\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.ShowVariables\"\n)\n\n(Script.73\n Name: \"DNR.Properties. List.Update\"\n SourceCode: \"' Name: DNR.Properties.List.Update\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 09:16:40 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script updates the project properties sheet values \\n' Requires: \\n' Runs: \\n' Run by: \\n' Self\n: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\ntheVTAB = VTAB.Make(\\\"$TEMP/sets.dbf\\\".asfilename,false,false)\\nvarfield = theVTab.Findfield(\\\"ENVVAR\\\")\\nvalfield = theVTab.Findfield(\\\"Value\\\")\\ndescfield = theVTab.Findfield(\\\"Desc\\\")\\nself.definefromVTab(theVTAB,{descfield,varfield,valfield},false)\\nself.setfieldnamesvisible(true)\\nself.sortascending(false)\\nself.fitcolumns(0..2,true)\\n\"\n) \n\n(Script.74\n Name: \"View.TabularThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n if (t.HasTable) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.75\n Name: \"View.SubtractUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nenabled = FALSE\\nif (theTheme <> nil) then\\n SELF.SetLabel(\\\"&Subtract Features\\\")\\n SELF.SetHelpTopic(\\\"Subtract_Features\\\")\\n fCount = theTheme.GetFTab.Ge tSelection.Count\\n shapeClass = theTheme.GetFTab.FindField(\\\"shape\\\").GetType\\n enabled = ((fcount = 2) and (shapeClass = #FIELD_SHAPEPOLY))\\nelse\\n SELF.SetLabel(\\\"&Subtract Graphics\\\")\\n SELF.SetHelpTopic(\\\"Subtract_Graphics\\\")\\n theGraphics = theView.GetGraphics.GetSelected\\n gcount = theGraphics.Coun\nt\\n if (gcount = 2) then\\n dim2 = 0\\n for each gra in theGraphics\\n dim = gra.GetShape.GetDimension\\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then \\n dim2 = dim2 + 1\\n end \\n end\\n enabled = (dim2 = 2) \\n end\\nend\\n\\nSELF.SetEnabled(enabled)\"\n)\n\n(Script.76\n Name: \"View.ClearGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n t.GetGraphics.SetVisible(true)\\n t.GetGraphics.Invalidate\\n t.GetGraphics.Empty\\nend\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.77\n Name: \"Table.Index\"\n SourceCode: \"theTable = av.GetActiveDoc\\nf = theTable.GetActiveField\\nif (theTable.GetVTab.IsFieldIndexed(f)) then\\ n theTable.GetVTab.RemoveIndex(f)\\nelse\\n theTable.GetVTab.CreateIndex(f)\\nend\\n\"\n)\n\n(Script.78\n Name: \"Script.Cut\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.CutSelected\"\n)\n\n(Script.79\n Name: \"Project.Cascade\"\n SourceCode: \"av.CascadeWindows\"\n)\n\n(Script.80\n Name: \"Layout.ZoomInTool\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nd = theLayout.GetDisplay\\nif (r.IsNull.not) then\\n d.ZoomToRect(r)\\nelse\\n d.ZoomIn(125)\\n d.PanTo(d.Retur nUserPoint)\\nend\"\n)\n\n(Script.81\n Name: \"Script.New\"\n SourceCode: \"newSEd = SEd.MakeWithGUI(av.GetProject.GetSelectedGUI.GetName)\\nnewSEd.GetWin.Open\"\n)\n\n(Script.82\n Name: \"Table.RedoEdit\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.Redo\\n\"\n)\n\n(Script.83\n Name: \"View.RemoveThemeLabelsUpdate\"\n SourceCode: \"Self.SetEnabled(false)\\nv = av.GetActiveDoc\\nif (v.GetEditableTheme <> nil) then\\n return nil\\nend\\nfor each t in v.GetVisibleThemes\\n if (t.IsActive) then\\n if (t.GetGraphics.HasLabels) then\\n Self.SetEnabled(true)\\n end\\n end\\nend\"\n)\n\n(Script.84\n Name: \"Script.Replace\"\n SourceCode: \"theScript = av.GetActiveDoc\\n\\nfindString = theScript.GetSelected\\nif (findString = \\\"\\\") then\\n findString = msgbox.input( \\\"Enter find string\\\", \\\"Replace\\\", \\\"\\\")\\n if (findString = nil) then\\n return nil\\n end\\nend\\n\\nif (findstring.count > 20) then\\n show = findstring.left( 20 )+\\\"...\\\"\\nelse\\n show = findstring\\nend\\nshow = show.Substitute( NL, \\\" \\\")\\n\\nreplaceString = msgbox.input( \\\"Replace\\\"++show.quote++\\\"with\\\", \\\"Replace\\\", \\\"\\\")\\nif (replaceString = nil) then\\n return nil\\nend\\n\\nif (msgbox.miniyesno( \\\"Replace all occurrences\n of\\\"++findString++\\\"with\\\"++replaceString+\\\"?\\\", TRUE)) then\\n oldPosition = theScript.ReturnInsertPos\\n theScript.SetInsertPos( 0 ) \\n count = 0 \\n while (theScript.Search(findString ))\\n theScript.Insert( replaceString )\\n count = count + 1\\n end\\n msgbox.info( \\\"Replaced\\\"++findString++\\\"with\\\"++replaceString++count.AsString++\\\"times\\\",\\n \\\"Replace\\\")\\n theScript.SetInsertPos(oldPosition)\\n \\nelseif (theScript.Search(findString)) then\\n theScript.Insert(replaceString)\\n msgbox.info( \\\"Replaced\\\"++find\nString++\\\"with\\\"++replaceString, \\\"Replace\\\")\\n theScript.SetInsertPos( theScript.ReturnInsertPos )\\n\\nelseif (msgbox.miniyesno( \\\"start search at beginning of script?\\\", TRUE)) then\\n oldPosition = theScript.ReturnInsertPos\\n theScript.SetInsertPos(0)\\n if (theScript.Search(findString).not) then\\n msgbox.info( \\\"Could not find\\\"++findString, \\\"\\\")\\n theScript.SetInsertPos( oldPosition )\\n else\\n theScript.Insert(replaceString)\\n theScript.SetInsertPos( theScript.ReturnInsertPos )\\n end\\nelse\\n msgbox.info( \\\"Co\nuld not find\\\"++findString, \\\"\\\")\\nend\\n\"\n)\n\n(Script.85\n Name: \"Graphic.Edit\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.Edit\"\n)\n\n(Script.86\n Name: \"Layout.ZoomSelected\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.GetActiveDoc\\nr = theLayout.GetGraphics.ReturnSelecte dExtent\\nr.Scale(1.05)\\ntheLayout.GetDisplay.ZoomToRect(r)\\n\"\n)\n\n(Script.87\n Name: \"View.Select\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) then\\n theView.Select\\nelse\\n theTheme.GetFTab.BeginTransaction\\n theTheme.Select\\n theTheme.GetFTab.EndTransaction\\nend\\nav.GetProject.SetModified(true)\\n\"\n)\n\n(Script.88\n Name: \"View.ClearSelect\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n t.ClearSelection\\n end\"\n)\n\n(Script .89\n Name: \"Chart.ShowSymWin\"\n SourceCode: \"theChart = av.GetActiveDoc\\nif (av.GetSymbolWin.IsOpen.Not) then\\n av.GetSymbolWin.Open\\nend\"\n)\n\n(Script.90\n Name: \"View.Measure\"\n SourceCode: \"theView = av.GetActiveDoc\\np = theView.ReturnUserPolyLine\"\n)\n\n(Script.91\n Name: \"Table.SaveEdits\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\nif (theVTab.IsBeingEditedWithRecovery.Not) then\\n return nil\\nend\\n\\n'first see if this is actually a Save on an edit theme\\ntheTheme = theTable.GetEditor \\n\\nif (theTheme <> nil) then\\n if (theTheme.Is(FTHEME)) then\\n \\n theView = theTheme.getView\\n \\n if (theView <> nil) then\\n \\n doSave = MsgBox.YesNoCancel(\\\"Save edits to \\\"+theTheme.GetName+\\n \\\"?\\\",\\\"Save Edits\\\",true)\\n if (doSave = nil) then\\n return \nnil\\n end\\n \\n if (doSave.Not) then\\n ' user changed her mind\\n return (nil)\\n end\\n \\n if (theTheme.StopEditing(TRUE).Not) then\\n ' unable to save edits to theme\\n MsgBox.Info(\\\"Unable to Save Edits, please use the Save Edits As option\\\", \\\"\\\")\\n ' remain in the editing state \\n return nil\\n end \\n \\n 'begin editing again\\n theView.SetEditableTheme(theTheme)\\n return nil\\n end\\n end\\nend \\n\\n\\n'this is a save on t\nhe table\\n\\ndoSave = MsgBox.YesNoCancel(\\\"Save Edits to \\\"\\n +theTable.GetName+\\\"?\\\", \\\"Save Edits\\\", True)\\n \\nif (doSave = nil) then\\n return nil\\nend \\n\\nif (doSave.Not) then\\n' user changed her mind\\n return nil\\nend\\n\\nif (theVTab.StopEditingWithRecovery(TRUE).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits, please use the Save Edits As option\\\", \\\"\\\")\\n ' remain in the editing state \\n return nil \\nend\\n' restart editing\\ntheVTab.StartEditingWithRecovery\"\n)\n\n(Script.92\n Name: \"Table.Chart\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheChart = Chart.MakeUsingDialog(theTable.GetVTab, \\\"Chart\\\")\\nif (theChart <> NIL) then\\n theChart.GetWin.Open\\nen d\\n\"\n)\n\n(Script.93\n Name: \"Chart.Find\"\n SourceCode: \"theChart = av.GetActiveDoc\\nkey = MsgBox.Input(\\\"Find:\\\", \\\"Find\\\", theChart.GetFindString)\\nif (Nil <> key) then\\n rec = theChart.Find(key)\\n if (rec = Nil) then\\n MsgBox.Warning(\\\"No more matches found.\\\",\\\"Find\\\")\\n else\\n theChart.BlinkRecord(rec)\\n theChart.GetWin.Invalidate\\n end\\nend\\n\"\n)\n\n(Script.94\n Name: \"View.SnapToIntersection\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\ntheView.SetInteracti veSnapping(theTheme,#POINT_SNAP_INTERSECTION)\\n\"\n)\n\n(Script.95\n Name: \"View.EditMatchUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nthemes = theView.GetActiveThemes\\n\\nif (themes.count = 0) then\\n self.SetEnabled(false)\\n return nil\\nend\\n\\nfor each t in themes\\n if ((t.Is( FTHEME)) and (t.GetFTab.IsGeocoded) and not(t.GetFTab.IsEditable)) then\\n self.SetEnabled(true)\\n return nil\\n end\\nend\\n\\nself.SetEnabled(false)\\n\"\n)\n\n(Script.96\n Name: \"View.Add\"\n SourceCode: \"' View.Add\\ntheView = av.Ge tActiveDoc\\nsrcnames = SourceDialog.Show(\\\"\\\")\\nzoom = (theView.GetThemes.Count = 0)\\nuseDD=TRUE\\nisOther=FALSE\\n\\ntheBox=Rect.makexy(-200,-100,200,100)\\nthemeList={}\\nif (srcnames.count = 0) then\\n return(nil)\\nend\\n\\nfor each n in srcnames\\n theTheme=Theme.Make(n)\\n theleg=thetheme.getlegend.clone\\n if (TheBox.contains(theTheme.returnextent).NOT) then\\n useDD=FALSE \\n end\\n if (theTheme.Is(FTheme).Not) then\\n isOther=TRUE\\n end\\n theavlname=\\\" \\\"\\n if (n.getfilename<>NIL) then\\n if (n .\ngetfilename.getextension<>\\\"\\\") then\\n theext=n.getfilename.asstring.right(4)\\n theAVLname=n.getfilename.asstring.substitute(theext,\\\".avl\\\")\\n else\\n aFN=n.getfilename\\n afn=aFN.asstring+\\\".avl\\\"\\n theAVLname=afn\\n end\\n if ((theTheme.is(FTheme)) and (file.exists(theAVLname.asfilename))) then\\n alinefile=textfile.make(theAVLname.asfilename,#FILE_PERM_READ)\\n asource=alinefile.read(alinefile.getsize)\\n alinefile.close\\n if ((asource.contains(\\\"LegExt\\\" ).Not) or (Extension.F\nind(\\\"Spatial Analyst\\\")<>NIL))then\\n theleg=theTheme.getlegend\\n theleg.load(theAVLname.asfilename,#LEGEND_LOADTYPE_ALL)\\n theflds=theleg.getfieldnames\\n for each afld in theflds\\n if (thetheme.getftab.findfield(afld)=NIL) then\\n thetheme.getlegend.setlegendtype(#LEGEND_TYPE_SIMPLE)\\n thetheme.getlegend.singlesymbol\\n end\\n end\\n if ((theflds.count=0) and (theleg.getlegendtype <>#LEGEND_TYPE_SIMPLE)) th en\\n thetheme.getlegend.set\nlegendtype(#LEGEND_TYPE_SIMPLE)\\n thetheme.getlegend.singlesymbol\\n end\\n \\n end\\n end \\n end\\n theView.AddTheme(theTheme)\\nend\\n\\n\\n' Test if it is OK to set the Map Units to DD and then also set DistanceUnits to Miles (feet for StreetMap)\\n'\\nif ((theView.getUnits = #UNITS_LINEAR_UNKNOWN) and (useDD=TRUE)) then\\n theView.setUnits(#UNITS_LINEAR_DEGREES)\\n theView.getDisplay.setDistanceUnits(#UNITS_LINEAR_MILES)\\n theView.InvalidateTOC( theTheme)\\nend\\n\\n' Test if the user added projected dat\na into a projected view\\n'\\nif ((theView.getProjection.isNull.NOT) and (useDD=FALSE)) then\\n if (isOther.Not) then\\n msgbox.warning(\\\"One or more of the data sources you have chosen is not\\\"++\\n \\\"in decimal degrees. This data can't be projected to match this\\\"++\\n \\\"view's projection. The theme(s) will be added but won't display properly.\\\",\\n \\\"Warning: input theme(s) cannot be projected\\\")\\n end\\nend\\n\\nif ((theView.GetActiveThe mes.Count = 0) and (srcnames.Count > 0)) then\\n theView.GetThemes.Get(0).Set\nActive(TRUE)\\nend\\n\\nif (zoom) then\\n theThemes = theView.GetThemes\\n r = Rect.MakeEmpty\\n for each t in theThemes\\n r = r.UnionWith(t.ReturnExtent)\\n end\\n if (r.IsEmpty) then\\n return nil\\n elseif ((r.ReturnSize) = (0@0)) then\\n theView.GetDisplay.PanTo(r.ReturnOrigin)\\n else\\n theView.GetDisplay.SetExtent(r.Scale(1.1))\\n end\\nend\\n\\nav.GetProject.SetModified( TRUE )\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\"\n)\n\n(Script.97\n Name: \"Table.RemoveAllLinks\"\n SourceCode: \"theTable = av.GetActiveDoc\\nif (theTable.GetVTab.IsLinked) then\\n av.GetProject.SetModified(true)\\nend\\ntheTable.GetVTab.UnlinkAll\"\n)\n\n(Script.98\n Name: \"Project.AutoSave\"\n SourceCode: \"' Name: Project.AutoSave\\n'\\n' Headline: Automatically saves the current project every 5 minutes\\n'\\n' Self: \\n'\\n' Returns:\\n'\\n' Description: This script saves the current project every 5 minutes. Before\\n' it saves the project it checks to see if there is any themes or \\n' tables being edited. If so, the save is suspended until the next \\n' go-around.\\n'\\n' The autosave function can be turned off using the PROJECT: FILE: Turn Autosave ON/OFF\\n'\\n' History: 4/11/9\n7 Tim Loesch - Minnesota DNR \\n'\\n\\n' find out if the user is editing a theme or a table\\n' if a something is being edited then we don't want to save\\n' the project until they are done editing..\\n'\\nediting = false\\nif (av.GetProject <> nil) then\\n for each d in av.GetPr oject.GetDocs\\n if (d.Is(View)) then\\n if (d.getEditableTheme <> nil) then\\n editing = true\\n end\\n elseif (d.Is(Table)) then\\n if (d.GetVTab.IsBeingEditedWithRecovery) then\\n editing = true\\n end\\n end\\n end\\nend\\n\\ns\nave_interval = system.getenvvar(\\\"AUTOSAVEINT\\\")\\n\\nif (system.GetEnvVar(\\\"AutoSave\\\").UCase = \\\"ON\\\") then\\n if (av.GetProject <> nil) then\\n theFileName = av.GetProject.GetFileName\\n if ( (theFileName <> nil) and (editing.not) ) then\\n if (av.GetProject.Save) then\\n av.ShowMsg(\\\"Project saved to '\\\" + theFileName.GetBaseName + \\\"'\\\")\\n if (System.GetOS = #SYSTEM_OS_MAC) then\\n Script.Make(\\\"MacClass.SetDocInfo(SELF, Project)\\\").DoIt(theFileName)\\n end\\n end\\n end\\n end\\n av.delay\nedrun(\\\"Project.AutoSave\\\",nil,save_interval.asnumber)\\nend\\n\"\n)\n\n(Script.99\n Name: \"Link.Project\"\n SourceCode: \"theVal = SELF\\nif (not (theVal.IsNull)) then\\n av.GetProject.Import(theVal.AsFileName)\\nend\\n\"\n)\n\n(Script.10 0\n Name: \"Project.Import\"\n SourceCode: \"patterns = {\\\"*.apr\\\", \\\"*.av\\\" }\\nlabels = {\\\"Project (*.apr)\\\", \\\"ArcView 1 view (*.av)\\\"}\\nfiles = FileDialog.ReturnFiles(patterns, labels, \\\"Import\\\", 0)\\ngui = av.GetProject.GetSelectedGUI\\nif (gui.GetType <> \\\"View\\\" ) then\\n GUIName = \\\"View\\\"\\nelse\\n GUIName = gui.GetName\\nend\\n\\nfor each f in files\\n d = View.Import(f)\\n if (d <> nil) then\\n d.SetGUI( GUIName )\\n d.SetName(f.GetBaseName)\\n d.GetWin.Open\\n else\\n av.GetProject.Import(f)\\n end \\nend\"\n)\n\n(Script.101\n Name: \"View.ZoomFullExtent\"\n SourceCode: \"theView = av.GetActiveDoc\\nr = theView.ReturnExtent\\n\\nif (r.IsEmpty) then\\n return nil\\nelseif ( r.ReturnSize = (0@0) ) then\\n theView.GetDisplay.PanTo(r.ReturnOrigin)\\nelse\\n theView.GetDisplay.SetExtent(r.Scale(1.1))\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.102\n Name: \"View.ZoomOutTool\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\nr = theView.ReturnUserRect\\nd = theView.GetDisplay\\nif (r.IsNull.n ot) then\\n ext = d.ReturnExtent\\n ext.Scale(ext.GetWidth / r.GetWidth)\\n d.ZoomToRect(ext)\\nelse\\n d.ZoomOut(125)\\n d.PanTo(d.ReturnUserPoint)\\nend\"\n)\n\n(Script.103\n Name: \"View.AutoCompleteTool\"\n SourceCode: \"theView = av.GetActiveDoc\\nl = theView.ReturnUserPolyLine\\ntheTheme = theView.GetEditableTheme\\n\\nif (l.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n theTheme.GetFtab.BeginTransaction\\n theTheme.AutoComplete(l)\\n theTheme.GetFtab.EndTransaction\\n end \\n av.GetProject. SetModified(true)\\nend\\n\\n\"\n)\n\n(Script.104\n Name: \"View.SnapToBoundary\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\ntheView.SetInteractiveSnapping(theTheme,#POINT_SNAP_BOUNDARY)\\n\"\n)\n\n(Script.105\n Name: \"View.HotLinkUpdate\"\n SourceCode: \"themes = av.GetActiveDoc.GetActiveThemes\\nif (themes.count = 0) then\\n self.SetEnabled( FALSE )\\n return nil\\nend\\n'\\n' there must be some active themes\\n'\\nfor each t in themes\\n if (t.CanHotLink) then\\n if ((t.GetHotField <> n il) and (t.GetHotScriptName <> \\\"\\\")) then\\n self.SetEnabled( TRUE )\\n return nil\\n end\\n end\\nend\\n\\nSelf.SetEnabled( FALSE )\\n\"\n)\n\n(Script.106\n Name: \"Project.RenameUpdate\"\n SourceCode: \"theProject = av.GetActiveDoc\\nhaveOneDoc = theProject.GetSelectedDocs.Count = 1\\n\\nSELF.SetEnabled(haveOneDoc)\\n\\nif (haveOneDoc) then\\n SELF.SetLabel(\\\"&Rename '\\\" + theProject.GetSelectedDocs.Get(0).GetName + \\\"'...\\\")\\nelse\\n SELF.SetLabel(\\\"&Rename...\\\")\\nend\\n\"\n)\n\n(Script.107\n Name: \"Table.Link\"\n Sour ceCode: \"theTable = av.GetActiveDoc\\nnext = theTable.GetWin.GetNextDoc\\ntheTable.GetVTab.Link(theTable.GetActiveField,next.GetVTab,next.GetActiveField)\\n\"\n)\n\n(Script.108\n Name: \"Table.MultiFieldDelete\"\n SourceCode: \"' Name: aanTable.MultiFieldDelete\\n'\\n' Title: Deletes Multiple Fields In A Table\\n'\\n' Topics: Editing a table\\n'\\n' Description: This script gives the user a list of fields to select from and then deletes the \\n' selected fields. The script protects the shape field from deletion and requi res that at least\\n' one other field be left in the table so that the FTab will not become undefined. \\n' WARNING: this script acts directly on the active table, not on a copy. A delete confirmation\\n' routine is included, b\nut once confirmed all deletion requests are final.\\n'\\n' Script by Mike DeLaune, (Email: mike.g.delaune@state.or.us),\\n' Oregon Department of Forestry, 9/23/97.\\n'\\n' Requires: The active document must be an editable table and the VTab must be editable.\\n'\\n' Self: \\n'\\n' Returns: \\n\\n'===========================================================\\n\\n' Check for the shift key, if the shift key is down, pop up instructions for using this script\\n\\nif (System.IsShiftKeyDown) then\\n message =\\n \\\" \\\"+nl+\\n\\\"Multiple Field Delet\ne Instructions:\\\"+nl+nl+\\n\\\"Description: This script gives the user a list of fields to select from\\\"+nl+ \\n\\\"and then deletes the selected fields. The script protects the shape field\\\"+nl+\\n\\\"from deletion and requires that at least one other field be left in the\\\"+nl+\\n\\\"table so that the FTab will not become undefined.\\\"+nl+nl+\\n\\\"WARNING: this script acts directly on the active table, not on a copy. A\\\"+nl+\\n\\\"delete confirmation routine is included, but once confirmed all deletion\\\"+nl+\\n\\\"requests are final.\\\"+nl+nl+\\n\\\"R\nequires: The active document must be an editable table and the VTab must\\\"+nl+\\n\\\"be editable.\\\"+NL+NL+\\n\\\"Script by Mike DeLaune, (Email: mike.g.delaune@state.or.us),\\\"+nl+\\n\\\"Oregon Department of Forestry, 9/23/97.\\\"+nl+nl+\\n\\\"Brief In structions:\\\"+nl+nl+\\n\\\"1. Select fields to delete using a single click to toggle selection, or\\\"+nl+\\n\\\"click and drag for multiple selection.\\\"+nl+nl+\\n\\\"2. Confirm the deletion for each field, or press Yes To All.\\\"\\n \\n msgbox.report(message,\\\"Table MultiField Delete\\\")\\n \\n Clipboard.T\nhe.Empty\\n Clipboard.The.Add(message)\\n Clipboard.The.Update\\n \\n MsgBox.Info(\\\"These instructions were copied to the system clipboard. To print them, open a text editor\\\"++\\n \\\"(like notepad), paste i n the contents of the clipboard, and print them from the text editor.\\\",\\\"PRINT INSTRUCTIONS\\\")\\n\\n return nil\\nend\\n\\n''''''''''''''''''''''''''''''''''''''''''''''''''''''''''\\n' Ask for User input:\\n'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' \\n\\n' Get the table\\ntheFtab = av.GetActiveDoc\\n\\n' Stops scr\nipt if the active document is not a table.\\nif(theFtab.is(table).not) then\\n msgbox.error(\\\"A table document must be active, bailing.\\\",\\\"Error\\\")\\n exit\\nend\\n\\n' Get the Vtab\\ntheVTa b = theFtab.GetVtab\\n\\n' Check to see if the VTab is editable:\\nif (theVtab.CanEdit.Not) then\\n msgbox.error(\\\"The table is not editable, bailing.\\\",\\\"Error\\\")\\n exit\\nend\\n\\n' Stops editing if currently editing, then restarts.\\nif (theVTab.IsBeingEditedWithRecovery) then\\n theVtab.StopEditingWithRecovery(true)\\nend\\n theVTab.StartEditingWithReco\nvery\\n\\n' Get the list of fields.\\nvfList = theVTab.GetFields\\nflist = List.Make\\n\\n' Make a new list without the shape field.\\nfor each fld in vfList\\n i f ((fld.GetName = \\\"Shape\\\").Not) then\\n flist.Add(fld)\\n end\\nend \\n\\n \\n' END OF THE INITIAL SETUP\\n\\n''''''''''''''''''''''''''''''''''''''''''''''''''''''''''\\n' Ask for User input:\\n'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' \\n\\n' Ask the user which fields to delete.\\nsellist = Msgbox.MultiList(fList,\\\"Select Fields To Delete\\\"+nl+\\\"(s\ningle click to toggle selection,\\\"+nl+\\n\\\" click and drag for multiple selection)\\\",\\\"Multiple Field Delete\\\")\\n\\n' Check to see if some fields were selected, bail if not:\\nif ((nil = sellist) or (sellist.count = 0)) then\\n msgbox.info(\\\"No fields were selected for deletion, bailing.\\\",\\\"Process Status\\\")\\n theVTab.StopEditingWithRecovery(true)\\n exit\\nend\\n\\n\\n' Confirm deletion request\\ndellist = list.make\\nyn = true\\nfor each f in sellist\\n if(yn <> nil) then\\n yn = Msgbox.AllYesNo(\\\"Do you want to delete this field: \\\"\\n \n++f.AsString,\\\"Delete Confirmation\\\",true)\\n end \\n \\n' Shape field deletion not allowed, otherwi se add the field to the deletion list if confirmed:\\n if(f.AsString = \\\"shape\\\") then\\n Msgbox.Error(\\\"Shape field deletion not allowed.\\\",\\\"User attempted to delete shape field\\\")\\n elseif((yn = true) or (yn = nil)) then\\n dellist.add(f)\\n end\\nend 'end the for each\\n\\n' END OF USER INPUT.\\n\\n'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''\\n' Begin the deletion process\\n'''''''''''''''''''''''''''''''\n''''''''''''''''''''''''''''''''\\n \\n' Must retain at least one field in ad dition to shape:\\nif((fList.count) = dellist.count) then\\n msgbox.error(\\\"Removing all fields except 'Shape' will make the FTab undefined, bailing.\\\",\\n \\\"RETAIN SHAPE FIELD + ONE OTHER FIELD\\\")\\n theVTab.StopEditingWithRecovery(true)\\n exit\\nend \\n \\n' Remove the fields\\nif (dellist.count > 0) then\\n theVtab.RemoveFields(dellist)\\nend\\n\\n\\n' END OF THE FIELD DELETION PROCESS\\n\\n'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''\\n' \n Begin the post-editing cleanup and calculations. \\n' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''\\n\\n' Commit the changes and stop editing\\\"\\ntheVtab.Flush\\ntheVTab.StopEditingWithRecovery(true)\\n\\n\\n\\n\\n\"\n)\n\n(Script.109\n Name: \"SymWin.DisplayFillPanel\"\n SourceCode: \"if ((av.GetSymbolWin.GetPanel = #SYMBOLWIN_PANEL_COLOR).not) then\\n av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_FILL)\\nend\"\n)\n\n(Script.110\n Name: \"Link.Document\"\n SourceCode: \"theVal = SELF\\nif (not (theVal.IsNull)) then\\n theDoc = av.GetProject.FindDoc(theVal)\\n if (nil <> th eDoc) then\\n theDoc.GetWin.Open\\n end\\nend\\n\"\n)\n\n(Script.111\n Name: \"View.UndoEditUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nenabled = False\\ntheTheme = theView.GetEditableTheme\\nif (theTheme <> nil) then\\n if (SELF.GetControlSet.Is(Popup)) then\\n SELF.SetLabel(\\\"Undo Feature Edit\\\")\\n else\\n SELF.SetLabel(\\\"&Undo Feature Edit\\\") \\n end\\n SELF.SetHelp(\\\"Undo the last edit to features in a theme\\\")\\n SELF.SetHelpTopic(\\\"Undo_Feature_Edit_on_a_view\\\")\\n if (theTheme.GetFTab.CanUndo) then \\n enabled = True\\n end\\nelse \\n if (SELF.GetControlSet.Is(Popup)) then\\n SELF.SetLabel(\\\"Undo Graphic Edit\\\")\\n else\\n SELF\n.SetLabel(\\\"&Undo Graphic Edit\\\")\\n end \\n SELF.SetHelp(\\\"Undo the last edit to graphics on a view\\\")\\n SELF.SetHelpTopic(\\\"Undo_Graphic_Edit_on_a_view\\\")\\n if (theView.GetGraphics.CanRestoreGraphic) then\\n enabled = True\\n end\\nend\\n\\nself.SetEnabled(enabled)\\n\"\n)\n\n(Script.112\n Name: \"Project.Rename\"\n SourceCode: \"theProject = av.GetProject\\ntheDoc = theProject.G etSelectedDocs.Get(0)\\n\\nname = MsgBox.Input(\\\"New Name:\\\", \\\"Rename\\\", theDoc.GetName)\\nif (nil <> name) then\\n theDoc.SetName(name)\\n theProject.SetSelectedDoc(theDoc,FALSE)\\nend\"\n)\n\n(Script.113\n Name: \"View.HotLink\"\n SourceCode: \"theView = av.GetActiveDoc\\nfound = false\\np = theView.GetDisplay.ReturnUserPoint\\nfor each t in theView.GetActiveThemes\\n if ((t.HasAttributes) and (t.GetHotField <> nil)) then\\n recs = t.FindByPoint(p)\\n for each rec in recs\\n theField = t.GetHotField\\n found = true\\n theVal = t.ReturnValueString(theField.GetName, rec)\\n av.Run(t.GetHotScriptName,theVal)\\n end\\n end\\nend\\nif (not found) then\\n System.Beep\\nend\"\n)\n\n(Script.114\n Name: \"View.RemoveOverlapThemeLabelsUpdate\"\n SourceCode: \"Self.SetEnabled(false)\\nv = av.GetActiveDoc\\nif (v.GetEditableTheme <> nil) then\\n return nil\\nend\\noc = v.GetOverlapLabelColor\\nfor each t in v.GetVisibleThemes\\n if (t.IsActive) then\\n if (t.GetGraphics.HasOverlappingLabels(oc)) then\\n Self.SetEnabl ed(true)\\n end\\n end\\nend\"\n)\n\n(Script.115\n Name: \"View.DeleteThemes\"\n SourceCode: \"theView = av.GetActiveDoc\\neditThm = theView.GetEditableTheme\\nthmList = {}\\nfor each t in theView.GetActiveThemes\\n if (t.CanDeleteFromView) then\\n if (t = editThm) then\\n doSave = MsgBox.YesNoCancel(\\\"Save edits to \\\"+editThm.GetName+\\\"?\\\",\\n \\\"Stop Editing\\\",true)\\n if (doSave = nil) then\\n return nil\\n end\\n if (editThm.StopEditing(doSave).Not) then\\n MsgBox.Info(\\\"Unab le to Save Edits to \\\" \\n + editThm.GetName +\\n \\\", please use the Save Edits As\n option\\\",\\\"\\\")\\n return nil\\n else \\n theView.SetEditableTheme(NIL)\\n end \\n end \\n thmList.Add(t)\\n end\\nend\\n\\nthmList2 = thmlist.clone\\nfor each t in thmList\\n doDelete = MsgBox.AllYesNo(\\\"Are you sure you want to delete theme \\\" + \\n t.asString + \\\"?\\\", \\\"Delete Themes\\\", true)\\n if (doDelete = nil) then \\n break\\n elseif (doDelete) then\\n theView.DeleteTheme(t)\\n thmList2.RemoveObj(t)\\n else\\n thmList2.RemoveObj(t)\\n end\\nend\\n\\nfor each t in thmList2\\n theView.DeleteTheme(t)\\nen\nd\\n\\nav.GetProject.SetModified(true)\\nav.PurgeObjects\"\n)\n\n(Script.116\n Name: \"Table.DeleteRecords\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\ntheVtab.BeginTransaction\\ntheVTab.RemoveRecords(theVTab.GetSelection.Clone)\\ntheVTab.EndTransaction\"\n)\n\n(Script.117\n Name: \"Layout.Cut\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nif (theLayo ut.GetGraphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\ntheLayout.GetGraphics.CutSelected\\n\"\n)\n\n(Script.118\n Name: \"Table.Copy\"\n SourceCode: \"av.GetActiveDoc.Copy\"\n)\n\n(Script.119\n Name: \"View.AddEvent\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheFTab = EventDialog.Show(theView)\\nif (theFTab <> nil) then\\n theView.AddTheme(FTheme.Make(theFTab))\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.120\n Name: \"Chart.TwoColumnUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nSELF.SetEnabled( theChart.GetFields.Count = 2) \\n\"\n)\n\n(Script.121\n Name: \"SymWin.DisplayFontPanel\"\n SourceCode: \"if ((av.GetSymbolWin.GetPanel = #SYMBOLWIN_PANEL_COLOR).not) then\\n av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_FONT)\\nend\"\n)\n\n(Script.122\n Name: \"DNR.Properties.Add\"\n SourceCode: \"' Name: DNR.Properties.Add\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 08:13:01 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script is used to add a project property\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -\n------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\nthedialog = self.GetDialog\\nthelistbox = theDialog.FindByName(\\\"Project Properties lbx\\\")\\n\\nlabels = {\\\"Environ ment Variable\\\",\\\"Variable Value\\\",\\\"Variable Description\\\"}\\ndefaults = {\\\"\\\",\\\"\\\"}\\n\\nvarval = msgbox.multiinput(\\\"Enter New Variable Parameters\\\",\\\"DNR.SetVariable\\\",labels,defaults)\\nif (varval.count < 1) then\\n return nil\\nend\\n\\nthedialog = self.GetDialog\\n\\nthelistbox = theDialog.FindByName(\\\"Project Properties lbx\\\")\\n\\nthe\nvtab = thelistbox.GetVTab\\ndescfield = theVTab.FindField(\\\"DESC\\\")\\nvarfield = theVTab.FindField(\\\"ENVVAR\\\")\\nvalfield = theVTab.FindField(\\\"VALUE\\\")\\n\\n'look to see if this var iable already exists\\nfor each rec in theVTab\\n tmpval = theVTab.ReturnValue(varfield,rec)\\n if (tmpval = varval.get(1)) then\\n msgbox.error(\\\"Environment Variable already exists, Use the Set Default Project Properties to change it\\\",\\\"DNR.SetVariable\\\")\\n return nil\\n end\\nend\\ntheVTab.SetEditable(true)\\ntherec = theVTab.Addrecord\\ntheVTab.SetValue\n(varfield,therec,varval.get(0))\\ntheVTab.SetValue(valfield,therec,varval.get(1))\\ntheVTab.SetValue(descfield,therec,varval.get(2))\\ntheVTab.SetEditable (false)\\ntheVTab.Flush\\ntheListBox.update\\n\"\n)\n\n(Script.123\n Name: \"View.UTM2LATLONG\"\n SourceCode: \"' Name: View.UTM2LATLONG\\n'\\n' Author: Timothy N. Loesch\\n' Date: Tue Jul 28 13:21:15 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script displays a lat/long on the screen from a UTM zone 15 point\\n' and displays the DMS and DD versions of the point.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\ n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\n\\n'if (System.IsShiftKeyDown) then\\n' theprj = \\n' return nil\\n'end\\n\\ntheView = av.GetActiveDoc\\np = TrnMerc.Make(theView.ReturnExtent)\\np.SetCentralMeridian(-93)\\np.SetReferenceLatitude(0)\\np.SetScale(0.9996)\\np.SetFalseEasting(500000)\\np.SetFalseNorthing(0)\\np.SetSpheroid(#SPHEROID_GRS80)\\n\\nthept = theView.GetDisplay.ReturnUserPoint\\nif (thept = nil) then\\n return nil\\nend\\n\\nxutm = thept.getx.setformat(\\\"dd\\\")\\nyutm = thept.gety.setformat(\\\"dd\\\")\\n\\np.UnprojectPt(thept)\\n\\nlatdd = thept.gety\\nlongdd = thept.getx\\n\\ntmplist = {}\\nfo\nr each num in {latdd,longdd}\\n deg = num.truncate\\n tmp = num - deg\\n tmpmn = (tmp * 60).abs\\n\\n mn = tmpmn.truncate\\n tmp = tmpmn - mn\\n sec = (tmp * 60).round\\n tmplist.add(deg.asstring++mn.asstring++sec.asstring)\\nend\\n\\namsg1 = \\\"Lat/Long (DD) =\\\"++latdd.asstring+\\\",\\\"++longdd.asstring+NL+NL+\\n \\\"Lat/Long (DMS) =\\\"++tmplist.get(0).asstri ng+\\\",\\\"++tmplist.get(1)+NL+\\n \\\" UTM X/Y =\\\"++xutm.asstring+\\\",\\\"++yutm.asstring\\n\\nClipBoard.The.Empty\\nClipBoard.The.Add(amsg1)\\nClipBoard.The.Update\\namsg2 = \\\"These va\nlues have been copied to the ClipBoard.\\\"\\n\\n\\nmsgbox.report(amsg1+NL+NL+NL+amsg2,\\\"Report Latitude/Longitude\\\")\\n\"\n)\n\n(Script.124\n Name: \"Layout.ShowHideGridUpdate\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nif (theLayout.GetDisplay.IsGridVisible) then\\n SELF.SetLabel(\\\"Hide &Grid\\\")\\nelse\\n SELF.SetLabel(\\\"Show &Grid\\\")\\ nend\\n\"\n)\n\n(Script.125\n Name: \"Table.Query\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.BuildQuery\\n\"\n)\n\n(Script.126\n Name: \"View.SnapTool\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nc = theView.ReturnUserCircle\\ntheTheme = theView.GetEditableTheme\\n\\nif (c.IsNull.not) then\\n if (theTheme <> nil) then\\n theTheme.SetSnapTolerance(c.GetRadius)\\n end\\nend\"\n)\n\n(Script.127\n Name: \"Chart.PaintTool\"\n SourceCode: \"theChart = av.GetActiveDoc\\naColor = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_FILL).GetCol or\\np = theChart.GetUserPart\\nif (p = Nil) then\\n s = theChart.GetUserSeries\\n if (s <> -1) then\\n theChart.GetChartDisplay.SetSeriesColor(s, aColor)\\n end\\nelse\\n p.SetColor(aColor)\\nend\\n\"\n)\n\n(Script.128\n Name: \"Table.Action\"\n SourceCode: \"av.Run( \\\"Project.AddTable\\\", NIL )\\n\"\n)\n\n(Script.129\n Name: \"Table.SortAscending\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.Sort(theTable.GetActiveField, False)\\n\"\n)\n\n(Script.130\n Name: \"Layout.New\"\n SourceCode: \"newLayout = Layout.MakeWithGUI(av.GetPro ject.GetSelectedGUI.GetName)\\nnewLayout.GetWin.Open\"\n)\n\n(Script.131\n Name: \"View.CopyGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n theView.GetGraphics.CopySelected\\nelse\\n theTheme.CopySelected\\nend\\n\"\n)\n\n(Script.132\n Name: \"View.LabelThemes\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\nAutoLabelDialog.Show(theTheme)\\n\"\n)\n\n(Script.133\n Name: \"Graphic.HasSelectionUpdate\"\n SourceCode: \"theDoc = av.G etActiveDoc\\nSELF.SetEnabled(0 < theDoc.GetGraphics.GetSelected.Count ) \\n\"\n)\n\n(Script.134\n Name: \"View.InteractiveSnapTool\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nc = theView.ReturnUserCircle\\ntheTheme = theView.GetEditableTheme\\n\\nif (c.IsNull) then\\n return nil\\nelse \\n if (theTheme <> nil) then\\n theTheme.SetInteractiveSnapTolerance(c.GetRadius)\\n end\\nend\\n\"\n)\n\n(Script.135\n Name: \"Project.CustomizeUpdate\"\n SourceCode: \"SELF.SetEnabled( av.IsCustomizable )\"\n)\n\n(Script.136\n Name: \"Project.Arran geIcons\"\n SourceCode: \"av.ArrangeIcons\"\n)\n\n(Script.137\n Name: \"Doc.Open\"\n SourceCode: \"for each d in av.GetProject.GetSelectedDocs\\n d.GetWin.Open\\nend\"\n)\n\n(Script.138\n Name: \"Doc.NewUpdate\"\n SourceCode: \"if (av.GetProject.GetGUIs.count <= 2) then\\n SELF.setEnabled(false)\\nelse\\n self.setEnabled(true)\\n self.setLabel(\\\"&New\\\")\\n self.setHelpTopic(\\\"New_button\\\")\\nend\\n\\n\\n\"\n)\n\n(Script.139\n Name: \"Script.SystemLoad\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheScript = ScriptMgr.Show\\nif (nil <> th eScript) then\\n theSEd.Insert(theScript.AsString)\\nend\\n\\n\"\n)\n\n(Script.140\n Name: \"View.UndoEdit\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theTheme.GetFTab.Undo\\nelse\\n theView.getgraphics.restoregraphic\\nend\\n\\n\"\n)\n\n(Script.141\n Name: \"DNR.ExportProject\"\n SourceCode: \"' Name: DNR.ExportProject\\n'\\n' Author: 'by Dr. Yi Tang GeoSyntec Consultants Atlanta, GA\\n' \\n' Date: Fri Apr 02 15:29:27 1999\\n' Revised by: \\ n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description:This script runs the Export Project DLL. and was created\\n' to export projects and data to a single directory.... \\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -----------------------------------------------\n--------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheProject = av.GetProject\\nOldName = theProject.GetFileName\\nif (OldName=nil) then\\n OldName=Fi leName.GetCWD.MakeTmp(\\\"proj\\\",\\\"apr\\\")\\nend\\nNewName = FileDialog.Put(OldName, \\\"*.apr\\\", \\\"New Project Location\\\")\\nif (NewName = nil) then \\n return nil \\nend\\nav.ShowMsg(\\\"Transferring\\\"++OldName.AsString++\\\"Documents and Data. Please be patient...\\\")\\nmyDLL=DLL.Make(\\\"$USEREXT\\\\Avdlls.dll\\\".AsFileName)\\nTransfer=DLLProc.Make(myDLL,\\\"Apro\\\",#DLLPROC_TYPE_VOID,{#DLLPROC_TYPE_STR,#DLL\nPROC_TYPE_STR})\\nTransfer.Call({OldName.asString,Newname.asString})\\nav.ClearMsg \\n\"\n)\n\n(Script.142\n Name: \"Project.ShowH ideSymWin\"\n SourceCode: \"av.GetSymbolWin.Open\"\n)\n\n(Script.143\n Name: \"View.RemoveOverlapThemeLabels\"\n SourceCode: \"v = av.GetActiveDoc\\noc =v.GetOverLapLabelColor\\nfor each t in v.GetVisibleThemes\\n if (t.IsActive) then\\n t.GetGraphics.SelectOverlappingLabels(oc) \\n t.GetGraphics.Invalidate\\nend\\n \\nend\\nv.GetGraphics.ClearSelected\"\n)\n\n(Script.144\n Name: \"View.HasThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled(0 < theView.GetThemes.Count) \\n\"\n)\n\n(Script.145\n Name: \"Table.Cu tUpdate\"\n SourceCode: \"s = av.GetActiveDoc.GetEditString\\nSELF.SetEnabled( s <> nil)\\n\"\n)\n\n(Script.146\n Name: \"Script.FindNextUpdate\"\n SourceCode: \"theScript = av.GetActiveDoc\\nself.SetEnabled( theScript.GetSearchString <> \\\"\\\")\\n\\n\"\n)\n\n(Script.147\n Name: \"View.CutThemes\"\n SourceCode: \"theView = av.GetActiveDoc\\naList = List.Make\\nemptylist = true\\nfor each t in theView.GetActiveThemes\\n if (t.CanDeleteFromView) then\\n aList.Add(t)\\n emptylist = false\\n end\\nend\\nif (emptylist) then\\n return nil\\ne nd\\nav.GetProject.SetModified(true)\\neditThm = theView.GetEditableTheme\\nfor each t in aList\\n if (t = editThm) then\\n doSave = MsgBox.YesNoCancel(\\\"Save edits to \\\"+editThm.GetName+\\n \\\"?\\\",\\\"Stop Editing\\\",true)\\n if (doSave = nil) then\\n return nil\\n end\\n if (editThm.StopEditing(doSave).N\not) then\\n MsgBox.Info(\\\"Unable to Save Edits to \\\" \\n + editThm.GetName +\\n \\\", please use the Save Edits As option\\\",\\\"\\\")\\n return nil\\n else \\n theView.SetEditableTheme(NIL)\\n end \\n end \\nend\\ntheView.CutThemes\"\n)\n\n(Script.148\n Name: \"Layout.TemplateStore\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nt = theLayout.AsTemplate\\nif (t <> nil) then\\n if (t.Edit) then\\n TemplateMgr.Add(t)\\n end\\nend\"\n)\n\n(Script.149\n Name: \"Table.Identify\"\n SourceCode: \"theTable = av.GetActiveDoc\\nrow = theTable.GetUserRow\\nrec = theTable.ConvertRowToRecord(row)\\ntheTable.GetVTab.Identify(rec, theTable.GetName++\\\"-\\\"++rec.AsString)\\n\"\n)\n\n(Script.150\n N ame: \"Chart.Toggle\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.SetSeriesFromRecords(theChart.IsSeriesFromRecords.Not)\\n\"\n)\n\n(Script.151\n Name: \"TABLE.UTMtoLATLONG\"\n SourceCode: \"' Name: TABLE.UTM2LATLONG\\n'\\n' Author: Timothy N. Loesch\\n' Date: Tue aug 27, 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script processes the active table document and converts\\n' utm coordinates to Lat/long in DD and DMS. The X and Y UTM coordinates\\n' are read from fields that the user specifies.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -----------------------------------\n--------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\n'if (System.IsShiftKeyDown) then\\n' theprj = \\n' return nil\\n'end\\n\\ntheVTab = av.GetActiveDoc.GetVTab\\n\\n'p = TrnMerc.Make(theView.ReturnExtent)\\np = TrnMerc.Make(rect.make(0@0,1@1))\\n\\np.SetCentralMeridian(-93)\\np.SetReferenceLatitude( 0)\\np.SetScale(0.9996)\\np.SetFalseEasting(500000)\\np.SetFalseNorthing(0)\\np.SetSpheroid(#SPHEROID_GRS80)\\n\\n\\ntheFieldList = theVTab.GetFields\\nXField = msgbox.listasstring(thefieldlist,\\\"Select X-UTM Field\\\",\\\"TABLE.UTMtoLATLONG\\\"\n)\\nif (XField = nil) then return nil end\\nYField = msgbox.listasstring(thefieldlist,\\\"Select Y-UTM Field\\\",\\\"TABLE.UTMtoLATLONG\\\")\\nif (YField = nil) then return nil end\\n\\nLatDDField = field.make(\\\"LatDD\\\",#FIELD_DECIMAL,7,4)\\nlongddField = field.make(\\\"LongDD\\\",#FIELD_DECIMAL,7 ,4)\\nlatdmsField = field.make(\\\"LatDMS\\\",#FIELD_CHAR,9,0)\\nlongdmsField = field.make(\\\"LongDMS\\\",#FIELD_CHAR,9,0)\\n\\n\\ntheVTAB.SetEditable(true)\\ntheVTAB.AddFields({LongDDField,LatDDField,LongDMSField,LatDMSField})\\n\\nfor each rec in theVTab\\n xutm = theVTab\n.ReturnValue(XField,rec)\\n yutm = theVTab.ReturnValue(YField,rec)\\n thept = point.make(xutm,yutm)\\n p.UnprojectPt(thept)\\n latdd = thept.gety\\n longdd = thept.getx\\n tmplist = {}\\n for each num in {latdd,longdd}\\n deg = num.truncate\\n tmp = num - deg\\n tmpmn = (tmp * 60).abs\\n \\n mn = tmpmn.truncate\\n if (mn.asstring.count = 1) then \\n mnstr = \\\"0\\\"+mn.asstring\\n else\\n mnstr = mn.asstring\\n end\\n tmp = tmpmn - mn\\n sec = (tmp * 60).round\\n if (sec.asstring.count = 1) then\\n s\necstr = \\\"0\\\"+sec.asstring\\n else\\n secstr = sec.asstring\\n end\\n \\n tmplist.add(deg.asstring++mnstr++secstr)\\n end\\n theVtab.SetValue(LatDDField,rec,latdd)\\n theVtab.SetValue(LongDDField,rec,longdd)\\n theV tab.SetValue(LatDMSField,rec,tmplist.get(0))\\n theVtab.SetValue(LongDMSField,rec,tmplist.get(1))\\nend\\n\"\n)\n\n(Script.152\n Name: \"View.DelLastPointUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled(0 < theView.GetActiveThemes.Count) \\nSELF.SetVisible(FALSE)\\nSELF.SetEnabled(FALSE)\\n\\ntheTool = av.GetActiveGUI.GetToolBar.GetActive\\nif (theTool <> nil) then\\n if ((theTool.GetApply = \\\"View.PolyLineTool\\\") or \\n (theTool.GetApply = \\\"View.PolyTool\\\") or\\n (theTool.GetApply = \\\"View.Spli tTool\\\") or\\n (theTool.GetApply = \\\"View.AutoCompleteTool\\\")) then\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\n end\\nend\"\n)\n\n(Script.153\n Name: \"Table.DeleteFieldUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\nSELF.SetEnabled(theVTab.IsEditable and theVTab.CanRemoveFields and (theTable.GetActiveField <> NIL) and (theTable.GetActiveField.IsEditable) and not (theTable.GetActiveField.IsTypeShape))\"\n)\n\n(Script.154\n Name: \"WizardBuffer.OpenDialogUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled(false)\\nhasData = ((theView.GetGraphics.Count > 0) or (theView.GetThemes.Count > 0))\\ntheExt = Extension.GetExtensions.Get(\\\"Buffer Wizard\\\")\\ntheUnits = theView.GetUnits\\ntheDistUnits = theView.GetDisplay.GetDistanceUnits\\nif (hasData and (theExt <> nil) and \\n (theUnits <> #UNITS_LINEAR_UNKNOWN) and \\n (theDistUnits <> #UNITS_LINEAR_UNKNOWN)) then\\n SELF.SetEnabled(true)\\nend\\n\"\n)\n\n(Script.155\n Name: \"Layout.Select\"\n SourceCode: \"theLayout = av.GetActiveDo c\\ntheLayout.Select\"\n)\n\n(Script.156\n Name: \"Layout.FramePicture\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n pf = PictureFrame.Make(r)\\n pf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n pf.SetSelected(TRUE)\\n if (pf.Edit(theLayout.GetGraphics)) then\\n theLayout.GetGraphics.AddName(pf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.157\n Name: \"Layout.ZoomActual\"\n SourceCode: \"av.GetProject.SetModified(true)\\n theLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.ZoomToActual\"\n)\n\n(Script.158\n Name: \"DNR.Properties.Delete\"\n SourceCode: \"' Name: DNR.Properties.Delete\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 08:13:01 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' ----------------------------------------------- --------------------\\n' Description: This script is used to delete a project property\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns\n: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\nthedialog = self.GetDialog\\nthelistbox = theDialog.FindByName(\\\"Project Properties lbx\\\")\\n\\nthecell = thelistbox.getcurrentlocation\\ntherow = thecell.gety\\nthecol = thecell.getx\\n\\nthefield = thelistbox.GetCurrentField\\nfldname = thefield.getname.lcase\\nthe val = thelistbox.getcurrentvalue\\nif (theval.GetClass.GetClassname = \\\"FIELD\\\") then\\n msgbox.info(\\\"Reselect the Variable you wish to delete and try again\\\",\\\"Delete\n Property\\\")\\n return nil\\nend\\n\\nif (msgbox.yesno(\\\"Are you sure you want to delete\\\"++theval,\\\"Delete Project Property\\\",false)) then\\n thevtab = thelistbox.GetVTab\\n theVTab.SetEditable(true)\\n for each rec in theVTab\\n tmpval = theVTab.ReturnValue(thefield,rec)\\n varval = theVTab.ReturnValue(theVTab.FindField(\\\"VALUE\\\"),rec)\\n if (tmpval = theval) then\\n theVTab.RemoveRecord(rec)\\n theVTab.SetEditable(false)\\n end\\n theVTab.Flush\\n end\\n thelistbox.Update\\n else\\n return nil\\nend\\n\\n' now unset the \nenvironment variable\\nsystem.setenvvar(varval,\\\"\\\")\\n\"\n)\n\n(Script.159\n Name: \"Last4.ShowLastProjects\"\n SourceCode: \"theProject = av.GetActiveDoc\\nctlset = self.GetControlSet\\n\\n'if (_rememberLast = nil) then \\n av.run(\\\"Last4.RestoreState\\\",nil) \\n'end\\n\\nnext = ctlset.FindByScript( \\\"Last4.OpenProject\\\" )\\nif (n ext <> nil) then\\n if (_RememberLast.Count <> 0) then\\n if (next = (\\\"&1\\\"++_RememberLast.Get(0))) then 'UNCHANGED\\n return nil\\n end\\n end\\n while (next <> nil) \\n ctlset.Remove( next )\\n next = ctlset.FindByScript( \\\"Last4.OpenProject\\\" )\\n end\\nend\\n\\npos = ctlset.GetControls.Find( self )\\n\\n ' iterate through the op\nen docs and add them back as menu items\\ncount = 1\\nfor each name in _RememberLast\\n n= ctlset.New( pos )\\n n.setLabel(\\\"&\\\"+count.AsString++name)\\n n.setClick(\\\"L ast4.OpenProject\\\")\\n n.SetName( \\\"Last4\\\" )\\n n.SetHelp(\\\"Opens\\\"++name)\\n pos = pos + 1\\n pos.setformat(\\\"d\\\")\\n count=count+1\\nend\\n\"\n)\n\n(Script.160\n Name: \"View.ToggleGeneralSnap\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n if (theTheme.IsSnapping) then\\n theTheme.SetSnapping(False)\\n else\\n theTheme.SetSnapping(True)\\n end\\nend\"\n)\n\n(Script.161\n Name: \"Table.JoinUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nfld = theTable .GetActiveField\\nnext = theTable.GetWin.GetNextDoc\\n \\nif ((fld = NIL) or (next = NIL)) then\\n SELF.SetEnabled( FALSE )\\n return nil\\nend\\n\\nnextfld = next.GetActiveField\\n\\nif (nextfld = NIL) then \\n SELF.SetEnabled( FALSE )\\n\\nelseif (fld.IsTypeNumber and nextfld.IsTypeNumber) then\\n SELF.SetEnabled( next.GetVTab.IsBase and next.GetVTab.IsBeingEditedWithRecovery.Not)\\n\\nelseif (fld.IsTypeString and nextfld.IsTypeString) then\\n SELF.SetEnabled( next.GetVTab.IsBase and next\n.GetVTab.IsBeingEditedW ithRecovery.Not)\\n\\nelseif (fld.IsTypeShape and nextfld.IsTypeShape) then\\n if ((fld.GetType = #FIELD_SHAPEPOLY) and \\n (nextfld.GetType <> #FIELD_SHAPEPOLY)) then\\n SELF.SetEnabled( FALSE )\\n else\\n SELF.SetEnabled( next.GetVTab.IsBase and next.GetVTab.IsBeingEditedWithRecovery.Not )\\n end\\n\\nelse\\n SELF.SetEnabled( FALSE )\\n\\nend\\n\\n\\n\"\n)\n\n(Script.162\n Name: \"Chart.PropTool\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.EditChartPart\\n\"\n)\n\n(Script.163\n Name: \"View.CopyThemes\"\n SourceCo de: \"theView = av.GetActiveDoc\\ntheView.CopyThemes\\n\"\n)\n\n(Script.164\n Name: \"Layout.ClearTransformations\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.GetGraphics.ClearTransforms\"\n)\n\n(Script.165\n Name: \"View.HasDataUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled((theView.GetGraphics.Count > 0) or (theView.GetThemes.Count > 0))\\n\"\n)\n\n(Script.166\n Name: \"Table.Paste\"\n SourceCode: \"theTable = av.GetActiveDoc\\n\\ntheTable.GetVtab.BeginTransaction\\ntheTable.Paste\\ntheTable.GetVTab.EndTran saction\"\n)\n\n(Script.167\n Name: \"Layout.Point\"\n SourceCode: \"theLayout = av.GetActiveDoc\\npt = theLayout.GetDisplay.ReturnUserPoint\\ngp = GraphicShape.Make(pt)\\ntheLayout.GetGraphics.UnselectAll\\ngp.SetSelected(TRUE)\\ntheLayout.GetGraphics.Add(gp)\\nav.GetProject.SetModified(true)\\n\"\n)\n\n(Script.168\n Name: \"Chart.ErasePoly\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.EraseWithPolygon\\n\"\n)\n\n(Script.169\n Name: \"Doc.ActionUpdate\"\n SourceCode: \"SELF.SetEnabled(av.GetProject.GetSelectedDocs.Count > 0)\\nSELF. SetLabel(\\\"P&rint\\\")\\nSELF.SetHelpTopic(\\\"Print_button\\\")\\n\"\n)\n\n(Script.170\n Name: \"View.SnapToVertex\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\ntheView.SetInteractiveSnapping(theTheme,#POINT_SNAP_VERTEX)\\n\"\n)\n\n(Script.171\n Name: \"DNR.Properties.Apply\"\n SourceCode: \"' Name: DNR.Properties.Apply\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesc h@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 13:37:34 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script submits the changes in the dialog to the ini file\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self\n: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheDialog = self.getDialog\\n\\ninifile = av.run(\\\"DNR.ReturnIn iFile\\\",nil)\\ninibackup = inifile.clone\\ninibackup.SetExtension(\\\"bak\\\")\\nfile.copy(inifile,inibackup)\\ntheVTab = VTab.Make(\\\"$TEMP/sets.dbf\\\".asfilename,false,false)\\nfile.delete(inifile)\\nf1 = linefile.make(inifile,#file_perm_write)\\n\\nvarfield = theVTab.Findfield(\\\"ENVVAR\\\")\\nvalfield = theVTab.Findfield(\\\"Value\\\")\\ndescfield = theVTab.Findfield(\\\"Desc\n\\\")\\n\\nfor each rec in theVtab\\n var = thevtab.returnvalue(varfield,rec)\\n val = thevtab.returnvalue(valfield,rec)\\n desc = thevtab.returnvalue(descfie ld,rec) \\n f1.WriteELT(var+\\\"=\\\"+val+\\\"=\\\"+desc)\\n system.setenvvar(var,val)\\n if ((var.ucase = \\\"AUTOSAVE\\\") and (val.ucase = \\\"ON\\\")) then\\n av.run(\\\"Project.Autosave\\\",nil)\\n end\\nend \\n\\nf1.close\\n\\ntheDialog.Close\\n\"\n)\n\n(Script.172\n Name: \"View.Layout\"\n SourceCode: \"'View.Layout\\nt = TemplateMgr.Show\\nif (t <> nil) then\\n theView = av.GetActiveDoc\\n \\n '\\n 'Build list of objects used to fill frames\\n '\\n docs = av.GetProject.GetDocs\\n docs.Shuffle(theView, 0)\\n objs = List.Make\\n objs .Add(theView.GetName)\\n objs.Merge(docs)\\n\\n '\\n 'Check if any layouts exist. If so, give user choice of which layout to use.\\n '\\n layouts = List.Make\\n for each d in docs\\n if (d.Is(Layout)) then\\n layouts.Add(d)\\n end\\n end\\n if (layouts.Count = 0) then\\n l = Layout.Make\\n else\\n\n new = Layout.Make\\n name = new.GetName\\n new.SetName(\\\"\\\")\\n layouts.Insert(new)\\n l = MsgBox.List(layouts, \\\"Select a Layout\\\", \\\"View - Layout\\\")\\n if (l = new) then\\n l.SetName(name)\\n else\\n av.GetProject.RemoveDoc(new)\\n end\\n end\\n \\n \\n '\\n ' Format the layout with the selected template\\n ' and fill with objs\\n '\\n if (l <> nil) then\\n l.UseTemplate(t)\\n l.GetGraphics.FillFrames(objs)\\n l.GetWin.Open\\n end\\nend\"\n)\n\n(Script.173\n Name: \"View.Pan\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheView.GetDisplay.Pan\"\n)\n\n(Script.174\n Name: \"Library.VerifyLayer\"\n SourceCode: \"' Name: Library.VerifyLayer\\n' Purpose: To verify the tiles in a layer\\n'\\n\\n'\\n'\\ntheVTab = VTAB.Make(\\\"$ARCHOME/tables/libraries\\\".asfilename,false,false)\\nlibdict = dictionary.make(20)\\nlibnamefield = theVTAB.FindField(\\\"Name\\\")\\nLiblocfield = theVTab.FindField(\\\"Location\\\")\\nfor each rec in theVTAB\\n thelib = theVTAB.ReturnValue(libnamefield,rec)\\n libloc = theVTab.ReturnValue(liblocfield,rec)\\n libdict.add(thelib,libloc)\\nend\\ntmplist = libdict.returnkeys\\ntmplist.sort(true)\\nthelib = msgbox.listasstring(tmplist,\\\"Select L\nibrary\\\",\\\"Lib rary.VerifyLayer\\\")\\nif (thelib = nil) then return nil end\\n\\nthelibloc = libdict.get(thelib)\\nlayerVtab = vtab.make( (thelibloc+\\\"/info/layers\\\").asfilename,false,false)\\nlayerdict = dictionary.make(20)\\nlayernamefield = layerVTAB.findfield(\\\"Name\\\")\\nlayercovfield = layerVTab.Findfield(\\\"Coverage\\\")\\n\\nfor each rec in layervtab\\n layername = LayerVTAb.returnvalue(layernamefield,rec)\\n layercov = LayerVTab.ReturnValue(layercovfield,rec)\\n layerdict.add(layername,layercov)\\nend\\n\\ntmplist = layerdict.ret urnkeys\\ntm\nplist.sort(true)\\nthelayer = msgbox.listasstring(tmplist,\\\"Select Layer\\\",\\\"Library.VerifyLayer\\\")\\nif (thelayer = nil) then return nil end \\nthelayercov = layerdict.get(thelayer)\\n\\nindexVTAB = VTab.Make( (thelibloc+\\\"/info/index.pat\\\").asfilename,false,true)\\nthelayerfield = indexVTab.findfield(thelayer)\\nthelocfield = indexVTab.Findfield(\\\"Location\\\")\\n\\nindexVTab.SetEditable(true)\\nfor each rec in indexVTab\\n thecover = indexVTab.ReturnValue(thelocfield,rec)+\\\"/\\\"+thelayercov\\n if (covera ge.Exists(thecover)) then\\n Inde\nxVTab.SetValue(thelayerfield,rec,\\\"P\\\")\\n else\\n IndexVTab.SetValue(TheLayerField,rec,\\\"N\\\")\\n end\\nend\\nindexVTab.SetEditable(false)\\n\"\n)\n\n(Script.175\n Name: \"Help.Tool\"\n SourceCode: \"av.Help.SetAVFile\\nav.SetHelping(TRUE)\"\n)\n\n(Script.176\n Name: \"Layout.ShowHideGrid\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.SetGridVisible(theLayout.GetDisplay.IsGridVisible.Not)\\n\"\n)\n\n(Script.177\n Name: \"View.AttributeThemesUpdate\"\n SourceCode: \"theView = av.G etActiveDoc\\nfor each t in theView.GetActiveThemes\\n if (t.HasAttributes) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.178\n Name: \"Appl.GetExtensionWin\"\n SourceCode: \"av.GetExtensionWin.Show\"\n)\n\n(Script.179\n Name: \"Script.CompileUpdate\"\n SourceCode: \"theSEd = av.GetActiveDoc\\nSELF.SetEnabled( NOT (theSEd.IsCompiled)) \\n\"\n)\n\n(Script.180\n Name: \"View.AddGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\nif (theVie w.GetGraphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\ntheTheme.GetGraphics.Merge(theView.GetGraphics.GetSelected)\\ntheTheme.GetGraphics.RemoveDuplicates\\ntheTheme.GetGraphics.SetVisible(theTheme.IsVisible)\\ntheTheme.GetGraphics.Invalidate\"\n)\n\n(Script.181\n Name: \"Project.Exit\"\n SourceCode: \"theProject = av.GetProject\\n\\nif (nil <> theProject) then \\n if (theProject.IsModified) then\\n if (av.Run(\\\"Project.CheckForEdits\\\",nil).Not) then\\n return nil\\n end \\n res = MsgBox.Save Changes(\\\"Do you want to save changes to \\\" \\n + theProject.GetName + \\\"?\\\", \\\"ArcView\\\", true)\\n if (nil = res) then return nil end\\n if (res) then\\n av.Run(\\\"Project.Save\\\", nil)\\n if (theProject.IsModified) then return nil end\\n end\\n end\\ntheProject.Close\\nend\\n\\nav.Quit\"\n)\n\n(Script.182\n Name: \"View.PopupZoomIn\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheDisp = theView.GetDisplay\\ntheMouseLoc = theDisp.GetMouseLoc\\ntheDisp .PanTo(theMouseLoc)\\ntheDisp.ZoomIn(125)\"\n)\n\n(Script.183\n Name: \"Chart.ToggleLegendUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nif (theChart.GetChartLegend.IsVisible) then\\n SELF.SetLabel(\\\"Hide &Legend\\\")\\nelse\\n SELF.SetLabel(\\\"Show &Legend\\\")\\nend\\n\"\n)\n\n(Script.184\n Name: \"Script.Unembed\"\n SourceCode: \"\\nscripts = av.GetProject.GetScripts\\nscriptlist = scripts.ReturnKeys\\nscriptlist.sort( true )\\nscriptName = MsgBox.ListAsString( scriptlist, \\\"Select script\\\", \\\"UnEmbed\\\" )\\nif (scriptName <> nil) then\\n ' get the script\\n theScript = scripts.Get(scriptName)\\n newSEd = SEd.Make\\n newSEd.SetName( scriptName )\\n newSEd.SetSource( theScript.AsString )\\n newSEd.GetWin.Open\\n \\n ' Remove it from the embedded script list\\n scripts.Remove( scriptName )\\nend\"\n)\n\n(Script.185\n Name: \"View.PolylineTool\"\n SourceCode: \"theView = av.GetActiveDoc\\nl = theView.ReturnUserPolyLine\\ntheTheme = theView.GetEditableTheme\\n\\nif (l.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n theTheme.GetFtab .BeginTransaction\\n thePrj = theView.GetProjection\\n if (thePrj.IsNull.Not) then\\n l = l.ReturnUnprojected(thePrj)\\n end\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n rec = theTheme.GetFTab.AddRecord\\n theTheme.GetFTab.SetValue(theField, rec, l)\\n theTheme.GetFTab.GetSelection.ClearAll\\n theTheme.GetFTab.Ge\ntSelection.Set(rec)\\n theTheme.GetFTab.UpdateSelection\\n theTheme.GetFtab.EndTransaction\\n else\\n gl = GraphicShape.Make(l)\\n theView.GetGraphics.Unselect All\\n gl.SetSelected(TRUE)\\n theView.GetGraphics.Add(gl)\\n end\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.186\n Name: \"View.MergeUpdate\"\n SourceCode: \"' View.MergeUpdate\\ntheView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nenabled = FALSE\\nif (theTheme <> nil) then\\n fCount = theTheme.GetFTab.GetSelection.Count\\n shapeClass = theTheme.GetFTab.GetShapeClass\\n enabled = ((fcount > 1) and (shapeClass.IsSubClassOf(MultiPoint))) \\nend\\n\\nSELF.SetEnabled(enabled)\\n\\n\\n\"\n)\n\n(Script.1 87\n Name: \"Project.About\"\n SourceCode: \"av.About\"\n)\n\n(Script.188\n Name: \"Chart.NewUpdate\"\n SourceCode: \"SELF.SetLabel(\\\"&New\\\")\\nSELF.SetHelpTopic(\\\"New_button\\\")\\n\\nSELF.SetEnabled(FALSE)\\nfor each d in av.GetProject.GetDocs\\n if (d.Is(Table)) then\\n SELF.SetEnabled(TRUE)\\n break\\n end\\nend\\n\"\n)\n\n(Script.189\n Name: \"View.Properties\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.Edit\"\n)\n\n(Script.190\n Name: \"Project.SetProjectWorkDir\"\n SourceCode: \"theProject = av.GetProject\\n\\nnewDir = MsgBox.Inpu t( \\\"Specify new work directory\\\", \\\"Work Directory\\\", theProject.GetWorkDir.GetFullName)\\nif (newDir = nil) then\\n return nil\\nelseif (newDir.AsFileName.IsDir.Not) then\\n MsgBox.Error( newDir.AsFileName.GetFullName++\\\"is not a directory\\\", \\\"\\\")\\nelseif (File.IsWritable(newDir.AsFileName).Not) then\\n MsgBox.Error( newDir.AsFileName.GetFullName++\\\"is not writable\\\", \\\"\\\")\\nelse\\n theProject.SetWorkDir( newDir.AsFileName )\\nend\\n\"\n)\n\n(Script.191\n Name: \"Layout.AddTextFile\"\n SourceCode: \"' Name: Layout.Ad dTextFile\\n'\\n' Headline: Adds the contents of a Text file to a Text box in a Layout\\n'\\n' Self: \\n'\\n' Returns:\\n'\\n' Description: This script allows the user to add a text box on a layout and then\\n' insert the contents of a text file. The box uses a Courier fixed\\n' width font as the default but this can be changed at the user's convience\\n'\\n' History: 4/10/97 Tim Loesch - Minnesota DNR \\n'\\n\\nthedoc = av.getactivedoc\\n\\nfile1 = filedialog.show(\\\"*.*\\\",\\\"Select Text File\\\", \\\"Add\n Text File to Layout\\\")\\nif (file1=nil) then return nil end\\n\\nf1= linefile.make(file1,#file_perm_read)\\n\\ncomments = \\\"\\\"\\nfor each i in 1..f1.getsize\\n rec = f1.readelt\\n comments = comments +NL+rec\\nend\\n\\n\\npt = theDoc.GetDisplay.ReturnUserPoint\\nt = GraphicText.Make(comments, pt)\\nthefont = font.makestandard(#font_cour)\\nt.getsymbol.setfont(thefont)\\nt.getsymbol.setsize(8)\\nt.SetDisplay(theDoc.GetDisplay)\\ntheDoc.GetDisplay.HookUpSymbol(t.GetSymbol)\\ntheDoc.GetGraphics.UnselectAll\\nt.SetSelecte d(TRUE)\\ntheDoc.GetGraphics.Ad\ndName(t)\\n\\n\\ntheDoc.getgraphics.unselectall\\n\\n\\n\\n\"\n)\n\n(Script.192\n Name: \"Layout.Clear\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nif (theLayout.GetGraphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\ntheLayout.GetGraphics.ClearSelected\"\n)\n\n(Script.193\n Name: \"View.ZoomOut\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheView.GetDisplay.ZoomOut(125)\"\n)\n\n(Script.194\n Name: \"Project.Summarize\"\n SourceCode: \"' Name: Project.Summarize \\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Tue Mar 09 10:42:13 1999\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script summarizes the documents within a project.\\n' for a View document each of the th\nemes in th em document\\n' is included in the summary\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheproject = av.GetProject\\nthemsg = \\\"ArcView Project Summary\\\"\\nthemsg = themsg+NL+\\\"=======================\\\"+NL\\nthemsg = themsg+NL+\\\"Project Name:\\\"++theProject.GetName\\nif (theProject.GetName.lcase <> \\\"untitled\\\") then\\n themsg = themsg+NL+\\\"Project Filename:\\\"++theProject.GetFileN ame.GetfullName\\ne\nnd\\nif (theProject.GetStartup <> \\\"\\\") then\\n themsg = themsg+NL+\\\"Startup Script:\\\"++theProject.GetStartup.GetName\\nend\\nif (theProject.GetShutdown <> \\\"\\\") then\\n themsg = themsg+NL+\\\"Shutdown Script:\\\"++theProject.GetShutdown.GetName\\nend\\nif (theProject.GetWorkDir <> nil) then\\n themsg = themsg+NL+\\\"Working Directory:\\\"++theProject.GetWorkDir.AsString\\nend\\n\\nviewlist = {}\\ntablelist = {}\\nchartlist = {}\\nlayoutlist = {}\\nscriptlist = {}\\ndialoglist = {}\\na3dlist = {}\\nunknownlist = {}\\nfor each adoc in theProject.GetDocs\\n if (\nadoc.Is(View)) then\\n viewlist.Add(adoc)\\n elseif (adoc.Is(Table)) then\\n tablelist.add(adoc)\\n elseif (adoc.Is(Chart)) then\\n chartlist.add(adoc)\\n elseif (adoc.Is(Sed)) then\\n scriptlist.add(adoc)\\n elseif (adoc.Is(Dialog)) then\\n dialoglist.add(adoc)\\n' elseif (adoc.Is(3DScene)) then\\n' a3dlist.add(adoc)\\n else\\n unknownlist.add(adoc)\\n end\\nend\\n\\nif (ViewList.Count > 0) then\\n themsg = theMsg+NL+NL+\\\"Summary of View Document s\\\"\\n themsg = theMsg+NL+\\\"=========================\\\"\\n for each aView \nin ViewList\\n lbuf = \\\"\\\"\\n themsg = theMsg+NL+\\\"View Name:\\\"++aView.GetName\\n themelist = aView.GetThemes\\n lbuf = lbuf+\\\" \\\"\\n if (themelist.count > 0) then\\n themsg = theMsg+NL+lbuf+\\\"Number of Themes:\\\"++aView.GetThemes.count.asstring\\n lbuf = lbuf+\\\" \\\"\\n for each atheme in themelist\\n themsg = theMsg+NL+lbuf+\\\"Theme Name:\\\"++aTheme.Getname\\n themsg = theMsg+NL+lbuf+\\\"Theme Source:\\\" ++atheme.GetSRCName.GetDataSource+NL\\n if (atheme.getComments <> \\\"\\\") then\\n themsg = \ntheMsg+NL+lbuf+\\\"Theme Comments:\\\"++atheme.getcomments\\n end\\n end\\n else\\n themsg = theMsg+NL+\\\"No Themes in This View\\\"\\n end\\n end\\nend\\n\\n\\nif (TableList.count > 0) then\\n themsg = theMsg+NL+NL+\\\"Summary of Table Documents\\\"\\n themsg = theMsg+NL+\\\"==========================\\\"\\n for each atable in tablelist\\n lbuf = \\\"\\\"\\n themsg = theMsg +NL+\\\"Table Name:\\\"++aTable.Ge tName\\n themsg = theMsg+NL+\\\"Table Source:\\\"++aTable.GetVTab.GetBaseTableFileName.asstring+NL\\n lbuf = lbuf+\\\" \\\"\\n fList = atab\nle.GetVTab.GetFields\\n theMsg = theMsg+NL+lbuf+\\\"Table Field Properties\\\"\\n lbuf = lbuf+\\\" \\\"\\n theMsg = theMsg+NL+lbuf+(\\\"Alias \\\"+\\\"Type \\\"+\\\"Width \\\"+\\\"Decimal\\\")\\n theMsg = theMsg+NL+lbuf+(\\\"-------------------------------------------------------\\\")\\n \\n for each subitem in flist\\n aname=subitem.getalias\\n buffer = 15 - aname.count\\n for each i in 1..buffer\\n aname = aname+\\\" \\\"\\n end\\n ItType = subitem.gettype.asstring\\n buffer = 15 - ItType.count\\n for\n each i in 1..buffer\\n itType = ItType + \\\" \\\"\\n end\\n itwidth=subitem.getwidth.asstring\\n buffer = 7 - ItWidth.count\\n for each i in 1..buffer\\n itwidth = itwidth + \\\" \\\"\\n end\\n itPrecision=subitem.getPrecision.asstring\\n theMsg = theMsg+NL+lbuf+(aname+ItType+ItWidth+ItPrecision) \\n e nd\\n theMsg = theMsg+NL+NL\\n end\\nend\\n\\nif (ChartList.Count > 0) then\\n themsg = theMsg+NL+NL+\\\"Summary of Chart Documents\\\"\\n themsg = theMsg+NL+\\\"==========================\\\"\\n for each \nachart in ChartList\\n lbuf = \\\"\\\"\\n themsg = theMsg+NL+\\\"Chart Name:\\\"++aChart.GetName\\n themsg = theMsg+NL+\\\"Chart Base Table:\\\"++aChart.GetVTab.GetBaseTableName.Asstring\\n themsg = theMsg+NL+\\\"Chart Title:\\\"++aChart.GetTitle\\n end\\nend\\n\\nif (ScriptList.Count > 0) then\\n themsg = theMsg+NL+NL+\\\"Sum mary of Script Documents\\\"\\n themsg = theMsg+NL+\\\"===========================\\\"\\n for each aScript in ScriptList\\n lbuf = \\\" \\\"\\n theMsg = theMsg+NL+NL+lbuf+\\\"Script Name:\\\"++aScript.GetName\\n lbuf = lbuf+\\\" \\\"\\n i\nf (aScript.GetComments <> \\\"\\\") then\\n theMsg = theMsg+NL+lbuf+\\\"Script Comments:\\\"++aScript.GetComments\\n end\\n end\\nend\\n\\nif (DialogList.Count > 0) then\\n themsg = theMsg+NL+NL+\\\"Summary of Dialog Documents\\\"\\n themsg = theMsg+NL+\\\"===========================\\\"\\n lb uf = \\\" \\\"\\n for each aDialog in DialogList\\n theMsg = theMsg+NL+NL+\\\"Dialog Name:\\\"++aDialog.GetName\\n end\\nend\\n\\nClipBoard.The.Empty\\nClipBoard.The.Add(theMsg)\\nClipBoard.The.Update\\n\\ntheMsg = theMsg+NL+NL+\\\"THIS REPORT HAS BEEN COPIED TO THE CLIPBOARD\\\"\n\\nmsgbox.report(themsg,\\\"Project Summary\\\")\\n\\n\"\n)\n\n(Script.195\n Name: \"Table.Properties\"\n SourceCode: \"av.GetActiveDoc.EditProperties\"\n)\n\n(Script.196\n Name: \"Project.Customize\"\n SourceCode: \"theProject = av.GetProject\\ntheProject.Customize\\n\"\n)\n\n (Script.197\n Name: \"Chart.AreaGallery\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.ShowGallery(#CHARTDISPLAY_AREA)\\n\"\n)\n\n(Script.198\n Name: \"View.RedoEdit\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theTheme.GetFTab.Redo\\nend\"\n)\n\n(Script.199\n Name: \"Project.CloseAll\"\n SourceCode: \"av.GetProject.CloseAll\"\n)\n\n(Script.200\n Name: \"DNR.ExportProject.Update\"\n SourceCode: \"'DNR.ExportProject.Update\\nif (file.exists(\\\"$USEREXT/avdlls.dll\\\".asf ilename)) then\\n self.setvisible(true)\\n self.setenabled(true)\\n else\\n self.setvisible(false)\\n self.setenabled(false)\\nend\"\n)\n\n(Script.201\n Name: \"View.ThemeProperties\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n t.EditProps\\nend\"\n)\n\n(Script.202\n Name: \"Help.Context\"\n SourceCode: \"if ((av.Help.GetFile = av.Help.GetAVFile).not) then\\n av.Help.SetAVFile\\nend\\nav.Help.Context\"\n)\n\n(Script.203\n Name: \"UTIL.CopyCoverage\"\n SourceCode: \"' Name: UTIL.CopyCoverage\\n'\\n' He adline: Copies an UNIX Arc/Info Coverage from one location to another.\\n'\\n' Self: a list object that contains the source coverage,destination, and whether or not you want\\n' to ask the user if they want overwrite a destination coverage that already exists....\\n' coverage name in the form {\\\"d:/q024k/q3104/nwixxpy3\\\",\\\"d:\\\\q024k\\\\q3104\\\",forceoverwrite}\\n'\\n' Returns: nil if unsuccessful, true if successful\\n'\\n' Description: \\n'\\n' Topics: Copy, Arc/Info, Coverage\\n'\\n' Search K\neys: Copy, Ar c/Info,Coverage\\n'\\n' Requires: \\n'\\n' History: Tim Loesch Original Coding 3/27/98\\n'\\n'-ESRI - ArcView 3.0a\\n'\\n\\ninlist = self\\n\\n'uncomment the next line for debuggin\\n'\\n'inlist = {\\\"d:\\\\ftp\\\\wisc\\\\ctypw21c\\\",\\\"j:\\\\samba_ac\\\\centmis\\\\state\\\\wi\\\",true}\\n\\n\\nif (inlist.count < 2) then\\n msgbox.info(\\\"This script requires a list that contains the input coverage and the output workspace as string objects\\\",\\\"UTIL.CopyCoverage\\\")\\n return nil\\nend\\n\\narglist = {}\\nfor each arg in inlist\\n if (arg.Is(File name)) then\\n arg = arg\n.asstring\\n end\\n arglist.add(arg)\\nend\\n\\n' read the third arguement if present. If it's not there, then we're going to ask the\\n' user about overwrites and let them know that the coverage does not exist.\\n'\\nif (arglist.count < 3) then\\n ask = true\\nelseif (arglist.get(2) = false) then\\n ask = true\\nelse\\n ask = false\\nend\\n\\n' verify that input coverage exists\\n'\\nif (coverage.exists(arglist.get(0)).not) then\\n if (ask) then\\n msgbox.info(\\\"Input Coverage\\\"++arglist.ge t(0)++\\\"not found. Unable to copy\\\",\\\"UTIL.CopyCover\nage\\\")\\n end\\n return nil\\nend\\n\\n'set up the source file parameters\\n'\\nsource = arglist.get(0).substitute(\\\"\\\\\\\",\\\"/\\\") ' verify the delimeters are forward slashes\\nsourcefname = source.asfilename ' filename object\\ncovname = sourcefname.getbasename ' the coverage name\\ntmp = source.asstring ' temporarily store the source as a string object\\nworkspace = tmp.left(tmp.inde xof(covname) - 1) ' the workspace of the coverage - e:/q024k/q3104\\n\\n' \nset up the destination directory parameters\\n'\\n' if the destination directory does not exist, then it needs to be created\\n' in it's entirety\\n'\\ndest = arglist.get(1).substitute(\\\"\\\\\\\",\\\"/\\\") ' verify the delimeters are forward slashes\\ndestfname = dest.asfilename\\ndestcover = dest+\\\"/\\\"+covname\\n\\n' check to see if output file exists\\n'\\nif ( (coverage.exists(destcover)) and ( ask ) ) then\\n replace = msgbox.yesno(destcov er++\\\"exists! Do you want to overwrite?\\\",\\\"UTIL.CopyCoverage\\\",false)\\n if ( replace.not ) then\n\\n return nil\\n end\\nend\\n\\n' now create the destination coverage directory and make sure that the destination workspace\\n' directories exist.\\n'\\ndirlist = destcover.astokens(\\\"/\\\")\\nthedir = dirlist.get(0)\\ndirlist.remove(0)\\nfor each dir in dirlist\\n thedir = thedir+\\\"/\\\"+dir\\n if (file.exists(thedir.asfilename).not) then\\n av.run(\\\"UTIL.MakeDir\\\",{thedir})\\n end\\nend\\n\\n' make sure that the destin ation info directory exists, if it doesn't, create it.\\n'\\ninfodest = dest+\\\"/info\\\"\\nif (file.exists(infodest.asfilename).not \n) then\\n av.run(\\\"UTIL.MakeDir\\\",{infodest})\\nend\\n\\n' we need to move the INFO tables for the coverage by creating VTAB objects and then using the \\n' export request to copy them. We need to use the export request because this is the only way to\\n' manage the arc.dir file for INFO. We start by define the info directory object and then getting\\n' a list of the data tables in the I NFO directory from that object. Then we export the file to the \\n' same name in the destination workspace INFO directory.\\n'\\n' We can't ass\nume that there is only one cover in the workspace so we need to find all INFO data\\n' tables that start with the coverage's name.\\n'\\ninfdir = infodir.make( (workspace+\\\"/info\\\").asfilename )\\ninfolist = infdir.getfiles\\nfor each infofile in infolist\\n fname = infofile.clone\\n infobasename = infofile.getbasename\\n infobase = infobasename.left(infobasename.indexof(\\\" .\\\"))\\n if (infobasename.count < 21) then\\n outinfoname = infodest+\\\"/\\\"+infobasename\\n if (infobase.ucase = covname.ucase) then\\n theVTab = VTab.M\nake(infofile,false,false)\\n av.showmsg(\\\"Coping Infofile - \\\"++infofile.asstring++\\\"to\\\"++outinfoname)\\n thevtab.Export(outinfoname.asfilename,INFO,false)\\n end \\n else\\n msgbox.warning(\\\"Unable to copy Info file \\\"+infobasename++\\\"because it's name is more than 21 characters long\\\",\\\"UTIL.CopyCoverage\\\")\\n end\\nend\\nav.clearmsg\\n\\ n' now we need to copy the data files for the coverage itself\\n'\\ncovfilelist = (sourcefname).readfiles(\\\"*.*\\\")\\nfor each afile in covfilelist\\n outfname = destcover+\\\"/\\\"+afile.getbasen\name\\n av.showmsg(\\\"Copying Coverage File\\\"++outfname)\\n file.copy(afile,outfname.asfilename)\\nend\\n\\nav.clearmsg\\nav.purgeobjects\"\n)\n\n(Script.204\n Name: \"Graphic.ToFront\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.MoveSelectedToFront\"\n)\n\n(Script.205\n Name: \"Chart.Properties\"\n SourceCode: \"theChart = av.G etActiveDoc\\ntheChart.Edit\\n\"\n)\n\n(Script.206\n Name: \"View.Locate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n if ((t.Is( FTHEME )) and (t.GetMatchSource <> NIL)) then\\n p = LocateDialog.Show(t)\\n if (p <> NIL) then\\n if (p.IsNull) then\\n MsgBox.Info(\\\"Cannot locate address.\\\", \\\"Locate\\\")\\n else\\n proj = theView.GetProjection\\n pp = p.ReturnProjected(proj)\\n g = GraphicShape.Make(pp)\\n theView.GetGraph ics.Add(g)\\n ext = theView.GetDisplay.ReturnExtent\\n if (not(pp.IsContainedIn(\ntheView.GetDisplay.ReturnExtent))) then\\n theView.GetDisplay.PanTo(pp)\\n end\\n return nil\\n end\\n end\\n end\\nend\\n\\n\"\n)\n\n(Script.207\n Name: \"Table.Export\"\n SourceCode: \"theTable = av.GetActiveDoc\\nformats = {\\\"dBASE\\\", \\\"INFO\\\", \\\"Delimited Text\\\"}\\n\\nformat = MsgBox.ListAsString(formats, \\\"Export Format:\\\", \\\"Export Table\\\")\\nif (format = \\\"dBASE\\\") then \\n theClass = DBASE\\n theFilter = \\\"*.dbf\\\"\\n theExt = \\\"dbf\\\"\\nelseif (format = \\\"Delimited Text\\\") then\\n theClass = DTXT\\n theFilter = \\\"*.txt\\\"\\n theExt = \\\"txt\\\"\\nelseif (format = \\\"INFO\\\") then\\n theClass = INFO\\n theFilter = \\\"arcdr9\\\"\\n theExt = \\\"\\\"\\nelse\\n return nil\\nend\\n\\ntheFileName=FileDialog.Put(av.GetProject.MakeFileName(\\\"table\\\", theExt),\\n \n theFilter,\\\"Export Table\\\")\\nif (theFileName = NIL) then return nil end\\n\\ntheVTab = theTable.GetVTab\\next = theFileName.GetExtension\\nif ( ((theClass.IsSubclassOf(DTXT)) or (theClass.IsSubClassOf(DBASE))) and (ext <> theExt)) then\\n theFileName.SetExtension(theExt)\\nend\\n\\nif (theVTab.GetSelection.Count=0) then \\n theVTab.Export(theFileName, theClass, FALSE)\\n av.ShowMsg(\\\"All records written to\\\"++theFileName.GetBaseName)\\nelse\\n theVTab.Export(theFileName, theClass, TRUE)\\n av.ShowMsg(\\\"Selected records wri\ntten to\\\"++theFileName.GetBaseName)\\nend\\nif ((System.GetOS = #SYSTEM_OS_MAC) and ((format = \\\"INFO\\\").not)) then\\n Script.Make(\\\" MacClass.SetDocInfo(SELF, Table)\\\").DoIt(theFileName)\\nend\\n\"\n)\n\n(Script.208\n Name: \"View.AOIToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetThemes\\n if (t.SupportsAOI) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.209\n Name: \"View.UndoZoom\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.GetDisplay.UndoZoom\\n\"\n)\n\n(Script.210\n Name: \"Table.AddFieldUpdate\"\n SourceCode: \"theVTab = av.GetActiveDoc.GetVTab\\nSELF.SetEnabled(theVT ab.CanAddFields)\\n\"\n)\n\n(Script.211\n Name: \"Table.StatisticsUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled((Nil <> theTable.GetActiveField) and theTable.GetActiveField.IsTypeNumber and (theTable.GetVTab.GetNumRecords > 0))\\n\"\n)\n\n(Script.212\n Name: \"View.ManageSources\"\n SourceCode: \"' View.ManageSources\\n\\nav.PurgeObjects\\nSourceManager.ManageDataSets(NIL,\\\"\\\")\\n\"\n)\n\n(Script.213\n Name: \"View.SelectableThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThem es\\n if (t.CanSelect) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.214\n Name: \"Script.Run\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.Run(nil)\"\n)\n\n(Script.215\n Name: \"Table.Promote\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.PromoteSelection\\n\"\n)\n\n(Script.216\n Name: \"Script.FindNext\"\n SourceCode: \"theScript = av.GetActiveDoc\\nfindString = theScript.GetSearchString\\n\\nfound = theScript.Search(findString)\\nif (found.not) then\\n if (msgbox.mini yesno( \\\"Start search at beginning of script?\\\", TRUE)) then\\n oldPosition = theScript.ReturnInsertPos\\n theScript.SetInsertPos(0)\\n found = theScript.Search(findString)\\n if (found.not) then\\n msgbox.info( \\\"Could not find\\\"++findString, \\\"FindNext\\\")\\n theScript.SetInsertPos( oldPosition )\\n end\\n end\\nend\\n\\n' scroll to item\\nif (found) then\\n theScript.Set\nInsertPos( theScript.ReturnInsertPos - findString.Count )\\n theScript.Search(findString)\\nend\\n\\n\"\n)\n\n(Script.217\n Name: \"Table.Cut\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.BeginTransaction\\ntheTable.Cut\\ntheTable.GetVTab.EndTransaction\"\n)\n\n(Script.218\n Name: \"Table.SelectAll\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.GetSelection.SetAll\\ntheTable.GetVTab.UpdateSelection\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.219\n Name: \"Table.RedoEditUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nself.SetEnabled(False)\\nif (theTable.GetVTab.IsBeingEditedWithRecovery) then\\n self.SetEnabled(True)\\ nend\"\n)\n\n(Script.220\n Name: \"View.PopupZoomOut\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheDisp = theView.GetDisplay\\ntheMouseLoc = theDisp.GetMouseLoc\\ntheDisp.PanTo(theMouseLoc)\\ntheDisp.ZoomOut(125)\"\n)\n\n(Script.221\n Name: \"Link.TextFile\"\n SourceCode: \"theVal = SELF\\nif (not (theVal.IsNull)) then\\n if (TextWin.Make(theVal.AsFileName, theVal) = Nil) then\\n MsgBox.Warning(\\\"File \\\"+theVal+\\\" not found.\\\",\\\"Hot Link\\\")\\n end\\nend\\n\"\n)\n\n(Script.222\n Name: \"Chart.Erase\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.Erase\\n\"\n)\n\n(Script.223\n Name: \"Layout.ExportToAlchemy.Update\"\n SourceCode: \"' Name: Layout.ExportToAlchemy.Update\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Tue Nov 17 08:40:33 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' ----------------------------------- --------------------------------\\n' Description: This script makes the Export to Alchemy Option Visible when\\n' Alchemy is found.\n..\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\nalchemy = system.getenvvar(\\\"ALCHLOC\\\")\\nif ( alchemy <> nil) then\\n self.SetVisible(true)\\n if (file.exists(alchemy.asfilename)) then\\n self.setenabled(true)\\n self.SetHelp(\\\"Export a file u sing Alchemy\\\")\\n else\\n self.setenabled(false)\\n self.sethelp(\\\"Unable to find file\\\"++alchemy++\\\"as referenced in environment variable ALCHEMY\\\")\\n end\\n else\\n \nself.SetVisible(false)\\nend\\n\"\n)\n\n(Script.224\n Name: \"Table.LinkUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nfld = theTable.GetActiveField\\nnext = theTable.GetWin.GetNextDoc\\n \\nif ((fld = NIL) or (next = NIL)) then\\n SELF.SetEnabled( FALSE )\\n return nil\\nend\\n\\nnextfld = next.GetActiveField\\n\\nif (nextfld = NIL) then \\n SELF. SetEnabled( FALSE )\\nelseif (fld.IsTypeNumber and nextfld.IsTypeNumber) then\\n SELF.SetEnabled( TRUE )\\nelseif (fld.IsTypeString and nextfld.IsTypeString) then\\n SELF.SetEnabled( TRUE )\\nelse\\n SELF.SetEnabled( FALSE )\\nend\\n\\n\\n\"\n)\n\n(Script.225\n Name: \"Project.UpdateApr\"\n SourceCode: \"' This script Adds the GUI elements new at ArcView 3.1 to\\n' an existing 3.x APR. This is useful when your APR may have a \\n' customized GUI developed prior to ArcView 3.1 and you now \\n' want the new tools to be available in your interface.\\n\\ntheProject = av.GetProject\\naver = theProject.GetODBversion\\ntheModGUI = theProject.GetODBGUInames\\n\\nif (aver = 30) then\\n if (theModGUI.Count = 0) then\\n return FALSE\\n end\\nelse\\n return FALSE\\nend\\n\\n\\ntheGUI = Msgbox.YesNo(\\\"ArcView has detected that this project was created\n with an older version of ArcView \\\"\\n +\\\"and contains customized GUIs. Do you want the new ArcView 3.1 tools added to this project?\\\",\\\"Update \\\"+theproject.GetName,TRUE)\\nif (theGUI = FALSE) then\\n return FALSE\\nend\\n\\ntheViewGUI = av.GetSysDefault.FindGUI(\\\"View\\\")\\ntheTableGUI = av.GetSysDefault.FindGUI(\\\"Table\\\")\\ntheChartGUI = av.GetSysDefault.FindGUI(\\\"Chart\\\")\\ntheLayoutGUI = av.GetSysDefault.FindGUI(\\\"Layout\\\")\\ntheScriptGUI = av.GetSysDefault.FindGUI(\\\"Script\\\")\\n\\nif (theViewGUI <> NIL) then\\n '· Core M\nenus (Views)\\n tocstyleMnu = theViewGUI.GetMenuBar.FindByScript(\\\"TOCDefs.Show\\\")\\n BufferMnu = theViewGUI.GetMenuBar.FindByScript(\\\"WizardBuffer.OpenDialog\\\")\\n TLDefaul tsMnu = theViewGUI.GetMenuBar.FindByScript(\\\"Graphic.Label Defaults Show\\\")\\n ThemesOffESC = theViewGUI.GetMenuBar.FindByScript(\\\"View.ThemesOff\\\")\\n ManageData = theViewGUI.GetMenuBar.FindByScript(\\\"View.ManageSources\\\")\\n vSaveAsMnu = theViewGUI.GetMenuBar.FindByScript(\\\"Project.SaveAs\\\")\\n vExtMnu = theTableGUI.GetMenuBar.FindByScript(\\\"Appl.GetExten\nsionWin\\\")\\n \\n ' Core Tools (views)\\n labeltoolmenu = theViewGUI.GetToolbar.FindByScript(\\\"View.LabelTool\\\")\\n texttoolmenu = theViewGUI.GetToolbar .FindByScript(\\\"View.TextTool\\\")\\n \\n ' Core TOOLS (popups)\\n shpprop = theViewGUI.GetPopups.FindByLabel(\\\"Menu\\\").FindByLabel(\\\"Shape Properties\\\")\\nend\\n\\nif (theTableGUI <> NIL) then\\n tSaveAsMnu = theViewGUI.GetMenuBar.FindByScript(\\\"Project.SaveAs\\\")\\n tExtMnu = theTableGUI.GetMenuBar.FindByScript(\\\"Appl.GetExtensionWin\\\")\\nend \\n\\nif (theChartGUI <> NIL) then\\n cSaveAsMnu =\n theViewGUI.GetMenuBar.FindByScript(\\\"Project.SaveAs\\\")\\n cExtMnu = theTableGUI.GetMenuBar.FindByScript(\\\"Appl.GetExtensi onWin\\\")\\nend \\n\\nif (theLayoutGUI <> NIL) then\\n 'Core Menus (Layout)\\n lSaveAsMnu = theViewGUI.GetMenuBar.FindByScript(\\\"Project.SaveAs\\\")\\n lExtMnu = theTableGUI.GetMenuBar.FindByScript(\\\"Appl.GetExtensionWin\\\")\\n LAYNeatlineMnu = theLayoutGUI.GetMenuBar.FindByScript(\\\"Graphic.Neatline Show\\\")\\n LAYNeatlineButton = theLayoutGUI.GetButtonbar.FindByScript(\\\"Graphic.Neatline Show\\\")\\n LayTLDefaultsMnu \n= theLayoutGUI.GetMenuBar.FindByScript(\\\"Graphic.Label Defaults Show\\\")\\n Laytexttoolmenu = theLay outGUI.GetToolbar.FindByScript(\\\"Layout.Text\\\")\\nend\\n\\nif (theScriptGUI <> NIL) then\\n sSaveAsMnu = theViewGUI.GetMenuBar.FindByScript(\\\"Project.SaveAs\\\")\\n sExtMnu = theTableGUI.GetMenuBar.FindByScript(\\\"Appl.GetExtensionWin\\\")\\nend\\n\\naSeparator = Space.Make\\n \\nif ((theViewGUI<>NIL) and (theModGUI.FindByValue(\\\"View\\\")<> -1)) then\\n aview = av.GetProject.FindGUI(\\\"View\\\")\\n Filemenu = aview.GetMenubar.FindByName(\\\"File\\\")\\n if \n(Filemenu = NIL) then\\n Filemenu = aview.GetMenubar.FindByLabel(\\\"& File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = Menu.Make\\n Filemenu.SetLabel(\\\"&File\\\")\\n Filemenu.SetName(\\\"File\\\")\\n aview.GetMenubar.Add(Filemenu,-1)\\n end \\n end\\n \\n savePrjMnu = FileMenu.FindByScript(\\\"Project.Save\\\")\\n aviewSaveAsMnu = FileMenu.FindByScript(\\\"Project.SaveAs\\\")\\n aviewExtMnu = FileMenu.FindByScript(\\\"Appl.GetExtensionWin\\\")\\n if (savePrjMnu <> NIL) then\\n aloc = FileMenu.GetControls.Find(savePrjMnu)\\n i\nf (aviewSaveAsMnu = NIL) then\\n FileM enu.Add(vSaveAsMnu.Clone, aloc)\\n end\\n if (aviewExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(vExtMnu.Clone, aloc+2)\\n end \\n else\\n aloc = 3\\n if (aviewSaveAsMnu = NIL) then\\n FileMenu.Add(vSaveAsMnu.Clone, aloc)\\n end\\n if (aviewExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(vExtMnu.Clone, aloc+2)\\n end \\n end \\n \\n spatialChoice = FileMenu.FindByScript(\\\"Spatial.Manage\nGrids\\\")\\n surfaceCho ice = FileMenu.FindByScript(\\\"Surface.ManageSources\\\")\\n aviewChoice = FileMenu.FindByScript(\\\"View.ManageSources\\\")\\n if (spatialChoice <> NIL) then\\n FileMenu.Remove(spatialChoice)\\n end\\n if (surfaceChoice <> NIL) then\\n FileMenu.Remove(surfaceChoice)\\n end\\n if (aviewChoice = NIL) then\\n Filemenu.Add(ManageData.Clone,FileMenu.GetControls.Count-2)\\n Filemenu.Add(aSeparator.Clone,FileMenu.GetControls.Count-2) \\n end \\n \\n Viewmenu = aview.GetMenubar.FindByName(\\\"View\\\")\\n if (Viewm \nenu = NIL) then\\n Viewmenu = aview.GetMenubar.FindByLabel(\\\"&View\\\")\\n if (Viewmenu = NIL) then\\n Viewmenu = Menu.Make\\n Viewmenu.SetLabel(\\\"&View\\\")\\n Viewmenu.SetName(\\\"View\\\")\\n aview.GetMenubar.Add(Viewmenu,2)\\n end \\n end\\n aviewtocstyleMnu = aview.GetMenuBar.FindByScript(\\\"TOCDefs.Show\\\")\\n if (aviewtocstyleMnu = NIL) then\\n Viewmenu.Add(aSeparator.Clone,9)\\n Viewmenu.Add(TOCStyleMnu.Clone,9)\\n Viewmenu.Add(aSeparator.Clone,9)\\n end\\n \\n ThemesOff = ViewMe nu.FindByScript(\\\"View.The\nmesOff\\\")\\n if (themesOff <> NIL) then\\n Viewmenu.Remove(ThemesOff)\\n end\\n Viewmenu.Add(ThemesOffESC.Clone,6)\\n\\n ThemeMenu = aview.GetMenuBar.FindByName(\\\"Theme\\\")\\n if (ThemeMenu = NIL) then\\n ThemeMenu = aview.GetMenuBar.FindByLabel(\\\"&Theme\\\")\\n if (ThemeMenu = NIL) then\\n ThemeMenu = Menu.Make\\n ThemeMenu.SetLabel(\\\"&Theme\\\")\\n ThemeMenu.SetName(\\\"Theme\\\")\\n aview.GetMenuBar.Add(ThemeMenu,3)\\n end \\n end\\n aviewBufferMnu = aview.GetMen uBar.FindByScript(\\\"WizardBuffer.OpenDialog\\\")\\n if (a\nviewBufferMnu = NIL) then\\n ThemeMenu.Add(BufferMnu.Clone,19)\\n end \\n\\n GraphicMenu = aview.GetMenubar.FindByName(\\\"Graphics\\\")\\n if (GraphicMenu = NIL) then\\n GraphicMenu = aview.GetMenubar.FindByLabel(\\\"&Graphics\\\")\\n if (GraphicMenu = NIL) then\\n GraphicMenu = Menu.Make\\n GraphicMenu.SetLabel(\\\"&Graphics\\\")\\n GraphicMenu.SetName(\\\"Graphics\\\")\\n aview.Getmenubar.Add(GraphicMenu,4)\\n end \\n end\\n aviewTLDefaults Mnu = aview.GetMenuBar.FindByScript(\\\"Graphic.Label Defaults Show\\\")\\n if(aviewT\nLDefaultsMnu = NIL)then\\n GraphicMenu.Add(aSeparator.Clone,1)\\n GraphicMenu.Add(TLDefaultsMnu.Clone,1)\\n GraphicMenu.Add(aSeparator.Clone,1)\\n end\\n \\n thePopups = aview.GetPopups\\n if (thePopups <> NIL) then\\n PopUpMenu = thePopups.FindByLabel(\\\"Menu\\\")\\n if (PopUpMenu = NIL) then\\n PopUpMenu = Popup.Make\\n PopUpMenu.SetLabel(\\\"Menu\\\")\\n end\\n aviewshpprop = PopUpMenu.FindByLabel(\\\"Shape Pro perties\\\")\\n if (aviewshpprop = nil) then\\n PopupMenu.Add(shpprop.Clone,99)\\n end\\n end \\n\\n \naToolMnu = aview.GetToolBar.FindByScript(\\\"View.TextTool\\\")\\n if (aToolMnu <> NIL) then\\n aloc=aview.GetToolBar.GetControls.Find(aToolMnu)\\n aview.GetToolBar.Remove(aToolMnu)\\n aview.GetToolBar.Add(texttoolmenu.Clone,aloc - 1)\\n else\\n aview.GetToolBar.Add(texttoolmenu.Clone,11) \\n end\\n\\n aLabelMnu = aview.GetToolBar.FindByScript(\\\"View.LabelTool\\\")\\n if (aLabelMnu <> NIL) then\\n aloc=aview.GetToolBar.GetControls.Find(aLabelMnu)\\n aview.GetToolBar.Remove(aLabelMnu)\\n aview.GetToolBar.Add(labelt\noolmenu.Clone,aloc - 1)\\n else\\n aview.GetToolBar.Add(labeltoolmenu.Clone,10) \\n end\\n aview.SetModified(TRUE)\\nend\\n\\nif ((theTableGUI<>NIL) and (theModGUI.FindByValue(\\\"Table\\\")<> -1)) then\\n atable = av.GetProject.FindGUI(\\\"Table\\\")\\n Filemenu = atable.GetMenubar.FindByName(\\\"File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = atable.GetMenubar.FindByLabel(\\\"&File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = Menu.Make\\n Filemenu.SetLabel(\\\"&File\\\")\\n Filemenu.SetName(\\\"File\\\")\\n atable.GetMenubar.Add\n(Filemenu,-1)\\n end \\n end\\n savePrjMnu = FileMenu.FindByScript(\\\"Project.Save\\\")\\n atableSaveAsMnu = FileMenu.FindByScript(\\\"Project.SaveAs\\\")\\n atableExtMnu = FileMenu.FindByScript(\\\"Appl.GetExtensionWin\\\")\\n if (savePrjMnu <> NIL) then\\n aloc = FileMenu.GetControls.Find(savePrjMnu)\\n if (atableSaveAsMnu = NIL) then\\n FileMenu.Add(tS aveAsMnu.Clone, aloc)\\n end\\n if (atableExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(tExtMnu.Clone, aloc+2)\\n end\\n else \\n \n aloc = 2\\n if (atableSaveAsMnu = NIL) then\\n FileMenu.Add(tSaveAsMnu.Clone, aloc)\\n end\\n if (atableExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(tExtMnu.Clone, aloc+2)\\n end\\n end \\n atable.SetModified(TRUE) \\nend\\n\\nif ((theChartGUI<>NIL) and (theModGUI.FindByValue(\\\"Chart \\\")<> -1)) then\\n achart = av.GetProject.FindGUI(\\\"Chart\\\")\\n Filemenu = achart.GetMenubar.FindByName(\\\"File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = achart.GetMenubar.FindByLabel(\\\"&File\\\")\\n \n if (Filemenu = NIL) then\\n Filemenu = Menu.Make\\n Filemenu.SetLabel(\\\"&File\\\")\\n Filemenu.SetName(\\\"File\\\")\\n achart.GetMenubar.Add(Filemenu,-1)\\n end\\n end\\n \\n savePrjMnu = FileMenu.FindByScript(\\\"Project.Save\\\")\\n achartSaveAsMnu = FileMenu.FindByScript(\\\"Project.SaveAs\\\")\\n achartExtMnu = FileMenu.FindByScript(\\\"Appl.GetExtensionWin\\\")\\n if (savePrjMnu <> NIL) then\\n aloc = FileMenu.GetControls.Find(savePrjMnu)\\n if (achartSaveAsMnu = NIL) then\\n FileMenu.Add(cSaveAsMnu.Clone, aloc)\\n \n end\\n if (achartExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(cExtMnu.Clone, aloc+2)\\n end \\n else\\n aloc = 2\\n if (achartSaveAsMnu = NIL) then\\n FileMenu.Add(cSaveAsMnu.Clone, aloc)\\n end\\n if (achartExtMnu = NIL) th en\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(cExtMnu.Clone, aloc+2)\\n end \\n end \\n achart.SetModified(TRUE)\\nend\\n\\nif ((theLayoutGUI <> NIL) and (theModGUI.FindByValue(\\\"Layout\\\") <> -1)) then\\n alayout = av.GetProjec\nt.FindGUI(\\\"Layout\\\")\\n \\n Filemenu = alayout.GetMenubar.FindByName(\\\"File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = alayout.GetMenubar.FindByLabel(\\\"&File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = Menu.Make\\n Filemenu.SetLabel(\\\"&File\\\")\\ n Filemenu.SetName(\\\"File\\\")\\n alayout.GetMenubar.Add(Filemenu,-1)\\n end \\n end\\n\\n savePrjMnu = FileMenu.FindByScript(\\\"Project.Save\\\")\\n alayoutSaveAsMnu = FileMenu.FindByScript(\\\"Project.SaveAs\\\")\\n alayoutExtMnu = FileMenu.FindByScript(\\\"Appl.GetExtensionWin\\\")\n\\n if (savePrjMnu <> NIL) then\\n aloc = FileMenu.GetControls.Find(savePrjMnu)\\n if (alayoutSaveAsMnu = NIL) then\\n FileMenu.Add(lSaveAsMnu.Clone, aloc)\\n end\\n if (alayoutExtMnu = NIL) then\\n FileMenu.Add( aSeparator.Clone, aloc+1)\\n FileMenu.Add(lExtMnu.Clone, aloc+2)\\n end\\n else\\n aloc = 2\\n if (alayoutSaveAsMnu = NIL) then\\n FileMenu.Add(lSaveAsMnu.Clone, aloc)\\n end\\n if (alayoutExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(lExtMnu.C\nlone, aloc+2)\\n end\\n end \\n \\n LayoutMenu = alayout.GetMenuBar.FindByName(\\\"Layout\\\")\\n if (LayoutMenu = NIL) then\\n LayoutMenu = alayout.GetMenuBar.FindByLabel(\\\"&Layout\\\")\\n if (LayoutMenu = NIL) then\\n layoutMenu = Menu.Make\\n layoutmenu.SetLabel(\\\"&Layout\\\")\\n alayout.GetMenuBar.Add(layoutmenu,2)\\n end\\n end\\n alayoutLAYNeatlineMnu = alayout.GetMenuBar.FindByScript(\\\"Graphic.Neatline Show\\\") \\n if (alayoutLAYNeatlineMnu = NIL) then\\n LayoutMenu.Add(aSeparator.Clone,11)\\n LayoutMenu\n.Add(LAYNeatlineMnu.Clone,11)\\n LayoutMenu.Add(aSeparator.Clone,11)\\n end \\n \\n GraphicMenu = aLayout.GetMenuBar.FindByName(\\\"Graphics\\\")\\n if (GraphicMenu = NIL) then\\n Gra phicMenu = aLayout.GetMenuBar.FindByLabel(\\\"&Graphics\\\")\\n if (GraphicMenu = NIL) then\\n GraphicMenu = Menu.Make\\n GraphicMenu.SetLabel(\\\"&Graphics\\\")\\n alayout.GetMenuBar.Add(GraphicMenu,3)\\n end\\n end\\n alayoutLayTLDefaultsMnu = alayout.GetMenuBar.FindByScript(\\\"Graphic.Label Defaults Show\\\")\\n if (alayoutLayTLDefaultsMnu\n = nil) then\\n GraphicMenu.Add(aSeparator.Clone,1)\\n GraphicMenu.Add(LayTLDefaultsMnu.Clone,1)\\n GraphicMenu.Add(aSeparator.Clone,1)\\n end \\n \\n alay outLAYNeatlineButton = alayout.GetButtonbar.FindByScript(\\\"Graphic.Neatline Show\\\")\\n if (alayoutLAYNeatlineButton = nil) then\\n alayout.GetButtonBar.Add(LAYneatlineButton,19)\\n end\\n \\n aToolMnu = aLayout.GetToolBar.FindByScript(\\\"Layout.Text\\\")\\n if (aToolMnu <> NIL) then\\n aloc = aLayout.GetToolBar.Getcontrols.find(aToolMnu)\\n aLayout.GetToolBar.Rem\nove(aToolMnu)\\n aLayout.GetToolBar.Add(Laytexttoolmenu.Clone,aloc - 1)\\n else\\n aLayout.GetToolBar.Add(Laytexttoolmenu.Clone,5) \\n end\\n alayout.SetModified(TRUE)\\nend\\n\\nif ((theScriptGUI<>NIL) and (theModGUI.FindByValue(\\\"Script\\\")<> -1)) then\\n ascript = av.GetProject.FindGUI(\\\"Script\\\")\\n Filemenu = ascript.GetMenubar.FindByName(\\\"File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = ascript.GetMenubar.FindByLabel(\\\"&File\\\")\\n if (Filemenu = NIL) then\\n Filemenu = Menu.Make\\n Filemenu.SetLabel(\\\"&File\n\\\")\\n Filemenu.SetName(\\\"File\\\")\\n ascript.GetMenubar.Add(Filemenu,-1)\\n end\\n end\\n\\n savePrjMnu = FileM enu.FindByScript(\\\"Project.Save\\\")\\n ascriptSaveAsMnu = FileMenu.FindByScript(\\\"Project.SaveAs\\\")\\n ascriptExtMnu = FileMenu.FindByScript(\\\"Appl.GetExtensionWin\\\")\\n if (savePrjMnu <> NIL) then\\n aloc = FileMenu.GetControls.Find(savePrjMnu)\\n if (ascriptSaveAsMnu = NIL) then\\n FileMenu.Add(sSaveAsMnu.Clone, aloc)\\n end\\n if (ascriptExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\n\\n FileMenu.Add(sExtMnu.Clone, aloc+2)\\n end\\n else\\n aloc = 2\\n if (ascriptSa veAsMnu = NIL) then\\n FileMenu.Add(sSaveAsMnu.Clone, aloc)\\n end\\n if (ascriptExtMnu = NIL) then\\n FileMenu.Add(aSeparator.Clone, aloc+1)\\n FileMenu.Add(sExtMnu.Clone, aloc+2)\\n end \\n end \\n ascript.SetModified(TRUE)\\nend\\n\\n\\nreturn(TRUE)\\n\\n\\n\\n\\n\\n\"\n)\n\n(Script.226\n Name: \"Table.New\"\n SourceCode: \"\\nname = av.GetProject.GetSelectedGUI.GetDocBaseName.lcase\\ntheFile = FileDialog.Put(av.GetProject.MakeFileName(name,\\\"dbf\\\"), \\n \\\"*.dbf\\\", \\n \\\"New Table\\\")\\nif (theFile = NIL) then\\n return nil\\nend\\n\\nv = VTab.MakeNew(theFile,dBASE)\\nif (v.HasError) then\\n if (v.HasLockError) then\\n MsgBox.Error(\\\"Unable to acquire Write Lock for file \\\" + theFile.GetBaseName, \\\"\\\")\\n else\\n MsgBox.Error(\\\"Unable to create \\\" + theFile.GetBaseName, \\\"\\\")\\n end\\n return nil\\nend\\nne\nwTable = Table.MakeWithGUI(VTab.MakeNew(theFile,dBASE), av.GetProject.GetSelectedGUI.GetName)\\nnewTable.SetName(newTable.GetVTab.GetName)\\nnewTa ble.GetWin.Open\\nnewTable.GetVTab.SetEditable(False)\\nnewTable.GetVTab.StartEditingWithRecovery\"\n)\n\n(Script.227\n Name: \"Script.Step\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.Step\"\n)\n\n(Script.228\n Name: \"View.LabelThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nif (theView.GetEditableTheme <> NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\nfor each t in theView.GetVisibleThemes\\n if ((t.IsActive) and (t.CanLabel)) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnab led(FALSE)\"\n)\n\n(Script.229\n Name: \"View.InteractiveSnapToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetEditableTheme\\nsnapping = FALSE\\nif (active <> nil) then\\n snapping = active.IsInteractiveSnapping\\nend\\nif (snapping) then\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetVisible(FALSE)\\n SELF.SetEnabled(FALSE)\\nend\\n\\n\"\n)\n\n(Script.230\n Name: \"View.SplitPolyToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEnabled(False) \\nelse\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n SELF.SetEnabled(theType = #FIELD_SHAPEPOLY)\\nend \"\n)\n\n(Script.231\n Name: \"Project.New\"\n SourceCode: \"theProject = av.GetProject\\n\\nif (nil <> theProject) then\\n if (theProject.IsModified) then\\n if (av.Run(\\\"Project.CheckForEdits\\\",nil).Not) then\\n return nil\\n end \\n res = MsgBox.SaveChanges(\\\"Do you want to save changes to \\\" \\n + theProject.GetName + \\\"?\\ \", \\\"ArcView\\\", true)\\n if (nil = res) then return nil end\\n if (res) then\\n av.Run(\\\"Project.Save\\\", nil)\\n if (theProject.IsModified) then return nil end\\n end\\n end\\n theProject.Close\\nend\\n\\nav.DelayedRun(\\\"Projec\nt.NewPart2\\\", nil, 0)\\n\"\n)\n\n(Script.232\n Name: \"View.ToggleEditing\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetActiveThemes.Get(0)\\neditThm = theView.GetEditableTheme\\n\\nif (editThm <> nil) then\\n' we need to stop editing this theme\\n\\n doSave = MsgBox.Y esNoCancel(\\\"Save Edits to \\\"+editThm.GetName+\\n \\\"?\\\", \\\"Stop Editing\\\", true)\\n if (doSave = nil) then\\n return nil\\n end\\n if (editThm.StopEditing(doSave).Not) then\\n ' save failed, remain editing this theme\\n MsgBox.Info (\\\"Unable to Save Edits to \\\"\\n + editThm.GetName +\\n \\\", please use the Sa\nve Edits As option\\\", \\\"\\\")\\n return nil\\n end\\n ' save succeeded \\n theView.SetEditableTheme(NIL)\\n \\n if (editThm = active) then\\n ' user wanted to sto p editing the active theme, were done\\n return nil \\n end \\n \\nend\\n \\nif (active.GetFTab.IsBeingEditedWithRecovery) then\\n\\n' user wants to edit the active theme in the view, but its\\n' table doc is already being edited - force the \\n' user to stop editing the table\\n\\n doSave = MsgBox.YesNoCancel(\\\"Save Edits to the table for \\\"+\\n active.GetName+\\\"?\\\", \\\"Stop \nEditing\\\", True)\\n if (doSave = nil) then\\n return nil\\n end\\n if (active.GetFTab.StopEditingWithRecovery(doSave).Not) then\\n MsgBox.Info (\\\"Unable to Save Edits, please use the Save Edits As option\\\", \\\"\\\")\\n return nil 'unable to save, remain editing\\n end\\nend\\n\\n' start editing the active theme\\ntheView.SetEditableTheme(active)\"\n)\n\n(Script.233\n Name: \"Doc.OpenUpdate\"\n SourceCode: \"SELF.SetEnabled(av.GetProject.GetSelectedDocs.Count > 0)\\nSELF.SetLabel(\\\"&Open\\\")\\nSELF.SetHelpTopic(\\\"Open_button\\\")\"\n)\n\n(Script.234\n Name: \"Table.ToggleEditing\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\nif (the VTab.IsBeingEditedWithRecovery) then\\n doSave = MsgBox.YesNoCancel(\\\"Save Edits?\\\", \\\"Stop Editing\\\", True)\\n if (doSave = nil) then\\n return nil\\n end\\n if (theVtab.StopEditingWithRecovery(doSave).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits, please use the Save Edits As option\\\", \\\"\\\")\\n return nil\\n end\\nelseif (theVTab.IsEditable) then\\n theVTab.SetEditable(False)\\nelse\\n theVTab.StartEditingWithRecovery\\nend\"\n)\n\n(Script.235\n Name: \"ShowCodepage\"\n SourceCode: \"Codepage.EditProfile\"\n) \n\n(Script.236\n Name: \"View.PasteThemes\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheView.Paste\"\n)\n\n(Script.237\n Name: \"Script.Undo\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.Undo\"\n)\n\n(Script.238\n Name: \"View.ZoomIn\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheView.GetDisplay.ZoomIn(125)\"\n)\n\n(Script.239\n Name: \"View.CombineUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nenabled = FALSE\\nif (theT heme <> nil) then\\n SELF.SetLabel(\\\"Com&bine Features\\\")\\n SELF.SetHelpTopic(\\\"Combine_Features\\\")\\n fCount = theTheme.GetFTab.GetSelection.Count\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n enabled = ((fcount > 1) and (theType = #FIELD_SHAPEPOLY)) \\nelse\\n SELF.SetLabel(\\\"Com&bine Graphics\\\")\\n SELF.SetHelpTopic(\\\"Combine_Graphics\\\")\\n theGraphics = theView.GetGraphics.GetSelected\\n gcount = theGraphics.Count\\n if (g\ncount > 1) then\\n dim2 = 0\\n for each gra in theGraphics\\n dim = gra.GetShape.GetDimension\\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\\n dim2 = dim2 + 1\\n end\\n end\\n enabled = (gcount = dim2)\\n end\\nend\\n\\nSELF.SetEnabled(enabled)\\n\"\n)\n\n(Script.240\n Name: \"View.ToggleGeneralSnapUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetEditableTheme\\nif (active <> nil) then\\n if (active.IsSnapping) then\\n SELF.SetLabel(\\\"Disable General Snapping\\\")\\n SELF.SetHelp(\\\"Turns general snapping off\\\")\\n else\\n SELF.SetLabel(\\\"Enable General Snapping\\\")\\n SELF.SetHelp(\\\"Turns general snapping on\\\")\\n end\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetVisible(FALSE)\\n SELF.SetEnabled(FALSE)\\nend \"\n)\n\n(Script.241\n Name: \"Layout.PageSetup\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nPageSetupDialog.Show(theLayout.GetDisplay)\"\n)\n\n(Script.242\n Name: \"View.AutoCompleteUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (th eTheme = nil) then\\n SELF.SetEnabled(False) \\nelse\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n SELF.SetEnabled(theType = #FIELD_SHAPEPOLY)\\nend \\n\"\n)\n\n(Script.243\n Name: \"Doc.ShowCodepage\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.ShowCodepage\\n\"\n)\n\n(Script.244\n Name: \"DNR.Properties.Close\"\n SourceCode: \"' Name: DNR.Properties.Cancel\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 551 55\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 13:37:34 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script cancels input and closes the dialog\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns:\n \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheDialog = av.FindDialog(\\\"Default Project Properti es\\\")\\nav.getproject.RemoveDialog(theDialog.getname)\\n\\n\"\n)\n\n(Script.245\n Name: \"Table.PromoteUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled(theTable.GetVTab.GetSelection.Count>0)\\n\"\n)\n\n(Script.246\n Name: \"Layout.PrintRTLFile\"\n SourceCode: \"' Name: Layout.PrintRTLFile\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\ n' Date: Tue Oct 06 08:23:17 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script prints RTL files to the selected printer using the\\n' LPR NT command or the No\nvell NPRINT command.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\n' get the name of the RTL file\\n'\\nrtlfile = File Dialog.show(\\\"*.rtl\\\",\\\"RTL Plot Files\\\",\\\"Print RTL File\\\")\\nif (rtlfile = nil) then\\n return nil\\nend\\n\\n' get the list of printers and ask where the users wants to plot the rtl file....\\nprlist = {}\\nfor each var in {\\\"PRINTER1\\\",\\\"PRINTER2\\\",\\\"PRINTER3\\\"}\\n if (system.getenvvar(var) <> nil) then\\n p\nrlist.add(system.getenvvar(var))\\n end\\nend\\n\\nif (prlist.count < 1) then\\n msgbox.info(\\\"No Printers Defined! See documentation for setting up Printers\\\",\\\"Print RTL File\\\")\\n return nil\\nend\\ndest = msgbox.ListAsString(prlist,\\\"Select Printer\\\",\\\"Print RTL File\\\")\\nif (dest = nil) then\\n return nil\\nend\\n\\n' now ask the user for the number of copies they want to create\\n'\\nnumcopies = msgbox.listasstring({1,2,3,4,5},\\\"Number of Copies\\\",\\\"Print RTL File\\\")\\nif (numcopies = nil) then\\n return nil\\nend\\n\\n' get the printserver....\\npr\ntsrv = system.getenvvar(\\\"PRTSRV\\\")\\nif (prtsrv = nil) then\\n prtsrv = \\\"lobo\\\"\\nend\\n\\n' now write the batch job....\\n'\\nspoolcmd = system.getenvvar(\\\"SPOOLCMD\\\")\\n\\n f1 = linefile.make(\\\"$TEMP/rtlplot.bat\\\".asfilename,#FILE_PERM_WRITE)\\nfor each i in 1..numcopies\\n if (spoolcmd = \\\"NPRINT\\\") then\\n f1.WriteElt(\\\"nprint\\\"++rtlfile.AsString++\\\"Q=\\\"+dest)\\n else\\n f1.WriteElt(\\\"lpr -S\\\"++prtsrv++\\\" -P\\\"++dest++rtlfile.AsString)\\n end\\nend\\nf1.close\\nfor each fname in {\\\"cmd.exe\\\",\\\"command.com\\\"}\\n cmd32exe = FileName.FindInSystemSearchPa\nth( fname )\\n if (cmd32exe <> nil) then\\n break\\n end\\nend\\n\\nif (cmd32exe = nil) then\\n msgbox.info(\\\"Unable to find CO MMAND.COM or CMD.EXE\\\",\\\"Layout.ExporttoAlchemy\\\")\\n return nil\\nend\\nsystem.execute(cmd32exe.asstring++\\\"/c\\\"++f1.getname)\\n\"\n)\n\n(Script.247\n Name: \"Script.RunUpdate\"\n SourceCode: \"theSEd = av.GetActiveDoc\\nSELF.SetEnabled(theSEd.IsCompiled) \\n\"\n)\n\n(Script.248\n Name: \"View.ExportDisp\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.Export\\n\"\n)\n\n(Script.249\n Name: \"Graphic.Neatline ShowUpdate\"\n SourceCode: \"theExt = Extension.GetExtensions.Get(\\\"Neatline\\\")\\nself.SetEnabled(theExt <> nil)\"\n)\n\n(Script.250\n Name: \"Last4.OpenProject\"\n SourceCode: \"' This script opens a project selected from the list of last saved projects\\n\\ntmp = self.GetLabel\\ntheFName = tmp.Right(tmp.count - 3).trim.asfilename\\nif (File.Exists( theFName ).NOT) then\\n msgbox.info( \\\"Cannot find file:\\\"++theFName.GetName, \\\"NO FILE\\\")\\n return nil\\nend\\n\\nav.run(\\\"Project.Open\\\",theFName)\\n\"\n)\n\n(Script.251\n Name: \"View.PasteThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSelf.SetEnabled( TRUE )\"\n)\n\n(Script.252\n Name: \"Layout.FrameVie wFrameUpdate\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nSELF.SetEnabled(theLayout.GetGraphics.HasKindOf(ViewFrame)) \\n\"\n)\n\n(Script.253\n Name: \"View.Identify\"\n SourceCode: \"theView = av.GetActiveDoc\\nfound = FALSE\\np = theView.GetDisplay.ReturnUserPoint\\nfor each t in theView.GetActiveThemes\\n if (t.CanFindByPoint) then\\n thmClass = t.GetClass.GetClassName\\n scriptName = thmClass+\\\".Identify\\\"\\n if (av.FindScript(scriptName) <> nil) then\\n found = av.run(scriptName, {p,t,found})\\n else\\n keys = t.FindByPoint(p)\\n for each key in keys\\n found = TRUE\\n idlabel = t.GetName++\\\"-\\\"\\n f = NIL\\n if (t.CanLabel) then\\n f = t.GetLabelField\\n\n end\\n if (f = NIL) then\\n if (key.Is(Number)) then\\n idlabel = idlabel++key.SetFormat(\\\"d\\\").AsString\\n else\\n idlabel = idlabel++\\\" X :\\\"++key.GetX.AsString++\\\" Y :\\\"++key.GetY.AsString\\n end\\n else\\n s = t.ReturnValueString(f.GetName, ke y)\\n idlabel = idlabel++s\\n end\\n t.Identify(key, idlabel)\\n end\\n end \\n end\\nend\\nif (not found) then\\n System.Beep\\nend\\n\\n\"\n)\n\n(Script.254\n Name: \"Table.ToggleEditingUpdate\"\n SourceCode: \"theVTab = av.GetActiveDoc.GetVTab\\nSELF.SetEnabled(theVTab.CanEdit)\\nif (((theVTab.CanEdit) and (theVTab.IsBeingEditedWithRecovery)) or \\n ((theVTab.CanEdit) and (theVTab.IsEditable))) then\\n SELF.SetLabel(\\\"Stop &Editing\\\")\\nelse\\n SELF.SetLabel(\\\"Start &Editing\\\")\\nend\"\n)\n\n (Script.255\n Name: \"View.AddLayerUpdate\"\n SourceCode: \"' this script intentionally left blank\\n' it's here for Macintosh compatibility\"\n)\n\n(Script.256\n Name: \"View.IdentifyUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n if (t.CanFindByPoint) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.257\n Name: \"View.DeleteGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theView.GetGr aphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\nif (theTheme = nil) then\\n theView.GetGraphics.ClearSelected\\nelse\\n theTheme.GetFtab.BeginTransaction\\n theTheme.ClearSelected\\n theTheme.GetFTab.EndTransaction\\nend\"\n)\n\n(Script.258\n Name: \"View.ToggleLegend\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n t.SetLegendVisible(not (t.IsLegendVisible))\\nend\"\n)\n\n(Script.259\n Name: \"Script.FileWrite\"\n SourceCode: \"' Writes a script to a text file if nothing i s selected in a SEd;\\n' otherwise writes the selected text to a text file.\\n\\ntheScript =av.GetActiveDoc \\ntheFName = \\n (theScript.GetName.Substitute(\\\" \\\", \\\"\\\").Translate(\\\".\\\", \\\"_\\\").Left(8)+\\\".ave\\\")\\n .AsFileName\\n\\ntheFName = FileDialog.Put( theFName, \\\"*.ave\\\", \\\"Write Script\\\")\\nif (nil = theFName) then\\n return nil\\nend\\n\\nf = LineFile.Make(theFName, #FILE_PERM_WRITE) \\nif (f = nil) then \\n msgbox.error(\\\"Cannot open file:\\\"++theFName.GetName, \\\"\\\") \\n return nil\\nend\\nif (theScri\npt.GetSe lected.Count = 0) then \\n f.WriteElt(theScript.GetSource)\\n av.ShowMsg( \\\"Script written to\\\"++theFName.GetFullName )\\nelse\\n f.WriteElt(theScript.GetSelected)\\n av.ShowMsg( \\\"Selected text written to\\\"++theFName.GetFullName )\\nend\\n\\nf.close\\nif (System.GetOS = #SYSTEM_OS_MAC) then\\n Script.Make(\\\"MacClass.SetDocInfo(SELF, SEd)\\\").DoIt(theFName)\\nend\\n\"\n)\n\n(Script.260\n Name: \"Table.DeleteField\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheField = theTable.getActiveField\\nif (MsgBox.YesNo(\\\"Are you sur e you want to delete the field \\\"+\\n theField.GetAlias.AsString + \\\"?\\\",\\\"Delete Field\\\",true)) then\\n theTable.StopEditing\\n theTable.GetVTab.RemoveFields({theField})\\nend\"\n)\n\n(Script.261\n Name: \"Graphic.Simplify\"\n SourceCode: \"' Simplify graphics by converting complex graphic types into a set\\n' of simple graphic shapes. For example a legend gets converted to\\n' a set of points, lines, rectangles, and text.\\nav.UseWaitCursor\\nav.GetActiveDoc.GetGraphics.SimplifySelection\"\n)\n\n(Script.262\n Name: \"Grap hic.SingleSelectionUpdate\"\n SourceCode: \"theDoc = av.GetActiveDoc\\n SELF.SetEnabled(theDoc.GetGraphics.GetSelected.Count = 1) \\n\"\n)\n\n(Script.263\n Name: \"View.SelectTool\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.SetSelectMode(#GRAPHICS_SELECT_NORMAL)\"\n)\n\n(Script.264\n Name: \"Chart.ColumnGallery\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.ShowGallery(#CHARTDISPLAY_COLUMN)\\n\"\n)\n\n(Script.265\n Name: \"Layout.Undo\"\n SourceCode: \"av.getactivedoc.getgraphics.restoregraphic\\n\"\n)\n\n(Script.266\n Name: \"Ch art.ScatterGallery\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.ShowGallery(#CHARTDISPLAY_XYSCATTER)\\n\"\n)\n\n(Script.267\n Name: \"Layout.PasteUpdate\"\n SourceCode: \"SELF.SetEnabled(Clipboard.The.HasKindOf(Graphic)) \\n\"\n)\n\n(Script.268\n Name: \"Project.CheckForEdits\"\n SourceCode: \"'Before saving or closing the project check to see if there are any \\n'Themes or Tables being edited. If so prompt for Save Edits\\n'Want to stop editing on themes before tables just in case one of the \\n'editable tables is the fta b for one of the editable themes.\\n\\nfor each d in av.GetProject.GetDocs\\n if(d.Is(View)) then\\n editThm = d.GetEditableTheme\\n if (editThm <> nil) then\\n doSave = MsgBox.YesNoCancel(\\\"Save Edits to \\\"+editThm.GetName+\\n \\\" in \\\"+d.GetName+\\\"?\\\", \\\"Stop Editing\\\", true)\\n if (do\nSave = nil) then\\n return false\\n end\\n if (editThm.StopEditing(doSave).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits to \\\" \\n + editThm.GetName +\\n \\\", please use the Save Edits As option\\\",\\\"\\\")\\n return false\\n else \\n d.SetEditableTheme(NIL)\\n end \\n end \\n end \\nend \\n\\nfor each d in av.GetProject.GetDocs\\n if (d.Is(Table)) then\\n if (d.GetVTab.IsBeingEditedWithrecovery) then\\n doSave = MsgBox.YesNoCancel(\\\"Save Edits to \nthe table \\\"+\\n d.GetName+\\\"?\\\", \\\"Stop Editing\\\", True)\\n if (doSave = nil) then\\n return false\\n end\\n if (d.GetVtab.StopEditingWithRecovery(doSave).Not) t hen\\n MsgBox.Info(\\\"Unable to Save Edits to Table \\\"\\n + d.GetName +\\n \\\", please use the Save Edits As option\\\", \\\"\\\")\\n return false\\n end\\n end\\n end\\nend\\nreturn true\"\n)\n\n(Script.269\n Name: \"View.SelectToEdit\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) then\\n theView.SelectToEdit\\nelse\\n theTheme.GetFTab.BeginTransaction\\n theTheme.SelectToEdit\\n theTheme.GetFTab.EndTransaction\\nend\\ nav.GetProject.SetModified(true)\\n\"\n)\n\n(Script.270\n Name: \"View.PointTool\"\n SourceCode: \"theView = av.GetActiveDoc\\npt = theView.GetDisplay.ReturnUserPoint\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n thePrj = theView.GetProjection\\n if (thePrj.IsNull.Not) then\\n pt = pt.ReturnUnprojected(thePrj)\\n end\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n theTheme.GetFTab.BeginTransaction\\n rec = theTheme.GetFTab.AddRecord\\n theTheme.GetFTab.SetValue(theField, rec, pt)\\n the Theme.GetFTab.EndTransaction\\n theTheme.GetFTab.GetSelection.ClearAll\\n theTheme.GetFTab.GetSelection.Se\nt(rec)\\n theTheme.GetFTab.UpdateSelection\\nelse\\n gp = GraphicShape.Make(pt)\\n theView.GetGraphics.UnselectAll\\n gp.SetSelected(TRUE)\\n theView.GetGraphics.Add(gp)\\nend\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.271\n Name: \"Layout.Properties\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.EditProperties\"\n)\n\n(Script.272\n Name: \"View.CombineGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\n theTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theTheme.GetFtab.BeginTransaction\\n theTheme.MergeSelected\\n theTheme.GetFTab.EndTransaction\\n theTheme.Invalidate( true )\\nelse\\n theGraphics = theView.GetGraphics\\n selGraphics = theGraphics.GetSelected\\n numSel = selGraphics.Count\\n x = numsel - 1\\n gra1 = selGraphics.Get(0)\\n shpMergeAll = gra1.GetShape\\n theSym = gra1.GetSymbol\\n theGraphics.RemoveGraphic(gra1)\\n for each i in 1..x\\n gra = selGraphics.Get(i)\\n \n shp = gra.GetShape\\n shpMerge = shp.ReturnMerged(shpMergeAll)\\n shpMergeAll = shpMerge\\n theGraphics.RemoveGraphic(gra)\\n end\\n if (shpMergeAll.IsEmpty.Not) then \\n graMergeAll = graphicShape.Make(shpMergeAll)\\n graMergeAll.SetSymbol(theSym)\\n theGraphics.Add(graMergeAll)\\n end \\nend\\n\"\n)\n\n(Script.273\n Name: \"Layout.Pan\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.Pan\"\n)\n\n(Script.274\n Name: \"Project.HelpHelp\"\n SourceCode: \"av.Help.SetAVFile\\nav.Help.ShowTopic(\\\"How_to_ge t_help\\\")\"\n)\n\n(Script.275\n Name: \"Project.UpdateButtons\"\n SourceCode: \"for each b in av.GetProject.GetButtons\\n b.Update\\nend\"\n)\n\n(Script.276\n Name: \"Graphic.EditName\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.EditName\"\n)\n\n(Script.277\n Name: \"Graphic.SelectAll\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.SelectAll\"\n)\n\n(Script.278\n Name: \"Table.Join\"\n SourceCode: \"theTable = av.GetActiveDoc\\nnext = theTable.GetWin.GetNextDoc\\ntheTable.GetVTab.Join(theTable.GetActiveField,next. GetVTab,next.GetActiveField)\\nnext.GetWin.Close\\nif (System.GetOS = #SYSTEM_OS_MAC) then\\n theTable.GetWin.Close\\n theTable.GetWin.Open\\nend\\n\"\n)\n\n(Script.279\n Name: \"View.ExportUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nenabled = FALSE\\nfor each t in theView.GetActiveThemes\\n if (t.Is(FTheme)) then \\n tbl = t.GetFTab\\n attribVis = FALSE\\n for each f in tbl.GetFields\\n if ((f.IsVisible) and not (f.IsTypeShape)) then\\n attribVis = TRUE\\n break\\n end\\n end\\n sha peVis = tbl.FindField(\\\"Shape\\\").IsVisible\\n enabled = enabled or (attribVis and shapeVis)\\n elseif (t.CanExportToFtab) then\\n enabled = True\\n end\\nend\\nSELF.SetEnabled(enabled)\"\n)\n\n(Script.280\n Name: \"Link.ImageFile\"\n SourceCode: \"theVal = SELF\\nif (not (theVal.IsNull)) then\\n if (File.Exists(theVal.AsFileName)) then\\n i = ImageWin.Make(theVal.AsFileName, theVal)\\n i.Open\\n else\\n MsgBox.Warning(\\\"File \\\"+theVal+\\\" not found.\\\",\\\"Hot Link\\\")\\n end\\nend\\n\"\n)\n\n(Script.281\n Name: \"Layout. ShowHideMargins\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.SetMarginVisible(theLayout.GetDisplay.IsMarginVisible.Not)\\n\"\n)\n\n(Script.282\n Name: \"Layout.ZoomIn\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.GetActiveDoc\\ntheLayout.GetDisplay.ZoomIn(125)\"\n)\n\n(Script.283\n Name: \"DNR.SetDefaultProperties\"\n SourceCode: \"' name: DNR.SetDefaultProperties\\n'\\n'\\n\\n' get the current variables. SetDict is a dictionary where the key is the property description that has\\n' an associ ated list that stores the name of the environment variable and the value. \\n'\\nsetdict = av.run(\\\"DNR.ReadSets\\\",nil)\\nif ( (setdict = nil) or (setdict.count < 1) ) then\\n return nil\\nend\\nvardesclist = setdict.returnkeys\\nvardesclist.sort(true)\\n\\nvallist = {}\\nvarlist = {}\\nfor each key in vardesclist\\n thelist = setdict.get(key)\\n varlist.add(thelist.get(0))\\n valli\nst.add(thelist.get(1))\\nend\\n\\n\\n' the next set of code is used because the msgbox.multiInput dialog only handles 20 inputs\\n' so we nee d to use two lists. Currently the max number of values is 40.\\n'\\nvardesclist1 = {}\\nvarlist1 = {}\\nvallist1 = {}\\n\\nvardesclist2 = {}\\nvarlist2 = {}\\nvallist2 = {}\\n\\nsplitval = (varlist.count / 2).truncate\\nif (varlist.count <= 20) then\\n vardesclist1 = vardesclist\\n varlist1 = varlist\\n vallist1 = vallist\\n else\\n for each i in 0..(splitval - 1)\\n vardesclist1.add(vardesclist.get(i))\\n \n varlist1.add(varlist.get(i))\\n vallist1.add(vallist.get(i))\\n end\\n for each i in splitval..(varlist.cou nt - 1)\\n vardesclist2.add(vardesclist.get(i))\\n varlist2.add(varlist.get(i))\\n vallist2.add(vallist.get(i))\\n end\\nend\\n\\nnewset1 = msgbox.multiinput(\\\"Set Default Project Properties\\\",\\\"Properties Sheet 1\\\",vardesclist1,vallist1)\\n\\n' if the user presses cancel, then the newset1 list contains no elements so we need to \\n' use the original settings.\\n'\\nif (newset1.count = 0) then\\n newset1 = vallist1\\nend\n\\n\\n' we need to check the second listing if there is more than 20 properties being set. I n this case\\n' we first check to see if varlist2 contains more than 0 elements. If it does then we request from\\n' the user any new settings. If they press cancel and don't make any changes then newset2 has 0 elements\\n' and we need to use the original list.\\n'\\nif (varlist2.count > 0) then\\n newset2 = msgbox.multiinput(\\\"Set Default Project Properties\\\",\\\"Properties Sheet 2\\\",vardesclist2,vallist2)\\n if (newset2.count = 0) then\\n\n newset2 = vallist2\\n end\\n else\\n newset2 = {}\\nend\\n\\n' get the init ialization filename\\n'\\ninifile = av.run(\\\"DNR.ReturnIniFile\\\",nil)\\n\\n' now recombine the environment lists into master lists.\\n'\\nnewvarlist = varlist1.merge(varlist2)\\nnewvallist = newset1.merge(newset2)\\n\\nif ( newvarlist.count > 0) then\\n f1 = linefile.make(inifile,#FILE_PERM_WRITE)\\n for each i in 0..(newvarlist.count - 1)\\n desc = vardesclist.get(i)\\n var = newvarlist.get(i)\\n val = newvallist.get(i)\\n if (val.trim <> \\\"\\\") then\\n sy\nstem.setenvvar(var,val)\\n f1.writeElt(var+\\ \"=\\\"+val+\\\"=\\\"+desc)\\n end\\n end\\n f1.close\\nend\\n\"\n)\n\n(Script.284\n Name: \"View.ZoomToThemes\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheThemes = theView.GetActiveThemes\\nr = Rect.MakeEmpty\\nfor each t in theThemes\\n r = r.UnionWith(t.ReturnExtent)\\nend\\n\\nif (r.IsEmpty) then\\n return nil\\nelseif ( r.ReturnSize = (0@0) ) then\\n theView.GetDisplay.PanTo(r.ReturnOrigin)\\nelse\\n theView.GetDisplay.SetExtent(r.Scale(1.1))\\nend\\n\"\n)\n\n(Script.285\n Name: \"Script.Help\"\n So urceCode: \"theSEd = av.GetActiveDoc\\ntheStr = theSEd.GetSelected\\n\\nav.Help.SetAVFile\\n\\nif (system.getOS = #SYSTEM_OS_MSW ) then\\n if (theStr.IsNull) then\\n av.Help.ShowTopic (\\\"no_show\\\")\\n av.Help.ExecuteMacro(\\\"Search()\\\")\\n else\\n av.Help.ShowTopic (\\\"no_show\\\")\\n av.Help.SearchUsing(theStr)\\n end\\nelse\\n if (theStr.IsNull) then\\n av.Help.ExecuteMacro(\\\"Search()\\\")\\n else\\n av.Help.SearchUsing(theStr)\\n end\\nend\"\n)\n\n(Script.286\n Name: \"View.NewTheme\"\n SourceCode: \"theView = av.G etActiveDoc\\n\\n'If a theme in the view is being edited, Stop Editing it before creating new theme\\neditThm = theView.GetEditableTheme\\nif (editThm <> nil) then\\n doSave = MsgBox.YesNoCancel(\\\"Save edits to \\\"+editThm.GetName+\\\"?\\\",\\\"Stop Editing\\\",true)\\n if (doSave = nil) then\\n return nil\\n end\\n if (editThm.StopEditing(doSave).Not) then\\n MsgBox.Info(\\\"Unable to Save Edits to \\\"\\n + editThm.GetName +\\n \\\", please use the Save Edits As option\\\", \\\"\\\")\\n return nil\\n\n else\\n theView.SetEditableTheme(NIL)\\n end\\nend \\n\\ntype = MsgBox.ChoiceAsString({\\\"Point\\\", \\\"Line\\\", \\\"Polygon\\\"}, \\\"Feature type:\\\", \\\"New Theme\\\")\\n\\nif (type = \\\"Point\\\") then\\n class = Point\\nelseif (type = \\\"Line\\\") then\\n class = PolyLine\\nelseif (type = \\\"Polygon\\\") then\\n class = Polygon\\nelse\\n return nil\\nend\\n\\ndef = av.GetProject.MakeFileName(\\\"theme\\\", \\\"shp\\\")\\n\\ndef = FileDialog.Put(def, \\\"*.shp\\\", \\\"New Theme\\\")\\n\\nif (def <> nil) then\\n tbl = FTab.MakeNew(def, c lass)\\n if (tbl.HasError) then\\n if (tbl.HasLockError) t\nhen\\n MsgBox.Error(\\\"Unable to acquire Write Lock for file \\\" + def.GetBaseName, \\\"\\\")\\n else\\n MsgBox.Error(\\\"Unable to create \\\" + def.GetBaseName, \\\"\\\")\\n end\\n return nil\\n end\\n fld = Field.Make(\\\"ID\\\", #FIELD_DECIMAL, 8, 0)\\n fld.SetVisible( TRUE )\\n tbl.AddFields({fld})\\n tbl.SetEditable(False)\\n theTheme = FTheme.Make(tbl)\\ntheView.AddTheme(theTheme)\\n theTheme.SetActive(TRUE)\\n theTheme.SetVisible(TRUE)\\ n theView.SetEditableTheme(theTheme)\\n av.GetProject.SetModified(true)\\nend\\n\\n\\n\\n\"\n)\n\n(Script.287\n Name: \"Chart.MatchLegendtoTheme\"\n SourceCode: \"' Script Name: Chart.MatchLegendtoTheme\\n'\\n' Description: This script matches a charts colors and labels to a\\n' theme legend in a seperate view. This is very useful\\n' when you are showing a chart on a map along with some\\n' data.\\n' Requires: An existing chart and an existing theme with a legend and \\n' a com mon field. The chart must be labelled on the common field\\n' and the legend must be classified using the same field.\\n'\\n' History: Tim Loesch - origi\nnal coding - 12-1-97 \\n' Code modified from script provided with ArcView spatial Analyst.\\n'\\n' Copyright 1997 Minnesota Department of Natural Resources\\n' This script is provided free of charge and without any warranty or support\\n' whatsoever. \\n'\\n'\\n' get the chart document, VTAB, and record label field\\n' the record label field is the field that the chart segments are created from\\n' and is the same field that the target legend is classified on.\\n'\\nthechart = av.getactivedoc\\nchartVtab = thechart.GetVtab\\n\nlabelfield = thechart.getrecordlabelfield\\n\\n' find the views in the current project\\n'\\nviewlist = list.make\\nfor each adoc in av.getproject.getdocs\\n if (adoc.is(View)) then\\n viewlist.add(adoc)\\n end\\nend\\nif (viewlist.count < 1) then\\n msgbox.info(\\\"No Views. Unable to Match Chart Legend\\\",\\\"Match Chart Legend\\\")\\n return n il\\nend\\nif (viewlist.count > 1) then\\n theView = msgbox.listasstring(viewlist,\\\"Select View that contains Theme to match legend\\\",\\\"Match Chart Legend\\\")\\n else\\n theview = viewlist.get(0)\\nend\\nif (t\nheView = nil) then\\n return nil\\nend\\n\\n' now get the themes in the view selected by the user\\n'\\nthemelist = theview.getthemes\\nif (themelist.count < 1) then\\n msgbox.info(\\\"No themes found in view. Unable to match chart legend\\\",\\\"Match Chart Legend\\\")\\n return nil\\nend\\nif (themelist.count > 1) then\\n thetheme = msgbox.listasstring(themelist,\\\"Select Theme to Match Legend\\\",\\\"Match Chart Legend\\\")\\n else\\n thetheme = themelist.get(0)\\nend\\nif (thetheme = nil) then\\n return nil\\nend\\n\\n' get the vtab or ftab of the selected da\nta set, find the\\n' associated label field and retrieve the legend object.\\n'\\nif (thetheme.is(ftheme)) then\\n thevtab = thetheme.getftab\\n else\\n theVTab = thetheme.getVtab\\nend\\nVTABlabelfield = thevtab.findfield(labelfield.asstring)\\n\\nif (VTABLabelfield = nil) then\\n msgb ox.error(\\\"The legend and chart are not based on the same field. Unable to Match Legends\\\",\\\"Match Chart Legend\\\")\\n return nil\\nend\\ntheLegend = theTheme.GetLegend\\n\\n'\\nif (theLegend.GetLegendType <> #LEGEND_TYPE_CHART) then\\n theSymbols = theLegend.G\netSymbols\\n if (theLegend.GetLegendType = #LEGEND_TYPE_SIMPLE) then\\n theChartDisplay = theChart.GetChartDisplay\\n for each rec in ChartVTab\\n theChartDisplay.SetSeriesColor(rec, theSymbols.Get(0).GetColor)\\n end\\n else\\n ' create two di ctionaries, one stores the labels used in the legend and one stores\\n ' the symbols. The two dictionaries are keyed on the legend values.\\n '\\n labelDictionary = Dictionary.Make(ChartVTab.GetNumRecords)\\n symbolDictionary = Dictionary.Make(theSymbols.Coun\nt)\\n \\n ' get the fields used to classify the legend and then for each record in the theme\\n ' VTAB determine which class the value belongs to.\\n '\\n legendFieldList = theLegend.ReturnFieldNames\\n for each rec in theVTab\\n indexList = {}\\n for each fieldString in legendFieldList\\n indexList.Add(theVTab.ReturnValue(theVTab.FindField(fieldString), rec))\\n end\\n theIndex = theLegend.GetIndex(indexList)\\n classInfoList = theLegend.ReturnClassInfo(theIndex)\\n if (classIn\nfolist.count > 0) then ' we found the value in the legend\\n labelString = classInfoList.Get(0)\\n labelDictionary.Add(theVTab.ReturnValue(VTABlabelField, rec),labelString)\\n if (symbolDiction ary.Get(labelString) = NIL) then\\n symbolDictionary.Add(labelString,classInfoList.Get(2).GetColor)\\n end\\n end\\n end\\n \\n ' now add the label field to the chart's vtab and then label on that field and then\\n ' transfer the labels and colors to the chart.\\n \n'\\n ChartVTab.SetEditable(TRUE)\\n if (ChartVTab.findfield(\\\"Label\\\") = nil) then\\n aField = Field.Make(\\\"Label\\\", #FIELD_CHAR, 40, 0)\\n tempFieldList = {aField}\\n ChartVTab.AddFields(tempFieldList) \\n else\\n aField = ChartVTab.Findfield(\\\"Label\\\")\\n end\\n addField = ChartVTab.FindField(labelField.GetName)\\n for each rec in ChartVTab\\n thevalue = ChartVTab.ReturnValue(AddField, Rec)\\n thelabel = labelDictionary.Get(thevalue)\\n if (thelabel = nil) then\\n if (theValue.is\n(String).not) then\\n thevalue = thevalue.asstring\\n end\\n thelabel = \\\"Value\\\"++thevalue++\\\"not in Legend\\\"\\n end\\n ChartVTab.SetValue(aField, rec, thelabel)\\n e nd\\n if (theLegend.GetLegendType <> #LEGEND_TYPE_DOT) then\\n theChart.SetRecordLabelField(aField)\\n end\\n theChartDisplay = theChart.GetChartDisplay\\n for each rec2 in ChartVTab\\n thesym = symbolDictionary.Get(ChartVTab.ReturnValueString(aField, rec2))\\n if (thesym <> nil) then\\n theChartDisplay.Se\ntSeriesColor(rec2,thesym)\\n end\\n end\\n ChartVTab.SetEditable(FALSE)\\n end\\nend\\n\"\n)\n\n(Script.288\n Name: \"View.SpatialSelectUpdate\"\n SourceCode: \"theView = av.GetActi veDoc\\nif (theView.GetEditableTheme <> NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\nif (theView.GetGraphics.HasSelected) then\\n for each t in theView.GetActiveThemes\\n if (t.CanSelect) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end \\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.289\n Name: \"Layout.Paste\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.GetGraphics.Paste\\nav.GetProject.SetModified(true)\\n\"\n)\n\n(Script.290\n Name: \"DNR.MDConnect.Update\"\n SourceCode: \"' Name: DNR.MDConnect.Update\\n'\\n' Author: Tim Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Thu. December 10th, 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: Makes the button active based on active themes and \\n' a non-unix operating system\\n' act ive docu\nment.\\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' Topics: \\n' Search Keys: \\n' -------------------------------------------------------------------\\n\\nif ( (system.GetOS = #SYSTEM_OS_MSW) and (av.getactivedoc.getactivethemes.count > 0) ) then\\n self.setenabled(true)\\n self.setHelp(\\\"Retrieve MetaData//Access DNR MetaData for Active Theme\\\")\\n else\\n self.setenabled(false)\\n if (system.GetOS = #SYSTEM_OS_MSW) then\\n self.SetHelp(\\\"Retrieve MetaData - NO THEME ACTIVE//Access DNR MetaData fo r Active Theme - Make A The\nme Active to Enable Button\\\")\\n else\\n self.SetHelp(\\\"Retrieve MetaData - Not in UNIX//Access DNR MetaData for Active Theme - Only works in Windows! Sorry\\\")\\n end\\nend\"\n)\n\n(Script.291\n Name: \"View.PolyToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEnabled(TRUE) \\nelse\\n SELF.SetEnabled(theTheme.GetFTab.FindField(\\\"Shape\\\").GetType = #FIELD_SHAPEPOLY)\\nend\\n \\n\"\n)\n\n(Script.292\n Name: \"Layout.F rameTable\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n wf = DocFrame.Make(r,Table)\\n wf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n wf.SetSelected(TRUE)\\n if (wf.Edit(theLayout.GetGraphics)) then\\n theLayout.GetGraphics.AddName(wf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.293\n Name: \"Table.CalculateUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheField = theTable.GetActiveField\\nSELF.SetEnabled(( theField <> NIL) and\\n (theTable.GetVTab.IsEditable) and\\n (theField.IsEditable))\\n\"\n)\n\n(Script.294\n Name: \"Project.AddTableUpdate\"\n SourceCode: \"theBoolean = false\\n theDocs = av.GetProject.GetGUIs\\n for each aDoc in theDocs\\n if (aDoc.getType = \\\"Table\\\") then\\n theBoolean = true\\n end\\n end\\n\\n SELF.setEnabled(theBoolean)\\n\\n\"\n)\n\n(Script.295\n Name: \"Table.AddRecordUpdate\"\n SourceCode: \"theVTab = av.GetActiveDoc.GetVTab\\nSELF.SetEnabled(theVTab.CanAddRecord)\\n\"\n)\n\n(Script .296\n Name: \"Table.Summarize\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = SummaryDialog.Show(theTable.GetVTab, theTable.GetActiveField)\\nif (Nil = theVTab) then\\n return nil\\nend\\n\\n'the VTab contains a shape field if Merge was one of the operations\\nif (theVTab.Is(FTab)) then\\n 'make a list of views\\n dl = {} \\n for each d in av.GetProject.GetDocs\\n if (d.Is(View)) then\\n dl.Add(d)\\n end\\n end\\n\\n 'provide a choice for a new view\\n dl.Add(\\\"\\\")\\n theView = MsgBox.ListAs String(dl,\\\"Add Theme to:\\\", \\\"Summarize\\\")\\n\\n if (theView <> nil) t\nhen\\n if (theView = \\\"\\\") then\\n theView = View.Make\\n theView.GetWin.Open\\n end\\n\\n 'create a theme and add it to the specified View\\n fthm = FTheme.Make(theVTab)\\n theView.AddTheme(fthm)\\n 'display the table of attributes\\n fthm.EditTable\\n 'but make the view the active window\\n theView.GetWin.Activate\\n end\\n\\nelse\\n 'no merge, so plain tabular summarization\\n newTable = Table.Make(theV Tab)\\n newTable.SetName(theVTab.GetName)\\n newTable.GetWin.Open\\nend\"\n)\n\n(Script.297\n Name: \"View.LineTool\"\n SourceCode: \"theView = av.GetActiveDoc\\nl = theView.ReturnUserLine\\n\\nif (l.IsNull) then\\n return nil\\nelse\\n gl = GraphicShape.Make(l.AsPolyline)\\n theView.GetGraphics.UnselectAll\\n gl.SetSelected(TRUE)\\n theView.GetGraphics.Add(gl)\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.298\n Name: \"View.ToggleInteractiveSnap\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEdit ableTheme\\n\\nif (theTheme <> nil) then\\n if (theTheme.IsInteractiveSnapping) then\\n theTheme.SetInteractiveSnapping(False)\\n else\\n theTheme.SetInteractiveSnapping(True)\\n end\\nend\"\n)\n\n(Script.299\n Name: \"Layout.FrameChart\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n wf = DocFrame.Make(r,Chart)\\n wf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n wf.SetSelected(TRUE)\\n if (wf.Edit(theLayout.GetGraphics)) then\\n the Layout.GetGraphics.AddName(wf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.300\n Name: \"DNR.OpenURLDefBrows\"\n SourceCode: \"' Name: DNR.OpenURLDefBrows\\n'\\n' Author: Peter Pascale\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' peter.pascale@dnr.state.mn.us\\n' \\n' Date: Fri Nov 20 10:28:40 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' ----------------------------------- --------------------------------\\n' Description: This script opens the default browser and loads a \\n' URL or File passed from a calling script. If the U\nRL or File is invalid,\\n' the user is informed and the process is aborted.\\n'\\n' Requires: AV 3.0 or 3.1, Win 95 or NT\\n' Runs: \\n' Run by: Currently DNR.MDConnectMaster, which can be incorporated into\\n' other scripts.\\n' Self: a string containing the URL or complete path/filename to be loaded.\\n' Returns: nil if operation unsuccessful \\n' TRUE i f successful\\n' Topics: Default Browser, URL hotlink \\n' Search Keys: \\n' -------------------------------------------------------------------\\n\\n' Get passed filename s\ntring and construct string\\nstURL = Self\\n\\n' Determine default browser\\n' Setup DLL File Objects\\nif (System.GetOSVariant = #SYSTEM_OSVARIANT_MSWNT) then\\n dllShell32 = DLL.Make(\\\"C:\\\\winnt\\\\system32\\\\shell32.dll\\\".AsFilename)\\n dllUser32 = DLL.Make(\\\"C:\\\\winnt\\\\system32\\\\user32.dll\\\".AsFilename)\\nElseIf (System.GetOSVariant = #SYSTEM_OSV ARIANT_MSW95) then\\n dllShell32 = DLL.Make(\\\"C:\\\\windows\\\\system\\\\shell32.dll\\\".AsFilename)\\n dllUser32 = DLL.Make(\\\"C:\\\\windows\\\\system\\\\user32.dll\\\".AsFilename)\\nElse\\n Msgbox.Warning(\\\"Required DL\nL Files can not be found (Win98 not supported).\\\", \\\"Stop\\\")\\n return nil\\nend\\n\\n' Setup Win32API functions as Avenue DLLProc objects\\ndpGetActiveWindow = DLLProc.Make(dllUser32, \\\"GetActiveWindow\\\",\\n #DLLPROC_TYPE_INT32, 'return value type\\n {} 'arg ument list\\n )\\ndpShellExecute = DLLProc.Make(dllShell32, \\\"ShellExecuteA\\\",\\n #DLLPROC_TYPE_INT32, 'return value type\\n { #DLLPROC_TYPE_INT32, 'argument lis\nt\\n #DLLPROC_TYPE_STR,\\n #DLLPROC_TYPE_STR,\\n #DLLPROC_TYPE_STR,\\n #DLLPROC_TYPE_STR,\\n #DLLPROC_TYPE_INT32}\\n )\\n' Get the window handle (hWnd) of the ArcView window\\nhWnd_act ive = dpGetActiveWindow.Call({})\\n'''or-> hWnd_active = DLL.GetAVWindowHandle\\n\\n' Send the MD Filename to the default browser\\nretValue = dpshellExecute.Call({ hWnd_active, \\\"Open\\\", stURL, \\\"\\\", FileName.GetCWD.AsString, 1} )\\n\\n' Let the\n user know if the link failed. The \\\"ShellExecuteA function returns an integer\\n' greater than 32 if the process succeeded. This condition is typically met when browsing \\n' for a file that doesn't exist or browsing for a string that is not a valid URL-formatted \\n' stri ng (ex. \\\"wwe.esri.com\\\"). It is NOT met when when browsing for a URL-formatted string\\n' that doesn't exist (ex. \\\"www.esrii.com\\\"). In the latter case, the browser accepts the URL\\n' and passes back a return value greater than 32, then fails to find\n the site, popping up\\n' its own error message.\\nif (retValue <= 32) then\\n Msgbox.Warning(\\\"Browse to '\\\" + stURL + \\\"' failed.\\\"++\\n \\\"Possible web/file system connection problem, or invalid URL/Filename.\\\", \\\"URL Link\\\")\\nelse\\n return TRUE\\nend\\n\\n'End of script\\n\\n \\n\\n\"\n)\n\n(Script.301\n Name: \"DNR.ShowHelp\"\n SourceCode: \"' Name: DNR.ShowHelp\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Tue Feb 02 10:36:13 1999\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script opens docume ntation for the default project\\n' Requires: \\n' Runs: DNR.OpenURLDefBrows\\n' Run by: \\n'\n Self: \\n' Returns: \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\nfound = false\\nthehelpfile = self.getTag\\n\\npath1 = system.getenvvar(\\\"DNRCORE\\\")\\nif (path1 <> nil) then\\n path1 = path1+\\\"/document/\\\"+thehelpfile\\nend\\npath2 = system.getenvvar(\\\"AVCORE\\\")\\nif (path2 <> nil) then\\n path2 = path2+\\\"/document/\\\"+thehelpfile\\nend\\npath3 = system.getenvvar(\\\"A VHOME\\\")\\nif (path3 <> nil) then\\n path3 = path3+\\\"/help/\\\"+thehelpfile\\nend\\n\\nfor each i in {path1,path2,path3}\\n if (i <\n> nil) then\\n thedoc = i.substitute(\\\"\\\\\\\",\\\"/\\\")\\n if (File.Exists( thedoc.asfilename )) then\\n av.run(\\\"DNR.OpenURLDefBrows\\\",thedoc)\\n found = true\\n end\\n end\\nend\\n\\nif (found.Not) then\\n msgbox.Error(\\\"Unable to find help file\\\"++thedoc,Script.The.GetName)\\nend\"\n)\n\n(Script.302\n Name: \"Table.UndoEditUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nself.SetE nabled(False)\\nif (theTable.GetVTab.IsBeingEditedWithRecovery) then\\n self.SetEnabled(True)\\nend \\n\"\n)\n\n(Script.303\n Name: \"Layout.ZoomOutTool\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nd = theLayout.GetDisplay\\nif (r.IsNull.not) then\\n ext = d.ReturnVisExtent\\n ext.Scale(ext.GetWidth / r.GetWidth)\\n d.ZoomToRect(ext)\\nelse\\n d.ZoomOut(125)\\n d.PanTo(d.ReturnUserPoint)\\nend\"\n)\n\n(Script.304\n Name: \"Layout.FrameLegend\"\n SourceCode: \"theLay out = av.GetActiveDoc\\nr = theLayout.GetDisplay.ReturnUserRect\\nif (r.IsNull.not) then\\n lf = LegendFrame.Make(r)\\n lf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n lf.SetSelected(TRUE)\\n if (lf.Edit(theLayout.GetGraphics)) then\\n theLayout.GetGraphics.AddName(lf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.305\n Name: \"View.SplitToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEna bled(False) \\nelse\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n SELF.SetEnabled((theType = #FIELD_SHAPELINE) Or (theType = #FIELD_SHAPEPOLY))\\nend\"\n)\n\n(Script.306\n Name: \"Table.RemoveAllJoins\"\n SourceCode: \"' Removes any fields joined to the current table \\n theVTab = av.GetActiveDoc.GetVtab\\nif (theVTab.IsBase.Not) then\\n av.GetProject.SetModified(true)\\nend\\ntheVTab.UnjoinAll\\n\"\n)\n\n(Script.307\n Name: \"appl.initialize\"\n SourceCode: \"argList = self\\n\\n' added by Tim Loesch to implement Las t 4 projects\\nlast = ODB.Open( \\\"$TEMP/default.l4\\\".AsFileName)\\nif (last = nil) then\\n _Rememberlast = {}\\nelse\\n _Rememberlast = last.Get(0)\\nend\\n\\nif (argList.Count = 0) then\\n new = Project.Make\\n new.GetWin.Open\\n new.SetModified(false)\\n \\n startfile = \\\"$HOME/avstart.txt\\\".AsFileName\\n if (File.Exists(startfile).Not) then\\n startupExt = Extension.Open(\\\"$AVHOME/tools/avstart.___\\\".AsFileName)\\n if (startupExt <> nil) then\\n startupExt.AddDefaultOwner\n\\n av.FindDialog(\\\"StartU p\\\").Open\\n end\\n end \\n \\nelse\\n fName = argList.Get(0).AsFileName\\n old = Project.Open(fName)\\n if (old = nil) then\\n MsgBox.Warning(\\\"The project\\\"++fName.GetBaseName++\\\"could not be opened\\\", \\\"\\\")\\n new = Project.Make\\n new.GetWin.Open\\n new.SetModified(false)\\n else\\n old.SetModified(false)\\n if (av.GetProject <> nil) then\\n av.DelayedRun(\\\"Project.UpdateApr\\\",nil,1)\\n end \\n end\\nend\\n\\n\\ntoolDir = \\\"$AVHOME/tools/\\\".AsFileName\\nif (File.Exists(toolDir)) then\\n for \neach afile in toolDir.ReadFiles(\\\"*.avx\\\")\\n theExt = Extension.Open(afile)\\n if (theExt <> nil) then\\n theExt.AddDefaultOwner\\n end \\n end\\nend\\n\\nif (av.GetProject <> nil) then\\n av.GetProject.SetModified(false)\\nend\\n\\n\\nav.Run(\\\"Codepage.Install\\\",nil)\\n\\n'Added by Tim Loesch to start the Project AutoSave function\\nav.run(\\\"Project.AutoSave\\\",nil)\\n' added by Tim Loesch to inform user that they are using the DNR Default Project for ArcView.\\nav.SetName(\\\"MN DNR Default Project V3 .1e --\\\"++av.GetName)\\n\\n\"\n)\n\n(Script.308\n Name: \"Chart.IsScatterUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nif (theChart.IsChartScatter) then\\n Self.SetEnabled( TRUE )\\nelse\\n if (SELF.IsSelected) then\\n for each t in av.GetActiveGUI.GetToolbar.GetControls\\n if (t.GetTag = \\\"Erase\\\") then\\n t.Select\\n end\\n end\\n end\\n SELF.SetEnabled( FALSE )\\nend\\n\"\n)\n\n(Script.309\n Name: \"Chart.ToggleTitleUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nif (theChart.GetTitle.IsVisible) t hen\\n SELF.SetLabel(\\\"Hide &Title\\\")\\nelse\\n SELF.SetLabel(\\\"Show &Title\\\")\\nend\\n\"\n)\n\n(Script.310\n Name: \"Project.OpenPart2\"\n SourceCode: \"' self is the name of the project to open\\n\\nav.PurgeObjects\\nav.ProcessAllInvals\\nProject.Open(self)\\n\\n' added by tim loesch to update the controls on the project file....\\nav.Run(\\\"DNR.UpdateProjectControls\\\",nil)\\n\\n\\nav.Run(\\\"Codepage.Install\\\",nil)\\n\\ntheProj = av.GetProject\\nif (theProj <> nil) then\\n guiModified = av.Run(\\\"Project.UpdateApr\\\",nil)\\n self.Set Modified(guiModified)\\nend \\n\"\n)\n\n(Script.311\n Name: \"Doc.PrintUpdate\"\n SourceCode: \"' Obsolete script, but must remain in 3.0x for consistency.\\n' Delete for next release.\\n\"\n)\n\n(Script.312\n Name: \"Project.ClassSearch\"\n SourceCode: \"if ((av.Help.GetFile = av.Help.GetClassesFile).not) then\\n av.Help.SetClassesFile\\nend\\nav.Help.Search\"\n)\n\n(Script.313\n Name: \"Layout.PolyLine\"\n SourceCode: \"theLayout = av.GetActiveDoc\\na = theLayout.ReturnUserPolyLine\\nif (a.IsNull.not) then\\n ga = GraphicShape.Make(a)\\n theLayout.GetGraphics.UnselectAll\\n ga.SetSelected(TRUE)\\n theLayout.GetGraphics.Add(ga)\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.314\n Name: \"View.SnapToEndPoint\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\ntheView.SetInteractiveSnapping(theTheme,#POINT_SNAP_ENDPOINT)\\n\"\n)\n\n(Script.315\n Name: \"Project.SaveAs\"\n SourceCode: \"theProject = av.GetProject\\nif (av.Run(\\\"Project.CheckForEdits\\\",nil).Not) then\\n return nil\\nend\\n \\ndefName = theProject.GetFileNa me\\nif (defname = nil) then\\n if ((System.GetEnvVar(\\\"HOME\\\") <> nil) and File.IsWritable(\\\"$HOME\\\".AsFileName)) then\\n defName = FileName.Make(\\\"$HOME\\\").MakeTmp(\\\"proj\\\", \\\"apr\\\")\\n else\\n defName = FileName.Make(\\\"proj1.apr\\\")\\n end\\nend\\n\\ntheFName = FileDialog.Put(defName, \\\"*.apr\\\", \\\"Save Project As\\\")\\nif (nil <> theFName) then\\n theProject.SetFileName(theFName)\\n if (theProject.Save) then\\n \n \\n ' Save last 4 project files\\n av.Run( \\\"Last4.SaveName\\\", \\\"\\\")\\n \\n av.ShowMsg( \\\"Project saved to '\\\"+theProject.GetFileName.GetBaseName+\\\"'\\\")\\n if (System.GetOS = #SYSTEM_OS_MAC) then\\n realFName = theProject.GetFileName\\n if (nil <> realFName) then\\n Script.Make(\\\"MacClass.SetDocInfo(SELF, Project)\\\").DoIt(realFName)\\n end\\n end\\n end\\nend\"\n)\n\n(Script.316\n Name: \"Layout.SymbolDump\"\n SourceCode: \"' Name: Layout.SymbolDump\\n' \\n' Title: Dumps symbols from palette to layout\\n' \\n' Topics: Graphics \\n' \\n' Description: This script allows you to dump the contents of a symbol\\n' palette into a layout. Specifically graphics of the appropriate sort \\n' are generated and symbolized with a symbol from the palette, there \\n' will be one graphic per symbol. This script handles text symbol a\\n' bit differently, if the text does not fit in one layout, multiple \\n' layouts will be created to accomodate additional symb\nols\\n' \\n' Requires: \\n' \\n' Self: \\n' \\n' Returns: \\n' \\n\\nthePalette = av.GetSymbolWin.GetPalette\\nsymTypes = {\\\"Color\\\", \\\"Fill\\\",\\\"Marker\\\", \\\"Pen\\\", \\\"Text\\\"}\\nsymType = Msgbox.ChoiceAsString(symTypes, \\\"Choose a symbol type:\\\", \\\"ArcView Symbol Dump\\\")\\n\\nif (symType = nil) then \\n return nil\\nelseif (symType = \\\"Color\\\") then\\n thePaletteList = thePalette.GetList(#PALETTE_LIST_COLOR)\\n numPages = (thePaletteList.Count / 60).Ceiling\\nelseif (symType = \\\"Fill\\\") then\\n thePaletteList = thePalette.GetList(#PALETTE_LIST_FILL)\\n numPa\nges = (thePaletteList.Count / 60).Ceiling\\nelseif (symType = \\\"Marker\\\") then\\n thePaletteList = thePalette. GetList(#PALETTE_LIST_MARKER)\\n numPages = (thePaletteList.Count / 60).Ceiling\\nelseif (symType = \\\"Pen\\\") then\\n thePaletteList = thePalette.GetList(#PALETTE_LIST_PEN)\\n numPages = (thePaletteList.Count / 60).Ceiling\\nelseif (symType = \\\"Text\\\") then \\n fontMgr = FontManager.The\\n fontList = fontMgr.ReturnFamilies\\n totalLines = 0\\n for each f in fontList\\n totalLines = totalLines + fontMgr.ReturnStyles(f\n).Count\\n end \\n numPages = (totalLines / 32).Ceiling\\nend\\n\\npageCount = 0\\nsymNum = 0 \\nMakeNewPage = true\\nxp = 0\\n\\nWhile (pageCount < numPages)\\n if (MakeNewPage) then\\n theLayout = Layout.Make\\n pageCount = pageCount + 1\\n end\\n MakeNewPage = false\\n theLayout.GetWin.open\\n theLayout.SetName(symType.UCase+((pageCount).AsString))\\n \\n dis = theLayout.GetDisplay\\n dis.SetPageSize(8.5@11)\\n dis.SetMarginVisible(FALSE)\\n gl = theLayout.GetGraphics\\n \\n 'Make a bounding box\\n boundX = (750 - (8.50 / 2))\\n boun\ndY = (750 + (11.00 / 2))\\n bboundX = (750 + (8.50 / 2))\\n bbo undY = (750 - (11.00 / 2)) \\n boundBox = Rect.MakeXY(boundX, boundY, bboundX, BBoundY)\\n gBoundBox = GraphicShape.Make(boundBox)\\n gl.AddBatch(gboundBox)\\n \\n 'Make framing box\\n topX = (750 - (8.50 / 2)) + 0.50\\n topY = (750 + (11.00 / 2)) - 0.50\\n botX = (750 + (8.50 / 2)) - 0.50\\n botY = (750 - (11.00 / 2)) + 0.50\\n box = Rect.MakeXY(topX, topY, botX, botY)\\n gbox = GraphicShape.Make(box)\\n gl.AddBatch(gbox)\\n \\n if (symType = \\\"Text\\\") then\\n \n dy = 0.25 'Y distance change\\n else \\n dx = 1.25 'X distance change\\n dy = 0.99 'Y distance change\\n end\\n \\n originX = 750 - (8.50 / 2)\\n originY = 750 + (11.00 / 2)\\n\\n if (symType = \\\"TEXT\\\") then\\n lineCount = 0\\n x = originX + 0.75\\n y = originY - 1.50\\n 'Set and add title.\\n tX = x + 3.0\\n tY = originY - 0.75\\n tPt = (tX@tY)\\n gtPt = GraphicText.Make(\\\"FONTS\\\", tPt)\\n gl.AddBatch(gtPt)\\n ft = (x@y)\\n pt = ft + (5@0) - (0@2)\\n t = GraphicText.Make(\\\"abcdef ABCDEF 1234567890 !\n@#$%^&*[]{}<>;:, .?\\\", pt)\\n for each f in xp..((fontlist.count) - 1) \\n ft = (x@y)\\n fam = GraphicText.Make(fontlist.Get(f), ft )\\n theLayout.GetGraphics.AddBatch(fam)\\n for each style in fontMgr.ReturnStyles(fontlist.Get(f))\\n ft = (x@y)\\n nextText = t.clone\\n nextText.SetOrigin(ft + (2@0))\\n nextText.GetSymbol.SetFont(Font.Make(fontlist.Get(f),style))\\n gl.AddBatch(nextText)\\n lineCount = LineCount + 1\\n y = y - dy\\n end\\n y = y \n - 0.10\\n xp = xp + 1\\n if (LineCount >= 28) then\\n MakeNewPage = true\\n break\\n end\\n end\\n else \\n x = originX + 0.75\\n y = originY - 1.3\\n tX = x + 3.0\\n tY = originY - 0.75\\n tPt = (tX@tY)\\n gtPt = GraphicText.Make(symType+\\\"s\\\", tPt)\\n gl.AddBatch(gtPt) \\n \\n 'Create rectangle \\n xMin = x\\n yMin = y \\n xMax = x + 0.75\\n yMax = y + 0.5\\n r = Rect.MakeXY(xMin, yMin, xMax, yMax)\\n gr = GraphicShape.Make(r)\\n \\n \\n if (symType = \\\"CO\nLOR\\\") then\\n for each ROW in 1..10\\n for each COLUMN in 0..5\\n nextRec = gr.Clone\\n nextRec.SetSymbol(av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_FILL).Get(1).Clone)\\n nextRec.GetSymbol.SetColor(thePaletteList.GET(symNum).Clone)\\n offsetPt = (x@y)\\n nextRec.setOrigin(offsetPt)\\n pt = offsetPt + (0.25@0) - (0@0.25)\\n t = GraphicText.Make(symNum.AsString, pt)\\n gl.UnselectAll\\n theLa yout.GetGraphics.AddBatch(nextRec)\\n \n theLayout.GetGraphics.AddBatch(t)\\n x = x + dx\\n symNum = symNum + 1\\n if (symNum = thePaletteList.Count) then exit end \\n end 'for each COLUMN\\n x = originX + 0.75\\n y = y - dy\\n end 'for each ROW \\n if (symNum < ((thePaletteList.Count) - 1) ) then\\n MakeNewPage = true\\n end \\n elseif (symType = \\\"FILL\\\") then\\n for each ROW in 1..10 \\n for eac h COLUMN in 0..5 \\n nextRec = gr.clone\\n \nnextRec.setSymbol(thePaletteList.Get(SymNum))\\n offsetPt = (x@y)\\n nextRec.setOrigin(offsetPt)\\n pt = offsetPt + (0.25@0) - (0@0.25)\\n t = GraphicText.Make(symNum.AsString, pt)\\n gl.UnselectAll\\n theLayout.GetGraphics.AddBatch(nextRec)\\n theLayout.GetGraphics.AddBatch(t)\\n x = x + dx\\n symNum = symNum + 1\\n if (symNum = thePaletteList.Count) then exit end \\n end 'for each COLUMN\\n x = originX + 0.7\n5\\n y = y - dy\\n end 'for each ROW\\n if (symNum < ((thePaletteList.Count) - 1) ) then\\n MakeNewPage = true\\n end \\n elseif (symType = \\\"PEN\\\") then\\n xLn1 = x\\n yLn1 = y \\n xLn2 = x + 0.25\\n yLn2 = y + 0.45 \\n xLn3 = x + 0.50\\n yLn3 = y + 0.05 \\n xLn4 = x + 0.75\\n yLn4 = y + 0.45\\n l = PolyLine.Make({{xLn1 @ yLn1, xLn2 @ yLn2}, {xLn2 @ yLn2, xLn3 @ yLn3},{xLn3 @ yLn3, xLn4 @ yLn4}})\\n gLine = GraphicShape.Make(l)\\n fo\nr each ROW in 1..10\\n for each COLUMN in 0..5\\n nextRec = gr.clone\\n nextLine = gLine.clone\\n nextLine.setSymbol(thePaletteList.Get(symNum))\\n nextRec.setSymbol(thePaletteList.Get(0))\\n offsetPt = (x@y)\\n nextRec.setOrigin(offsetPt)\\n nextLine.setOrigin(offsetPt)\\n pt = offsetPt + (0.25@0) - (0@0.25)\\n t = GraphicText.Make(symNu m.AsString, pt)\\n gl.UnselectAll\\n gl.AddBatch(nextRec)\\n gl.AddBatch(nextLine)\\n\n gl.AddBatch(t)\\n x = x + dx\\n symNum = symNum + 1\\n if (symNum = thePaletteList.Count) then exit end\\n end 'for each COLUMN\\n x = originX + 0.75\\n y = y - dy\\n end 'for each ROW\\n if (symNum < ((thePaletteList.Count) - 1) ) then\\n MakeNewPage = true\\n end \\n elseif (symType = \\\"MARKER\\\") then\\n l = (x@y) + (0.3@0.25)\\n gPoint = GraphicShape.Make(l)\\n for each ROW in 1..10 \\n for each COLUMN in 0..5 \\n \n nextRec = gr.clone\\n nextPoint = gPoint.clone\\n nextPoint.setSymbol(thePaletteList.Get(symNum))\\n nextPoint.GetSymbol.SetSize(30)\\n offsetPt = (x@y)\\n nextRec.setOrigin(offsetPt)\\n secondPt = (x@y) + (0.3@0.25)\\n nextPoint.setOrigin(secondPt)\\n pt = offsetPt + (0.25@0) - (0@0.25)\\n t = GraphicText.Mak e(symNum.AsString, pt)\\n gl.UnselectAll\\n gl.AddBatch(nextRec)\\n gl.AddBatch(nextPoint)\\n gl.Addbatch(t) \n \\n x = x + dx\\n symNum = symNum + 1\\n if (symNum = thePaletteList.Count) then exit end\\n end 'for each COLUMN\\n x = originX + 0.75\\n y = y - dy\\n end 'for each ROW \\n if (symNum < ((thePaletteList.Count) - 1) ) then\\n MakeNewPage = true\\n end \\n end 'PerSymType\\n end 'Per Page\\nend 'While\\ngl.UnSelectAll\\nav.GetProject.SetModified(true)\\ngl.EndBatch\\n\\n\"\n)\n\n(Script.317\n Name: \"Table.IndexUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntableClass = theTable.GetClass.GetClassName\\nf = theTable.GetActiveField\\nSELF.SetLabel(\\\"Create &Index\\\")\\nSELF.SetEnabled(f <> NIL)\\n\\nif (tableClass = \\\"DBTable\\\") then\\n SELF.SetEnabled(false)\\n return nil\\nend \\n\\nif (f <> NIL) then\\n if ((f.GetType = #FIELD_SHAPEPOINT) and (tableClass = \\\"TrkTable\\\")) then\\n SELF.SetEnabl ed(false)\\n return nil\\n end\\n \\n if (theTable.GetVTab.IsFieldIndexed(f)) then\\n SELF.SetLabel(\\\"Remove &Index\\\")\\n SELF.SetEnabled(theTable.GetVTab.CanModifyInd\nex(f))\\n end\\n \\nend\\n\\n\"\n)\n\n(Script.318\n Name: \"View.ConvertOverlapLabels\"\n SourceCode: \"v = av.GetActiveDoc\\noc = v.GetOverlapLabelColor\\nfor each t in v.GetActiveThemes\\n if (t.IsVisible) then\\n t.GetGraphics.ConvertOverlappingLabels(oc)\\n t.GetGraphics.Invalidate \\n end\\nend\\n\"\n)\n\n(Script.319\n Name: \"View.ClearGraphicsUp date\"\n SourceCode: \"v = av.GetActiveDoc\\nSelf.SetEnabled(false)\\nfor each t in v.GetActiveThemes\\n if (t.GetGraphics.Count > 0) then\\n Self.SetEnabled(true)\\n end\\nend\"\n)\n\n(Script.320\n Name: \"View.GraphicToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEnabled(TRUE) \\nelse\\n SELF.SetEnabled(FALSE)\\nend\\n \\n\"\n)\n\n(Script.321\n Name: \"Script.KillLine\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.KillLine\"\n)\n\n(Script.322\n Name : \"View.Export\"\n SourceCode: \"'View.Export\\ntheView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n p = FALSE\\n\\n if (t.Is( FTHEME ).Not) then \\n if (t.CanExportToFtab.Not) then continue end\\n \\n def = av.GetProject.MakeFileName(\\\"theme\\\", \\\"shp\\\")\\n def = FileDialog.Put(def, \\\"*.shp\\\", \\\"Convert \\\" + t.getName)\\n if (def = NIL) then return NIL end\\n anFTab = t.ExportToFtab(def)\\n \\n ' For Database themes, which can return a nil FTab sometimes \\n if (anFTab=nil) then\\n MsgBox.Warning(\\\"Error occurred while converting \nto shapefile.\\\"+NL+\\n \\\"Shapefile was not created.\\\", \\\"Convert \\\" + t.getName)\\n continue\\n end \\n\\n shpfld = anFTab.FindField(\\\"Shape\\\")\\n \\n else\\n \\n tbl = t.GetFTab\\n attribVis = FALSE\\n for each f in tbl.GetFields\\n if ((f.IsVisible) and not (f.IsTypeShape)) then\\n attribVis = TRUE\\n break\\n end\\n end\\n shapeVis = tbl.FindField(\\\"Shape\\\").IsVisible\\n if ((attribVis and shapeVis).No t) then\\n continue\\n end\\n \\n def = av.GetProject.MakeFileName(\\\"theme\\\", \n\\\"shp\\\")\\n def = FileDialog.Put(def, \\\"*.shp\\\", \\\"Convert \\\" + t.getName)\\n \\n if (def = NIL) then return nil end\\n \\n shpfld = (tbl.FindField(\\\"Shape\\\"))\\n if (shpfld.IsVisible.Not) then\\n shpfld.SetVisible(shpfld.IsVisible.Not)\\n WasNotVisible = TRUE\\n else\\n WasNotVisible = FALSE\\n end\\n \\n ' see if the view is projected\\n thePrj = theView.GetProjection\\n if (thePrj. IsNull.Not) then\\n p = MsgBox.YesNoCancel(\\\"ArcView has detected that your view is projected.\\\"++\\n \\\"Do \nyou want the new shapefile to be saved in the projected units?\\\",\\n \\\"Convert\\\", FALSE)\\n if (p = Nil) then return nil end\\n end\\n \\n ' if the user wants to project the shape, use ExportProjected\\n if (p) then\\n anFTab = tbl.ExportProjected(def, thePrj, tbl.GetSelection.Count > 0)\\n else\\n anFTab = tbl.Export(def, Shape, tbl.GetSelection.Count > 0)\\n e nd\\n \\n if (anFTab.HasError) then\\n if (anFTab.HasLockError) then\\n MsgBox.Error(\\\"Unable to acquire Write Lock for fi\nle \\\" +\\n def.GetBaseName,\\\"\\\")\\n else\\n MsgBox.Error(\\\"Unable to create \\\" + def.GetBaseName,\\\"\\\")\\n end\\n return nil\\n end\\n \\n if (WasNotVisible) then\\n shpfld.SetVisible(FALSE)\\n end\\n \\n end\\n\\n ' build the spatial index\\n anFTab.CreateIndex(shpfld)\\n \\n ' don't add the projected shapefile to the view -\\n ' it wo n't show up if you do!\\n if (p.Not) then\\n if (MsgBox.YesNo(\\\"Add shapefile as theme to the view?\\\",\\n \\\"Convert to Shapefile\\\",true).Not) then continue end\\n \\n\n ' create a theme and add it to the View\\n fthm = FTheme.Make(anFTab)\\n theView.AddTheme(fthm)\\n else\\n MsgBox.Info(\\\"Since your view is projected, the projected data\\\" ++\\n \\\"will not be added to the view. It has been saved on disk.\\\", \\\"Convert\\\")\\n end\\n \\n ' bring the View to the front\\n theView.GetWin.Activate\\n end\\n\"\n)\n\n(Script.323\n Name: \"Script.Find\"\n SourceCode: \"theScript = av.GetActiveDoc\\n\\nfindString = theScript.GetSelected\\nif (findString = \\\"\\\") then\\n findString = msgbox.input( \\\"Enter find string\\\", \\\"Find\\\", \\\"\\\")\\n if (findString = nil) then\\n return nil\\n end\\nend\\n\\nfound = theScript.Search(findString)\\nif (found.not) then\\n if (msgbox.miniyesno( \\\"Start search at beginning of script?\\\", TRUE)) then\\n oldPosition = theScript.ReturnInsertPos\\n theScript.SetInsertPos(0)\\n found = theS cript.Search(findString) \\n if (found.not) then\\n msgbox.info( \\\"Could not fi\nnd\\\"++findString, \\\"Find\\\")\\n theScript.SetInsertPos( oldPosition )\\n end\\n end\\nend\\n\\n' scroll to located item\\nif (found) then\\n theScript.SetInsertPos( theScript.ReturnInsertPos - findString.Count )\\n theScript.Search(findString)\\nend\"\n)\n\n(Script.324\n Name: \"Project.ImportUpdate\"\n SourceCode: \"if (av.GetProject.GetGUIs.count <= 2) then\\n SELF.setEnabled(false)\\nelse\\n SELF.SetEnabled(true)\\nend\\n\\n\\n\"\n)\n\n (Script.325\n Name: \"Script.FileLoad\"\n SourceCode: \"theSEd = av.GetActiveDoc\\n\\nfile_names = FileDialog.ReturnFiles({\\\"*.ave\\\", \\\"*\\\"}, {\\\"Avenue Script\\\", \\\"Text file\\\"}, \\\"Load Script\\\", 0)\\nif (file_names.count < 1) then \\n return nil \\nend\\n\\nfor each x in file_names\\n f = TextFile.Make(x, #FILE_PERM_READ)\\n if (f = nil) then\\n msgbox.error( \\\"Cannot read file:\\\"++x.GetFullName, \\\"\\\")\\n continue\\n end\\n theSEd.SetCodepage(f.GetCodepage)\\n theSEd.Insert(f.Read(f.GetSize))\\n f.Close\\nend\"\n)\n\n( Script.326\n Name: \"Table.ActionUpdate\"\n SourceCode: \"if (av.GetProject.GetGUIs.count <= 2) then\\n SELF.setEnabled(false)\\nelse\\n SELF.SetEnabled(true)\\n SELF.SetLabel(\\\"&Add\\\")\\n SELF.SetHelpTopic(\\\"Add_button\\\")\\nend\\n\\n\"\n)\n\n(Script.327\n Name: \"Doc.Action\"\n SourceCode: \"if (0 <= Printer.The.Edit({av.GetProject.GetSelectedGUI.GetTitle})) then\\n av.UseWaitCursor\\n System.RefreshWindows\\n for each d in av.GetProject.GetSelectedDocs\\n av.ShowMsg(\\\"Printing \\\"+d.GetName+\\\"...\\\")\\n d.Print\\n end\\ne nd\\n\"\n)\n\n(Script.328\n Name: \"View.SnapToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetEditableTheme\\nsnapping = FALSE\\nif (active <> nil) then\\n snapping = active.IsSnapping\\nend\\nif (snapping) then\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetVisible(FALSE)\\n SELF.SetEnabled(FALSE)\\nend\\n\"\n)\n\n(Script.329\n Name: \"Chart.PieGallery\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.ShowGallery(#CHARTDISPLAY_PIE)\\n\"\n)\n\n(Script.330\n Name: \"DNR.Properties.Cancel\"\n SourceCode: \"' Name: DNR.Properties.Cancel\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 13:37:34 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script cancels input and closes the dialog\\n' Requires: \\n' Runs: \\n ' Run by: \\n' Self: \\n' Returns:\n \\n' -------------------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\ntheDialog = self.getDialog\\ntheDialog.Close\\n\\n\"\n)\n\n(Script.331\n Name: \"Layout.Poly\"\n SourceCode: \"theLayout = av.GetActiveDoc\\np = theLayout.ReturnUserPolygon\\nif (p.IsNull.not) then\\n gp = GraphicShape.Make(p)\\n theLayout.GetGraphics.UnselectAll\\n gp.SetSelected(TRUE)\\n theLayout.GetGraphics.Add(gp)\\nav.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.332\n Name: \"View.EditLegendClick\"\n SourceCode: \"theView = av.getActiveDoc\\nfor each t in theView.getActiveThemes\\n s = t.getLegendEditorScript\\n if (s.isnull.not) then\\n av.run(s,t)\\n end\\nend\"\n)\n\n(Script.333\n Name: \"Graphic.SizePos\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.EditSizeAndPos\"\n)\n\n(Script.334\n Name: \"Script.ShiftLeft\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.ShiftLeft\"\n)\n\n(Script.335\n Name: \"View.ScaleSelectedText\"\n SourceCode: \"theview = av.getactivedoc\\n\\nCPC = av.FindDialo g(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ltool4\\\")\\npts = thePrefs.Get(2)\\ntscale = CPC.FindByName(\\\"Reference Scale txl\\\").GetText.AsNumber\\nscript.the.setnumberformat(\\\"dd\\\")\\n\\n'get the scale of the current View display\\n'\\nscale = theview.returnscale\\n\\n' now calculate the size of the symbol (in points) based on the following\\n' equation\\n'\\nssize = pts / (scale / tscale)\\n\\ngrlist = theview.getgraphics.getselec\nted\\n\\nfor each gr in grlist\\n if (gr.is(GraphicText)) then\\n gr.getsymbol.UnHook\\n gr.returnsymbols.get(0).setsize(ssize)\\n theView.getdisplay.hookupsymbol(gr.getsymbol)\\n end\\nend\\ntheView.Invalidate\\n\\n\\n\"\n)\n\n(Script.336\n Name: \"View.Query\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetActiveThemes.Get(0)\\nif (theTheme.HasAttributes) then\\n theTheme.BuildQuery\\nend\\n\"\n)\n\n(Script.337\n Name: \"View.HasGraphicsUpdate\"\n SourceCode: \"theDoc = av.GetActiveDoc\\nSELF.SetEnabled((theDoc.GetGraphics.Coun t > 0) and (theDoc.GetEditableTheme = nil))\"\n)\n\n(Script.338\n Name: \"Layout.SelectTool\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.SetSelectMode(#GRAPHICS_SELECT_NORMAL)\"\n)\n\n(Script.339\n Name: \"Layout.FrameScalebar\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n sf = ScalebarFrame.Make(r)\\n sf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n sf.SetSelected(TRUE)\\n if (sf.Edit(theLayout.GetGraphics)) then\\n theLayout.Ge tGraphics.AddName(sf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.340\n Name: \"Table.UnselectAll\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.GetSelection.ClearAll\\ntheTable.GetVTab.UpdateSelection\\n\"\n)\n\n(Script.341\n Name: \"Script.UnembedUpdate\"\n SourceCode: \"self.SetEnabled(av.GetProject.GetScripts.Count > 0)\\n\"\n)\n\n(Script.342\n Name: \"Project.Tile\"\n SourceCode: \"av.TileWindows\"\n)\n\n(Script.343\n Name: \"View.PolylineToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEnabled(True) \\nelse\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n SELF.SetEnabled(theType = #FIELD_SHAPELINE)\\nend\"\n)\n\n(Script.344\n Name: \"Table.SwitchSelection\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.GetSelection.Not\\ntheTable.GetVTab.UpdateSelection\\n\"\n)\n\n(Script.345\n Name: \"View.MergeGraphics\"\n SourceCode: \"' View.MergeGraphics\\ntheView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theThe me <> nil) then\\n theTheme.MergeSelected\\n theTheme.Invalidate( true )\\nend\\n\\n\"\n)\n\n(Script.346\n Name: \"Table.ExportUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled(FALSE)\\nfor each f in theTable.GetVTab.GetFields\\n if ((f.IsVisible) and not (f.IsTypeShape)) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\n\"\n)\n\n(Script.347\n Name: \"Project.Properties\"\n SourceCode: \"theProject = av.GetActiveDoc\\ntheProject.Edit\"\n)\n\n(Script.348\n Name: \"View.LocateUpdate\"\n SourceCode: \"theView = av.GetActiveDoc \\nfor each t in theView.GetActiveThemes\\n if ((t.Is( FTheme )) and (t.GetMatchSource <> NIL)) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\"\n)\n\n(Script.349\n Name: \"View.UndoZoomUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled(theView.GetDisplay.CanUndoZoom)\"\n)\n\n(Script.350\n Name: \"View.ThemesOff\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetThemes\\n if (t.IsVisible) then\\n t.SetVisible(FALSE)\\n end\\nend\"\n)\n\n(S cript.351\n Name: \"Table.ReportInfo\"\n SourceCode: \"' Name: Table.ReportInfo\\n'\\n' Title: Reports on a table's structure\\n'\\n' Topics: Tables\\n'\\n' Description: Working off a table document this script reports \\n' on the structure of the table\\n'\\n' Requires: The active document must be a table.\\n'\\n' Self: \\n'\\n' Returns: \\n\\n\\natbl=av.getactivedoc\\nif(atbl.is(table).not) then\\n msgbox.error(\\\"A table document must be active.\\\",\\\"Error\\\")\\n exit\\nend\\nf1 = linefile.make(\\\"$TEMP/ttttt\\\".asfilename,#FIL E_PERM_WRITE)\\n\\ntheVTab1 = atbl.getvtab\\ntheBitMap1 = theVTab1.GetSelection\\nfLi\nst = theVTab1.GetFields\\nf1.WriteElt(\\\"Alias \\\"+\\\"Type \\\"+\\\"Width \\\"+\\\"Decimal\\\")\\nf1.WriteElt(\\\"-------------------------------------------------------\\\")\\n\\nfor each subitem in flist\\n aname=subitem.getalias\\n buffer = 15 - aname.count\\n for each i in 1..buffer\\n aname = aname+\\\" \\\"\\n end\\n ItType = subitem.gettype.asstring\\n buffer = 15 - ItType.count\\n for each i in 1..buffer\\n itType = ItTy pe + \\\" \\\"\\n end\\n itwidth=subitem.getwidth.asstring\\n buffer = 7 - ItWidth.count\\n for each i in 1..buffer\\n \n itwidth = itwidth + \\\" \\\"\\n end\\n itPrecision=subitem.getPrecision.asstring\\n f1.writeElt(aname+ItType+ItWidth+ItPrecision) \\nend\\n\\nf1.close\\nthewin = textwin.make(\\\"$TEMP/ttttt\\\".asfilename,\\\"Field Properties\\\")\\nthewin.SetFixedFont(true)\\nthewin.open\\nfile.Delete(f1.getFileName)\\n\"\n)\n\n(Script.352\n Name: \"Layout.ZoomOut\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheLayout = av.G etActiveDoc\\ntheLayout.GetDisplay.ZoomOut(125)\"\n)\n\n(Script.353\n Name: \"View.ToggleEditingUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetActiveThemes\\n\\nSELF.SetEnabled(FALSE)\\nif (active.Count = 0) then\\n SELF.SetLabel(\\\"Start &Editing\\\")\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\nactive = active.Get(0)\\nif (active.CanEdit.Not) then\\n SELF.SetLabel(\\\"Start &Editing\\\")\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\n\\nclsName = active.GetFTab.GetShapeClass.GetClassName\\nif ((clsName = \\\"Point\\\") or (clsName = \\\"PolyLine\\\") or (clsName = \\\"Polygon\\\") or (clsName = \\\"GeoEvent\\\")) then\\n SELF.SetLabel(\\\"Start &Editing\\\")\\n SE\nLF.SetEnabled(TRUE)\\nend\\n\\nif (active = theView.GetEditableTheme) then\\n SELF.SetLabel(\\\"Stop &Editing\\\")\\nelse\\n SELF.SetLabel(\\\"Start &Editing\\\")\\nend\\n\\n\\n\\n\"\n)\n\n(Script.354\n Name: \"DNR.About\"\n SourceCode: \"'Dnr.About\\nmsgbox.info(\\\"DNR Default Project for ArcView 3.1\\\",Script.The.GetName)\\n\"\n)\n\n(Script.355\n Name: \"Script.SetBreak\"\n SourceCode: \"theScript = a v.GetActiveDoc\\ntheScript.AddBreak(theScript.ReturnInsertPos)\\n\"\n)\n\n(Script.356\n Name: \"View.IntersectGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theTheme.GetFTab.BeginTransaction\\n theTheme.IntersectSelected\\n theTheme.GetFTab.EndTransaction\\n theTheme.Invalidate(TRUE)\\nelse\\n theGraphics = theView.GetGraphics\\n selGraphics = theGraphics.GetSelected\\n numSel = selGraphics.Count\\n x = numSel - 1\\n gra1 = selGraphics.Get(0)\\n shpIntersectAll = gra1.GetShape\\n theSym = gra1.GetSymbol\\n theGraphics.RemoveGraphic(gra1)\\n for each i in 1..x\\n gra = selGraphics.Get(\ni)\\n shp = gra.GetShape\\n shpIntersect = shp.ReturnIntersection(shpIntersectAll)\\n shpIntersectAll = shpIntersect\\n theGraphics.RemoveGraphic(gra)\\n end \\n if (shpIntersectAll.IsEmpty.Not) then\\n graIntersectAll = graphicShape.Make(shpIntersectAll)\\n graIntersectAll.SetSymbol(theSym)\\n theGraphics.Add(graIntersectAll)\\n end\\nend\\n\"\n)\n\n(Scri pt.357\n Name: \"Layout.SelectToEditTool\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.SetSelectMode(#GRAPHICS_SELECT_VERTEX)\"\n)\n\n(Script.358\n Name: \"View.PointToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = NIL) then\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetEnabled(theTheme.GetFTab.GetShapeClass.GetClassName = \\\"Point\\\")\\nend\"\n)\n\n(Script.359\n Name: \"View.SelectToEditUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEdit ableTheme\\n\\nif (theTheme <> nil) then\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n theType = theField.GetType\\n if (theType <> #FIELD_SHAPEPOINT) then\\n SELF.SetEnabled(true)\\n return nil\\n end\\nend\\n \\ntheGraphics = theView.GetGraphics\\nif (theGraphics.Count > 0) then\\n SELF.SetEnabled(true)\\n return nil\\nend\\n \\nSELF.SetEnabled(false)\"\n)\n\n(Script.360\n Name: \"Script.Uncomment\"\n SourceCode: \"' Uncomment selected lines\\n\\ntheSEd = av.GetActiveDoc\\n\\n' UnComment sel ected lines\\nselected = NL+theSEd.GetSelected\\nuncommented = selected.Substitute( NL+\\\"'\\\", NL )\\n\\n' Add revised text back into script\\nnew = theSEd.Insert(uncommented.Right( uncommented.count - 1)) 'UNDO works!\\n\"\n)\n\n(Script.361\n Name: \"View.Paste\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\ntheView.Paste\\nif (theTheme = nil) then\\n theView.GetGraphics.Paste\\nelse\\n theTheme.GetFtab.BeginTransaction\\n theTheme.Paste\\n theTheme.GetFTab. EndTransaction\\nend\"\n)\n\n(Script.362\n Name: \"Layout.Line\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nl = theLayout.ReturnUserLine\\nif (l.IsNull.not) then\\n gl = GraphicShape.Make(l)\\n theLayout.GetGraphics.UnselectAll\\n gl.SetSelected(TRUE)\\n theLayout.GetGraphics.Add(gl)\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.363\n Name: \"Project.SQLConnect\"\n SourceCode: \"SQLWin.The.Open\\n\"\n)\n\n(Script.364\n Name: \"Chart.ToggleYAxis\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.GetYAxis.SetVisible(theCha rt.GetYAxis.IsVisible.Not)\\n\"\n)\n\n(Script.365\n Name: \"View.ActiveThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nSELF.SetEnabled(0 < theView.GetActiveThemes.Count) \\n \"\n)\n\n(Script.366\n Name: \"Layout.Export\"\n SourceCode: \"theLayout = av.GetActiveDoc\\ntheLayout.Export\\n\"\n)\n\n(Script.367\n Name: \"View.ToggleInteractiveSnapUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetEditableTheme\\nif (active <> nil) then\\n if (active.IsInteractiveSnapping) then\\n SELF.SetLabel(\\\"Disable Interact ive Snapping\\\")\\n SELF.SetHelp(\\\"Turns interactive snapping off\\\")\\n else\\n SELF.SetLabel(\\\"Enable Interactive Snapping\\\")\\n SELF.SetHelp(\\\"Turns interactive snapping on\\\")\\n end\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetVisible(FALSE)\\n SELF.SetEnabled(FALSE)\\nend \"\n)\n\n(Script.368\n Name: \"View.ActiveDeletableThemesUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n if (t.CanDeleteFromView) then\\n SELF.SetEnabled(true)\\n return nil\\n end\\nend\\n\\nSELF.SetEnabled(false) \\n\\n\"\n)\n\n(Script.369\n Name: \"Layout.FrameView\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n vf = ViewFrame.Make(r)\\n vf.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n vf.SetSelected(TRUE)\\n if (vf.Edit(theLayout.GetGraphics)) then\\n theLayout.GetGraphics.AddName(vf)\\n av.GetProject.SetModified(true)\\n end\\nend\"\n)\n\n(Script.370\n Name: \"ShapeWin.PopUp Update\"\n SourceCode: \" theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\ngCount = theView.GetGraphics.GetSelected.Count\\ngcount.setformat(\\\"d\\\")\\nif (gcount=1) then\\n thegraphic=theView.GetGraphics.GetSelected.get(0)\\n if (thegraphic.is(GraphicGroup)) then\\n gcount=2\\n end\\nelseif (theTheme<>NIL) then\\n gCount = theTheme.GetFTab.GetSelection.Count\\nelseif (theView.getactivethemes.count = 1) then\\n if (theView.getactivethemes.get(0).is(Ftheme)) then\\n gCount = theView.getactivethemes.get(0).GetFTab .GetSelection.C\nount\\n end\\nend \\n\\n\\ntheExt = Extension.GetExtensions.Get(\\\"Shape Properties Dialog, ver.1.0\\\")\\n\\nif ((gCount = 1) and (theExt <> nil)) then\\n SELF.SetEnabled(true)\\nelse\\n SELF.SetEnabled(false)\\nend\\n\\n\\n\\n\\n\"\n)\n\n(Script.371\n Name: \"View.ToggleTolCursor\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n if (theTheme.GetToleranceCursor) then\\n theTheme.ShowToleranceCursor(False)\\n else\\n theTheme.ShowToleranceCursor(Tr ue)\\n end\\nend\\n\\n\"\n)\n\n(Script.372\n Name: \"View.ConvertOverlapLabelsUpdate\"\n SourceCode: \"self.SetEnabled(false)\\nv = av.GetActiveDoc\\nif (v.GetEditableTheme <> nil) then\\n return nil\\nend\\noc = v.GetOverlapLabelColor\\nfor each t in v.GetActiveThemes\\n if (t.IsVisible) then\\n if (t.GetGraphics.CanConvertOverlappingLabels(oc)) then\\n self.SetEnabled(true)\\n end\\n end\\n end\\n\"\n)\n\n(Script.373\n Name: \"Project.Close\"\n SourceCode: \"theProject = av.GetProject\\n\\nif (nil <> theProject) then\\n if (theProject.IsModified) then\\n if (av.Run(\\\"Project.CheckForEdits\\\",nil).Not) then\\n return nil\\n end \\n res = MsgBox.SaveChanges(\\\"Do you want to save changes to \\\" + theProject.GetName + \\\"?\\\", \\\"ArcView\\\", true)\\n if (nil = res) then return nil end\\n if (res) then\\n av.Run(\\\"Project.Save\\\", nil)\\n if (theProject.IsModified) then return nil end\\n end\\n end\\n theProject.Close\\n theProject = nil\\nend\\n\"\n)\n\n(Script.374\n Name: \"Chart.ToggleUpdateMenu\"\n SourceCode: \"th eChart = av.GetActiveDoc\\nif (theChart.IsSeriesFromRecords) then\\n SELF.SetLabel(\\\"&Series From Fields\\\")\\nelse\\n SELF.SetLabel(\\\"&Series From Records\\\")\\nend\\nSELF.SetEnabled((theChart.IsChartScatter.Not)) \\n\"\n)\n\n(Script.375\n Name: \"View.SaveEdits\"\n SourceCode: \"theView = av.GetActiveDoc\\neditThm = theView.GetEditableTheme\\nif (editThm <> nil) then\\n doSave = MsgBox.YesNoCancel(\\\"Save edits to \\\"+editThm.GetName+\\n \\\"?\\\",\\\"Save Edits\\\",true)\\n if (doSave = nil) then\\n return nil\\n end\\n if (doSav e.not) then\\n ' user changed her mind\\n return nil\\n else\\n ' save edits and stop editing\\n if (editThm.StopEditing(TRUE).Not) then\\n ' save failed, remain editing\\n MsgBox.Info(\\\"Unable to Save Edits, please use the Save Edits As option\\\", \\\"\\\")\\n return nil\\n en\nd \\n ' restart editing\\n theView.SetEditableTheme(editThm)\\n end\\nend \\n\\n\\n\"\n)\n\n(Script.376\n Name: \"View.SpatialSelect\"\n SourceCode: \"theView = av.GetActiveDoc\\nif (System.IsShiftKeyDown) then\\n op = #VTAB_ SELTYPE_OR\\nelse\\n op = #VTAB_SELTYPE_NEW\\nend\\ntheGraphics = theView.GetGraphics.GetSelected\\nl = {}\\nfor each g in theGraphics\\n l.Add(g.GetShape)\\nend\\nfor each t in theView.GetActiveThemes\\n if (t.CanSelect) then\\n t.SelectByShapes(l,op)\\n end\\nend\\n\"\n)\n\n(Script.377\n Name: \"DNR.ReadSets\"\n SourceCode: \"' Name: DNR.ReadSets\\n' Purpose: This script reads the AVCORE.INI file that contains a number of environment\\n' variables that are used by a variety of ArcView extensions for the DNR. This file\\n' also contains a variety of variables for librarian data access among others.\\n'\\n' Written: 4/8/98 - Tim Loesch\\n'\\n\\n\\n' first check to see if the DNRCORE variable is set\\n'\\n\\ndefaultvals = { \\\"100000\\\", \\\"24\\\", \\\"OFF\\\", \\\"300\\\", \\\"ON\\\", \\\"METERS\\\", \\\"Feet\\\"}\\ndefaultvars = {\\\"TXTSCALE\\\",\\\"TXTPNTS\\\",\\\"AUT\nOSAVE\\\",\\\"AUTOSAVEINT\\\",\\\"DNRMSG\\\",\\\"MAPUNITS\\\",\\\"DISUNITS\\\"}\\ndefaultvarsdesc = {\\\"Scale Text to Map Scale\\\",\\\"Scaled Text Size (points)\\\",\\\"Project Autosave (ON or OFF)\\\",\\\"Project Autosave Interval (seconds)\\\",\\\"Show DNR Messages (ON or OFF)\\\",\\\"View Map Units Property\\\",\\\"View Distance Units Property\\\"}\\ninifile = av.run(\\\"DNR.ReturnIniFile\\\",nil)\\n\\n\\nif (file.exists(inifile).not) then\\n f1 = linefile.make(inifile,#FILE_PERM_WRITE)\\n for each i in 1..defaultvals.count\\n f1.WriteELT(defaultvars.get(i - 1)+\\\"=\\\"+defaultvals.get(i - 1\n)+\\\"=\\\"+defaultvarsdesc.get(i - 1)) \\n end\\n f1.close\\nend\\n\\nsetdict = dictionary.make(20)\\nf1 = linefile.make(inifile,#file_ perm_read)\\nnumlines = f1.getsize\\nfor each i in 1..numlines\\n thestring = f1.readELT\\n thestring.trim\\n if ( (thestring.left(1) <> \\\"'\\\") and (thestring.count > 0) ) then\\n strlist = thestring.astokens(\\\"=\\\")\\n if (strlist.count = 2) then\\n setdict.add(strlist.get(0),{strlist.get(0),strlist.get(1)})\\n elseif (strlist.count = 3) then\\n setdict.add(strlist.get(2),{strlist.get(0),st\nrlist.get(1)})\\n end\\n end\\nend\\nf1.close\\n\\n\\nfor each one in defaultvars\\n if (setdict.get(one) = n il) then\\n setdict.add(defaultvarsdesc.get(defaultvars.findbyvalue(one)),\\n {one,defaultvals.get(defaultvars.findbyvalue(one))})\\n end\\nend\\n\\nreturn setdict\\n\"\n)\n\n(Script.378\n Name: \"TocDefs.ShowUpdate\"\n SourceCode: \"theExt = Extension.GetExtensions.Get(\\\"Table of Contents Defaults Dialog\\\")\\nSELF.SetEnabled(theExt <> nil)\"\n)\n\n(Script.379\n Name: \"Layout.Rect\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n gr = GraphicShape.Make(r)\\n th eLayout.GetGraphics.UnselectAll\\n gr.SetSelected(TRUE)\\n theLayout.GetGraphics.Add(gr)\\nav.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.380\n Name: \"View.DeleteLastPoint\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheView.GetDisplay.DeleteUserPoint\\n\"\n)\n\n(Script.381\n Name: \"View.TextToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nif (Extension.GetExtensions.Get(\\\"Label & Text Tools\\\") = NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend \\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) th en\\n SELF.SetEnabled(TRUE) \\nelse\\n SELF.SetEnabled(FALSE)\\nend\\n \\n\"\n)\n\n(Script.382\n Name: \"Script.Copy\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.CopySelected\"\n)\n\n(Script.383\n Name: \"Layout.HasGraphicsUpdate\"\n SourceCode: \"theDoc = av.GetActiveDoc\\nSELF.SetEnabled(theDoc.GetGraphics.Count > 0)\"\n)\n\n(Script.384\n Name: \"View.CalloutUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nif (Extension.GetExtensions.Get(\\\"Label & Text Tools\\\") = NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend \\ni f (theView.GetEditableTheme <> NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\nfor each t in theView.GetActiveThemes\\n if (t.IsVisible and (t.CanLabel) and (t.GetLabelField <> NIL)) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\\n\\n\\n\"\n)\n\n(Script.385\n Name: \"Script.Compile\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.Compile\"\n)\n\n(Script.386\n Name: \"View.DeleteUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) then\\n SELF.SetLabel(\\\"&Delete Graphics\\\")\\n SELF.SetHelp(\\\"Removes the selected graphics from the view\\\")\\n gCount = theView.GetGraphics.GetSelected.Count\\nelse\\n SELF.SetLabel(\\\"&Delete Features\\\")\\n SELF.SetHelp(\\\"Removes the selected features from the view\\\")\\n gCount = theTheme.GetFTab.GetSelection.Count\\nend\\n\\nSELF.SetEnabled(gCount > 0)\\n\\n\"\n)\n\n(Script.387\n Name: \"View.ToggleTolCursorUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nactive = theView.GetEditableTheme\\nif (active <> nil) the n\\n if (active.GetToleranceCursor) then\\n SELF.SetLabel(\\\"Hide Snap Tolerance Cursor\\\")\\n SELF.SetHelp(\\\"Turns snap tolerance cursor off\\\")\\n else\\n SELF.SetLabel(\\\"Show Snap Tolerance Cursor\\\")\\n SELF.SetHelp(\\\"Turns snap tolerance cursor on\\\")\\n end\\n SELF.SetVisible(TRUE)\\n SELF.SetEnabled(TRUE)\\nelse\\n SELF.SetVisible(FALSE)\\n SELF.SetEnabled(FALSE)\\nend \\n\\n\"\n)\n\n(Script.388\n Name: \"View.InteractiveSnapUpdate\"\n SourceCode: \"SELF.SetVisible(FALSE)\\nSELF.SetEnabled(FALSE)\\ntheVie w = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n if (theTheme.IsInteractiveSnapping) then\\n theTool = av.GetActiveGUI.GetToolBar.GetActive\\n if ((theTool.GetApply.AsString = \\\"View.PolyLineTool\\\") or \\n (theTool.GetApply.AsString = \\\"View.PolyTool\\\") or\\n (theTool.GetApply.AsString = \\\"View.AutoCompleteTool\\\") or\\n (theTool.GetApply.AsString = \\\"View.SplitTool\\\")) then\\n SELF.SetVisible(theTheme.IsInter\nactiveSnapping)\\n SELF.SetEn abled(theTheme.IsInteractiveSnapping)\\n end\\n end\\nend\\n\\n\\n\"\n)\n\n(Script.389\n Name: \"Frame.Refresh\"\n SourceCode: \"'Refreshes the viewframe(s)\\n\\nthelayout = av.getactivedoc\\n\\ntheglist = thelayout.getgraphics.findallbyclass(viewframe)\\n\\n for each x in theglist\\n x.setdisplay(thelayout.getdisplay)\\n x.invalidate\\n\\n end\\n\\n\\n\"\n)\n\n(Script.390\n Name: \"View.SaveEditsUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\neditThm = theView.GetEditableTheme\\nSELF.SetEnabled(FALSE)\\nif (editThm <> nil) then\\n SELF. SetEnabled(TRUE)\\nend\\n\\n\"\n)\n\n(Script.391\n Name: \"View.ShowTable\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetActiveThemes\\n if (t.HasTable) then\\n t.EditTable\\n end\\nend\"\n)\n\n(Script.392\n Name: \"Project.PrintSetup\"\n SourceCode: \"Printer.The.Setup\"\n)\n\n(Script.393\n Name: \"Project.HasSQL\"\n SourceCode: \"SELF.SetEnabled(SQLCon.HasSQL)\\n\"\n)\n\n(Script.394\n Name: \"Script.SelectAll\"\n SourceCode: \"theSEd = av.GetActiveDoc\\ntheSEd.SelectAll\"\n)\n\n(Script.395\n Name: \"Table.SortDescending\"\n Sourc eCode: \"theTable = av.GetActiveDoc\\ntheTable.Sort(theTable.GetActiveField, True)\\n\"\n)\n\n(Script.396\n Name: \"Graphic.Ungroup\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.UngroupSelected\"\n)\n\n(Script.397\n Name: \"View.SelectPoint\"\n SourceCode: \"theView = av.GetActiveDoc\\nr = theView.ReturnUserRect\\ntheThemes = theView.GetActiveThemes\\nif (r.IsNull) then \\n p = theView.GetDisplay.ReturnUserPoint\\n if (System.IsShiftKeyDown) then\\n op = #VTAB_SELTYPE_XOR\\n else\\n op = #VTAB_SELTYPE_NEW\\n e nd\\n for each t in theThemes\\n if (t.CanSelect) then\\n t.SelectByPoint(p, op)\\n end\\n end\\nelse\\n if (System.IsShiftKeyDown) then\\n op = #VTAB_SELTYPE_OR\\n else\\n op = #VTAB_SELTYPE_NEW\\n end\\n for each t in theThemes\\n if (t.CanSelect) then\\n t.S\nelectByRect(r, op)\\n end\\n end\\nend\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.398\n Name: \"Document.Duplicate\"\n SourceCode: \"theDoc = Av.GetActiveDoc\\n\\ndoctype = theDoc.GetClass.GetClassName\\nif (thedoc.Is(Project))then\\n msg box.info(\\\"Cannot Duplicate a\\\"++doctype++\\\", Only ArcView Documents\\\",\\\"Duplicate Document\\\")\\n return nil\\nend\\n\\nnewdoc = theDoc.Clone\\nnewdocname = msgbox.input(\\\"Enter new\\\"++doctype++\\\"name\\\",\\\"Duplicate Document\\\",\\\"\\\")\\nif (newdocname = nil) then return nil end\\nnewdoc.setname(newdocname)\\nav.getproject.adddoc(newdoc)\\nnewdoc.getwin.open\\nnewdoc.getwin.move(25,25)\\n\\n\"\n)\n\n(Script.399\n Name: \"View.ZoomToSelected\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\nr = Rect.Make Empty\\nfor each t in theView.GetActiveThemes\\n if (t.CanSelect) then\\n r = r.UnionWith(t.GetSelectedExtent)\\n end\\nend\\nif (r.IsEmpty) then\\n return nil\\nelseif ( r.ReturnSize = (0@0) ) then\\n theView.GetDisplay.PanTo(r.ReturnOrigin)\\nelse\\n theView.GetDisplay.SetExtent(r.Scale(1.1))\\nend\\n\"\n)\n\n(Script.400\n Name: \"Graphic.UngroupUpdate\"\n SourceCode: \"theDoc = av.GetActiveDoc\\nenabled = false\\nl = theDoc.GetGraphics.FindAllByClass(GGroup)\\nif (l <> nil) then\\n for each g in l \\n if (g.IsSelected) then\\n enabled = true\\n break\\n end\\n end\\nend\\nSELF.SetEnabled(enabled) \\n\"\n)\n\n(Script.401\n Name: \"Project.Open\"\n SourceCode: \"' Name: Project.Open\\n'\\n' Headline: Make a backup copy of the current project\\n'\\n' Self: \\n'\\n' Returns:\\n'\\n' Description: This script is a modification of the original project.open command\\n' that creates a backup copy of the project called project.ap~. If a backup \\n' copy exists it is copied to project.a~~ thus making a duplicate b ackup.\\n'\\n' History: 4/12/96 Tim Loesch - Minnesota DNR\\n'\\ntheProject = av.GetProject\\n\\nif (self.Is(FileName).not) then\\n if (nil <> theProject) then\\n if\n (theProject.IsModified) then\\n if (av.Run(\\\"Project.CheckForEdits\\\",nil).Not) then\\n return nil\\n end \\n res = MsgBox.SaveChanges(\\\"Do you want to save changes to \\\" \\n + theProject.GetName + \\\"?\\\", \\\"ArcView\\\", true)\\n if (nil = res) then return nil end\\n if (res) then\\n av.Run (\\\"Project.Save\\\", nil)\\n if (theProject.IsModified)then return nil end\\n end\\n end\\n end\\n \\n theFName = FileDialog.Show(\\\"*.apr\\\", \\\"Project (*.apr)\\\", \\\"Open Project\\\")\\n e\nlse\\n theFName = self\\nend\\n\\nif (theFName = nil) then \\n return nil\\nend\\nstrFullPath = theFName.GetFullName\\nstrBakPath = strFullPath.Substitute (\\\".apr\\\", \\\".ap~\\\" )\\nstrBakPath2 = strBakPath.Substitute (\\\".ap~\\\", \\\".a~~\\\" )\\nif (file.exists(strBakPath.asfilename)) then\\n File.Copy( strBakPath.AsFileName, strBa kPath2.AsFileName )\\nend\\nFile.Copy( strFullPath.AsFileName, strBakPath.AsFileName )\\n\\nif (nil <> theFName) then\\n if (nil <> theProject) then\\n theProject.Close\\n end\\n theProject = nil\\n av.DelayedRun(\\\"Project.Op\nenPart2\\\", theFName, 0)\\nend\\n\"\n)\n\n(Script.402\n Name: \"Script.RefreshScriptDocument\"\n SourceCode: \"av.GetActiveWin.Invalidate\"\n)\n\n(Script.403\n Name: \"Table.AddRecord\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.GetVTab.BeginTransaction\\ntheTable.GetVTab.AddRecord\\ntheTable.GetVtab .EndTransaction\"\n)\n\n(Script.404\n Name: \"View.CircleTool\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\nc = theView.ReturnUserCircle\\ntheTheme = theView.GetEditableTheme\\n\\nif (c.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n theTheme.GetFTab.BeginTransaction\\n p = c.AsPolygon\\n thePrj = theView.GetProjection\\n if (thePrj.IsNull.Not) then\\n p = p.ReturnUnprojected(thePrj)\\n end\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n rec = theTheme.GetFTab.AddRecord\\n t heTheme.GetFTab.SetValue(theField, rec, p)\\n theTheme.GetFTab.GetSelection.ClearAll\\n \ntheTheme.GetFTab.GetSelection.Set(rec)\\n theTheme.GetFTab.UpdateSelection\\n theTheme.GetFTab.EndTransaction\\n else\\n gc = GraphicShape.Make(c)\\n theView.GetGraphics.UnselectAll\\n gc.SetSelected(TRUE)\\n theView.GetGraphics.Add(gc)\\n end\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.405\n Name: \"View.PolyTool\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\np = theView.ReturnUserPolygon\\ntheTheme = theView.GetEditableTheme\\n\\nif (p.IsNull) then\\n return nil\\nelse\\n if (theTheme <> nil) then\\n theTheme.GetFTab.BeginTransaction\\n thePrj = theView.GetProjection\\n if (thePrj.IsNull.Not) then\\n p = p.ReturnUnprojected(thePrj)\\n end\\n theField = theTheme.GetFTab.FindField(\\\"Shape\\\")\\n rec = theTheme.GetFTab.AddRecord\\n theTheme.GetFTab.SetValue(theField, rec, p)\\n theTheme.GetFTab.GetSelection.ClearAll\\n theTheme.GetFTab.Ge\ntSelection.Set(rec)\\n theTheme.GetFTab.Updat eSelection\\n theTheme.GetFTab.EndTransaction\\n else\\n gp = GraphicShape.Make(p)\\n theView.GetGraphics.UnselectAll\\n gp.SetSelected(TRUE)\\n theView.GetGraphics.Add(gp)\\n end\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.406\n Name: \"Graphic.ToBack\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.MoveSelectedToBack\"\n)\n\n(Script.407\n Name: \"Project.AddTable\"\n SourceCode: \"patterns = {\\\"*.dbf\\\", \\\"arcdr9\\\", \\\"*.txt\\\"}\\nlabels = {\\\"dBASE (*.dbf)\\\", \\\"INFO\\\", \\\"Delimited Text (*. txt)\\\"}\\nfiles = FileDialog.ReturnFiles(patterns, labels, \\\"Add Table\\\", 0)\\nfor each f in files\\n v = VTab.Make(f, FALSE, FALSE)\\n if (v.HasError) then\\n if (v.HasLockError) then\\n MsgBox.Error(\\\"Unable to acquire Read Lock for file \\\" + f.GetBaseName, \\\"\\\")\\n else\\n MsgBox.Error(\\\"The file '\\\" + f.GetBaseName + \\\"' is not valid.\\\", \\\"\\\")\\n end\\n else\\n gui = av.GetProject.GetSelectedGUI\\n if (gui.GetType <> \\\"T\nable\\\") then\\n GUIName = \\\"Table\\\"\\n else\\n GUIName = gui.GetName\\n end \\n t = Table.MakeWithGUI(v, GUIName)\\n t.SetName(v.GetName)\\n t.GetWin.Open\\n end\\nend \"\n)\n\n(Script.408\n Name: \"Table.Calculate\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\ntheField = theTable.GetActiveField\\n\\ntheTable.StopEditing\\ncalc = QueryWin.ReturnCalculation(theVTab,theField)\\nif (calc <> NIL) then\\n theVTab.BeginTransaction\\n if (not (theVTab.Calculate(calc, theField))) then\\n MsgBox.Warning(\\\"Syntax Error\\\", \\\"Calculation Expression \\\")\\n end\\n theVTab.EndTransaction\\n theTable.GetWin.Invalidate\\nend\\n\"\n)\n\n(Script.409\n Name: \"Last4.RestoreState\"\n SourceCode: \"'Last4.RestoreState\\nlast = ODB.Open( \\\"$TEMP/default.l4\\\".AsFileName)\\nif (last = nil) then\\n _Rememberlast = {}\\nelse\\n _Rememberlast = last.Get(0)\\nend\"\n)\n\n(Script.410\n Name: \"Chart.New\"\n SourceCode: \"l = {}\\nfor each d in av.GetProject.GetDocs\\n if (d.Is(Table)) then\\n l.Add(d)\\n end\\nend\\n\\nif (l.Count > 1) then\\n theTable = MsgBox.Choice(l,\\\"Pick a Table\\\",\\\"New C hart\\\")\\nelse\\n theTable = l.Get(0)\\nend\\n\\nif (theTable = NIL) then\\n return nil\\nend\\n\\nnewChart = Chart.MakeUsingDialog(theTable.GetVTab, av.GetProject.GetSelectedGUI.GetName)\\nif (newChart <> nil) then\\n newChart.GetWin.Open\\nend\"\n)\n\n(Script.411\n Name: \"View.GeocodeUpdate\"\n SourceCode: \"theProject = av.GetProject\\n\\ndocs = theProject.GetDocs\\nif (docs.count = 0) then\\n self.SetEnabled(false)\\n return nil\\nend\\n\\ntheView = av.GetActiveDoc\\n\\nfor each t in theView.GetThemes\\n if ((t.Is(FTheme)) and (t.GetMatchSource <> NIL)) then\\n self.SetEnabled(true)\\n return nil\\n end\\nend\\n \\nself.SetEnabled(false)\\n\\n\"\n)\n\n(Script.412\n Name: \"Table.Select\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheTable.Select\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.413\n Name: \"PrintSetupUpdate\"\n SourceCode: \"SELF.SetEnabled((System.GetOS=#SYSTEM_OS_UNIX).Not)\"\n)\n\n(Script.414\n Name: \"Graphic.GroupUpdate\"\n SourceCode: \"theDoc = av.GetActiveDoc\\nSELF.SetEnabled(1 < theDoc.GetGraphics.GetSelected.Count) \\n\"\n)\n\n(Script .415\n Name: \"Chart.ToggleLegend\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.GetChartLegend.SetVisible(theChart.GetChartLegend.IsVisible.Not)\\n\"\n)\n\n(Script.416\n Name: \"Chart.UndoUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nSELF.SetEnabled(theChart.CanUndoErase) \\n\"\n)\n\n(Script.417\n Name: \"Script.HasSelUpdate\"\n SourceCode: \"theScript = av.GetActiveDoc\\nsel = theScript.GetSelected\\nSELF.SetEnabled((sel <> nil) and (sel.Count > 0))\"\n)\n\n(Script.418\n Name: \"SymWin.DisplayMarkerPanel\"\n SourceCode: \"if ((av.GetSymbolWin.GetPanel = #SYMBOLWIN_PANEL_COLOR).not) then\\n av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_MARKER)\\nend\"\n)\n\n(Script.419\n Name: \"Project.CloseDoc\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetWin.Close\"\n)\n\n(Script.420\n Name: \"Project.Save\"\n SourceCode: \"' Name: Project.Save\\n'\\n' Headline: Make a backup copy of the current project\\n'\\n' Self: \\n'\\n' Returns:\\n'\\n' Description: This script is a modification of the original project.Save command\\n' that creates a backup cop y of the project called project.ap~. If a backup \\n' copy exists it is copied to project.a~~ thus making a duplicate backup.\\n'\\n' History: 4/12/96 Tim Loesch - Minnesota DNR \\n'\\n\\n'msgbox.info(\\\"Running DNR Version\\\",Script.The.GetName)\\ntheProject = av.GetProject\\ntheFileName \n= theProject.GetFileName\\nif (thefilename = nil) then\\n av.run(\\\"Project.SaveAs\\\",nil)\\n return nil\\nend\\nstrFullPath = theFileName.GetFullName\\nstrBakPath = strFullPath.Substitute (\\\".apr\\\", \\\".ap~\\\" )\\nstrBakPath2 = strBakPath.Substitute (\\\".ap~\\\", \\\".a~~\\\" )\\nif (file.exists(strBakPath.asfilename)) then\\n File.Copy( strBakPath.AsFileName, strBakPath2.AsFileName )\\nend\\nFile.Copy( strFullPath.AsFileName, strBakPath.AsFileName )\\nif (theFileName = nil) then\\n av.Run(\\\"Project.SaveAs\\\", nil)\\nelse\\n if (av.Run(\\\"Project.CheckForE\ndits\\\",nil).Not) then\\n return nil\\n end \\n if (theProject.Save) then\\n\\n ' Save last 4 project files\\n av.run( \\\"Last4.SaveName\\\", \\\"\\\")\\n\\n av.ShowMsg(\\\"Project saved to '\\\" + theFileName.GetBaseName + \\\"'\\\")\\n if (System.GetOS = #SYSTEM_OS_MAC) then\\n Script.Make(\\\"MacClass.SetDocInfo(SELF, Project)\\\").DoIt(theFileName)\\n end\\n end\\nend\"\n)\n\n(Script.421\n Name: \"View.LabelToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\nif (Extension.GetExtensions.Get(\\\"Label & Text Tools\\\") = NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend \\nif (theView.GetEditableTheme <> NIL) then\\n SELF.SetEnabled(FALSE)\\n return nil\\nend\\nfor each t in theView.GetActiveThemes\\ n if (t.IsVisible and (t.CanLabel) and (t.GetLabelField <> NIL)) then\\n SELF.SetEnabled(TRUE)\\n return nil\\n end\\nend\\nSELF.SetEnabled(FALSE)\"\n)\n\n(Script.422\n Name: \"View.ThemesOn\"\n SourceCode: \"theView = av.GetActiveDoc\\nfor each t in theView.GetThemes\\n if (t.IsVisible.not) then\\n t.SetVisible(TRUE)\\n end\\nend\"\n)\n\n(Script.423\n Name: \"Project.DeleteUpdate\"\n SourceCode: \"theProject = av.GetActiveDoc\\nSELF.SetEnabled( theProject.GetSelectedDocs.Count > 0)\\nif (theProject.GetSelectedDocs.Count = 1) then\\n SELF.SetLabel(\\\"&Delete '\\\" + theProject.GetSelectedDocs.Get(0).GetName + \\\"'...\\\")\\nelse\\n SELF.SetLabel(\\\"&Delete...\\\")\\nend\\n\"\n)\n\n(Script.424\n Name: \"View.CutUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) then\\n SELF.SetLabel(\\\"Cu&t Graphics\\\")\\n SELF.SetHelp(\\\"Cuts the selected graphics to the clipboard\\\")\\n gCount = theView.GetGraphics.GetSelected.Count\\nelse\\n SELF.SetLabel(\\\"Cu&t Features\\\")\\n SELF.SetHelp(\\\"Cuts the selected features to the clipboard\\\")\\n gCount = theTheme.GetFTab.GetSelection.Count\\nend\\n\\nSELF.SetEnabled(gCount > 0)\\n\\n\"\n)\n\n(Script.425\n Name: \"View.SplitLineToolUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme = nil) then\\n SELF.SetEnabled(False) \\nelse\\n theType = theTheme.GetFTab.FindField(\\\"Shape\\\").GetType\\n SELF.SetEnabled(theType = #FIELD_SHAPELINE)\\nend\"\n)\n\n(Script.426\n Name: \"Layout.Copy\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nif (theLayout.G etGraphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\ntheLayout.GetGraphics.CopySelected\"\n)\n\n(Script.427\n Name: \"Graphic.Align\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.AlignSelected\"\n)\n\n(Script.428\n Name: \"DNR.ReturnIniFile\"\n SourceCode: \"' Name: DNR.ReturnIniFile\\n' Purpose: This script finds the AVCORE.INI file that helps users manage the default\\n' values of the default project as well as being a location where the user\\n' can set other ArcView relat ed environment variables.\\n' Written: 4/22/98 - Tim Loesch\\n\\n\\n' define the three places where we look for the initialization file\\n' $AVHOME/etc/avdef.ini is the default location and we put it here unless it's a\\n' network version and the user can't write to that location....\\n'\\n' \n$HOME/avdef.ini is the second place we look, this is usually somewhere on the user's\\n' machine.\\n'\\n' $TEMP/avdef.ini is the last resort location.\\n\\ninifile = nil\\nhaveINIFile = false\\nfor each var in {\\\"$AVHOME/etc/avdef.in i\\\".asfilename,\\\"c:/mndnrgis/arcview/avdef.ini\\\".asfilename,\\\"d:/mndnrgis/arcview/avdef.ini\\\".asfilename,\\\"$HOME/avdef.ini\\\".asfilename,\\\"$TEMP/avdef.ini\\\".asfilename}\\n if (file.exists(var)) then\\n inifile = var\\n haveINIFile = true\\n break\\n end\\nend\\n\\nif (inifile <> nil) then\\n return inifile\\nen\nd\\n\\nif (HaveINIFile.Not) then\\n for each var in { \\\"AVHOME\\\\etc\\\",\\\"c:\\\\mndnrgis\\\\arcview\\\",\\\"d:\\\\mndnrgis\\\\arcview\\\",\\\"HOME\\\",\\\"TEMP\\\" }\\n path = System.GetEnvVar(var)\\n if (path <> NIL) th en\\n if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then\\n inifile = (path+\\\"/avdef.ini\\\").asfilename\\n break\\n end\\n end\\n end\\nend\\n\\nreturn inifile\"\n)\n\n(Script.429\n Name: \"DNR.MDConnect\"\n SourceCode: \"' Name: DNR.MDConnect\\n'\\n' Author: Peter Pascale\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' peter.pascale@dnr.state.mn.us\\n' \\n' Date: Fr i Nov 20 10:29:18 1998\\n' Revised by: Tim Loesch\\n' Revision Date: 12-10-98\\n' Revisions: Updated to look in $DNRCORE/metadata or $AVCORE/metadata for html files \\n' -------------------------------------------------------------------\\n' Description: Establishes filenam\ne for the first active theme and \\n' uses it to open a browser with MD lite html file.\\n' Requires: At least one active theme in a view, with the view as the \\n' active document.\\n' Runs: DNR.OpenURLDefBrows\\n' Run by: \\n' Self: \\n' Returns: \\n' Topics: \\n' Search Keys: \\n' -------------------------------------------------------------------\\n\\n' Get the first active theme in the active document and get its filename\\nvwActive = av.GetActiveDoc\\nthMDThemes = vwActive.GetActiveThemes\\nif (thMDThemes.count < 1) then\\n msgbox.\nwarning(\\\"No Themes are Active! Make a theme active and try again.\\\",\\\"DNR.MDConnect\\\")\\n return nil\\n else\\n thMDTheme = thMDThemes.get(0)\\nend\\nfnMDTheme = thMDTheme.GetSrcName.GetFilename.clone\\nfnMDTheme.SetExtension(\\\" \\\")\\nstFilename = fnMDTheme.GetBaseName.substitute(\\\".\\\",\\\"\\\")\\nfeatclass = stfilename.middle(5,2)\\ndesc = stfilename.left(5)\\nscaleclass = stfilename.right(1)\\n\\n' Check validity and trim filename suffix\\nif (stFilename.isNull) then\\n msgbox.info(\\\"Could not determine filename of selected theme. Metadata brow\nse aborted\\\", \\\"DNR.MDConnect\\\")\\n return nil\\nend\\n\\n'Get metadatabase location\\nmetaloc = nil\\nfor each var in {\\\"DNRCORE\\\",\\\"AVCORE\\\"}\\n if (system.getenvvar(var)<> nil) then\\n metaloc = syst em.getenvvar(var)+\\\"\\\\metadata\\\\\\\"\\n break\\n end\\nend\\nif (metaloc = nil) then\\n msgbox.warning(\\\"Unable to determine Metadatabase location. Looking for DNRCORE or AVCORE environment variables\\\",\\\"DNR.MDConnect\\\")\\n return nil\\nend\\n\\n' Build the metadata string and see if the metadatafile is there. If it's not then we need to see if ano\nther version might \\n' be around. For example, a polygon shapefile may have been created from a coverage that was a network file. Network files\\n' have a NE feature c lass assignment. Therefore, if we don't find a PY record we need to check for a NE record with the same \\n' description and \\n\\nstDocName = stFilename + \\\"lt.html\\\"\\nstMDDoc = (metaloc + stDocname)\\nmetafound = false\\nif (file.exists(stMDDoc.asfilename).not) then\\n for each afeat in {\\\"ne\\\",\\\"rg\\\",\\\"lk\\\",\\\"ra\\\"}\\n stMdDoc = metaloc+desc+afeat+scaleclass+\\\"lt.ht\nml\\\"\\n if (file.exists(stMDDoc.Asfilename)) then\\n metafound = true\\n break\\n end\\n end\\n if (metafound.not) then\\n msgbox. warning(\\\"No MetaData Record found for this theme. Filename = \\\"+StFilename,\\\"DNR.MDConnect\\\")\\n return nil\\n end\\nend\\n\\n' Call the MD Lite connection script\\nboLinkSuccess = av.run(\\\"DNR.OpenURLDefBrows\\\", stMDDoc)\\n\\n' Handle return value from MD Lite connection script\\n\\n\"\n)\n\n(Script.430\n Name: \"Script.ActionUpdate\"\n SourceCode: \"SELF.SetEnabled(av.GetProject.GetSelectedDocs.Count > 0)\\nSELF.SetLabel(\\\"&Run\\\")\\nSELF.SetHelpTopic(\\\"Run_button\\\")\"\n)\n\n(Script.431\n Name: \"Chart.ToggleXAxisUpdate\"\n Sourc eCode: \"theChart = av.GetActiveDoc\\nSELF.SetEnabled( theChart.GetChartDisplay.GetType <> #CHARTDISPLAY_PIE) \\n if (theChart.GetXAxis.IsVisible) then\\n SELF.SetLabel(\\\"Hide &X Axis\\\")\\n else\\n SELF.SetLabel(\\\"Show &X Axis\\\")\\n end\\n\"\n)\n\n(Script.432\n Name: \"DNR.EditDefaultProperties\"\n SourceCode: \"' Name: DNR.EditDefaultProperties\\n'\\n' Author: Timothy N. Loesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loe sch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 08:18:10 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script builds a dialog on the fly and populates it with the \\n' parameters in t\nhe AVDEF.INI file. It provides the functionality to \\n' Edit, Add or Delete entries.\\n' Requires: \\n' Runs: \\n' Run by: \\n' Self: \\n' Returns: \\n' ------------------------------- ------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\nenvdict = av.run(\\\"DNR.ReadSets\\\",nil)\\n\\ntmp = FileName.GetTmpDir\\ntmp.MergeFile(\\\"sets.dbf\\\")\\nif (File.IsWritable(tmp).Not) then\\n tmp = \\\"$HOME/sets.dbf\\\".asfilename\\n if (File.IsWritable(tmp).not) then\\n msgbox.info(\\\"Unable to create temporary file. Unable to ed\nit Default Project Properties\\\",\\\"DNR.EditDefaultProperties\\\")\\n return nil\\n end\\nend\\ntheVTAB = VTAB.MakeNew(tmp,DBASE)\\nvarfield = field.make(\\\"ENVVAR\\\",#FIE LD_CHAR,24,0)\\nvalfield = field.make(\\\"Value\\\",#FIELD_CHAR,100,0)\\ndescfield = field.make(\\\"Desc\\\",#FIELD_CHAR,100,0)\\ntheVTAB.AddFields({descfield,varfield,valfield})\\nkeylist = envdict.returnkeys\\nfor each key in keylist\\n arec = theVTAB.addrecord\\n theVTab.SetValue(descfield,arec,key) ' get the variable description\\n theVTab.SetValue(varfield,\narec,envdict.get(key).get(0)) ' get the variable name\\n theVTab.SetValue(valfield,arec,envdict.get(key).get(1)) ' get the variable value\\nen d\\ntheVTab.SetEditable(false)\\n\\naDialog = Dialog.Make (false,true,true,true,true)\\nadialog.setextent(rect.make(50@50,615@500))\\naDialog.SetName(\\\"Default Project Properties\\\")\\nadialog.settitle(\\\"Default Project Properties\\\")\\naDialog.SetClose(\\\"DNR.Properties.Close\\\")\\naControlPanel = aDialog.GetControlPanel\\n\\nalistbox = listbox.make\\nalistbox.setname(\\\"Project Properties lbx\\\")\\nalistbo\nx.SetUpdate(\\\"DNR.Properties.List.Update\\\")\\naControlPanel.Add (alistbox, Rect.Make(5@5,605@400))\\n\\nalistbox.definefr omVTab(theVTab,{descfield,varfield,valfield},false)\\nalistbox.setfieldnamesvisible(true)\\nalistbox.sortascending(false)\\nalistbox.fitcolumns(0..2,true)\\nalistbox.sethelp(\\\"Double Click on an Entry to Change it\\\")\\n\\ndelbtn = LabelButton.Make\\ndelbtn.SetLabel(\\\"Delete Entry\\\")\\ndelbtn.SetClick(\\\"DNR.Properties.Delete\\\")\\ndelbtn.SetHelp(\\\"Delete an Entry from the Property List\\\")\\naControlPanel.Add (delbtn, Rect.Mak\ne(20@425,100@25))\\n\\naddbtn = labelbutton.make\\naddbtn.SetLabel(\\\"Add Entry\\\")\\naddbtn.SetClic k(\\\"DNR.Properties.Add\\\")\\naddbtn.SetHelp(\\\"Add an Entry to the Property List\\\")\\naControlPanel.Add(addbtn, Rect.Make(130@425,100@25))\\n\\ncanbtn = labelbutton.make\\ncanbtn.SetLabel(\\\"Cancel\\\")\\ncanbtn.SetClick(\\\"DNR.Properties.Cancel\\\")\\ncanbtn.SetHelp(\\\"Cancel Operation\\\")\\nacontrolPanel.Add(CanBtn, Rect.Make(240@425,100@25))\\n\\napplybtn = labelbutton.make\\napplybtn.SetLabel(\\\"Apply\\\")\\napplybtn.SetClick(\\\"DNR.Properties.Apply\\\")\\napplybtn.SetHel\np(\\\"Apply Changes to Project Prop erties\\\")\\nacontrolPanel.A dd(Applybtn, Rect.Make(350@425, 100@25))\\n\\n\\nav.GetProject.AddDialog(aDialog)\\nalistbox.SetApply(\\\"DNR.Properties.Change\\\")\\n\\naDialog.Open\"\n)\n\n(Script.433\n Name: \"Table.SortUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled((theTable.GetActiveField <> NIL) and not (theTable.GetActiveField.IsTypeShape))\\n\"\n)\n\n(Script.434\n Name: \"View.CopyUpdate\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\nif (theTheme = nil) then\\n SELF.SetLabel(\\\"&Copy Graphics\\\")\\n SELF. SetHelp(\\\"Copies the selected graphics to the clipboard\\\")\\n gCount = theView.GetGraphics.GetSelected.Count\\nelse\\n SELF.SetLabel(\\\"&Copy Features\\\")\\n SELF.SetHelp(\\\"Copies the selected features to the clipboard\\\")\\n gCount = theTheme.GetFTab.GetSelection.Count\\nend\\n\\nSELF.SetEnabled(gCount > 0)\\n\\n\"\n)\n\n(Script.435\n Name: \"Table.SaveEditsAs\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\n\\nif (theVTab.IsBeingEditedWithRecovery.Not) then\\n return nil\\nend\\n\\n' first see if thi s is actually a SaveAs on an edit theme\\n\\ntheTheme = theTable.GetEditor\\n\\nif (theTheme <> nil) then\\n\\n if (theTheme.Is(FTHEME)) then\\n \\n def = av.GetProject.MakeFileName(\\\"theme\\\", \\\"shp\\\")\\n def = FileDialog.Put(def, \\\"*.shp\\\", \\\"Save Edits For Theme \\\" + theTheme.getName)\\n if (def = NIL) then return nil end\\n v = theTheme.GetView\\n if (v <> nil) then\\n\n \\n newTheme = theTheme.SaveEditsAs(def)\\n if ((newtheme = nil) or (newTheme.GetFTab.HasError)) then \\n MsgBox.Info(\\\"Unable to Save Edits As \\\" + def.AsString + \\n \\\", please use another file name\\\", \\\"\\\")\\n return nil\\n end\\n v.SetEditableTheme(nil)\\n v.AddTheme(newTheme)\\n v.SetEditableTheme(newTheme)\\n \\n theTheme.SetVisible(False)\\n newTheme.SetVisible(True)\\n newTheme.EditTable\\n \\n return nil\\n \n end\\n end\\nend\\n\\n'this is a save as on the table\\n \\ntheClass = theVTab.GetBaseTab leClass\\n'theClass = DBASE\\n\\nif (theClass.IsSubClassOf(DBASE)) then \\n theFilter = \\\"*.dbf\\\"\\n theExt = \\\"dbf\\\"\\nelseif (theClass.IsSubClassOf(DTXT)) then\\n theFilter = \\\"*.txt\\\"\\n theExt = \\\"txt\\\"\\nelseif (theClass.IsSubClassOf(INFO)) then\\n theFilter = \\\"arcdr9\\\"\\n theExt = \\\"\\\"\\nelse\\n return nil\\nend\\n\\ntheFileName=FileDialog.Put(av.GetProject.MakeFileName(\\\"table\\\", theExt),\\n theFilter,\\\"Save Edits For Table\\\")\\nif (theFileName\n = NIL) then return nil end\\n\\n if (theFileName = theVT ab.GetBaseTableFileName) then\\n MsgBox.Info (\\\"Unable to Save Edits As \\\" \\n + theFileName.AsString + \\n \\\", please use another file name\\\", \\\"\\\")\\n return nil\\nend\\n\\n \\nnewVTab = theVTab.SaveEditsAs(theFileName)\\n\\nif (newVTab.HasError) then\\n MsgBox.Info (\\\"Unable to Save Edits As \\\" \\n + theFileName.AsString + \\n \\\", please use another file name\\\", \\\"\\\")\\n return nil\\nend\\n\\n'stop editing the original vtab, do not sa\nve\\ntheVtab.StopEditing WithRecovery(FALSE)\\n\\nnewVTab.StartEditingWithRecovery\\nnewTable = Table.Make(newVTab)\\nnewTable.SetName(theFileName.GetBaseName)\\nnewTable.GetWin.Open\"\n)\n\n(Script.436\n Name: \"Chart.BarGallery\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.ShowGallery(#CHARTDISPLAY_BAR)\\n\"\n)\n\n(Script.437\n Name: \"Table.SaveEditsUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\ntheVTab = theTable.GetVTab\\nSELF.SetEnabled(FALSE)\\nif (theVTab.IsBeingEditedWithRecovery) then\\n SELF.SetEnabled(TRUE)\\nend\\n\\n\"\n)\n\n(Script.43 8\n Name: \"Graphic.StoreNorthArrow\"\n SourceCode: \"' North Arrows can be created and added to ArcView's\\n' North Arrow Manager dialog box. You design and create your North arrows\\n' on the Layout as a set of graphics and then select them. \\n' you can execute this script to merge the new North arrow with the existing\\n' arrows shown in the North Arrow Manager. \\n'\\n' Get all the selected graphics.\\nl = av.GetActiveDoc.GetGraphics.GetSelected\\n\\n' Merge these into the North Arrow Manager dialog box.\\nif (l <> nil) then\\n NorthArrowMgr.Merge(l)\\nend\\n\\n\"\n)\n\n(Script.439\n Name: \"Table.ChartUpdate\"\n SourceCode: \"theTable = av.GetActiveDoc\\nSELF.SetEnabled(theTable.GetVTab.GetNumRecords > 0)\"\n)\n\n(Script.440\n Name: \"View.SubtractGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theFTab = theTheme.GetFTab\\n theFTab.BeginTransaction\\n fldShape = theFTab.FindField(\\\"shape\\\")\\n \\n r1 = theFTab.GetSelection.GetNextSet(-1)\\n r2 = theFTab.GetSelectio n.GetNextSet(r1)\\n \\n if (r1 < r2) then\\n recBack = r1\\n recFront = r2\\n else\\n recBack = r2\\n recFront = r1\\n end\\n \\n shpBack = theFTab.ReturnValue(fldShape,recBack)\\n shpFront = theFTab.ReturnValue(fldShape,recFront)\\n \\n if (System.IsShiftKeyD\nown) then\\n shpDiff = shpFront.ReturnDifference(shpBack)\\n theFTab.SetValue(fldShape,recFront,shpDiff)\\n else\\n shpDiff = shpBack.ReturnDifference(shpFront)\\n theFTab.SetValue(fldShape,recBack,shpDiff)\\n end\\n \\n theFTab.Update Selection\\n theFtab.EndTransaction\\n theTheme.Invalidate(TRUE)\\nelse\\n theGraphics = theView.GetGraphics\\n selGraphics = theGraphics.GetSelected\\n graBack = selGraphics.Get(0)\\n shpBack = graBack.GetShape\\n graFront = selGraphics.Get(1)\\n shpFront = graFront.GetShape\\n \\n if (\nSystem.IsShiftKeyDown) then\\n shpDiff = shpFront.ReturnDifference(shpBack)\\n theSym = graFront.GetSymbol\\n theGraphics.RemoveGraphic(graFront)\\n else\\n shpDiff = shpBack.ReturnDifference(shpFront)\\n theSym = graBack.GetSymbol\\n theGraphics.RemoveGraphic(graBack)\\n end\\n if (shpDiff.IsEmpty.Not) then\\n graDiff = graphicShape.Make(shpDiff)\\n graDiff.SetSymbol(theSym)\\n theGraphics.Add(graDiff)\\n end\\nend\\n\"\n)\n\n(Script.441\n Name: \"Table.DeleteRecordsUpdate\"\n SourceCode: \"theVTab = av.GetActiveDoc.GetVTab\\nSELF.SetEnabled(theVTab.CanRemoveRecords and (theVTab.GetSelection.Count > 0))\"\n)\n\n(Script.442\n Name: \"DNR.Properties.Change\"\n SourceCode: \"' Name: DNR.Properties.Change\\n'\\n' Author: Timothy N. L oesch\\n' Minnesota Department of Natural Resources\\n' 500 Lafayette Road - Box 11\\n' St. Paul, MN 55155\\n' tim.loesch@dnr.state.mn.us\\n' \\n' Date: Wed Nov 18 08:13:01 1998\\n' Revised by: \\n' Revision Date: \\n' Revisions: \\n' -------------------------------------------------------------------\\n' Description: This script is used to apply the changes made to a project property\\n' Requires: \\n' Runs: \\n' Run by: \n\\n' Self: \\n' Returns: \\n' ------------ -------------------------------------------------------\\n\\nDEBUG = true\\nDEBUGNOT = false\\n\\nthedialog = self.GetDialog\\n\\nthelistbox = theDialog.FindByName(\\\"Project Properties lbx\\\")\\n\\nthecell = thelistbox.getcurrentlocation\\ntherow = thecell.gety\\nthecol = thecell.getx\\n\\nthefield = thelistbox.GetCurrentField\\nfldname = thefield.getname.lcase\\n\\ntheval = thelistbox.getcurrentvalue\\nif (theval.Is(String).not) then\\n theval = theval.asstring\\nend\\n\\nthevtab = thelistbox.GetVTab\\n\\nif (fldname \n<> \\\"\\\") t hen\\n newval = msgbox.input(\\\"Enter New Value for\\\"++fldname,\\\"Default Project Properties\\\",theval)\\n if (newval = nil) then\\n return nil\\n else\\n thelistbox.setcurrentvalue(newval)\\n theVTab.SetEditable(true)\\n therec = thelistbox.GetCurrentRecord\\n theVTab.SetValue(thefield,therec,newval)\\n theVTab.SetEditable(false)\\n theVTab.Flush\\n end\\nend\\n\"\n)\n\n(Script.443\n Name: \"View.AddEventUpdate\"\n SourceCode: \"theProject = av.GetProject\\n\\ndocs = theProject.GetDocs\\nfor each d in docs\\n if (d.Is(Table)) then\\n self.SetEnabled(true)\\n return nil\\n end\\nend\\n\\nself.SetEnabled(false)\\n\\n\"\n)\n\n(Script.444\n Name: \"View.ZoomInTool\"\n SourceCode: \"av.GetProject.SetModified(true)\\ntheView = av.GetActiveDoc\\nr = theView.ReturnUserRect\\nd = theView.GetDisplay\\nif (r.IsNull) then\\n d.ZoomIn(125)\\n d.PanTo(d.ReturnUserPoint)\\nelse\\n d.ZoomToRect(r) \\nend\"\n)\n\n(Script.445\n Name: \"Chart.Undo\"\n SourceCode: \"theChart = av.GetActiveDoc\\ntheChart.UndoErase\\n\"\n)\n\n(Script.446\n Name: \"Graphic.Group\"\n SourceCode: \"theDoc = av.GetActiveDoc\\ntheDoc.GetGraphics.GroupSelected\"\n)\n\n(Script.447\n Name: \"View.Geocode\"\n SourceCode: \"theView = av.GetActiveDoc\\n\\ntheFTab = GeocodeDialog.Show(theView)\\nif (theFTab <> nil) then\\n t = FTheme.Make(theFTab)\\n editing = true\\n while (editing)\\n editing = RematchDialog.Show(t)\\n end\\n theView.AddTheme(t)\\n av.GetProject.SetModified(true)\\nend\\n\"\n)\n\n(Script.448\n Name: \"View.SelectByTheme\"\n SourceCode: \"theView = av.GetActiveDoc\\nselectfrom = {}\\nselectonto = {}\\nfo r each t in theView.GetThemes\\n if (t.CanSelect) then\\n if (t.IsActive) then\\n selectonto.Add(t)\\n end\\n selectfrom.Add(t)\\n end\\nend\\nThemeOnThemeDialog.Show(selectonto, selectfrom, theView.GetDisplay.GetDistanceUnits)\\nav.GetProject.SetModified(true)\"\n)\n\n(Script.449\n Name: \"View.UnionGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theTheme <> nil) then\\n theTheme.GetFTab.BeginTransaction\\n theTheme.UnionSelected \\n theTheme.GetFTab.EndTransa ction \\n theTheme.Invalidate(TRUE)\\nelse\\n theGraphics = theView.GetGraphics\\n selGraphics = theGraphics.GetSelected\\n numSel = selGraphics.Count\\n x = numSel - 1\\n gra1 = selGraphics.Get(0)\\n shpUnionAll = gra1.GetShape\\n theSym = gra1.GetSymbol\\n theGraphics.RemoveGraphic(gra1)\\n for each i in 1..x\\n gra = selGraphics.Get(i)\\n \n shp = gra.GetShape\\n shpUnion = shp.ReturnUnion(shpUnionAll)\\n shpUnionAll = shpUnion\\n theGraphics.RemoveGraphic(gra)\\n end \\n if (shpUnionAll.IsEmpty. Not) then\\n graUnionAll = graphicShape.Make(shpUnionAll)\\n graUnionAll.SetSymbol(theSym)\\n theGraphics.Add(graUnionAll)\\n end\\nend\\n\"\n)\n\n(Script.450\n Name: \"Layout.NorthArrow\"\n SourceCode: \"theLayout = av.GetActiveDoc\\nr = theLayout.ReturnUserRect\\nif (r.IsNull.not) then\\n gn = NorthArrow.Make(r)\\n gn.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n if (gn.Edit(theLayout.GetGraphics)) then\\n gn.SetSelected(TRUE)\\n theLayout.GetGraphics.AddName(gn)\\n av.GetProject .SetModified(true)\\n end\\nend\"\n)\n\n(Script.451\n Name: \"Chart.ToggleUpdate\"\n SourceCode: \"theChart = av.GetActiveDoc\\nSELF.SetEnabled((theChart.IsChartScatter.Not))\\n\"\n)\n\n(Script.452\n Name: \"View.ConvertViewThemes\"\n SourceCode: \"' Script: View.ConvertViewThemes\\n' Written by: Craig Perreault 4/14/98\\n' Convert coverage themes in open view to shapefiles in specified destination directory.\\n' It also indexes the new shape file in the SHAPE field.\\n\\n\\nTheView = Av.GetActiveDoc\\nif (theView.Is(View).Not) the n\\n msgbox.error(\\\"This script works on a View Document\\\",\\\"View.ConvertViewThemes\\\")\\n return nil\\nend\\nThemeList = TheView.GetThemes\\nif (themelist.count = 0) then\\n msgbox.Error(\\\"No Themes in View.\\\",\\\"View.ConvertViewThemes\\\")\\n return nil\\ne\nnd\\n\\nif ( msgbox.yesno(\\\"Do you want to add the new themes to a new View?\\\",\\\"View.ConvertViewThemes\\\",true) ) then\\n addthemestoview = true\\n newview = View.makewithgui(\\\"View\\\")\\n newviewname = msgbox.input(\\\"Enter New View Name\\\",\\\"View.ConvertViewTheme \\\",\\\"New View\\\")\\n if (newviewname = nil) then newviewname = \\\"New View\\\" end\\n newview.SetName(newviewname)\\n else\\n addthemestoview = false\\nend\\n\\ndest_path = MsgBox.Input(\\\"Enter Destination Directory\\\",\\\"Enter Directory\\\",\\\"\\\")\\nif (dest_path <> nil) then dest_path = dest_path\n.trim end\\nif ((dest_path = \\\"\\\") or (dest_path=nil)) then MsgBox.Error(\\\"You Must Enter a Destination Directory Path\\\",\\\"Destination Directory Does Not Exist\\\") return nil end\\nif ((dest_path.middle(dest_path.count-1,1)<>\\\"/ \\\") and (dest_path.middle(dest_path.count-1,1)<>\\\"\\\\\\\"))then dest_path = dest_path+\\\"\\\\\\\" end\\nif (dest_path.AsFileName.IsDir = false) then MsgBox.Error(dest_path,\\\"Destination Directory Does Not Exist\\\") return nil end\\n\\nfor each t in TheView.GetThemes\\n tname = t.GetName\\n if (tname.middle(tname.count-3,3\n) = \\\"shp\\\") then tname = tname.middle(0,tname.count-4) end\\n newcover = srcname.make(dest_path.AsString+tname+\\\".shp\\\")\\n if (newcover <> nil) \\n then MsgBox.Info(dest_path+tname+\\\".shp\\\",\\\"File Alre ady Exists or BAD PATH\\\")\\n else\\n theFTab = t.GetFTab\\n shpfld = (theFTab.FindField(\\\"Shape\\\"))\\n if (shpfld.IsVisible.Not) then shpfld.SetVisible(true) end\\n anFTab = theFTab.Export((dest_path.AsString+tname).AsFileName,Shape,FALSE)\\n if (anFTab.HasError) then MsgBox.Error(\\\"Unable to create \\\" + theFTab.GetBaseName,\\\"\n\\\") end \\n TheNewThemeName = srcname.make(dest_path.AsString+tname+\\\".shp\\\")\\n TheNewTheme = Theme.Make(TheNewThemeName) \\n if (addthemestoview) then\\n NewView.AddT heme(theNewTheme) 'Add the theme to the view...\\n theNewTheme.SetName(\\\"New\\\"++tname)\\n end\\n TheNewVTab = theNewTheme.GetFTab\\n TheShapeField = TheNewVTab.FindField(\\\"Shape\\\")\\n TheNewVtab.CreateIndex(TheShapeField)\\n end\\nend\\n\\nif (AddThemesToView) then\\n NewView.GetWin.Open\\n thmlist = newView.GetThemes\\n for each t in thmlist\\n t.se\ntvisible(true)\\n end\\nend\\n\"\n)\n\n(Script.453\n Name: \"Script.Paste\"\n SourceCode: \"theScript = av.GetActiveDoc\\ntheScript.Paste\"\n)\n\n(Script.454\n Name: \"Tabl e.HasJoinsUpdate\"\n SourceCode: \"SELF.SetEnabled(av.GetActiveDoc.GetVtab.IsBase.not)\\n\"\n)\n\n(Script.455\n Name: \"Codepage.Install\"\n SourceCode: \"' Add Code Page menu item \\nif (av.GetCodePageConvert <> true) then\\n return nil\\nend\\naProj = av.GetProject\\nif (aProj = NIL) then\\n return nil\\nend\\nProjDocGUI = aProj.GetGUIs\\nfor each d in ProjDocGUI\\n docMenuBar = d.GetMenuBar \\n aMenu = docMenuBar.FindByLabel(\\\"File\\\")\\n \\n' add Code Page Profile choice to File menu\\n if ((aMenu <> nil) and (aMenu.Find ByLabel(\\\"Code Page Profile...\\\") = NIL)) then \\n choicepos = 0\\n for each c in aMenu\\n if ((aMenu.GetControls.Get(choicepos).Is(Choice)) and (c.G\netLabel = \\\"E&xit\\\")) then\\n break\\n end\\n choicepos = choicepos + 1\\n end\\n if (choicepos > 0 ) then\\n choicepos = choicepos - 1\\n end\\n\\n if (aMenu.GetControls.Get(choicepos).Is(Space)) then\\n n = aMenu.New(choicepos)\\n n.SetLabel(\\\"C&ode Page Profile...\\\")\\n n.setclick(\\\"S howCodepage\\\")\\n n.SetHelp(\\\"Display the dialog box of the code page profile\\\")\\n n.SetHelpTopic(\\\"Code_Page_Profile\\\")\\n aMenu.Add(Space.Make,choicepos + 1)\\n \n else\\n aMenu.Add(Space.Make,choicepos)\\n n = aMenu.New(choicepos + 1)\\n n.SetLabel(\\\"C&ode Page Profile...\\\")\\n n.setclick(\\\"ShowCodepage\\\")\\n n.SetHelp(\\\"Display the dialog box of the code page profile\\\")\\n n.SetHelpTopic(\\\"Code_Page_Profile\\\")\\n aMenu.Add (Space.Make,choicepos + 2) \\n end\\n end\\n\\n' Add Code Page choice to menu Table, Script and Project \\n if (d.GetName = \\\"Table\\\") then\\n aMenu = docMenuBar.FindByLabel(\\\"Table\\\")\\n if (aMenu <\n> NIL) then\\n ccpg = aMenu.FindByLabel(\\\"Code Page...\\\")\\n if (ccpg = NIL) then\\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\\n n = aMenu.New(aMenu.GetControls.Count)\\n n.SetLabel(\\\"C&ode Page...\\\")\\n n.SetHelp(\\\"Displays the code page of the activ e document\\\")\\n n.SetHelpTopic(\\\"Code_Page\\\")\\n n.SetClick(\\\"Doc.ShowCodepage\\\") \\n end \\n end\\n end\\n \\n if (d.GetName = \\\"Script\\\") then\\n aMenu = docMenuBar.FindByLabel(\\\"Script\\\")\\n if (aMenu <> N\nIL) then\\n ccpg = aMenu.FindByLabel(\\\"Code Page...\\\")\\n if (ccpg = NIL) then\\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\\n n = aMenu.New(aMenu.GetControls.Count)\\n n.SetLabel(\\\"C&ode Page...\\\")\\n n.SetHelp(\\\"Displays the code page of the active document\\\")\\n n.SetHelpTopic(\\\"Code_Page\\\")\\n n.SetClick(\\\"Doc.ShowCodepage\\\") \\n end \\n end\\n end\\n\\n if (d.GetName = \\\"Project\\\") then\\n aMenu = docMenuBar.FindByLabel(\\\"Project\\\")\\n if (aMenu <> N\nIL) then\\n ccpg = aMenu.FindByLabel(\\\"Code Page...\\\")\\n if (ccpg = NIL) then\\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\\n n = aMenu.New(aMenu.GetControls.Count)\\n n.SetLabel(\\\"C&ode Page...\\\")\\ n n.SetHelp(\\\"Displays the code page of the active document\\\")\\n n.SetHelpTopic(\\\"Code_Page\\\")\\n n.SetClick(\\\"Doc.ShowCodepage\\\") \\n end \\n end\\n end\\n\\nend\\n\\n\"\n)\n\n(Script.456\n Name: \"View.CutGraphics\"\n SourceCode: \"theView = av.GetActiveDoc\\ntheTheme = theView.GetEditableTheme\\n\\nif (theView.GetGraphics.HasSelected) then\\n av.GetProject.SetModified(true)\\nend\\nif (theTheme = nil) then\\n theView.GetGraphics.CutSelected\\nelse\\n theTheme.GetFtab.BeginTransaction\\ n theTheme.CutSelected\\n theTheme.GetFTab.EndTransaction\\nend\\n\"\n)\n\n(NameDict.457\n Obj: 458\n Obj: 459\n Obj: 462\n)\n\n(AVDict.458\n InternalName: \"Table of Contents Defaults Dialog\"\n)\n\n(AVDict.459\n InternalName: \"_Thor_\"\n Key: 460\n Value: 461\n)\n\n(AVStr.460\n S: \"DLOGS\"\n)\n\n(NameDict.461\n)\n\n(AVDict.462\n InternalName: \"Legend Tool\"\n Key: 463\n Key: 464\n Value: 465\n Value: 466\n)\n\n(AVStr.463\n S: \"Loaded\"\n)\n\n(AVStr.464\n S: \"Version\"\n)\n\n(Bool.465\n Truth: 1\n)\n\n(Numb.466\n N: 3.10000000000000\n)\n\n(DocGUI.467\n Name: \"View\" \n Type: \"View\"\n Modified: 1\n Visible: 1\n MenuBar: 468\n ButnBar: 592\n Popups: 639\n ToolBar: 659\n NewScript: \"View.New\"\n OpenScript: \"Doc.Open\"\n ActionScript: \"Doc.Action\"\n NewUpdateScript: \"Doc.NewUpdate\"\n OpenUpdateScript: \"Doc.OpenUpdate\"\n ActionUpdateScript: \"Doc.ActionUpdate\"\n Title: \"Views\"\n Icon: 741\n)\n\n(MenuBar.468\n Child: 469\n Child: 487\n Child: 507\n Child: 535\n Child: 558\n Child: 576\n Child: 586\n)\n\n(PMenu.469\n InternalName: \"File\"\n Child: 470\n Child: 471\n Child: 472\n Child: 473\n Child: 474\n Child: 4 75\n Child: 476\n Child: 477\n Child: 478\n Child: 479\n Child: 480\n Child: 481\n Child: 482\n Child: 483\n Child: 484\n Child: 485\n Child: 486\n Label: \"&File\"\n)\n\n(Choice.470\n Help: \"Closes the active component\"\n HelpTopic: \"Close\"\n Label: \"&Close\"\n Click: \"Project.CloseDoc\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.471\n Help: \"Closes all components\"\n HelpTopic: \"Close_All\"\n Label: \"Close &All\"\n Click: \"Project.CloseAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.472\n)\n\n(Choice.473\n Help: \"Allows you to specify the current working di rectory\"\n HelpTopic: \"Set_Working_Directory\"\n Label: \"Set &Working Directory...\"\n Click: \"Project.SetProjectWorkDir\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.474\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.475\n Help: \"Saves the current project with a new name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.476\n)\n\n(Choice.477\n Help: \"Displays the Extensions Dialog\"\n HelpTopic: \"Extensions\"\n Label: \"Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.478\n)\n\n(Choice.479\n Help: \"Prints the view\"\n HelpTopic: \"Print\"\n Label: \"&Print...\"\n Click: \"View.Print\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.480\n Help: \"Edits the printer and the printing options\"\n HelpTopic: \"Print_Setup\"\n Label: \"P&rint Setup...\"\n Click: \"Project.PrintSetup\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.481\n Disabled: 1\n Help: \"Exports the view\"\n HelpTopic: \"Export\"\n Updat e: \"View.HasThemesUpdate\"\n Label: \"&Export...\"\n Click: \"View.ExportDisp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.482\n)\n\n(Choice.483\n Help: \"Displays the dialog box to delete, edit, and copy data sources\"\n HelpTopic: \"Manage_Sources\"\n Label: \"&Manage Data Sources...\"\n Click: \"View.ManageSources\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.484\n Help: \"Copy Arc/Info Coverage//Copy an Arc/Info coverage from one workspace to another\"\n Label: \"Copy Arc/Info Coverage\"\n Click: \"UTIL.InteractiveCopyCoverage\"\n Shortcut: \"Keys.None\"\n) \n\n(Space.485\n)\n\n(Choice.486\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.487\n InternalName: \"Edit\"\n Child: 488\n Child: 489\n Child: 490\n Child: 491\n Child: 492\n Child: 493\n Child: 494\n Child: 495\n Child: 496\n Child: 497\n Child: 498\n Child: 499\n Child: 500\n Child: 501\n Child: 502\n Child: 503\n Child: 504\n Child: 505\n Child: 506\n Label: \"&Edit\"\n)\n\n(Choice.488\n Disabled: 1\n Help: \"Cuts the active themes to the clipboard\"\n HelpTopic: \"Cut_Themes \"\n Update: \"View.ActiveDeletableThemesUpdate\"\n Label: \"Cut T&hemes\"\n Click: \"View.CutThemes\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.489\n Disabled: 1\n Help: \"Copies the active themes to the clipboard\"\n HelpTopic: \"Copy_Themes\"\n Update: \"View.ActiveThemesUpdate\"\n Label: \"Cop&y Themes\"\n Click: \"View.CopyThemes\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.490\n Disabled: 1\n Help: \"Removes the active themes from the view\"\n HelpTopic: \"Delete_Themes\"\n Update: \"View.ActiveDeletableThemesUpdate\"\n Label: \"De&lete Themes\"\n Click: \"V iew.DeleteThemes\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.491\n)\n\n(Choice.492\n Disabled: 1\n Help: \"Undo the last edit to graphics on a view\"\n HelpTopic: \"Undo_Graphic_Edit_on_a_view\"\n Update: \"View.UndoEditUpdate\"\n Label: \"&Undo Graphic Edit\"\n Click: \"View.UndoEdit\"\n Shortcut: \"Keys.Ctrl+Z\"\n)\n\n(Choice.493\n Disabled: 1\n Invisible: 1\n Help: \"Redo the last edit operation on a theme that was undone\"\n HelpTopic: \"Redo_Edit_on_a_view\"\n Update: \"View.RedoEditUpdate\"\n Label: \"&Redo Feature Edit\"\n Click: \"View.RedoEdit\"\n Sh ortcut: \"Keys.Ctrl+Y\"\n)\n\n(Space.494\n)\n\n(Choice.495\n Disabled: 1\n Help: \"Cuts the selected graphics to the clipboard\"\n HelpTopic: \"Cut_Graphics\"\n Update: \"View.CutUpdate\"\n Label: \"Cu&t Graphics\"\n Click: \"View.CutGraphics\"\n Shortcut: \"Keys.Ctrl+X\"\n)\n\n(Choice.496\n Disabled: 1\n Help: \"Copies the selected graphics to the clipboard\"\n HelpTopic: \"Copy_Graphics\"\n Update: \"View.CopyUpdate\"\n Label: \"&Copy Graphics\"\n Click: \"View.CopyGraphics\"\n Shortcut: \"Keys.Ctrl+C\"\n)\n\n(Choice.497\n Disabled: 1\n Help: \"Removes the se lected graphics from the view\"\n HelpTopic: \"Delete_Graphics\"\n Update: \"View.DeleteUpdate\"\n Label: \"&Delete Graphics\"\n Click: \"View.DeleteGraphics\"\n Shortcut: \"Keys.Del\"\n)\n\n(Space.498\n)\n\n(Choice.499\n Disabled: 1\n Help: \"Combines the selected polygons\"\n HelpTopic: \"Combine_Graphics\"\n Update: \"View.CombineUpdate\"\n Label: \"Com&bine Graphics\"\n Click: \"View.CombineGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.500\n Disabled: 1\n Help: \"Unions the selected graphics to create a new graphic\"\n HelpTopic: \"Union_Graphics\" \n Update: \"View.UnionUpdate\"\n Label: \"U&nion Graphics\"\n Click: \"View.UnionGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.501\n Disabled: 1\n Help: \"Subtracts one selected polygon from the other selected polygon\"\n HelpTopic: \"Subtract_Graphics\"\n Update: \"View.SubtractUpdate\"\n Label: \"&Subtract Graphics\"\n Click: \"View.SubtractGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.502\n Disabled: 1\n Help: \"Creates a new polygon from the area of overlap between the selected polygons\"\n HelpTopic: \"Intersect_Graphics\"\n Update: \" View.IntersectUpdate\"\n Label: \"&Intersect Graphics\"\n Click: \"View.IntersectGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.503\n)\n\n(Choice.504\n Disabled: 1\n Help: \"Inserts the contents of the clipboard\"\n HelpTopic: \"Paste\"\n Update: \"View.PasteUpdate\"\n Label: \"&Paste\"\n Click: \"View.Paste\"\n Shortcut: \"Keys.Ctrl+V\"\n)\n\n(Space.505\n)\n\n(Choice.506\n Disabled: 1\n Help: \"Selects all graphics in the view\"\n HelpTopic: \"Select_All_Graphics\"\n Update: \"View.HasGraphicsUpdate\"\n Label: \"Select &All Graphics\"\n Click: \"Graphic.Sele ctAll\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.507\n InternalName: \"View\"\n Child: 508\n Child: 509\n Child: 510\n Child: 511\n Child: 512\n Child: 513\n Child: 514\n Child: 515\n Child: 516\n Child: 517\n Child: 518\n Child: 519\n Child: 520\n Child: 521\n Child: 522\n Child: 523\n Child: 524\n Child: 525\n Child: 526\n Child: 527\n Child: 528\n Child: 529\n Child: 530\n Child: 531\n Child: 532\n Child: 533\n Child: 534\n Label: \"&View\"\n)\n\n(Choice.508\n Help: \"Displays the dialog box to edit properties of the view\"\n HelpTopic: \"View_Propertie s\"\n Label: \"&Properties...\"\n Click: \"View.Properties\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.509\n Help: \"Duplicate View Document//Create a new document that is a duplicate of the active View.\"\n Label: \"&Duplicate\"\n Click: \"Document.Duplicate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.510\n Help: \"Convert Themes in View//Export the themes in the view to Shapefiles and index them.\"\n Label: \"Export Themes\"\n Click: \"View.ConvertViewThemes\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.511\n)\n\n(Choice.512\n Help: \"Inserts themes into the vi ew\"\n HelpTopic: \"Add_Theme\"\n Label: \"&Add Theme...\"\n Click: \"View.Add\"\n Shortcut: \"Keys.Ctrl+T\"\n)\n\n(Choice.513\n Disabled: 1\n Help: \"Displays a dialog box to create a geocoded theme\"\n HelpTopic: \"Geocode_Addresses\"\n Update: \"View.GeocodeUpdate\"\n Label: \"&Geocode Addresses...\"\n Click: \"View.Geocode\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.514\n Disabled: 1\n Help: \"Displays a dialog box to create an XY or dynamic segmentation event-based theme \"\n HelpTopic: \"Add_Event_Theme\"\n Update: \"View.AddEventUpdate\"\n Label: \"Ad d &Event Theme...\"\n Click: \"View.AddEvent\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.515\n Disabled: 1\n Help: \"Makes all themes invisible\"\n HelpTopic: \"Themes_On_Themes_Off\"\n Update: \"View.HasThemesUpdate\"\n Label: \"T&hemes Off\"\n Click: \"View.ThemesOff\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.516\n Help: \"Creates a new theme\"\n HelpTopic: \"New_Theme\"\n Label: \"&New Theme...\"\n Click: \"View.NewTheme\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.517\n Disabled: 1\n Help: \"Makes all themes visible\"\n HelpTopic: \"Themes_On_Themes_Off\"\n Update: \"View.HasThemesUpdate\"\n Label: \"&Themes On\"\n Click: \"View.ThemesOn\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.518\n)\n\n(Choice.519\n Help: \"Shows a dialog where you can change the style of the TOC\"\n HelpTopic: \"TOC_Defaults\"\n Update: \"TocDefs.ShowUpdate\"\n Label: \"TOC Style...\"\n Click: \"TocDefs.Show\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.520\n)\n\n(Space.521\n)\n\n(Choice.522\n Disabled: 1\n Help: \"Create a Layout from the View\"\n HelpTopic: \"Layout_menu_choice\"\n Update: \"View.HasThemesUpdate\"\n Label: \"La&yout...\"\n Click: \"View.Layou t\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.523\n)\n\n(Choice.524\n Disabled: 1\n Help: \"Zooms to the extent of all themes\"\n HelpTopic: \"Zoom_to_Full_Extent\"\n Update: \"View.HasDataUpdate\"\n Label: \"Full E&xtent\"\n Click: \"View.ZoomFullExtent\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.525\n Disabled: 1\n Help: \"Zooms in on the center of the display\"\n HelpTopic: \"Zoom_In\"\n Update: \"View.HasDataUpdate\"\n Label: \"Zoom &In\"\n Click: \"View.ZoomIn\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.526\n Disabled: 1\n Help: \"Zooms out from the center of the d isplay\"\n HelpTopic: \"Zoom_Out\"\n Update: \"View.HasDataUpdate\"\n Label: \"Zoom &Out\"\n Click: \"View.ZoomOut\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.527\n Disabled: 1\n Help: \"Zooms to the extent of active themes\"\n HelpTopic: \"Zoom_to_Active_Theme\"\n Update: \"View.ActiveThemesUpdate\"\n Label: \"&Zoom To Themes\"\n Click: \"View.ZoomToThemes\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.528\n Disabled: 1\n Help: \"Zooms to the extent of the selected features\"\n HelpTopic: \"Zoom_to_Selected\"\n Update: \"View.SelectableThemesUpdate\"\n Label: \"Zoo m To &Selected\"\n Click: \"View.ZoomToSelected\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.529\n Disabled: 1\n Help: \"Goes back to the previous extent you were viewing\"\n HelpTopic: \"Zoom_Previous\"\n Update: \"View.UndoZoomUpdate\"\n Label: \"Zoom Pre&vious\"\n Click: \"View.UndoZoom\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.530\n)\n\n(Choice.531\n Disabled: 1\n Help: \"Finds features in the active themes using the text you enter\"\n HelpTopic: \"Find\"\n Update: \"View.TabularThemesUpdate\"\n Label: \"&Find...\"\n Click: \"View.Find\"\n Shortcut: \"Keys.Ct rl+F\"\n)\n\n(Choice.532\n Disabled: 1\n Help: \"Locates an address in the active, matchable theme\"\n HelpTopic: \"Locate_Address\"\n Update: \"View.LocateUpdate\"\n Label: \"&Locate Address...\"\n Click: \"View.Locate\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.533\n)\n\n(Space.534\n)\n\n(PMenu.535\n InternalName: \"Theme\"\n Child: 536\n Child: 537\n Child: 538\n Child: 539\n Child: 540\n Child: 541\n Child: 542\n Child: 543\n Child: 544\n Child: 545\n Child: 546\n Child: 547\n Child: 548\n Child: 549\n Child: 550\n Child: 551\n Child: 552\n Child: 553\n Child : 554\n Child: 555\n Child: 556\n Child: 557\n Label: \"&Theme\"\n)\n\n(Choice.536\n Disabled: 1\n Help: \"Displays the dialog box to edit properties of the active theme\"\n HelpTopic: \"Theme_Properties\"\n Update: \"View.ActiveThemesUpdate\"\n Label: \"&Properties...\"\n Click: \"View.ThemeProperties\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.537\n)\n\n(Choice.538\n Disabled: 1\n Help: \"Starts or stops editing of shapefile\"\n HelpTopic: \"Start_Stop_Editing_in_a_view\"\n Update: \"View.ToggleEditingUpdate\"\n Label: \"Start &Editing\"\n Click: \"View.To ggleEditing\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.539\n Disabled: 1\n Help: \"Save edits to the source shapefile\"\n HelpTopic: \"Save_edits_theme\"\n Update: \"View.SaveEditsUpdate\"\n Label: \"Save Ed&its\"\n Click: \"View.SaveEdits\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.540\n Disabled: 1\n Help: \"Saves edits to a new shapefile\"\n HelpTopic: \"Save_edits_as_theme\"\n Update: \"View.SaveEditsUpdate\"\n Label: \"Save E&dits As...\"\n Click: \"View.SaveEditsAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.541\n Disabled: 1\n Help: \"Converts a theme to a s hapefile\"\n HelpTopic: \"Convert_to_Shapefile\"\n Update: \"View.ExportUpdate\"\n Label: \"Convert to &Shapefile...\"\n Click: \"View.Export\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.542\n)\n\n(Choice.543\n Disabled: 1\n Help: \"Displays the legends of the active themes\"\n HelpTopic: \"Edit_Legend\"\n Update: \"View.ActiveThemesUpdate\"\n Label: \"Edit &Legend...\"\n Click: \"View.EditLegendClick\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.544\n Disabled: 1\n Help: \"Shows or hides the active themes' legends\"\n HelpTopic: \"Hide_show_Legend\"\n Update: \"View .ActiveThemesUpdate\"\n Label: \"&Hide/Show Legend\"\n Click: \"View.ToggleLegend\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.545\n)\n\n(Choice.546\n Disabled: 1\n Help: \"Displays the Re-match dialog for re-matching addresses\"\n HelpTopic: \"Re_match_Addresses\"\n Update: \"View.EditMatchUpdate\"\n Label: \"&Re-match Addresses...\"\n Click: \"View.EditMatch\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.547\n)\n\n(Choice.548\n Disabled: 1\n Help: \"Labels features in active, visible themes\"\n HelpTopic: \"Auto_label\"\n Update: \"View.LabelThemesUpdate\"\n Label: \"&Auto-label...\"\n Click: \"View.LabelThemes\"\n Shortcut: \"Keys.Ctrl+L\"\n)\n\n(Choice.549\n Disabled: 1\n Help: \"Removes any labels from active themes\"\n HelpTopic: \"Remove_Labels\"\n Update: \"View.RemoveThemeLabelsUpdate\"\n Label: \"Rem&ove Labels\"\n Click: \"View.RemoveThemeLabels\"\n Shortcut: \"Keys.Ctrl+R\"\n)\n\n(Choice.550\n Disabled: 1\n Help: \"Removes the overlapping labels from active themes, if they are still green.\"\n HelpTopic: \"Remove_Overlapping_Labels\"\n Update: \"View.RemoveOverlapThemeLabelsUpdate\"\n Label: \"Remove O verlappi&ng Labels\"\n Click: \"View.RemoveOverlapThemeLabels\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.551\n Disabled: 1\n Help: \"Converts selected overlapping labels to symbol of selected good label\"\n HelpTopic: \"Convert_Overlapping_Labels\"\n Update: \"View.ConvertOverlapLabelsUpdate\"\n Label: \"&Convert Overlapping Labels\"\n Click: \"View.ConvertOverlapLabels\"\n Shortcut: \"Keys.Ctrl+O\"\n)\n\n(Space.552\n)\n\n(Choice.553\n Disabled: 1\n Help: \"Opens the tables of the active themes\"\n HelpTopic: \"Open_Theme_Table\"\n Update: \"View.Tabu larThemesUpdate\"\n Label: \"&Table...\"\n Click: \"View.ShowTable\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.554\n Disabled: 1\n Help: \"Displays the Query Builder to select features with a logical expression\"\n HelpTopic: \"Query_Builder\"\n Update: \"View.AttributeThemesUpdate\"\n Label: \"&Query...\"\n Click: \"View.Query\"\n Shortcut: \"Keys.Ctrl+Q\"\n)\n\n(Choice.555\n Disabled: 1\n Help: \"Selects features in the active themes using another theme's features\"\n HelpTopic: \"Select_By_Theme\"\n Update: \"View.SelectableThemesUpdate\"\n Label: \"Se lect &By Theme...\"\n Click: \"View.SelectByTheme\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.556\n Disabled: 1\n Help: \"Creates buffers around features\"\n HelpTopic: \"Create_Buffer_Choice\"\n Update: \"WizardBuffer.OpenDialogUpdate\"\n Label: \"Create Buffers...\"\n Click: \"WizardBuffer.OpenDialog\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.557\n Disabled: 1\n Help: \"Unselects the selected features of all active themes\"\n HelpTopic: \"Clear_Selected_Features\"\n Update: \"View.AttributeThemesUpdate\"\n Label: \"Clear Selected &Features\"\n Click: \"V iew.ClearSelect\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.558\n InternalName: \"Graphics\"\n Child: 559\n Child: 560\n Child: 561\n Child: 562\n Child: 563\n Child: 564\n Child: 565\n Child: 566\n Child: 567\n Child: 568\n Child: 569\n Child: 570\n Child: 571\n Child: 572\n Child: 573\n Child: 574\n Child: 575\n Label: \"&Graphics\"\n)\n\n(Choice.559\n Disabled: 1\n Help: \"Displays the property editor for the selected graphic\"\n HelpTopic: \"Graphic_Properties\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Properties...\"\n Click: \"Graphic.Edit \"\n Shortcut: \"Keys.None\"\n)\n\n(Space.560\n)\n\n(Choice.561\n Help: \"Shows a dialog where you can set the default values for the label and text tools\"\n HelpTopic: \"Default_settings_for_text_and_label_tools\"\n Label: \"&Text and Label Defaults...\"\n Click: \"Graphic.Label Defaults Show\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.562\n Help: \"Scale Selected Text//Scale the selected text to the scale specified in the Set Text Scale menu\"\n Label: \"Scale Selected Text\"\n Click: \"View.ScaleSelectedText\"\n Shortcut: \"Keys.None\"\n)\n\n(Spac e.563\n)\n\n(Choice.564\n Disabled: 1\n Help: \"Displays a dialog box to adjust size and position of selected graphic\"\n HelpTopic: \"Size_and_Position\"\n Update: \"Graphic.SingleSelectionUpdate\"\n Label: \"&Size and Position...\"\n Click: \"Graphic.SizePos\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.565\n Disabled: 1\n Help: \"Aligns the selected graphics\"\n HelpTopic: \"Align\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Align...\"\n Click: \"Graphic.Align\"\n Shortcut: \"Keys.Ctrl+A\"\n)\n\n(Space.566\n)\n\n(Space.567\n)\n\n(Choice.568\n Disabled : 1\n Help: \"Moves selected graphics in front of other graphics\"\n HelpTopic: \"Bring_to_Front_on_a_view\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Bring to &Front\"\n Click: \"Graphic.ToFront\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.569\n Disabled: 1\n Help: \"Moves selected graphics behind other graphics\"\n HelpTopic: \"Send_to_Back_on_a_view\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Send to &Back \"\n Click: \"Graphic.ToBack\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.570\n Disabled: 1\n Help: \"Groups selected graphics\"\n He lpTopic: \"Group_on_a_view\"\n Update: \"Graphic.GroupUpdate\"\n Label: \"&Group\"\n Click: \"Graphic.Group\"\n Shortcut: \"Keys.Ctrl+G\"\n)\n\n(Choice.571\n Disabled: 1\n Help: \"Ungroups selected graphics\"\n HelpTopic: \"Ungroup_on_a_view\"\n Update: \"Graphic.UngroupUpdate\"\n Label: \"&Ungroup\"\n Click: \"Graphic.Ungroup\"\n Shortcut: \"Keys.Ctrl+U\"\n)\n\n(Space.572\n)\n\n(Choice.573\n Disabled: 1\n Help: \"Associates selected graphics with active themes\"\n HelpTopic: \"Attach_Graphics\"\n Update: \"View.AddGraphicsUpdate\"\n Label: \"A&ttach Graphics\" \n Click: \"View.AddGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.574\n Disabled: 1\n Help: \"Removes association between graphics and active themes\"\n HelpTopic: \"Detach_Graphics\"\n Update: \"View.ClearGraphicsUpdate\"\n Label: \"&Detach Graphics\"\n Click: \"View.ClearGraphics\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.575\n)\n\n(PMenu.576\n InternalName: \"Window\"\n Child: 577\n Child: 578\n Child: 579\n Child: 580\n Child: 581\n Child: 582\n Child: 584\n Child: 585\n Label: \"&Window\"\n)\n\n(Choice.577\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.578\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Cascade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.579\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Icons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.580\n)\n\n(Choice.581\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.582\n ObjectTag: 583\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.583\n S: \"defproj31b.apr View1\"\n)\n\n(Choice.584\n Help: \"Activates defproj31b.apr\"\n Label: \"&1 defproj31b.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.585\n Help: \"Activates View1\"\n Label: \"&2 View1\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.586\n InternalName: \"Help\"\n Child: 587\n Child: 588\n Child: 589\n Child: 590\n Child: 591\n Label: \"&Help\"\n)\n\n(Choice.587\n He lp: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.588\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.589\n Help: \"DNR Default Project Help\"\n Tag: \"avdefpr.pdf\"\n Label: \"DNR Default Project Help\"\n Click: \"DNR.ShowHelp \"\n Shortcut: \"Keys.None\"\n)\n\n(Space.590\n)\n\n(Choice.591\n Help: \"Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.592\n Child: 593\n Child: 595\n Child: 596\n Child: 598\n Child: 599\n Child: 601\n Child: 603\n Child: 605\n Child: 606\n Child: 608\n Child: 610\n Child: 612\n Child: 613\n Child: 615\n Child: 617\n Child: 619\n Child: 621\n Child: 623\n Child: 625\n Child: 626\n Child: 628\n Child: 629\n Child: 631\n Child: 633\n Child: 634\n Ch ild: 635\n Child: 637\n)\n\n(Butn.593\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 594\n Click: \"Project.Save\"\n)\n\n(AVIcon.594\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.595\n)\n\n(Butn.596\n Help: \"Add Theme//Inserts themes into the view\"\n HelpTopic: \"Add_Theme\"\n Icon: 597\n Click: \"View.Add\"\n)\n\n(AVIcon.597\n Name: \"AddTheme\"\n Res: \"Icons.AddTheme\"\n\n)\n\n(Space.598\n)\n\n(Butn.599\n Disabled: 1\n Help: \"Theme Properties//Displays the dialog box to edit properties of the active theme\"\n H elpTopic: \"Theme_Properties\"\n Update: \"View.ActiveThemesUpdate\"\n Icon: 600\n Click: \"View.ThemeProperties\"\n)\n\n(AVIcon.600\n Name: \"Props\"\n Res: \"Icons.Props\"\n\n)\n\n(Butn.601\n Disabled: 1\n Help: \"Edit Legend//Displays the legends of the active themes\"\n HelpTopic: \"Edit_Legend\"\n Update: \"View.ActiveThemesUpdate\"\n Icon: 602\n Click: \"View.EditLegendClick\"\n)\n\n(AVIcon.602\n Name: \"Legend\"\n Res: \"Icons.Legend\"\n\n)\n\n(Butn.603\n Disabled: 1\n Help: \"Open Theme Table//Opens the tables of the active themes\"\n HelpTopic: \"Open_ Theme_Table\"\n Update: \"View.TabularThemesUpdate\"\n Icon: 604\n Click: \"View.ShowTable\"\n)\n\n(AVIcon.604\n Name: \"Table\"\n Res: \"Icons.Table\"\n\n)\n\n(Space.605\n)\n\n(Butn.606\n Disabled: 1\n Help: \"Find//Finds features in the active themes using the text you enter\"\n HelpTopic: \"Find\"\n Update: \"View.TabularThemesUpdate\"\n Icon: 607\n Click: \"View.Find\"\n)\n\n(AVIcon.607\n Name: \"Find\"\n Res: \"Icons.Find\"\n\n)\n\n(Butn.608\n Disabled: 1\n Help: \"Locate Address//Locates an address in the active, matchable theme\"\n HelpTopic: \"Locate_Addr ess\"\n Update: \"View.LocateUpdate\"\n Icon: 609\n Click: \"View.Locate\"\n)\n\n(AVIcon.609\n Name: \"AddMatch\"\n Res: \"Icons.AddMatch\"\n\n)\n\n(Butn.610\n Disabled: 1\n Help: \"Query Builder//Displays the Query Builder to select features with a logical expression\"\n HelpTopic: \"Query_Builder\"\n Update: \"View.AttributeThemesUpdate\"\n Icon: 611\n Click: \"View.Query\"\n)\n\n(AVIcon.611\n Name: \"QueryBuilder\"\n Res: \"Icons.QueryBuilder\"\n\n)\n\n(Space.612\n)\n\n(Butn.613\n Disabled: 1\n Help: \"Zoom to Full Extent//Zooms to the extent of all themes\" \n HelpTopic: \"Zoom_to_Full_Extent\"\n Update: \"View.HasDataUpdate\"\n Icon: 614\n Click: \"View.ZoomFullExtent\"\n)\n\n(AVIcon.614\n Name: \"ZoomView\"\n Res: \"Icons.ZoomView\"\n\n)\n\n(Butn.615\n Disabled: 1\n Help: \"Zoom to Active Theme(s)//Zooms to the extent of active themes\"\n HelpTopic: \"Zoom_to_Active_Theme\"\n Update: \"View.ActiveThemesUpdate\"\n Icon: 616\n Click: \"View.ZoomToThemes\"\n)\n\n(AVIcon.616\n Name: \"ZoomTheme\"\n Res: \"Icons.ZoomTheme\"\n\n)\n\n(Butn.617\n Disabled: 1\n Help: \"Zoom to Selected//Zooms to the extent of the selec ted features\"\n HelpTopic: \"Zoom_to_Selected\"\n Update: \"View.SelectableThemesUpdate\"\n Icon: 618\n Click: \"View.ZoomToSelected\"\n)\n\n(AVIcon.618\n Name: \"ZoomToSelected\"\n Res: \"Icons.ZoomToSelected\"\n\n)\n\n(Butn.619\n Disabled: 1\n Help: \"Zoom In//Zooms in on the center of the display\"\n HelpTopic: \"Zoom_In\"\n Update: \"View.HasDataUpdate\"\n Icon: 620\n Click: \"View.ZoomIn\"\n)\n\n(AVIcon.620\n Name: \"ZoomIn\"\n Res: \"Icons.ZoomIn\"\n\n)\n\n(Butn.621\n Disabled: 1\n Help: \"Zoom Out//Zooms out from the center of the display\"\n HelpTopic: \"Zoom_Out\"\n Update: \"View.HasDataUpdate\"\n Icon: 622\n Click: \"View.ZoomOut\"\n)\n\n(AVIcon.622\n Name: \"ZoomOut\"\n Res: \"Icons.ZoomOut\"\n\n)\n\n(Butn.623\n Disabled: 1\n Help: \"Zoom to Previous Extent//Goes back to the previous extent you were viewing\"\n HelpTopic: \"Zoom_Previous\"\n Update: \"View.UndoZoomUpdate\"\n Icon: 624\n Click: \"View.UndoZoom\"\n)\n\n(AVIcon.624\n Name: \"ZoomPrevious\"\n Res: \"Icons.ZoomPrevious\"\n\n)\n\n(Space.625\n)\n\n(Butn.626\n Help: \"Zoom to Lat/Long//Zoom to a point entered in Lat/Long expressed as DMS.\"\n Icon : 627\n Click: \"View.ZoomtoLatlong\"\n)\n\n(AVIcon.627\n Name: \"AlignNone\"\n Res: \"Icons.AlignNone\"\n\n)\n\n(Space.628\n)\n\n(Butn.629\n Disabled: 1\n Help: \"Select Features Using Graphic//Selects features in active themes using selected graphics\"\n HelpTopic: \"Select_Features_Using_Graphic\"\n Update: \"View.SpatialSelectUpdate\"\n Icon: 630\n Click: \"View.SpatialSelect\"\n)\n\n(AVIcon.630\n Name: \"SpatialSelect\"\n Res: \"Icons.SpatialSelect\"\n\n)\n\n(Butn.631\n Disabled: 1\n Help: \"Clear Selected Features//Unselects the selected features of all active themes\"\n HelpTopic: \"Clear_Selected_Features\"\n Update: \"View.AttributeThemesUpdate\"\n Icon: 632\n Click: \"View.ClearSelect\"\n)\n\n(AVIcon.632\n Name: \"SelectNone\"\n Res: \"Icons.SelectNone\"\n\n)\n\n(Space.633\n)\n\n(Space.634\n)\n\n(Butn.635\n Disabled: 1\n Help: \"Retrieve MetaData - NO THEME ACTIVE//Access DNR MetaData for Active Theme - Make A Theme Active to Enable Button\"\n Update: \"DNR.MDConnect.Update\"\n Icon: 636\n Click: \"DNR.MDConnect\"\n)\n\n(AVIcon.636\n Name: \"M\"\n Res: \"Icons.M\"\n\n)\n\n(Butn.637\n Help: \"Help//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 638\n Click: \"Help.Tool\"\n)\n\n(AVIcon.638\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(PopupSet.639\n Child: 640\n)\n\n(Popup.640\n Child: 641\n Child: 642\n Child: 643\n Child: 644\n Child: 645\n Child: 646\n Child: 647\n Child: 648\n Child: 649\n Child: 650\n Child: 651\n Child: 652\n Child: 653\n Child: 654\n Child: 655\n Child: 656\n Child: 657\n Child: 658\n Label: \"Menu\"\n)\n\n(Choice.641\n Disabled: 1\n Invisible: 1\n Help: \"Deletes the l ast entered point on the line or polygon being drawn\"\n Update: \"View.DelLastPointUpdate\"\n Label: \"Delete Last Point\"\n Click: \"View.DeleteLastPoint\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.642\n Help: \"Undo the last edit to graphics on a view\"\n HelpTopic: \"Undo_Graphic_Edit_on_a_view\"\n Update: \"View.UndoEditUpdate\"\n Label: \"Undo Graphic Edit\"\n Click: \"View.UndoEdit\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.643\n Disabled: 1\n Invisible: 1\n Help: \"Redo the last edit operation on a theme that was undone\"\n Update: \"View.RedoEd itUpdate\"\n Label: \"Redo Feature Edit\"\n Click: \"View.RedoEdit\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.644\n)\n\n(Choice.645\n Disabled: 1\n Invisible: 1\n Help: \"Turns general snapping on\"\n Update: \"View.ToggleGeneralSnapUpdate\"\n Label: \"Enable General Snapping\"\n Click: \"View.ToggleGeneralSnap\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.646\n Disabled: 1\n Invisible: 1\n Help: \"Turns interactive snapping on\"\n Update: \"View.ToggleInteractiveSnapUpdate\"\n Label: \"Enable Interactive Snapping\"\n Click: \"View.ToggleInteractiveSnap\"\n Short cut: \"Keys.None\"\n)\n\n(Space.647\n)\n\n(Choice.648\n Disabled: 1\n Invisible: 1\n Help: \"Snaps the next entered point to the nearest vertex within the user tolerance\"\n Update: \"View.InteractiveSnapUpdate\"\n Label: \"Snap to Vertex\"\n Click: \"View.SnapToVertex\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.649\n Disabled: 1\n Invisible: 1\n Help: \"Snaps the next entered point to the nearest line segment\"\n Update: \"View.InteractiveSnapUpdate\"\n Label: \"Snap to Boundary\"\n Click: \"View.SnapToBoundary\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.65 0\n Disabled: 1\n Invisible: 1\n Help: \"Snaps the next entered point to the nearest node common to two or more features\"\n Update: \"View.InteractiveSnapUpdate\"\n Label: \"Snap to Intersection\"\n Click: \"View.SnapToIntersection\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.651\n Disabled: 1\n Invisible: 1\n Help: \"Snaps the next entered point to the nearest endpoint of an existing line\"\n Update: \"View.SnapToEndPointUpdate\"\n Label: \"Snap to Endpoint\"\n Click: \"View.SnapToEndPoint\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.652\n)\n\n(Choice.65 3\n Disabled: 1\n Help: \"Unselects the selected features in all active themes\"\n Update: \"View.AttributeThemesUpdate\"\n Label: \"Clear Selection\"\n Click: \"View.ClearSelect\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.654\n Help: \"Zooms in at point where you click to bring up popup menu\"\n Update: \"View.HasDataUpdate\"\n Label: \"Zoom In\"\n Click: \"View.PopupZoomIn\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.655\n Help: \"Zooms out from point where you click to bring up popup menu\"\n Update: \"View.HasDataUpdate\"\n Label: \"Zoom Out\"\n Click: \" View.PopupZoomOut\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.656\n Disabled: 1\n Help: \"Zooms to the extent of the selected features\"\n Update: \"View.SelectableThemesUpdate\"\n Label: \"Zoom to Selected\"\n Click: \"View.ZoomToSelected\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.657\n Help: \"Centers display on point where you click to bring up popup\"\n Update: \"View.HasDataUpdate\"\n Label: \"Pan\"\n Click: \"View.PopupPan\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.658\n Disabled: 1\n Help: \"Opens the shape properties window for editing vertex locati ons\"\n Update: \"ShapeWin.PopUp Update\"\n Label: \"Shape Properties\"\n Click: \"ShapeWin.PopUp Open\"\n Shortcut: \"Keys.None\"\n)\n\n(ToolBar.659\n Child: 660\n Child: 662\n Child: 664\n Child: 666\n Child: 668\n Child: 670\n Child: 672\n Child: 674\n Child: 676\n Child: 678\n Child: 680\n Child: 699\n Child: 712\n Child: 731\n Child: 732\n Child: 737\n Child: 738\n Child: 739\n)\n\n(Tool.660\n Disabled: 1\n Help: \"Identify//Provides information about a feature\"\n HelpTopic: \"Identify_tool\"\n Update: \"View.IdentifyUpdate\"\n Icon: 661\n Cursor: \" Cursors.ID\"\n Apply: \"View.Identify\"\n)\n\n(AVIcon.661\n Name: \"ID\"\n Res: \"Icons.ID\"\n\n)\n\n(Tool.662\n Disabled: 1\n Help: \"Pointer//Selects, moves, and resizes graphics\"\n HelpTopic: \"Pointer_tool\"\n Update: \"View.HasDataUpdate\"\n Icon: 663\n Cursor: \"Cursors.Select\"\n Apply: \"View.Select\"\n Click: \"View.SelectTool\"\n)\n\n(AVIcon.663\n Name: \"Select\"\n Res: \"Icons.Select\"\n\n)\n\n(Tool.664\n Disabled: 1\n Help: \"Vertex Edit//Adds, moves, and deletes vertices of features and graphics\"\n HelpTopic: \"Vertex_Edit_tool\"\n Update: \"View.Se lectToEditUpdate\"\n Icon: 665\n Cursor: \"Cursors.SelectEdit\"\n Apply: \"View.SelectToEdit\"\n Click: \"View.SelectToEditTool\"\n)\n\n(AVIcon.665\n Name: \"SelectEdit\"\n Res: \"Icons.SelectEdit\"\n\n)\n\n(Tool.666\n Disabled: 1\n Help: \"Select Feature//Selects features in the active themes by pointing or dragging\"\n HelpTopic: \"Select_Feature_tool\"\n Update: \"View.SelectableThemesUpdate\"\n Icon: 667\n Cursor: \"Cursors.Default\"\n Apply: \"View.SelectPoint\"\n)\n\n(AVIcon.667\n Name: \"FeatureSelect\"\n Res: \"Icons.FeatureSelect\"\n\n)\n\n(Tool.668\n Disabled: 1\n Help: \"Zoom In//Zooms in at a point you click or zooms in on a rectangle you drag\"\n HelpTopic: \"Zoom_In_tool\"\n Update: \"View.HasDataUpdate\"\n Icon: 669\n Cursor: \"Cursors.ZoomIn\"\n Apply: \"View.ZoomInTool\"\n)\n\n(AVIcon.669\n Name: \"ZoomInTool\"\n Res: \"Icons.ZoomInTool\"\n\n)\n\n(Tool.670\n Disabled: 1\n Help: \"Zoom Out//Zooms out from a point you click or zooms out to include a rectangle you drag\"\n HelpTopic: \"Zoom_Out_tool\"\n Update: \"View.HasDataUpdate\"\n Icon: 671\n Cursor: \"Cursors.ZoomOut\"\n Apply: \"View.Zo omOutTool\"\n)\n\n(AVIcon.671\n Name: \"ZoomOutTool\"\n Res: \"Icons.ZoomOutTool\"\n\n)\n\n(Tool.672\n Disabled: 1\n Help: \"Pan//Drags the display in the direction you move the cursor\"\n HelpTopic: \"Pan_tool\"\n Update: \"View.HasDataUpdate\"\n Icon: 673\n Cursor: \"Cursors.Pan\"\n Apply: \"View.Pan\"\n)\n\n(AVIcon.673\n Name: \"Pan\"\n Res: \"Icons.Pan\"\n\n)\n\n(Tool.674\n Disabled: 1\n Help: \"Measure//Measures distance\"\n HelpTopic: \"Measure_tool\"\n Update: \"View.HasDataUpdate\"\n Icon: 675\n Cursor: \"Cursors.Measure\"\n Apply: \"View.Measure\"\n)\n\n(AVIcon .675\n Name: \"Measure\"\n Res: \"Icons.Measure\"\n\n)\n\n(Tool.676\n Disabled: 1\n Help: \"Hot Link//Follows a hot link in the active themes\"\n HelpTopic: \"Hot_Link_tool\"\n Update: \"View.HotLinkUpdate\"\n Icon: 677\n Cursor: \"Cursors.Media\"\n Apply: \"View.HotLink\"\n)\n\n(AVIcon.677\n Name: \"Media\"\n Res: \"Icons.Media\"\n\n)\n\n(Tool.678\n Disabled: 1\n Help: \"Area of Interest//Sets the view's Area Of Interest for library-based themes\"\n HelpTopic: \"Area_Of_Interest_tool\"\n Update: \"View.AOIToolUpdate\"\n Icon: 679\n Cursor: \"Cursors.Default\" \n Apply: \"View.AOITool\"\n)\n\n(AVIcon.679\n Name: \"AOI\"\n Res: \"Icons.AOI\"\n\n)\n\n(ToolMenu.680\n Disabled: 1\n Help: \"Label//Labels a feature in the active theme with data from its table\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.LabelToolUpdate\"\n Icon: 681\n Cursor: \"Cursors.Tag\"\n Apply: \"View.LabelTool\"\n Child: 682\n Child: 683\n Child: 685\n Child: 687\n Child: 689\n Child: 691\n Child: 693\n Child: 695\n Child: 697\n)\n\n(AVIcon.681\n Name: \"Tag\"\n Res: \"Icons.Tag\"\n\n)\n\n(Tool.682\n Disabled: 1\n Help: \"Label//Labels a feature in t he active theme with data from its table\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.LabelToolUpdate\"\n Icon: 681\n Cursor: \"Cursors.Tag\"\n Apply: \"View.LabelTool\"\n)\n\n(Tool.683\n Disabled: 1\n Help: \"Callout Label//Click on a feature and drag in the direction you want the label to appear\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 684\n Cursor: \"Cursors.Tag\"\n Apply: \"View.CalloutLabelTool\"\n)\n\n(AVIcon.684\n Name: \"CallOutLabel1\"\n Res: \"Icons.CallOutLabel1\"\n\n)\n\n(Tool.685\n Disabled: 1\n Help: \"Bullet L eader Label//Click on a feature and drag in the direction you want the label to appear\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 686\n Cursor: \"Cursors.Tag\"\n Apply: \"View.BulletLeaderLabelTool\"\n)\n\n(AVIcon.686\n Name: \"CallOutLabel2\"\n Res: \"Icons.CallOutLabel2\"\n\n)\n\n(Tool.687\n Disabled: 1\n Help: \"Banner Label//Click on a feature you want to label\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 688\n Cursor: \"Cursors.Tag\"\n Apply: \"View.ShadowBoxLabelTool\"\n)\n\n(AVIcon.688\n Name: \"CallOutLabel3\"\n Res: \"Icons.CallOutLabel3\"\n\n)\n\n(Tool.689\n Disabled: 1\n Help: \"U.S. Interstate//Click where you want to place a highway shield\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 690\n Cursor: \"Cursors.Tag\"\n Apply: \"View.Highway1 Apply\"\n)\n\n(AVIcon.690\n Name: \"BW US Interstate\"\n Res: \"Icons.BW US Interstate\"\n\n)\n\n(Tool.691\n Disabled: 1\n Help: \"U.S. Route//Click where you want to place a highway shield\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 692\n Cursor: \"Cursor s.Tag\"\n Apply: \"View.Highway2 Apply\"\n)\n\n(AVIcon.692\n Name: \"USRoute\"\n Res: \"Icons.USRoute\"\n\n)\n\n(Tool.693\n Disabled: 1\n Help: \"Generic State Hwy//Click where you want to place a highway shield\"\n HelpTopic: \"Label_Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 694\n Cursor: \"Cursors.Tag\"\n Apply: \"View.Highway3 Apply\"\n)\n\n(AVIcon.694\n Name: \"GenericStateHighway\"\n Res: \"Icons.GenericStateHighway\"\n\n)\n\n(Tool.695\n Disabled: 1\n Help: \"Generic Square Hwy//Click where you want to place a highway shield\"\n HelpTopic: \"Label_ Tool\"\n Update: \"View.CalloutUpdate\"\n Icon: 696\n Cursor: \"Cursors.Tag\"\n Apply: \"View.Highway4 Apply\"\n)\n\n(AVIcon.696\n Name: \"GenericHighway1\"\n Res: \"Icons.GenericHighway1\"\n\n)\n\n(Tool.697\n Disabled: 1\n Help: \"Generic Oval Hwy//Click where you want to place a highway shield\"\n Update: \"View.CalloutUpdate\"\n Icon: 698\n Cursor: \"Cursors.Tag\"\n Apply: \"View.Highway5 Apply\"\n)\n\n(AVIcon.698\n Name: \"GenericHighway2\"\n Res: \"Icons.GenericHighway2\"\n\n)\n\n(ToolMenu.699\n Help: \"Text//Creates text on the display\"\n HelpTopic: \"Tex t_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 700\n Cursor: \"Cursors.Text\"\n Apply: \"View.TextTool\"\n Click: \"SymWin.DisplayFontPanel\"\n Child: 701\n Child: 702\n Child: 704\n Child: 706\n Child: 708\n Child: 710\n)\n\n(AVIcon.700\n Name: \"Text\"\n Res: \"Icons.Text\"\n\n)\n\n(Tool.701\n Help: \"Text//Creates text on the display\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 700\n Cursor: \"Cursors.Text\"\n Apply: \"View.TextTool\"\n Click: \"SymWin.DisplayFontPanel\"\n)\n\n(Tool.702\n Help: \"Callout Text//Click and drag to wh ere you want your text to appear, then enter the text\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 703\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.CalloutTextTool\"\n)\n\n(AVIcon.703\n Name: \"CallOutText1\"\n Res: \"Icons.CallOutText1\"\n\n)\n\n(Tool.704\n Help: \"Bullet Leader Text//Click and drag to where you want your text to appear, then enter the text\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 705\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.BulletLeaderTextTool\"\n)\n\n(AVIcon.705\n Name: \"CallOutText2\"\n Res: \"Icons.CallOutText2\"\n\n)\n\n(Tool.706\n Help: \"Banner Text//Click where you want your label to appear and enter your text\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 707\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.ShadowBoxTextTool\"\n)\n\n(AVIcon.707\n Name: \"CallOutText3\"\n Res: \"Icons.CallOutText3\"\n\n)\n\n(Tool.708\n Help: \"Drop-Shadow Text//Click where you want your text to appear and enter your text\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 709\n Cursor: \"Cu rsors.Target\"\n Apply: \"View.CreateDropShadowText\"\n)\n\n(AVIcon.709\n Name: \"DropShadowText\"\n Res: \"Icons.DropShadowText\"\n\n)\n\n(Tool.710\n Help: \"Spline Text//Adds text that is aligned to a splined baseline\"\n HelpTopic: \"Text_tool\"\n Update: \"View.TextToolUpdate\"\n Icon: 711\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.SplineText\"\n)\n\n(AVIcon.711\n Name: \"TextAligned\"\n Res: \"Icons.TextAligned\"\n\n)\n\n(ToolMenu.712\n Help: \"Draw Point//Creates a point on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PointToolUpdate\"\n I con: 713\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.PointTool\"\n Click: \"SymWin.DisplayMarkerPanel\"\n Child: 714\n Child: 715\n Child: 717\n Child: 719\n Child: 721\n Child: 723\n Child: 725\n Child: 727\n Child: 729\n)\n\n(AVIcon.713\n Name: \"Point\"\n Res: \"Icons.Point\"\n\n)\n\n(Tool.714\n Help: \"Draw Point//Creates a point on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PointToolUpdate\"\n Icon: 713\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.PointTool\"\n Click: \"SymWin.DisplayMarkerPanel\"\n)\n\n(Tool.715\n Help: \"Draw Straig ht Line//Creates a line on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.GraphicToolUpdate\"\n Icon: 716\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.LineTool\"\n Click: \"SymWin.DisplayPenPanel\"\n)\n\n(AVIcon.716\n Name: \"SelectLine\"\n Res: \"Icons.SelectLine\"\n\n)\n\n(Tool.717\n Help: \"Draw Line//Creates a line with two or more points on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PolyLineToolUpdate\"\n Icon: 718\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.PolyLineTool\"\n Click: \"SymWin.DisplayPenPanel\"\n)\n\n(AVIco n.718\n Name: \"Lines\"\n Res: \"Icons.Lines\"\n\n)\n\n(Tool.719\n Help: \"Draw Rectangle//Creates a rectangle on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PolyToolUpdate\"\n Icon: 720\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.RectTool\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.720\n Name: \"Rect\"\n Res: \"Icons.Rect\"\n\n)\n\n(Tool.721\n Help: \"Draw Circle//Creates a circle on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PolyToolUpdate\"\n Icon: 722\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.CircleTool\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.722\n Name: \"Disk\"\n Res: \"Icons.Disk\"\n\n)\n\n(Tool.723\n Help: \"Draw Polygon//Creates a polygon on the display\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.PolyToolUpdate\"\n Icon: 724\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.PolyTool\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.724\n Name: \"Poly\"\n Res: \"Icons.Poly\"\n\n)\n\n(Tool.725\n Disabled: 1\n Help: \"Draw Line to Split Feature//Creates a line to split line features\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.SplitLineToolUpdate\"\n Ico n: 726\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.SplitTool\"\n)\n\n(AVIcon.726\n Name: \"SplitLine\"\n Res: \"Icons.SplitLine\"\n\n)\n\n(Tool.727\n Disabled: 1\n Help: \"Draw Line to Split Polygon//Creates a line to split polygon features\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.SplitPolyToolUpdate\"\n Icon: 728\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.SplitTool\"\n)\n\n(AVIcon.728\n Name: \"SplitPoly\"\n Res: \"Icons.SplitPoly\"\n\n)\n\n(Tool.729\n Disabled: 1\n Help: \"Draw Line to Append Polygon//Appends a new polygon adjacent to other p olygons\"\n HelpTopic: \"Draw_tool\"\n Update: \"View.AutoCompleteUpdate\"\n Icon: 730\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.AutoCompleteTool\"\n)\n\n(AVIcon.730\n Name: \"AutoComplete\"\n Res: \"Icons.AutoComplete\"\n\n)\n\n(Space.731\n)\n\n(ToolMenu.732\n Disabled: 1\n Invisible: 1\n Help: \"Snap//Sets the general snapping tolerance for the editable theme\"\n HelpTopic: \"Snap_tools\"\n Update: \"View.SnapToolUpdate\"\n Icon: 733\n Cursor: \"Cursors.Default\"\n Apply: \"View.SnapTool\"\n Child: 734\n Child: 735\n)\n\n(AVIcon.733\n Name: \"SnapTool\"\n Res: \"Icons.SnapTool\"\n\n)\n\n(Tool.734\n Disabled: 1\n Invisible: 1\n Help: \"Snap//Sets the general snapping tolerance for the editable theme\"\n HelpTopic: \"Snap_tools\"\n Update: \"View.SnapToolUpdate\"\n Icon: 733\n Cursor: \"Cursors.Default\"\n Apply: \"View.SnapTool\"\n)\n\n(Tool.735\n Disabled: 1\n Invisible: 1\n Help: \"Snap//Sets the interactive snapping tolerance for the editable theme\"\n HelpTopic: \"Snap_tools\"\n Update: \"View.InteractiveSnapToolUpdate\"\n Icon: 736\n Cursor: \"Cursors.Default\"\n Apply: \"View.InteractiveSnapTool \"\n)\n\n(AVIcon.736\n Name: \"SnapFeatureTool\"\n Res: \"Icons.SnapFeatureTool\"\n\n)\n\n(Space.737\n)\n\n(Space.738\n)\n\n(Tool.739\n Disabled: 1\n Help: \"Show Lat/Long//Show Lat/Long coordinates for selected point on display.\"\n Update: \"View.HasDataUpdate\"\n Icon: 740\n Cursor: \"Cursors.CrossHair\"\n Apply: \"View.UTM2LATLONG\"\n)\n\n(AVIcon.740\n Name: \"D\"\n Res: \"Icons.D\"\n\n)\n\n(AVIcon.741\n Name: \"Icon\"\n Res: \"View.Icon\"\n\n)\n\n(DocGUI.742\n Name: \"Table\"\n Type: \"Table\"\n Modified: 1\n Visible: 1\n MenuBar: 743\n ButnBar: 819\n Popups: 862\n Tool Bar: 863\n NewScript: \"Table.New\"\n OpenScript: \"Doc.Open\"\n ActionScript: \"Table.Action\"\n NewUpdateScript: \"Doc.NewUpdate\"\n OpenUpdateScript: \"Doc.OpenUpdate\"\n ActionUpdateScript: \"Table.ActionUpdate\"\n Title: \"Tables\"\n Icon: 870\n)\n\n(MenuBar.743\n Child: 744\n Child: 758\n Child: 774\n Child: 794\n Child: 803\n Child: 813\n)\n\n(PMenu.744\n InternalName: \"File\"\n Child: 745\n Child: 746\n Child: 747\n Child: 748\n Child: 749\n Child: 750\n Child: 751\n Child: 752\n Child: 753\n Child: 754\n Child: 755\n Child: 756\n Child: 757\n Labe l: \"&File\"\n)\n\n(Choice.745\n Help: \"Closes the active component\"\n HelpTopic: \"Close\"\n Label: \"&Close\"\n Click: \"Project.CloseDoc\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.746\n Help: \"Closes all components\"\n HelpTopic: \"Close_All\"\n Label: \"Close &All\"\n Click: \"Project.CloseAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.747\n)\n\n(Choice.748\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.749\n Help: \"Saves the current project with a ne w name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.750\n)\n\n(Choice.751\n Help: \"Displays the Extensions Dialog\"\n HelpTopic: \"Extensions\"\n Label: \"Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.752\n)\n\n(Choice.753\n Help: \"Prints the table\"\n HelpTopic: \"Print\"\n Label: \"&Print...\"\n Click: \"Doc.Print\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.754\n Help: \"Edits the printer and the printing options\"\n HelpTopic: \"Print_S etup\"\n Update: \"PrintSetupUpdate\"\n Label: \"P&rint Setup...\"\n Click: \"Project.PrintSetup\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.755\n Help: \"Exports the current table to a dBASE, INFO, or text file\"\n HelpTopic: \"Export_Table\"\n Update: \"Table.ExportUpdate\"\n Label: \"&Export...\"\n Click: \"Table.Export\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.756\n)\n\n(Choice.757\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.758\n InternalName: \"Edit\"\n Child: 759\n Child: 760\n C hild: 761\n Child: 762\n Child: 763\n Child: 764\n Child: 765\n Child: 766\n Child: 767\n Child: 768\n Child: 769\n Child: 770\n Child: 771\n Child: 772\n Child: 773\n Label: \"&Edit\"\n)\n\n(Choice.759\n Disabled: 1\n Help: \"Cuts the selected cell to the clipboard\"\n HelpTopic: \"Cut\"\n Update: \"Table.CutUpdate\"\n Label: \"Cu&t\"\n Click: \"Table.Cut\"\n Shortcut: \"Keys.Ctrl+X\"\n)\n\n(Choice.760\n Disabled: 1\n Help: \"Copies the selected cell to the clipboard\"\n HelpTopic: \"Copy\"\n Update: \"Table.CutUpdate\"\n Label: \"&Copy\"\n Click: \"Table.Copy \"\n Shortcut: \"Keys.Ctrl+C\"\n)\n\n(Choice.761\n Disabled: 1\n Help: \"Inserts the contents of the Clipboard into the active cell\"\n HelpTopic: \"Paste\"\n Update: \"Table.CutUpdate\"\n Label: \"&Paste\"\n Click: \"Table.Paste\"\n Shortcut: \"Keys.Ctrl+V\"\n)\n\n(Space.762\n)\n\n(Choice.763\n Disabled: 1\n Help: \"Undo the last edit operation on the Table\"\n HelpTopic: \"Undo_Edit_on_a_table\"\n Update: \"Table.UndoEditUpdate\"\n Label: \"&Undo Edit\"\n Click: \"Table.UndoEdit\"\n Shortcut: \"Keys.Ctrl+Z\"\n)\n\n(Choice.764\n Disabled: 1\n Help: \"Redo the la st undone operation on the Table\"\n HelpTopic: \"Redo_Edit_on_a_table\"\n Update: \"Table.RedoEditUpdate\"\n Label: \"Red&o Edit\"\n Click: \"Table.RedoEdit\"\n Shortcut: \"Keys.Ctrl+Y\"\n)\n\n(Space.765\n)\n\n(Choice.766\n Disabled: 1\n Help: \"Adds a new field to the table\"\n HelpTopic: \"Add_Field\"\n Update: \"Table.AddFieldUpdate\"\n Label: \"Add &Field...\"\n Click: \"Table.AddField\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.767\n Disabled: 1\n Help: \"Adds a new record at the bottom of the table\"\n HelpTopic: \"Add_Record\"\n Update: \"Table.AddRecor dUpdate\"\n Label: \"Add &Record\"\n Click: \"Table.AddRecord\"\n Shortcut: \"Keys.Ctrl+A\"\n)\n\n(Choice.768\n Disabled: 1\n Help: \"Deletes the active field from the table\"\n HelpTopic: \"Delete_Field\"\n Update: \"Table.DeleteFieldUpdate\"\n Label: \"&Delete Field\"\n Click: \"Table.DeleteField\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.769\n Disabled: 1\n Help: \"Deletes the selected records from the table\"\n HelpTopic: \"Delete_Records\"\n Update: \"Table.DeleteRecordsUpdate\"\n Label: \"D&elete Records\"\n Click: \"Table.DeleteRecords\"\n Shortcut: \"K eys.None\"\n)\n\n(Space.770\n)\n\n(Choice.771\n Help: \"Selects all records in the table\"\n HelpTopic: \"Select_All\"\n Label: \"Select &All\"\n Click: \"Table.SelectAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.772\n Help: \"Unselects all records in the table\"\n HelpTopic: \"Select_None_in_a_table\"\n Label: \"Select &None\"\n Click: \"Table.UnselectAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.773\n Help: \"Toggles selected and unselected records in the table\"\n HelpTopic: \"Switch_Selection\"\n Label: \"&Switch Selection\"\n Click: \"Table.SwitchSelectio n\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.774\n InternalName: \"Table\"\n Child: 775\n Child: 776\n Child: 777\n Child: 778\n Child: 779\n Child: 780\n Child: 781\n Child: 782\n Child: 783\n Child: 784\n Child: 785\n Child: 786\n Child: 787\n Child: 788\n Child: 789\n Child: 790\n Child: 791\n Child: 792\n Child: 793\n Label: \"&Table\"\n)\n\n(Choice.775\n Help: \"Displays the dialog box to edit properties of the table\"\n HelpTopic: \"Table_Properties\"\n Label: \"&Properties...\"\n Click: \"Table.Properties\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.776\n He lp: \"Field Properties//Report the selected table's field properties\"\n Label: \"Field Properties\"\n Click: \"Table.ReportInfo\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.777\n)\n\n(Choice.778\n Help: \"Creates a chart from the table\"\n HelpTopic: \"Create_Chart\"\n Update: \"Table.ChartUpdate\"\n Label: \"&Chart...\"\n Click: \"Table.Chart\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.779\n Help: \"Starts or stops editing of table values\"\n HelpTopic: \"Start_Stop_Editing\"\n Update: \"Table.ToggleEditingUpdate\"\n Label: \"Start &Editing\"\n Click: \"Table.To ggleEditing\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.780\n Disabled: 1\n Help: \"Saves edits to the source file\"\n HelpTopic: \"Save_edits_table\"\n Update: \"Table.SaveEditsUpdate\"\n Label: \"Save Ed&its\"\n Click: \"Table.SaveEdits\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.781\n Disabled: 1\n Help: \"Save edits to a new source file\"\n HelpTopic: \"Save_edits_as_table\"\n Update: \"Table.SaveEditsUpdate\"\n Label: \"Save E&dits As...\"\n Click: \"Table.SaveEditsAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.782\n Help: \"Delete Fields//Deletes Multiple Fie lds in a Table\"\n Label: \"Delete Fields\"\n Click: \"Table.MultiFieldDelete\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.783\n)\n\n(Choice.784\n Help: \"Finds the row in the table using the text you enter\"\n HelpTopic: \"Find\"\n Label: \"&Find...\"\n Click: \"Table.Find\"\n Shortcut: \"Keys.Ctrl+F\"\n)\n\n(Choice.785\n Help: \"Displays the Query Builder to select records with a logical expression\"\n HelpTopic: \"Query_Builder\"\n Label: \"&Query...\"\n Click: \"Table.Query\"\n Shortcut: \"Keys.Ctrl+Q\"\n)\n\n(Choice.786\n Disabled: 1\n Help: \"Promotes selecte d rows to the top of the table\"\n HelpTopic: \"Promote\"\n Update: \"Table.PromoteUpdate\"\n Label: \"Pr&omote\"\n Click: \"Table.Promote\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.787\n)\n\n(Choice.788\n Disabled: 1\n Help: \"Appends the fields of another table to the active table based on a common field\"\n HelpTopic: \"Join\"\n Update: \"Table.JoinUpdate\"\n Label: \"&Join\"\n Click: \"Table.Join\"\n Shortcut: \"Keys.Ctrl+J\"\n)\n\n(Choice.789\n Disabled: 1\n Help: \"Removes any fields joined to the table\"\n HelpTopic: \"Remove_All_Joins\"\n Update: \"Tabl e.HasJoinsUpdate\"\n Label: \"&Remove All Joins\"\n Click: \"Table.RemoveAllJoins\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.790\n Disabled: 1\n Help: \"Associates the selection of the active table with another table\"\n HelpTopic: \"Link\"\n Update: \"Table.LinkUpdate\"\n Label: \"&Link\"\n Click: \"Table.Link\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.791\n Disabled: 1\n Help: \"Removes the association between the active table and its linked tables\"\n HelpTopic: \"Remove_All_Links\"\n Update: \"Table.HasLinksUpdate\"\n Label: \"Re&move All Links\"\n Clic k: \"Table.RemoveAllLinks\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.792\n)\n\n(Choice.793\n Help: \"Refreshes the table\"\n HelpTopic: \"Refresh\"\n Label: \"Refres&h\"\n Click: \"Table.Refresh\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.794\n InternalName: \"Field\"\n Child: 795\n Child: 796\n Child: 797\n Child: 798\n Child: 799\n Child: 800\n Child: 801\n Child: 802\n Label: \"F&ield\"\n)\n\n(Choice.795\n Disabled: 1\n Help: \"Sorts rows in ascending order (A-Z), (0-9)\"\n HelpTopic: \"Sort_table\"\n Update: \"Table.SortUpdate\"\n Label: \"Sort &Ascending\"\n Click: \"Table.SortAscending\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.796\n Disabled: 1\n Help: \"Sorts rows in descending order (Z-A), (9-0)\"\n HelpTopic: \"Sort_table\"\n Update: \"Table.SortUpdate\"\n Label: \"Sort &Descending\"\n Click: \"Table.SortDescending\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.797\n)\n\n(Choice.798\n Disabled: 1\n Help: \"Creates or removes an index on the active field\"\n HelpTopic: \"Create_Remove_Index\"\n Update: \"Table.IndexUpdate\"\n Label: \"Create &Index\"\n Click: \"Table.Index\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.799\n)\n\n(Cho ice.800\n Disabled: 1\n Help: \"Creates a summary table grouped by the active field\"\n HelpTopic: \"Summarize\"\n Update: \"Table.SortUpdate\"\n Label: \"&Summarize...\"\n Click: \"Table.Summarize\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.801\n Disabled: 1\n Help: \"Calculates the value of a field\"\n HelpTopic: \"Calculate\"\n Update: \"Table.CalculateUpdate\"\n Label: \"&Calculate...\"\n Click: \"Table.Calculate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.802\n Disabled: 1\n Help: \"Generates a report of statistics for data in the active, numeric field \"\n HelpTopic: \"Statistics\"\n Update: \"Table.StatisticsUpdate\"\n Label: \"S&tatistics...\"\n Click: \"Table.Statistics\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.803\n InternalName: \"Window\"\n Child: 804\n Child: 805\n Child: 806\n Child: 807\n Child: 808\n Child: 809\n Child: 811\n Child: 812\n Label: \"&Window\"\n)\n\n(Choice.804\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.805\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Casc ade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.806\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Icons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.807\n)\n\n(Choice.808\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.809\n ObjectTag: 810\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.810\n S: \"defproj31b.apr atvtrln3.dbf\"\n)\n\n(Choic e.811\n Help: \"Activates defproj31b.apr\"\n Label: \"&1 defproj31b.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.812\n Help: \"Activates atvtrln3.dbf\"\n Label: \"&2 atvtrln3.dbf\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.813\n InternalName: \"Help\"\n Child: 814\n Child: 815\n Child: 816\n Child: 817\n Child: 818\n Label: \"&Help\"\n)\n\n(Choice.814\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"P roject.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.815\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.816\n Help: \"Open Documentation for DNR Default Project For ArcView 3.1\"\n Tag: \"avdefpr.pdf\"\n Label: \"DNR Default Project Help\"\n Click: \"DNR.ShowHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.817\n)\n\n(Choice.818\n Help: \"Provides information about ArcView\"\n HelpTopic: \" About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.819\n Child: 820\n Child: 822\n Child: 823\n Child: 825\n Child: 827\n Child: 829\n Child: 830\n Child: 832\n Child: 834\n Child: 836\n Child: 837\n Child: 839\n Child: 840\n Child: 842\n Child: 844\n Child: 846\n Child: 847\n Child: 849\n Child: 850\n Child: 852\n Child: 854\n Child: 855\n Child: 857\n Child: 859\n Child: 860\n)\n\n(Butn.820\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 821\n Click: \"Proje ct.Save\"\n)\n\n(AVIcon.821\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.822\n)\n\n(Butn.823\n Disabled: 1\n Help: \"Cut//Cuts the selected cell to the clipboard\"\n HelpTopic: \"Cut\"\n Update: \"Table.CutUpdate\"\n Icon: 824\n Click: \"Table.Cut\"\n)\n\n(AVIcon.824\n Name: \"Cut\"\n Res: \"Icons.Cut\"\n\n)\n\n(Butn.825\n Disabled: 1\n Help: \"Copy//Copies the selected cell to the clipboard\"\n HelpTopic: \"Copy\"\n Update: \"Table.CutUpdate\"\n Icon: 826\n Click: \"Table.Copy\"\n)\n\n(AVIcon.826\n Name: \"Copy\"\n Res: \"Icons.Copy\"\n\n)\n\n(Butn.827\n Disabled: 1\n Help: \"Paste//Inserts the contents of the Clipboard into the active cell\"\n HelpTopic: \"Paste\"\n Update: \"Table.CutUpdate\"\n Icon: 828\n Click: \"Table.Paste\"\n)\n\n(AVIcon.828\n Name: \"Paste\"\n Res: \"Icons.Paste\"\n\n)\n\n(Space.829\n)\n\n(Butn.830\n Help: \"Select All//Selects all records in the table\"\n HelpTopic: \"Select_All\"\n Icon: 831\n Click: \"Table.SelectAll\"\n)\n\n(AVIcon.831\n Name: \"SelectAll\"\n Res: \"Icons.SelectAll\"\n\n)\n\n(Butn.832\n Help: \"Select None//Unselects all records in the table\"\n HelpTopic: \"Select_None_in_a_table \"\n Icon: 833\n Click: \"Table.UnselectAll\"\n)\n\n(AVIcon.833\n Name: \"SelectNone\"\n Res: \"Icons.SelectNone\"\n\n)\n\n(Butn.834\n Help: \"Switch Selection//Toggles selected and unselected records in the table\"\n HelpTopic: \"Switch_Selection\"\n Icon: 835\n Click: \"Table.SwitchSelection\"\n)\n\n(AVIcon.835\n Name: \"SwitchSelect\"\n Res: \"Icons.SwitchSelect\"\n\n)\n\n(Space.836\n)\n\n(Butn.837\n Help: \"Create Chart//Creates a chart from the table\"\n HelpTopic: \"Create_Chart\"\n Update: \"Table.ChartUpdate\"\n Icon: 838\n Click: \"Table.Chart\"\n)\n\n(AVIc on.838\n Name: \"MakeChart\"\n Res: \"Icons.MakeChart\"\n\n)\n\n(Space.839\n)\n\n(Butn.840\n Help: \"Find//Finds the row in the table using the text you enter\"\n HelpTopic: \"Find\"\n Icon: 841\n Click: \"Table.Find\"\n)\n\n(AVIcon.841\n Name: \"Find\"\n Res: \"Icons.Find\"\n\n)\n\n(Butn.842\n Help: \"Query Builder//Displays the Query Builder to select records with a logical expression\"\n HelpTopic: \"Query_Builder\"\n Icon: 843\n Click: \"Table.Query\"\n)\n\n(AVIcon.843\n Name: \"QueryBuilder\"\n Res: \"Icons.QueryBuilder\"\n\n)\n\n(Butn.844\n Disabled: 1\n Help: \"Promote//Promotes selected rows to the top of the table\"\n HelpTopic: \"Promote\"\n Update: \"Table.PromoteUpdate\"\n Icon: 845\n Click: \"Table.Promote\"\n)\n\n(AVIcon.845\n Name: \"Promote\"\n Res: \"Icons.Promote\"\n\n)\n\n(Space.846\n)\n\n(Butn.847\n Disabled: 1\n Help: \"Join//Appends the fields of another table to the active table based on a common field\"\n HelpTopic: \"Join\"\n Update: \"Table.JoinUpdate\"\n Icon: 848\n Click: \"Table.Join\"\n)\n\n(AVIcon.848\n Name: \"Join\"\n Res: \"Icons.Join\"\n\n)\n\n(Space.849\n)\n\n(Butn.850\n Disabled: 1\n Help: \" Summarize//Creates a summary table grouped by the active field\"\n HelpTopic: \"Summarize\"\n Update: \"Table.SortUpdate\"\n Icon: 851\n Click: \"Table.Summarize\"\n)\n\n(AVIcon.851\n Name: \"Summarize\"\n Res: \"Icons.Summarize\"\n\n)\n\n(Butn.852\n Disabled: 1\n Help: \"Calculate//Calculates the value of a field\"\n HelpTopic: \"Calculate\"\n Update: \"Table.CalculateUpdate\"\n Icon: 853\n Click: \"Table.Calculate\"\n)\n\n(AVIcon.853\n Name: \"Calculator\"\n Res: \"Icons.Calculator\"\n\n)\n\n(Space.854\n)\n\n(Butn.855\n Disabled: 1\n Help: \"Sort Ascending//Sor ts rows in ascending order (A-Z), (0-9)\"\n HelpTopic: \"Sort_table\"\n Update: \"Table.SortUpdate\"\n Icon: 856\n Click: \"Table.SortAscending\"\n)\n\n(AVIcon.856\n Name: \"SortAscending\"\n Res: \"Icons.SortAscending\"\n\n)\n\n(Butn.857\n Disabled: 1\n Help: \"Sort Descending//Sorts rows in descending order (Z-A), (9-0)\"\n HelpTopic: \"Sort_table\"\n Update: \"Table.SortUpdate\"\n Icon: 858\n Click: \"Table.SortDescending\"\n)\n\n(AVIcon.858\n Name: \"SortDescending\"\n Res: \"Icons.SortDescending\"\n\n)\n\n(Space.859\n)\n\n(Butn.860\n Help: \"Help//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 861\n Click: \"Help.Tool\"\n)\n\n(AVIcon.861\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(PopupSet.862\n)\n\n(ToolBar.863\n Child: 864\n Child: 866\n Child: 868\n)\n\n(Tool.864\n Help: \"Select//Selects records in the table\"\n HelpTopic: \"Select_tool\"\n Icon: 865\n Cursor: \"Cursors.Default\"\n Apply: \"Table.Select\"\n Click: \"Table.StopEditing\"\n)\n\n(AVIcon.865\n Name: \"Select\"\n Res: \"Icons.Select\"\n\n)\n\n(Tool.866\n Disabled: 1\n Help: \"Edit//Change s cell values\"\n HelpTopic: \"Edit_tool\"\n Update: \"Table.IsEditableUpdate\"\n Icon: 867\n Cursor: \"Cursors.Finger\"\n Apply: \"Table.Edit\"\n)\n\n(AVIcon.867\n Name: \"Edit\"\n Res: \"Icons.Edit\"\n\n)\n\n(Tool.868\n Help: \"Identify//Provides information about a record\"\n HelpTopic: \"Identify_tool\"\n Icon: 869\n Cursor: \"Cursors.ID\"\n Apply: \"Table.Identify\"\n Click: \"Table.StopEditing\"\n)\n\n(AVIcon.869\n Name: \"ID\"\n Res: \"Icons.ID\"\n\n)\n\n(AVIcon.870\n Name: \"Icon\"\n Res: \"Table.Icon\"\n\n)\n\n(DocGUI.871\n Name: \"Chart\"\n Type: \"Chart\"\n Modified: 1\n Visible: 1\n MenuBar: 872\n ButnBar: 923\n Popups: 954\n ToolBar: 955\n NewScript: \"Chart.New\"\n OpenScript: \"Doc.Open\"\n ActionScript: \"Doc.Action\"\n NewUpdateScript: \"Chart.NewUpdate\"\n OpenUpdateScript: \"Doc.OpenUpdate\"\n ActionUpdateScript: \"Doc.ActionUpdate\"\n Title: \"Charts\"\n Icon: 966\n)\n\n(MenuBar.872\n Child: 873\n Child: 886\n Child: 888\n Child: 895\n Child: 907\n Child: 917\n)\n\n(PMenu.873\n InternalName: \"File\"\n Child: 874\n Child: 875\n Child: 876\n Child: 877\n Child: 878\n Child: 879\n Child: 880\n Child: 881\n Child: 882\n Child: 883\n Child: 884\n Child: 885\n Label: \"&File\"\n)\n\n(Choice.874\n Help: \"Closes the active component\"\n HelpTopic: \"Close\"\n Label: \"&Close\"\n Click: \"Project.CloseDoc\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.875\n Help: \"Closes all components\"\n HelpTopic: \"Close_All\"\n Label: \"Close &All\"\n Click: \"Project.CloseAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.876\n)\n\n(Choice.877\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.8 78\n Help: \"Saves the current project with a new name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.879\n)\n\n(Choice.880\n Help: \"Displays the Extensions Dialog\"\n HelpTopic: \"Extensions\"\n Label: \"Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.881\n)\n\n(Choice.882\n Disabled: 1\n Help: \"Prints the chart\"\n HelpTopic: \"Print\"\n Label: \"&Print...\"\n Click: \"Doc.Print\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.883\n Help: \"Edits the printer and the printing options\"\n HelpTopic: \"Print_Setup\"\n Update: \"PrintSetupUpdate\"\n Label: \"P&rint Setup...\"\n Click: \"Project.PrintSetup\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.884\n)\n\n(Choice.885\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.886\n InternalName: \"Edit\"\n Child: 887\n Label: \"&Edit\"\n)\n\n(Choice.887\n Disabled: 1\n Help: \"Undoes the last erase\"\n HelpTopic: \"Undo_Erase\"\n Update: \"Chart.UndoUpdate\"\n Label: \"&Undo Erase\"\n Click: \"C hart.Undo\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.888\n InternalName: \"Gallery\"\n Child: 889\n Child: 890\n Child: 891\n Child: 892\n Child: 893\n Child: 894\n Label: \"&Gallery\"\n)\n\n(Choice.889\n Help: \"Displays the Area chart gallery\"\n HelpTopic: \"Area_Chart_Gallery\"\n Label: \"&Area...\"\n Click: \"Chart.AreaGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.890\n Help: \"Displays the Bar chart gallery\"\n HelpTopic: \"Bar_Chart_Gallery\"\n Label: \"&Bar...\"\n Click: \"Chart.BarGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.891\n Help: \"Displays th e Column chart gallery\"\n HelpTopic: \"Column_Chart_Gallery\"\n Label: \"&Column...\"\n Click: \"Chart.ColumnGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.892\n Help: \"Displays the Line chart gallery\"\n HelpTopic: \"Line_Chart_Gallery\"\n Label: \"&Line...\"\n Click: \"Chart.LineGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.893\n Help: \"Displays the Pie chart gallery\"\n HelpTopic: \"Pie_Chart_Gallery\"\n Label: \"&Pie...\"\n Click: \"Chart.PieGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.894\n Disabled: 1\n Help: \"Displays the XY Scatter chart gallery\"\n HelpTopic: \"Scatter_Chart_Gallery\"\n Update: \"Chart.TwoColumnUpdate\"\n Label: \"XY &Scatter...\"\n Click: \"Chart.ScatterGallery\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.895\n InternalName: \"Chart\"\n Child: 896\n Child: 897\n Child: 898\n Child: 899\n Child: 900\n Child: 901\n Child: 902\n Child: 903\n Child: 904\n Child: 905\n Child: 906\n Label: \"&Chart\"\n)\n\n(Choice.896\n Help: \"Displays the dialog box to edit properties of the chart\"\n HelpTopic: \"Chart_Properties\"\n Label: \"&Properties...\"\n Click: \"Chart.Properties\"\n Shor tcut: \"Keys.None\"\n)\n\n(Choice.897\n Help: \"Duplicate Chart//Creates a new Chart Document by making a duplicate of the active Chart Document\"\n Label: \"&Duplicate Chart\"\n Click: \"Document.Duplicate\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.898\n)\n\n(Choice.899\n Disabled: 1\n Help: \"Toggles series from records / series from fields\"\n HelpTopic: \"Series_From_Records_Fields\"\n Update: \"Chart.ToggleUpdateMenu\"\n Label: \"&Series From Fields\"\n Click: \"Chart.Toggle\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.900\n)\n\n(Choice.901\n Help: \"Finds the row in the table using the text you enter\"\n HelpTopic: \"Find\"\n Label: \"&Find...\"\n Click: \"Chart.Find\"\n Shortcut: \"Keys.Ctrl+F\"\n)\n\n(Space.902\n)\n\n(Choice.903\n Help: \"Shows or hides the chart's title\"\n HelpTopic: \"Show_Hide_Chart_Title\"\n Update: \"Chart.ToggleTitleUpdate\"\n Label: \"Hide &Title\"\n Click: \"Chart.ToggleTitle\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.904\n Help: \"Shows or hides the chart's legend\"\n HelpTopic: \"Show_Hide_Chart_Legend\"\n Update: \"Chart.ToggleLegendUpdate\"\n Label: \"Hide &Legend\"\n Click: \"Cha rt.ToggleLegend\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.905\n Help: \"Shows or hides the chart's X Axis\"\n HelpTopic: \"Show_Hide_Chart_X_Axis\"\n Update: \"Chart.ToggleXAxisUpdate\"\n Label: \"Hide &X Axis\"\n Click: \"Chart.ToggleXAxis\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.906\n Help: \"Shows or hides the chart's Y Axis\"\n HelpTopic: \"Show_Hide_Chart_Y_Axis\"\n Update: \"Chart.ToggleYAxisUpdate\"\n Label: \"Hide &Y Axis\"\n Click: \"Chart.ToggleYAxis\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.907\n InternalName: \"Window\"\n Child: 908\n Child: 909\n C hild: 910\n Child: 911\n Child: 912\n Child: 913\n Child: 915\n Child: 916\n Label: \"&Window\"\n)\n\n(Choice.908\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.909\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Cascade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.910\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Icons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.911\n)\n\n(Choice.912\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.913\n ObjectTag: 914\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.914\n S: \"dnrdef.apr Chart1\"\n)\n\n(Choice.915\n Help: \"Activates dnrdef.apr\"\n Label: \"&1 dnrdef.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.916\n Help: \"Activates Chart1\"\n Label: \"&2 Chart1\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys .None\"\n)\n\n(PMenu.917\n InternalName: \"Help\"\n Child: 918\n Child: 919\n Child: 920\n Child: 921\n Child: 922\n Label: \"&Help\"\n)\n\n(Choice.918\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.919\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.920\n Help: \"Open Documentation for DNR Default Project for ArcView 3.1\"\n Tag: \"avdefpr.pdf\"\n Label: \"DNR Default Project Help\"\n Click: \"DNR.ShowHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.921\n)\n\n(Choice.922\n Help: \"Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.923\n Child: 924\n Child: 926\n Child: 927\n Child: 929\n Child: 930\n Child: 932\n Child: 934\n Child: 936\n Child: 938\n Child: 940\n Child: 942\n Child: 943\n Child: 945\n Child: 947\n Child: 949\n Child: 951\n Child: 952\n)\n\n(Butn.924\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 925\n Click: \"Project.Save\"\n)\n\n(AVIcon.925\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.926\n)\n\n(Butn.927\n Disabled: 1\n Help: \"Undo Erase//Undoes the last erase\"\n HelpTopic: \"Undo_Erase\"\n Update: \"Chart.UndoUpdate\"\n Icon: 928\n Click: \"Chart.Undo\"\n)\n\n(AVIcon.928\n Name: \"Undo\"\n Res: \"Icons.Undo\"\n\n)\n\n(Space.929\n)\n\n(Butn.930\n Help: \"Area Chart Galle ry//Displays the Area chart gallery\"\n HelpTopic: \"Area_Chart_Gallery\"\n Icon: 931\n Click: \"Chart.AreaGallery\"\n)\n\n(AVIcon.931\n Name: \"Area\"\n Res: \"Icons.Area\"\n\n)\n\n(Butn.932\n Help: \"Bar Chart Gallery//Displays the Bar chart gallery\"\n HelpTopic: \"Bar_Chart_Gallery\"\n Icon: 933\n Click: \"Chart.BarGallery\"\n)\n\n(AVIcon.933\n Name: \"Icon2\"\n Res: \"Icons.Icon2\"\n\n)\n\n(Butn.934\n Help: \"Column Chart Gallery//Displays the Column chart gallery\"\n HelpTopic: \"Column_Chart_Gallery\"\n Icon: 935\n Click: \"Chart.ColumnGallery\"\n)\n\n(AVI con.935\n Name: \"Icon3\"\n Res: \"Icons.Icon3\"\n\n)\n\n(Butn.936\n Help: \"Line Chart Gallery//Displays the Line chart gallery\"\n HelpTopic: \"Line_Chart_Gallery\"\n Icon: 937\n Click: \"Chart.LineGallery\"\n)\n\n(AVIcon.937\n Name: \"Icon12\"\n Res: \"Icons.Icon12\"\n\n)\n\n(Butn.938\n Help: \"Pie Chart Gallery//Displays the Pie chart gallery\"\n HelpTopic: \"Pie_Chart_Gallery\"\n Icon: 939\n Click: \"Chart.PieGallery\"\n)\n\n(AVIcon.939\n Name: \"Pie\"\n Res: \"Icons.Pie\"\n\n)\n\n(Butn.940\n Disabled: 1\n Help: \"XY Scatter Chart Gallery//Displays the XY Scat ter chart gallery\"\n HelpTopic: \"Scatter_Chart_Gallery\"\n Update: \"Chart.TwoColumnUpdate\"\n Icon: 941\n Click: \"Chart.ScatterGallery\"\n)\n\n(AVIcon.941\n Name: \"Icon5\"\n Res: \"Icons.Icon5\"\n\n)\n\n(Space.942\n)\n\n(Butn.943\n Help: \"Chart Properties//Displays the dialog box to edit properties of the chart\"\n HelpTopic: \"Chart_Properties\"\n Icon: 944\n Click: \"Chart.Properties\"\n)\n\n(AVIcon.944\n Name: \"Props\"\n Res: \"Icons.Props\"\n\n)\n\n(Butn.945\n Help: \"Load Theme Legend//Symbolizes a chart based on a theme's legend\"\n Icon: 946\n Cli ck: \"Chart.MatchLegendtoTheme\"\n)\n\n(AVIcon.946\n Name: \"Legend\"\n Res: \"Icons.Legend\"\n\n)\n\n(Butn.947\n Disabled: 1\n Help: \"Series from Records/Fields//Toggles series from records / series from fields\"\n HelpTopic: \"Series_From_Records_Fields\"\n Update: \"Chart.ToggleUpdate\"\n Icon: 948\n Click: \"Chart.Toggle\"\n)\n\n(AVIcon.948\n Name: \"SeriesRowCol\"\n Res: \"Icons.SeriesRowCol\"\n\n)\n\n(Butn.949\n Help: \"Find//Finds the row in the table using the text you enter\"\n HelpTopic: \"Find\"\n Icon: 950\n Click: \"Chart.Find\"\n)\n\n(AVIcon.950\n Name: \"Find\"\n Res: \"Icons.Find\"\n\n)\n\n(Space.951\n)\n\n(Butn.952\n Help: \"Help//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 953\n Click: \"Help.Tool\"\n)\n\n(AVIcon.953\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(PopupSet.954\n)\n\n(ToolBar.955\n Child: 956\n Child: 958\n Child: 960\n Child: 962\n Child: 964\n)\n\n(Tool.956\n Help: \"Identify//Provides information about a record\"\n HelpTopic: \"Identify_tool\"\n Tag: \"Identify\"\n Icon: 957\n Cursor: \"Cursors.ID\"\n Apply: \"Chart.Iden tify\"\n)\n\n(AVIcon.957\n Name: \"ID\"\n Res: \"Icons.ID\"\n\n)\n\n(Tool.958\n Help: \"Erase//Erases data markers from chart and unselects records from table\"\n HelpTopic: \"Erase_tool\"\n Tag: \"Erase\"\n Icon: 959\n Cursor: \"Cursors.Default\"\n Apply: \"Chart.Erase\"\n)\n\n(AVIcon.959\n Name: \"Erase\"\n Res: \"Icons.Erase\"\n\n)\n\n(Tool.960\n Disabled: 1\n Help: \"Erase with Polygon//Erases data markers within polygon from chart and unselects records from table\"\n HelpTopic: \"Erase_with_Polygon_tool\"\n Tag: \"ErasePoly\"\n Update: \"Chart.IsScatterUpd ate\"\n Icon: 961\n Cursor: \"Cursors.Default\"\n Apply: \"Chart.ErasePoly\"\n)\n\n(AVIcon.961\n Name: \"EraseInPolygon\"\n Res: \"Icons.EraseInPolygon\"\n\n)\n\n(Tool.962\n Help: \"Chart Element Properties//EDIT: changes chart element properties\"\n HelpTopic: \"Chart_Element_Properties_tool\"\n Tag: \"Edit\"\n Icon: 963\n Cursor: \"Cursors.Default\"\n Apply: \"Chart.PropTool\"\n)\n\n(AVIcon.963\n Name: \"ChartPropertiesTool\"\n Res: \"Icons.ChartPropertiesTool\"\n\n)\n\n(Tool.964\n Help: \"Chart Color//PAINT: changes chart element color\"\n HelpTopic: \"Chart _Color_tool\"\n Tag: \"Paint\"\n Icon: 965\n Cursor: \"Cursors.Default\"\n Apply: \"Chart.PaintTool\"\n Click: \"Chart.ShowSymWin\"\n)\n\n(AVIcon.965\n Name: \"ColorWheelRgb\"\n Res: \"Icons.ColorWheelRgb\"\n\n)\n\n(AVIcon.966\n Name: \"Icon\"\n Res: \"ChartDoc.Icon\"\n\n)\n\n(DocGUI.967\n Name: \"Layout\"\n Type: \"Layout\"\n Modified: 1\n Visible: 1\n MenuBar: 968\n ButnBar: 1046\n Popups: 1088\n ToolBar: 1100\n NewScript: \"Layout.New\"\n OpenScript: \"Doc.Open\"\n ActionScript: \"Doc.Action\"\n NewUpdateScript: \"Doc.NewUpdate\"\n OpenUpdateScript: \"Doc.OpenUpdate \"\n ActionUpdateScript: \"Doc.ActionUpdate\"\n Title: \"Layouts\"\n Icon: 1156\n)\n\n(MenuBar.968\n Child: 969\n Child: 986\n Child: 995\n Child: 1015\n Child: 1030\n Child: 1040\n)\n\n(PMenu.969\n InternalName: \"File\"\n Child: 970\n Child: 971\n Child: 972\n Child: 973\n Child: 974\n Child: 975\n Child: 976\n Child: 977\n Child: 978\n Child: 979\n Child: 980\n Child: 981\n Child: 982\n Child: 983\n Child: 984\n Child: 985\n Label: \"&File\"\n)\n\n(Choice.970\n Help: \"Closes the active component\"\n HelpTopic: \"Close\"\n Label: \"&Close\"\n Click: \"Project .CloseDoc\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.971\n Help: \"Closes all components\"\n HelpTopic: \"Close_All\"\n Label: \"Close &All\"\n Click: \"Project.CloseAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.972\n)\n\n(Choice.973\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.974\n Help: \"Saves the current project with a new name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n) \n\n(Space.975\n)\n\n(Choice.976\n Help: \"Displays the Extensions Dialog\"\n HelpTopic: \"Extensions\"\n Label: \"Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.977\n)\n\n(Choice.978\n Help: \"Prints the layout\"\n HelpTopic: \"Print\"\n Label: \"&Print...\"\n Click: \"Doc.Print\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.979\n Help: \"Edits the printer and the printing options\"\n HelpTopic: \"Print_Setup\"\n Label: \"P&rint Setup...\"\n Click: \"Project.PrintSetup\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.980\n Help: \"Create a Color Palette//Create a color Palette of the Current symbol sets.\"\n Label: \"Create Symbol &Palette\"\n Click: \"Layout.SymbolDump\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.981\n Help: \"Exports the Layout to a graphics file\"\n HelpTopic: \"Export\"\n Label: \"&Export...\"\n Click: \"Layout.Export\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.982\n Help: \"Print a Layout using Image Alchemy\"\n Update: \"Layout.ExportToAlchemy.Update\"\n Label: \"Print Using Alchemy\"\n Click: \"Layout.ExporttoAlchemy\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.983\n Help: \" Print a RTL File\"\n Update: \"Layout.ExportToAlchemy.Update\"\n Label: \"Print RTL File\"\n Click: \"Layout.PrintRTLFile\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.984\n)\n\n(Choice.985\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.986\n InternalName: \"Edit\"\n Child: 987\n Child: 988\n Child: 989\n Child: 990\n Child: 991\n Child: 992\n Child: 993\n Child: 994\n Label: \"&Edit\"\n)\n\n(Choice.987\n Disabled: 1\n Help: \"Undo last edit\"\n HelpTopic: \"Undo\"\n Update: \"Layout.UndoUp date\"\n Label: \"&Undo\"\n Click: \"Layout.Undo\"\n Shortcut: \"Keys.Ctrl+Z\"\n)\n\n(Space.988\n)\n\n(Choice.989\n Disabled: 1\n Help: \"Copies selected graphics to the clipboard and removes them from the layout\"\n HelpTopic: \"Cut\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Cu&t\"\n Click: \"Layout.Cut\"\n Shortcut: \"Keys.Ctrl+X\"\n)\n\n(Choice.990\n Disabled: 1\n Help: \"Copies the selected shapes or graphics to the clipboard\"\n HelpTopic: \"Copy\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Copy\"\n Click: \"Layout.Copy\"\n Shortcut: \" Keys.Ctrl+C\"\n)\n\n(Choice.991\n Disabled: 1\n Help: \"Inserts the contents of the clipboard\"\n HelpTopic: \"Paste\"\n Update: \"Layout.PasteUpdate\"\n Label: \"&Paste\"\n Click: \"Layout.Paste\"\n Shortcut: \"Keys.Ctrl+V\"\n)\n\n(Choice.992\n Disabled: 1\n Help: \"Removes the selected frames or graphics from the layout\"\n HelpTopic: \"Delete\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Delete\"\n Click: \"Layout.Clear\"\n Shortcut: \"Keys.Del\"\n)\n\n(Space.993\n)\n\n(Choice.994\n Disabled: 1\n Help: \"Selects all graphics in the layout\"\n HelpTop ic: \"Select_All\"\n Update: \"Layout.HasGraphicsUpdate\"\n Label: \"Select &All\"\n Click: \"Graphic.SelectAll\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.995\n InternalName: \"Layout\"\n Child: 996\n Child: 997\n Child: 998\n Child: 999\n Child: 1000\n Child: 1001\n Child: 1002\n Child: 1003\n Child: 1004\n Child: 1005\n Child: 1006\n Child: 1007\n Child: 1008\n Child: 1009\n Child: 1010\n Child: 1011\n Child: 1012\n Child: 1013\n Child: 1014\n Label: \"&Layout\"\n)\n\n(Choice.996\n Help: \"Displays the dialog box to edit properties of the layout\"\n HelpT opic: \"Layout_Properties\"\n Label: \"&Properties...\"\n Click: \"Layout.Properties\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.997\n Help: \"Displays the page setup dialog\"\n HelpTopic: \"Page_Setup\"\n Label: \"Page Se&tup...\"\n Click: \"Layout.PageSetup\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.998\n Help: \"Duplicate Layout//Creates a new layout by creating a duplicate of the currently active Layout Document\"\n Label: \"&Duplicate Layout\"\n Click: \"Document.Duplicate\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.999\n)\n\n(Choice.1000\n Help: \"Zooms to t he extent of the layout's page\"\n HelpTopic: \"Zoom_to_Page\"\n Label: \"&Zoom to Page\"\n Click: \"Layout.ZoomPage\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1001\n Help: \"Zooms to display the actual size of the layout (1:1)\"\n HelpTopic: \"Zoom_to_Actual_Size\"\n Label: \"Zoom to &Actual\"\n Click: \"Layout.ZoomActual\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1002\n Disabled: 1\n Help: \"Zooms to the extent of the selected layout graphics\"\n HelpTopic: \"Zoom_to_Selected\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Zoom to &Selected\"\n Cli ck: \"Layout.ZoomSelected\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1003\n Help: \"Zooms in on the center of the display\"\n HelpTopic: \"Zoom_In\"\n Label: \"Zoom &In\"\n Click: \"Layout.ZoomIn\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1004\n Help: \"Zooms out from the center of the display\"\n HelpTopic: \"Zoom_Out\"\n Label: \"Zoom &Out\"\n Click: \"Layout.ZoomOut\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1005\n)\n\n(Choice.1006\n Help: \"Shows or hides the layout's grid\"\n HelpTopic: \"Show_Hide_Grid\"\n Update: \"Layout.ShowHideGridUpdate\"\n Label: \"Hide &G rid\"\n Click: \"Layout.ShowHideGrid\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1007\n Help: \"Shows or hides the layout's margins\"\n HelpTopic: \"Show_Hide_Margins\"\n Update: \"Layout.ShowHideMarginsUpdate\"\n Label: \"Hide &Margins\"\n Click: \"Layout.ShowHideMargins\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1008\n)\n\n(Choice.1009\n Help: \"Places a neatline around your graphics or inside your margins \"\n HelpTopic: \"Layout_Neatline\"\n Update: \"Graphic.Neatline ShowUpdate\"\n Label: \"Add Neatline...\"\n Click: \"Graphic.Neatline Show\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1010\n)\n\n(Space.1011\n)\n\n(Choice.1012\n Help: \"Create a new layout by using a predefined template\"\n HelpTopic: \"Use_Template\"\n Label: \"&Use Template...\"\n Click: \"Layout.Template\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1013\n Help: \"Store the current layout as a template\"\n HelpTopic: \"Store_As_Template\"\n Label: \"Sto&re As Template...\"\n Click: \"Layout.TemplateStore\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1014\n Disabled: 1\n Help: \"Store each graphic group in the current layout as a north arrow\"\n HelpTo pic: \"Store_North_Arrows\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Store &North Arrows\"\n Click: \"Graphic.StoreNorthArrow\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1015\n InternalName: \"Graphics\"\n Child: 1016\n Child: 1017\n Child: 1018\n Child: 1019\n Child: 1020\n Child: 1021\n Child: 1022\n Child: 1023\n Child: 1024\n Child: 1025\n Child: 1026\n Child: 1027\n Child: 1028\n Child: 1029\n Label: \"&Graphics\"\n)\n\n(Choice.1016\n Disabled: 1\n Help: \"Displays the property editor for the selected graphic\"\n HelpTopic: \"Graphic_Prope rties\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Properties...\"\n Click: \"Graphic.Edit\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1017\n)\n\n(Space.1018\n)\n\n(Choice.1019\n Help: \"Shows a dialog where you can set the default values for the text tools\"\n HelpTopic: \"Default_settings_for_text_and_label_tools\"\n Label: \"&Text Tool Defaults...\"\n Click: \"Graphic.Label Defaults Show\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1020\n)\n\n(Choice.1021\n Disabled: 1\n Help: \"Displays a dialog box to adjust size and position of selected graphi c\"\n HelpTopic: \"Size_and_Position\"\n Update: \"Graphic.SingleSelectionUpdate\"\n Label: \"&Size and Position...\"\n Click: \"Graphic.SizePos\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1022\n Disabled: 1\n Help: \"Aligns the selected graphics\"\n HelpTopic: \"Align\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"&Align...\"\n Click: \"Graphic.Align\"\n Shortcut: \"Keys.Ctrl+A\"\n)\n\n(Space.1023\n)\n\n(Choice.1024\n Disabled: 1\n Help: \"Moves selected graphics in front of other graphics\"\n HelpTopic: \"Bring_to_Front\"\n Update: \"Graphic.HasSelecti onUpdate\"\n Label: \"Bring to &Front\"\n Click: \"Graphic.ToFront\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1025\n Disabled: 1\n Help: \"Moves selected graphics behind other graphics\"\n HelpTopic: \"Send_to_Back\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Send to &Back\"\n Click: \"Graphic.ToBack\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1026\n Disabled: 1\n Help: \"Groups selected graphics\"\n HelpTopic: \"Group\"\n Update: \"Graphic.GroupUpdate\"\n Label: \"&Group\"\n Click: \"Graphic.Group\"\n Shortcut: \"Keys.Ctrl+G\"\n)\n\n(Choice.1027\n Disabled: 1\n Help: \"Ungroups selected graphics\"\n HelpTopic: \"Ungroup\"\n Update: \"Graphic.UngroupUpdate\"\n Label: \"&Ungroup\"\n Click: \"Graphic.Ungroup\"\n Shortcut: \"Keys.Ctrl+U\"\n)\n\n(Space.1028\n)\n\n(Choice.1029\n Disabled: 1\n Help: \"Simplify selected graphics by converting them to a set of shapes\"\n HelpTopic: \"Simplify\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"S&implify\"\n Click: \"Graphic.Simplify\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1030\n InternalName: \"Window\"\n Child: 1031\n Child: 1032\n Child: 1033\n Child: 1034\n Child: 1035\n Child: 1036\n Child: 1038\n Child: 1039\n Label: \"&Window\"\n)\n\n(Choice.1031\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1032\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Cascade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1033\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Icons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1 034\n)\n\n(Choice.1035\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.1036\n ObjectTag: 1037\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.1037\n S: \"defproj31b.apr Layout1\"\n)\n\n(Choice.1038\n Help: \"Activates defproj31b.apr\"\n Label: \"&1 defproj31b.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1039\n Help: \"Activates Layout1\"\n Label: \"&2 Layout1\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys. None\"\n)\n\n(PMenu.1040\n InternalName: \"Help\"\n Child: 1041\n Child: 1042\n Child: 1043\n Child: 1044\n Child: 1045\n Label: \"&Help\"\n)\n\n(Choice.1041\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1042\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Sho rtcut: \"Keys.None\"\n)\n\n(Choice.1043\n Help: \"Open Documentation for DNR Default Project for ArcView 3.1\"\n Tag: \"avdefpr.pdf\"\n Label: \"DNR Default Project Help\"\n Click: \"DNR.ShowHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1044\n)\n\n(Choice.1045\n Help: \"Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.1046\n Child: 1047\n Child: 1049\n Child: 1050\n Child: 1052\n Child: 1054\n Child: 1056\n Child: 1057\n Child: 1059\n Child: 1061\n Chi ld: 1063\n Child: 1065\n Child: 1067\n Child: 1069\n Child: 1070\n Child: 1072\n Child: 1074\n Child: 1076\n Child: 1078\n Child: 1080\n Child: 1081\n Child: 1083\n Child: 1085\n Child: 1086\n)\n\n(Butn.1047\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 1048\n Click: \"Project.Save\"\n)\n\n(AVIcon.1048\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.1049\n)\n\n(Butn.1050\n Disabled: 1\n Help: \"Cut//Cuts the selection and puts it into the clipboard\"\n HelpTopic: \"Cut\"\n Update: \"Graphic.HasSelectionUpdat e\"\n Icon: 1051\n Click: \"Layout.Cut\"\n)\n\n(AVIcon.1051\n Name: \"Cut\"\n Res: \"Icons.Cut\"\n\n)\n\n(Butn.1052\n Disabled: 1\n Help: \"Copy//Copies the selected graphics to the clipboard\"\n HelpTopic: \"Copy\"\n Update: \"Graphic.HasSelectionUpdate\"\n Icon: 1053\n Click: \"Layout.Copy\"\n)\n\n(AVIcon.1053\n Name: \"Copy\"\n Res: \"Icons.Copy\"\n\n)\n\n(Butn.1054\n Disabled: 1\n Help: \"Paste//Inserts the contents of the clipboard\"\n HelpTopic: \"Paste\"\n Update: \"Layout.PasteUpdate\"\n Icon: 1055\n Click: \"Layout.Paste\"\n)\n\n(AVIcon.1055\n Name: \"Paste\"\n R es: \"Icons.Paste\"\n\n)\n\n(Space.1056\n)\n\n(Butn.1057\n Help: \"Layout Properties//Displays the dialog box to edit properties of the layout\"\n HelpTopic: \"Layout_Properties\"\n Icon: 1058\n Click: \"Layout.Properties\"\n)\n\n(AVIcon.1058\n Name: \"Props\"\n Res: \"Icons.Props\"\n\n)\n\n(Butn.1059\n Disabled: 1\n Help: \"Group//Groups selected graphics\"\n HelpTopic: \"Group\"\n Update: \"Graphic.GroupUpdate\"\n Icon: 1060\n Click: \"Graphic.Group\"\n)\n\n(AVIcon.1060\n Name: \"Group\"\n Res: \"Icons.Group\"\n\n)\n\n(Butn.1061\n Disabled: 1\n Help: \"Ungroup//Ungr oups selected graphics\"\n HelpTopic: \"Ungroup\"\n Update: \"Graphic.UngroupUpdate\"\n Icon: 1062\n Click: \"Graphic.Ungroup\"\n)\n\n(AVIcon.1062\n Name: \"Ungroup\"\n Res: \"Icons.Ungroup\"\n\n)\n\n(Butn.1063\n Disabled: 1\n Help: \"Bring to Front//Moves selected graphics in front of other graphics\"\n HelpTopic: \"Bring_to_Front\"\n Update: \"Graphic.HasSelectionUpdate\"\n Icon: 1064\n Click: \"Graphic.ToFront\"\n)\n\n(AVIcon.1064\n Name: \"MoveToFront\"\n Res: \"Icons.MoveToFront\"\n\n)\n\n(Butn.1065\n Disabled: 1\n Help: \"Send to Back//Moves selected gra phics behind other graphics\"\n HelpTopic: \"Send_to_Back\"\n Update: \"Graphic.HasSelectionUpdate\"\n Icon: 1066\n Click: \"Graphic.ToBack\"\n)\n\n(AVIcon.1066\n Name: \"SendToBack\"\n Res: \"Icons.SendToBack\"\n\n)\n\n(Butn.1067\n Disabled: 1\n Help: \"Undo//Undo last edit\"\n HelpTopic: \"Undo\"\n Update: \"Layout.UndoUpdate\"\n Icon: 1068\n Click: \"Layout.Undo\"\n)\n\n(AVIcon.1068\n Name: \"Undo\"\n Res: \"Icons.Undo\"\n\n)\n\n(Space.1069\n)\n\n(Butn.1070\n Help: \"Zoom to Page//Zooms to the page\"\n HelpTopic: \"Zoom_to_Page\"\n Icon: 1071\n Click: \"Layout.ZoomP age\"\n)\n\n(AVIcon.1071\n Name: \"ZoomToPage\"\n Res: \"Icons.ZoomToPage\"\n\n)\n\n(Butn.1072\n Help: \"Zoom to Actual Size//Zooms to display the actual size of the layout (1:1)\"\n HelpTopic: \"Zoom_to_Actual_Size\"\n Icon: 1073\n Click: \"Layout.ZoomActual\"\n)\n\n(AVIcon.1073\n Name: \"ZoomToActual\"\n Res: \"Icons.ZoomToActual\"\n\n)\n\n(Butn.1074\n Disabled: 1\n Help: \"Zoom to Selected//Zooms to the extent of the selected layout graphics\"\n HelpTopic: \"Zoom_to_Selected\"\n Update: \"Graphic.HasSelectionUpdate\"\n Icon: 1075\n Click: \"Layout.ZoomS elected\"\n)\n\n(AVIcon.1075\n Name: \"ZoomToSelected\"\n Res: \"Icons.ZoomToSelected\"\n\n)\n\n(Butn.1076\n Help: \"Zoom In//Zooms in on the center of the display\"\n HelpTopic: \"Zoom_In\"\n Icon: 1077\n Click: \"Layout.ZoomIn\"\n)\n\n(AVIcon.1077\n Name: \"ZoomIn\"\n Res: \"Icons.ZoomIn\"\n\n)\n\n(Butn.1078\n Help: \"Zoom Out//Zooms out from the center of the display\"\n HelpTopic: \"Zoom_Out\"\n Icon: 1079\n Click: \"Layout.ZoomOut\"\n)\n\n(AVIcon.1079\n Name: \"ZoomOut\"\n Res: \"Icons.ZoomOut\"\n\n)\n\n(Space.1080\n)\n\n(Butn.1081\n Help: \"Print//Prints the layout \"\n HelpTopic: \"Print\"\n Icon: 1082\n Click: \"Doc.Print\"\n)\n\n(AVIcon.1082\n Name: \"Print\"\n Res: \"Icons.Print\"\n\n)\n\n(Butn.1083\n Help: \"Neatline//Places a neatline around your graphics or inside your margins\"\n HelpTopic: \"Layout_Neatline\"\n Update: \"Graphic.Neatline ShowUpdate\"\n Icon: 1084\n Click: \"Graphic.Neatline Show\"\n)\n\n(AVIcon.1084\n Name: \"Neatline\"\n Res: \"Icons.Neatline\"\n\n)\n\n(Space.1085\n)\n\n(Butn.1086\n Help: \"Help//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 1087\n Click: \"Help.Tool\"\n)\n\n(AVIcon.1087\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(PopupSet.1088\n Child: 1089\n)\n\n(Popup.1089\n Child: 1090\n Child: 1091\n Child: 1092\n Child: 1093\n Child: 1094\n Child: 1095\n Child: 1096\n Child: 1097\n Child: 1098\n Child: 1099\n Label: \"Menu\"\n)\n\n(Choice.1090\n Help: \"Selects all layout graphics\"\n HelpTopic: \"Select_All\"\n Update: \"Layout.HasGraphicsUpdate\"\n Label: \"Select All\"\n Click: \"Graphic.SelectAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1091\n)\n\n(Choice.1092\n Help: \"Undo the las t edit\"\n Update: \"Layout.UndoUpdate\"\n Label: \"Undo\"\n Click: \"Layout.Undo\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1093\n)\n\n(Choice.1094\n Help: \"Moves selected graphics in front of other graphics\"\n HelpTopic: \"Bring_to_Front\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Bring to Front\"\n Click: \"Graphic.ToFront\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1095\n Help: \"Moves selected graphics behind other graphics\"\n HelpTopic: \"Send_to_Back\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Send to Back\"\n Click: \"Graphic.ToBack\" \n Shortcut: \"Keys.None\"\n)\n\n(Space.1096\n)\n\n(Choice.1097\n Help: \"Simplifies the selected graphic by converting it to a set of shapes\"\n HelpTopic: \"Simplify\"\n Update: \"Graphic.HasSelectionUpdate\"\n Label: \"Simplify\"\n Click: \"Graphic.Simplify\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1098\n)\n\n(Choice.1099\n Disabled: 1\n Help: \"Refreshes view frames\"\n Update: \"Frame.RefreshUpdate\"\n Label: \"Refresh View Frames\"\n Click: \"Frame.Refresh\"\n Shortcut: \"Keys.None\"\n)\n\n(ToolBar.1100\n Child: 1101\n Child: 1103\n Child: 1105\n Child: 110 7\n Child: 1109\n Child: 1111\n Child: 1124\n Child: 1126\n Child: 1139\n)\n\n(Tool.1101\n Help: \"Pointer//Selects frames or graphics on the layout by pointing or dragging\"\n HelpTopic: \"Pointer_tool\"\n Icon: 1102\n Cursor: \"Cursors.Select\"\n Apply: \"Layout.Select\"\n Click: \"Layout.SelectTool\"\n)\n\n(AVIcon.1102\n Name: \"Select\"\n Res: \"Icons.Select\"\n\n)\n\n(Tool.1103\n Help: \"Vertex_Edit//Adds, moves, and deletes vertices of line and polygon graphics\"\n HelpTopic: \"Vertex_Edit_Tool\"\n Icon: 1104\n Cursor: \"Cursors.SelectEdit\"\n Appl y: \"Layout.SelectToEdit\"\n Click: \"Layout.SelectToEditTool\"\n)\n\n(AVIcon.1104\n Name: \"SelectEdit\"\n Res: \"Icons.SelectEdit\"\n\n)\n\n(Tool.1105\n Help: \"Zoom In//Zooms in at a point you click or zooms in on a rectangle you drag\"\n HelpTopic: \"Zoom_In_tool\"\n Icon: 1106\n Cursor: \"Cursors.ZoomIn\"\n Apply: \"Layout.ZoomInTool\"\n)\n\n(AVIcon.1106\n Name: \"ZoomInTool\"\n Res: \"Icons.ZoomInTool\"\n\n)\n\n(Tool.1107\n Help: \"Zoom Out//Zooms out from a point you click or zooms out to include a rectangle you drag\"\n HelpTopic: \"Zoom_Out_tool\" \n Icon: 1108\n Cursor: \"Cursors.ZoomOut\"\n Apply: \"Layout.ZoomOutTool\"\n)\n\n(AVIcon.1108\n Name: \"ZoomOutTool\"\n Res: \"Icons.ZoomOutTool\"\n\n)\n\n(Tool.1109\n Help: \"Pan//Drags the display in the direction you move the cursor\"\n HelpTopic: \"Pan_tool\"\n Icon: 1110\n Cursor: \"Cursors.Pan\"\n Apply: \"Layout.Pan\"\n)\n\n(AVIcon.1110\n Name: \"Pan\"\n Res: \"Icons.Pan\"\n\n)\n\n(ToolMenu.1111\n Help: \"Text//Creates text on the display\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1112\n Cursor: \"Cursors.Text\"\n Apply: \"Layout .Text\"\n Click: \"SymWin.DisplayFontPanel\"\n Child: 1113\n Child: 1114\n Child: 1116\n Child: 1118\n Child: 1120\n Child: 1122\n)\n\n(AVIcon.1112\n Name: \"Text\"\n Res: \"Icons.Text\"\n\n)\n\n(Tool.1113\n Help: \"Text//Creates text on the display\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1112\n Cursor: \"Cursors.Text\"\n Apply: \"Layout.Text\"\n Click: \"SymWin.DisplayFontPanel\"\n)\n\n(Tool.1114\n Help: \"Callout Text//Draws text with a box and leader around it\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1115\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.CalloutTextTool\"\n)\n\n(AVIcon.1115\n Name: \"CallOutText1\"\n Res: \"Icons.CallOutText1\"\n\n)\n\n(Tool.1116\n Help: \"Bullet Leader Text//Draws text with a bullet and leader\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1117\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.BulletLeaderTextTool\"\n)\n\n(AVIcon.1117\n Name: \"CallOutText2\"\n Res: \"Icons.CallOutText2\"\n\n)\n\n(Tool.1118\n Help: \"Banner Text//Creates text with a box and shadow around it\"\n HelpTopic: \"Tex t_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1119\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.ShadowBoxTextTool\"\n)\n\n(AVIcon.1119\n Name: \"CallOutText3\"\n Res: \"Icons.CallOutText3\"\n\n)\n\n(Tool.1120\n Help: \"Drop-Shadow Text//Creates text where each letter has a drop-shadow\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1121\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.CreateDropShadowText\"\n)\n\n(AVIcon.1121\n Name: \"DropShadowText\"\n Res: \"Icons.DropShadowText\"\n\n)\n\n(Tool.1122\n Help: \"SplineText//Adds text aligned to a spline baseline\"\n HelpTopic: \"Text_tool\"\n Update: \"Layout.TextToolUpdate\"\n Icon: 1123\n Cursor: \"Cursors.Bullseye\"\n Apply: \"View.SplineText\"\n)\n\n(AVIcon.1123\n Name: \"TextAligned\"\n Res: \"Icons.TextAligned\"\n\n)\n\n(Tool.1124\n Help: \"Add Text File//Add a Text file to a text box.\"\n Icon: 1125\n Cursor: \"Cursors.Finger\"\n Apply: \"Layout.AddTextFile\"\n)\n\n(AVIcon.1125\n Name: \"TextJust\"\n Res: \"Icons.TextJust\"\n\n)\n\n(ToolMenu.1126\n Help: \"Draw Point//Creates a point on the display\"\n HelpTopic: \"Draw_tool\"\n I con: 1127\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.Point\"\n Click: \"SymWin.DisplayMarkerPanel\"\n Child: 1128\n Child: 1129\n Child: 1131\n Child: 1133\n Child: 1135\n Child: 1137\n)\n\n(AVIcon.1127\n Name: \"Point\"\n Res: \"Icons.Point\"\n\n)\n\n(Tool.1128\n Help: \"Draw Point//Creates a point on the display\"\n HelpTopic: \"Draw_tool\"\n Icon: 1127\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.Point\"\n Click: \"SymWin.DisplayMarkerPanel\"\n)\n\n(Tool.1129\n Help: \"Draw Straight Line//Creates a line on the display\"\n HelpTopic: \"Draw_too l\"\n Icon: 1130\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.Line\"\n Click: \"SymWin.DisplayPenPanel\"\n)\n\n(AVIcon.1130\n Name: \"SelectLine\"\n Res: \"Icons.SelectLine\"\n\n)\n\n(Tool.1131\n Help: \"Draw Line//Creates a line with three or more points on the display\"\n HelpTopic: \"Draw_tool\"\n Icon: 1132\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.PolyLine\"\n Click: \"SymWin.DisplayPenPanel\"\n)\n\n(AVIcon.1132\n Name: \"Lines\"\n Res: \"Icons.Lines\"\n\n)\n\n(Tool.1133\n Help: \"Draw Rectangle//Creates a rectangle on the display\"\n HelpTopic: \"Draw_tool\"\n Icon: 1134\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.Rect\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.1134\n Name: \"Rect\"\n Res: \"Icons.Rect\"\n\n)\n\n(Tool.1135\n Help: \"Draw Circle//Creates a circle on the display\"\n HelpTopic: \"Draw_tool\"\n Icon: 1136\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.Circle\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.1136\n Name: \"Disk\"\n Res: \"Icons.Disk\"\n\n)\n\n(Tool.1137\n Help: \"Draw Polygon//Creates a polygon on the display\"\n HelpTopic: \"Draw_tool\"\n Icon: 1138\n Curs or: \"Cursors.CrossHair\"\n Apply: \"Layout.Poly\"\n Click: \"SymWin.DisplayFillPanel\"\n)\n\n(AVIcon.1138\n Name: \"Poly\"\n Res: \"Icons.Poly\"\n\n)\n\n(ToolMenu.1139\n Help: \"View Frame//Creates a view frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1140\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FrameView\"\n Child: 1141\n Child: 1142\n Child: 1144\n Child: 1146\n Child: 1148\n Child: 1150\n Child: 1152\n Child: 1154\n)\n\n(AVIcon.1140\n Name: \"FrameView\"\n Res: \"Icons.FrameView\"\n\n)\n\n(Tool.1141\n Help: \"View Frame//Creates a view f rame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1140\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FrameView\"\n)\n\n(Tool.1142\n Help: \"Legend Frame//Creates a legend frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1143\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FrameLegend\"\n)\n\n(AVIcon.1143\n Name: \"FrameLegend\"\n Res: \"Icons.FrameLegend\"\n\n)\n\n(Tool.1144\n Help: \"Scale Bar Frame//Creates a scale bar frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1145\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.F rameScalebar\"\n)\n\n(AVIcon.1145\n Name: \"FrameScalebar\"\n Res: \"Icons.FrameScalebar\"\n\n)\n\n(Tool.1146\n Help: \"North Arrow//Creates a north arrow on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1147\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.NorthArrow\"\n)\n\n(AVIcon.1147\n Name: \"NorthArrow\"\n Res: \"Icons.NorthArrow\"\n\n)\n\n(Tool.1148\n Help: \"Chart Frame//Creates a chart frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1149\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FrameChart\"\n)\n\n(AVIcon.1149\n Name: \"FrameChart \"\n Res: \"Icons.FrameChart\"\n\n)\n\n(Tool.1150\n Help: \"Table Frame//Creates a table frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1151\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FrameTable\"\n)\n\n(AVIcon.1151\n Name: \"FrameTable\"\n Res: \"Icons.FrameTable\"\n\n)\n\n(Tool.1152\n Help: \"Add Table Graphic//Adds a table as a graphic to a layout. Works much better than Table Frame Tool\"\n Icon: 1153\n Cursor: \"Cursors.CrossHair\"\n Apply: \"DNR.Layout.AddTableGraphic\"\n)\n\n(AVIcon.1153\n Name: \"FrameText\"\n Res: \"Icons.FrameTex t\"\n\n)\n\n(Tool.1154\n Help: \"Picture Frame//Creates a picture frame on the display\"\n HelpTopic: \"Frame_tool\"\n Icon: 1155\n Cursor: \"Cursors.CrossHair\"\n Apply: \"Layout.FramePicture\"\n)\n\n(AVIcon.1155\n Name: \"FramePicture\"\n Res: \"Icons.FramePicture\"\n\n)\n\n(AVIcon.1156\n Name: \"Icon\"\n Res: \"Layout.Icon\"\n\n)\n\n(DocGUI.1157\n Name: \"Script\"\n Type: \"SEd\"\n Modified: 1\n Visible: 1\n MenuBar: 1158\n ButnBar: 1223\n Popups: 1264\n ToolBar: 1265\n NewScript: \"Script.New\"\n OpenScript: \"Doc.Open\"\n ActionScript: \"Script.Action\"\n NewUpdat eScript: \"Doc.NewUpdate\"\n OpenUpdateScript: \"Doc.OpenUpdate\"\n ActionUpdateScript: \"Script.ActionUpdate\"\n Title: \"Scripts\"\n Icon: 1266\n)\n\n(MenuBar.1158\n Child: 1159\n Child: 1172\n Child: 1188\n Child: 1208\n Child: 1218\n)\n\n(PMenu.1159\n InternalName: \"File\"\n Child: 1160\n Child: 1161\n Child: 1162\n Child: 1163\n Child: 1164\n Child: 1165\n Child: 1166\n Child: 1167\n Child: 1168\n Child: 1169\n Child: 1170\n Child: 1171\n Label: \"&File\"\n)\n\n(Choice.1160\n Help: \"Closes the active component\"\n HelpTopic: \"Close\"\n Label: \"&Clos e\"\n Click: \"Project.CloseDoc\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1161\n Help: \"Closes all components\"\n HelpTopic: \"Close_All\"\n Label: \"Close &All\"\n Click: \"Project.CloseAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1162\n)\n\n(Choice.1163\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.1164\n Help: \"Saves the current project with a new name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1165\n)\n\n(Choice.1166\n Help: \"Displays the Extensions Dialog\"\n HelpTopic: \"Extensions\"\n Label: \"Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1167\n)\n\n(Choice.1168\n Help: \"Prints the script\"\n HelpTopic: \"Print\"\n Label: \"&Print...\"\n Click: \"Doc.Print\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1169\n Help: \"Edits the printer and the printing options\"\n HelpTopic: \"Print_Setup\"\n Update: \"PrintSetupUpdate\"\n Label: \"P&rint Setup...\"\n Click: \"Project.PrintSetup \"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1170\n)\n\n(Choice.1171\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1172\n InternalName: \"Edit\"\n Child: 1173\n Child: 1174\n Child: 1175\n Child: 1176\n Child: 1177\n Child: 1178\n Child: 1179\n Child: 1180\n Child: 1181\n Child: 1182\n Child: 1183\n Child: 1184\n Child: 1185\n Child: 1186\n Child: 1187\n Label: \"&Edit\"\n)\n\n(Choice.1173\n Help: \"Undoes the last change\"\n HelpTopic: \"Undo__Script_\"\n Label: \"&Undo\"\n Click: \"Scr ipt.Undo\"\n Shortcut: \"Keys.Ctrl+Z\"\n)\n\n(Space.1174\n)\n\n(Choice.1175\n Help: \"Finds the selected or specified string\"\n HelpTopic: \"Script_Find\"\n Label: \"&Find...\"\n Click: \"Script.Find\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1176\n Disabled: 1\n Help: \"Finds the next occurrence of the string\"\n HelpTopic: \"Script_FindNext\"\n Update: \"Script.FindNextUpdate\"\n Label: \"Find &Next\"\n Click: \"Script.FindNext\"\n Shortcut: \"Keys.F3\"\n)\n\n(Choice.1177\n Help: \"Replaces the selected or specifed string\"\n HelpTopic: \"Script_Replace\"\n Lab el: \"Rep&lace...\"\n Click: \"Script.Replace\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1178\n)\n\n(Choice.1179\n Disabled: 1\n Help: \"Cuts the selection and puts it into the clipboard\"\n HelpTopic: \"Cut\"\n Update: \"Script.HasSelUpdate\"\n Label: \"Cu&t\"\n Click: \"Script.Cut\"\n Shortcut: \"Keys.Ctrl+X\"\n)\n\n(Choice.1180\n Disabled: 1\n Help: \"Copies the selection and puts it into the clipboard\"\n HelpTopic: \"Copy\"\n Update: \"Script.HasSelUpdate\"\n Label: \"&Copy\"\n Click: \"Script.Copy\"\n Shortcut: \"Keys.Ctrl+C\"\n)\n\n(Choice.1181\n Help: \"Insert s the contents of the clipboard\"\n HelpTopic: \"Paste\"\n Label: \"&Paste\"\n Click: \"Script.Paste\"\n Shortcut: \"Keys.Ctrl+V\"\n)\n\n(Space.1182\n)\n\n(Choice.1183\n Help: \"Selects all text in the script editor\"\n HelpTopic: \"Select_All_in_a_script\"\n Label: \"Select &All\"\n Click: \"Script.SelectAll\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1184\n Help: \"Deletes text from the cursor to the left margin\"\n HelpTopic: \"Delete_Left\"\n Label: \"&Delete Left\"\n Click: \"Script.KillLine\"\n Shortcut: \"Keys.Ctrl+U\"\n)\n\n(Space.1185\n)\n\n(Choice.1186\n Di sabled: 1\n Help: \"Comments selected text\"\n HelpTopic: \"Comment\"\n Update: \"Script.HasSelUpdate\"\n Label: \"C&omment\"\n Click: \"Script.Comment\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1187\n Disabled: 1\n Help: \"Uncomments selected text\"\n HelpTopic: \"Remove_Comment\"\n Update: \"Script.HasSelUpdate\"\n Label: \"&Remove Comment\"\n Click: \"Script.Uncomment\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1188\n InternalName: \"Script\"\n Child: 1189\n Child: 1190\n Child: 1191\n Child: 1192\n Child: 1193\n Child: 1194\n Child: 1195\n Child: 1196\n Child: 1197\n Child: 1198\n Child: 1199\n Child: 1200\n Child: 1201\n Child: 1202\n Child: 1203\n Child: 1204\n Child: 1205\n Child: 1206\n Child: 1207\n Label: \"&Script\"\n)\n\n(Choice.1189\n Help: \"Displays the dialog box to edit properties of the script\"\n HelpTopic: \"Script_Properties\"\n Label: \"&Properties...\"\n Click: \"Script.Properties\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1190\n Help: \"Duplicate Script//Creates a new Script by creating a duplicate of the currently active Layout Document.\"\n Label: \"&Duplicate Script\"\n Click: \"Doc ument.Duplicate\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1191\n)\n\n(Choice.1192\n Disabled: 1\n Help: \"Compiles the script\"\n HelpTopic: \"Compile\"\n Update: \"Script.CompileUpdate\"\n Label: \"&Compile\"\n Click: \"Script.Compile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1193\n Help: \"Executes one request or object reference in the compiled script\"\n HelpTopic: \"Step\"\n Update: \"Script.RunUpdate\"\n Label: \"&Step\"\n Click: \"Script.Step\"\n Shortcut: \"Keys.F8\"\n)\n\n(Choice.1194\n Help: \"Runs the compiled script\"\n HelpTopic: \"Run\"\n Update: \"Scrip t.RunUpdate\"\n Label: \"&Run\"\n Click: \"Script.Run\"\n Shortcut: \"Keys.F5\"\n)\n\n(Space.1195\n)\n\n(Choice.1196\n Help: \"Toggles a breakpoint on or off at the current cursor position\"\n HelpTopic: \"Toggle_Breakpoint\"\n Update: \"Script.RunUpdate\"\n Label: \"Toggle &Breakpoint\"\n Click: \"Script.ToggleBreak\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1197\n Help: \"Clears all breakpoints\"\n HelpTopic: \"Clear_All_Breakpoints\"\n Update: \"Script.RunUpdate\"\n Label: \"Clear &All Breakpoints\"\n Click: \"Script.ClearAllBreaks\"\n Shortcut: \"Keys.None\" \n)\n\n(Choice.1198\n Help: \"Displays the current value of local and global variables\"\n HelpTopic: \"Examine_Variables\"\n Update: \"Script.RunUpdate\"\n Label: \"E&xamine Variables...\"\n Click: \"Script.ShowVariables\"\n Shortcut: \"Keys.Ctrl+E\"\n)\n\n(Space.1199\n)\n\n(Choice.1200\n Help: \"Inserts the source code of a system script\"\n HelpTopic: \"Load_System_Script\"\n Label: \"&Load System Script...\"\n Click: \"Script.SystemLoad\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1201\n Help: \"Inserts the contents of a text file\"\n HelpTopic: \"Load_Te xt_File\"\n Label: \"Load &Text File...\"\n Click: \"Script.FileLoad\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1202\n Help: \"Writes the entire script or the selected text to a text file\"\n HelpTopic: \"Write_Text_File\"\n Label: \"&Write Text File...\"\n Click: \"Script.FileWrite\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1203\n)\n\n(Choice.1204\n Help: \"Embeds the script in the project and deletes its window\"\n HelpTopic: \"Embed_Script\"\n Update: \"Script.RunUpdate\"\n Label: \"&Embed Script\"\n Click: \"Script.Embed\"\n Shortcut: \"Keys.None\"\n)\n\n(Choi ce.1205\n Disabled: 1\n Help: \"Removes specified script from embedded scripts and puts it in a SEd\"\n HelpTopic: \"Script_Unembed\"\n Update: \"Script.UnembedUpdate\"\n Label: \"&Unembed Script...\"\n Click: \"Script.Unembed\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1206\n)\n\n(Choice.1207\n Help: \"Refresh Script Window//Refreshes the script window \"\n Label: \"Refresh Script Window\"\n Click: \"Script.RefreshScriptDocument\"\n Shortcut: \"Keys.F2\"\n)\n\n(PMenu.1208\n InternalName: \"Window\"\n Child: 1209\n Child: 1210\n Child: 1211\n Child: 1212\n Child: 1213\n Child: 1214\n Child: 1216\n Child: 1217\n Label: \"&Window\"\n)\n\n(Choice.1209\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1210\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Cascade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1211\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Icons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n( Space.1212\n)\n\n(Choice.1213\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.1214\n ObjectTag: 1215\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.1215\n S: \"defproj31b.apr Project.Open\"\n)\n\n(Choice.1216\n Help: \"Activates defproj31b.apr\"\n Label: \"&1 defproj31b.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1217\n Help: \"Activates Project.Open\"\n Label: \"&2 Project.Open\"\n Click: \"WindowActiv ate\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1218\n InternalName: \"Help\"\n Child: 1219\n Child: 1220\n Child: 1221\n Child: 1222\n Label: \"&Help\"\n)\n\n(Choice.1219\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1220\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help\"\n Click: \"Project.HelpHelp \"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1221\n)\n\n(Choice.1222\n Help: \"Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.1223\n Child: 1224\n Child: 1226\n Child: 1227\n Child: 1229\n Child: 1231\n Child: 1233\n Child: 1234\n Child: 1236\n Child: 1237\n Child: 1239\n Child: 1241\n Child: 1242\n Child: 1244\n Child: 1246\n Child: 1248\n Child: 1250\n Child: 1252\n Child: 1253\n Child: 1255\n Child: 1257\n Child: 1259\n Child: 1260\n Child: 1262\n) \n\n(Butn.1224\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 1225\n Click: \"Project.Save\"\n)\n\n(AVIcon.1225\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.1226\n)\n\n(Butn.1227\n Disabled: 1\n Help: \"Cut//Cuts the selection and puts it into the clipboard\"\n HelpTopic: \"Cut\"\n Update: \"Script.HasSelUpdate\"\n Icon: 1228\n Click: \"Script.Cut\"\n)\n\n(AVIcon.1228\n Name: \"Cut\"\n Res: \"Icons.Cut\"\n\n)\n\n(Butn.1229\n Disabled: 1\n Help: \"Copy//Copies the selection and puts it into the clipboard\"\n HelpTop ic: \"Copy\"\n Update: \"Script.HasSelUpdate\"\n Icon: 1230\n Click: \"Script.Copy\"\n)\n\n(AVIcon.1230\n Name: \"Copy\"\n Res: \"Icons.Copy\"\n\n)\n\n(Butn.1231\n Help: \"Paste//Inserts the contents of the clipboard\"\n HelpTopic: \"Paste\"\n Icon: 1232\n Click: \"Script.Paste\"\n)\n\n(AVIcon.1232\n Name: \"Paste\"\n Res: \"Icons.Paste\"\n\n)\n\n(Space.1233\n)\n\n(Butn.1234\n Help: \"Undo//Undoes the last modification to the script editor text\"\n HelpTopic: \"Undo__Script_\"\n Icon: 1235\n Click: \"Script.Undo\"\n)\n\n(AVIcon.1235\n Name: \"Undo\"\n Res: \"Icons.Undo\"\n\n )\n\n(Space.1236\n)\n\n(Butn.1237\n Help: \"Shift Lines Left//Shifts selected lines or current line two spaces to the left\"\n HelpTopic: \"Shift_lines_left_or_right\"\n Icon: 1238\n Click: \"Script.ShiftLeft\"\n)\n\n(AVIcon.1238\n Name: \"ShiftLeft\"\n Res: \"Icons.ShiftLeft\"\n\n)\n\n(Butn.1239\n Help: \"Shift Lines Right//Shifts selected lines or current line two spaces to the right\"\n HelpTopic: \"Shift_lines_left_or_right\"\n Icon: 1240\n Click: \"Script.ShiftRight\"\n)\n\n(AVIcon.1240\n Name: \"ShiftRight\"\n Res: \"Icons.ShiftRight\"\n\n)\n\n(Space. 1241\n)\n\n(Butn.1242\n Disabled: 1\n Help: \"Compile//Compiles the script\"\n HelpTopic: \"Compile\"\n Update: \"Script.CompileUpdate\"\n Icon: 1243\n Click: \"Script.Compile\"\n)\n\n(AVIcon.1243\n Name: \"Check\"\n Res: \"Icons.Check\"\n\n)\n\n(Butn.1244\n Help: \"Run//Runs the compiled script\"\n HelpTopic: \"Run\"\n Update: \"Script.RunUpdate\"\n Icon: 1245\n Click: \"Script.Run\"\n)\n\n(AVIcon.1245\n Name: \"Run\"\n Res: \"Icons.Run\"\n\n)\n\n(Butn.1246\n Help: \"Step//Executes one request or object reference in the compiled script\"\n HelpTopic: \"Step\"\n Update : \"Script.RunUpdate\"\n Icon: 1247\n Click: \"Script.Step\"\n)\n\n(AVIcon.1247\n Name: \"Footprints\"\n Res: \"Icons.Footprints\"\n\n)\n\n(Butn.1248\n Help: \"Toggle Breakpoint//Toggles a breakpoint on or off at the current cursor position\"\n HelpTopic: \"Toggle_Breakpoint\"\n Update: \"Script.RunUpdate\"\n Icon: 1249\n Click: \"Script.ToggleBreak\"\n)\n\n(AVIcon.1249\n Name: \"Hand\"\n Res: \"Icons.Hand\"\n\n)\n\n(Butn.1250\n Help: \"Examine Variables//Displays the current value of local and global variables\"\n HelpTopic: \"Examine_Variables\"\n Update: \"Script.RunUpdate\"\n Icon: 1251\n Click: \"Script.ShowVariables\"\n)\n\n(AVIcon.1251\n Name: \"Examine\"\n Res: \"Icons.Examine\"\n\n)\n\n(Space.1252\n)\n\n(Butn.1253\n Help: \"Load System Script//Inserts the source code of a system script\"\n HelpTopic: \"Load_System_Script\"\n Icon: 1254\n Click: \"Script.SystemLoad\"\n)\n\n(AVIcon.1254\n Name: \"LoadScript\"\n Res: \"Icons.LoadScript\"\n\n)\n\n(Butn.1255\n Help: \"Load Text File//Inserts the contents of a text file\"\n HelpTopic: \"Load_Text_File\"\n Icon: 1256\n Click: \"Script.FileLoad\"\n)\n\n(AVIcon.1256\n Name: \"Open\"\n Res: \"Icons.Open\"\n\n)\n\n(Butn.1257\n Help: \"Write Text File//Writes the entire script or the selected text to a text file\"\n HelpTopic: \"Write_Text_File\"\n Icon: 1258\n Click: \"Script.FileWrite\"\n)\n\n(AVIcon.1258\n Name: \"Write\"\n Res: \"Icons.Write\"\n\n)\n\n(Space.1259\n)\n\n(Butn.1260\n Help: \"Script Help//Searches for help using the current selection\"\n HelpTopic: \"Getting_help_about_script_components\"\n Icon: 1261\n Click: \"Script.Help\"\n)\n\n(AVIcon.1261\n Name: \"Help\"\n Res: \"Icons.Help\"\n\n)\n\n(Butn.1262\n Help: \"He lp//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 1263\n Click: \"Help.Tool\"\n)\n\n(AVIcon.1263\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(PopupSet.1264\n)\n\n(ToolBar.1265\n)\n\n(AVIcon.1266\n Name: \"Icon\"\n Res: \"SEd.Icon\"\n\n)\n\n(DocGUI.1267\n Name: \"Project\"\n Type: \"Project\"\n Modified: 1\n MenuBar: 1268\n ButnBar: 1311\n Popups: 1319\n ToolBar: 1320\n Icon: 1321\n)\n\n(MenuBar.1268\n Child: 1269\n Child: 1283\n Child: 1296\n Child: 1305\n)\n\n(PMenu.1269\n InternalName: \"File\"\n Chi ld: 1270\n Child: 1271\n Child: 1272\n Child: 1273\n Child: 1274\n Child: 1275\n Child: 1276\n Child: 1277\n Child: 1278\n Child: 1279\n Child: 1280\n Child: 1281\n Child: 1282\n Label: \"&File\"\n)\n\n(Choice.1270\n Help: \"Creates a new project\"\n HelpTopic: \"New_Project\"\n Label: \"&New Project\"\n Click: \"Project.New\"\n Shortcut: \"Keys.Ctrl+N\"\n)\n\n(Choice.1271\n Help: \"Opens an existing project\"\n HelpTopic: \"Open_Project\"\n Label: \"&Open Project...\"\n Click: \"Project.Open\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1272\n Help: \"Closes the pr oject window\"\n HelpTopic: \"Close_Project\"\n Label: \"&Close Project\"\n Click: \"Project.Close\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1273\n)\n\n(Choice.1274\n Help: \"Saves the current project\"\n HelpTopic: \"Save_Project\"\n Label: \"&Save Project\"\n Click: \"Project.Save\"\n Shortcut: \"Keys.Ctrl+S\"\n)\n\n(Choice.1275\n Help: \"Saves the current project with a new name\"\n HelpTopic: \"Save_Project_As\"\n Label: \"Save Project &As...\"\n Click: \"Project.SaveAs\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1276\n Help: \"Exports Project and Data to a sing le location\"\n Update: \"DNR.ExportProject.Update\"\n Label: \"Export Project\"\n Click: \"DNR.ExportProject\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1277\n)\n\n(Choice.1278\n Help: \"Displays the Extensions dialog\"\n HelpTopic: \"Extensions\"\n Label: \"&Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1279\n)\n\n(Choice.1280\n Update: \"Last4.ShowLastProjects\"\n Label: \"DNR Default V3.1e - 4/28/99\"\n Click: \"DNR.About\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1281\n)\n\n(Choice.1282\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1283\n InternalName: \"Project\"\n Child: 1284\n Child: 1285\n Child: 1286\n Child: 1287\n Child: 1288\n Child: 1289\n Child: 1290\n Child: 1291\n Child: 1292\n Child: 1293\n Child: 1294\n Child: 1295\n Label: \"&Project\"\n)\n\n(Choice.1284\n Help: \"Displays the dialog box to edit properties of the project\"\n HelpTopic: \"Project_Properties\"\n Label: \"&Properties...\"\n Click: \"Project.Properties\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1285\n Help: \"Customizes the active project\"\n HelpTopic: \"Customize\"\n Update: \"Project.CustomizeUpdate\"\n Label: \"&Customize...\"\n Click: \"Project.Customize\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1286\n)\n\n(Choice.1287\n Help: \"Renames the selected project component\"\n HelpTopic: \"Rename\"\n Update: \"Project.RenameUpdate\"\n Label: \"&Rename '.makedefaultproject'...\"\n Click: \"Project.Rename\"\n Shortcut: \"Keys.Ctrl+R\"\n)\n\n(Choice.1288\n Help: \"Deletes the selected component from the project\"\n HelpTopic: \"Delete_Component\"\n Update: \"Project.DeleteUpdat e\"\n Label: \"&Delete '.makedefaultproject'...\"\n Click: \"Project.Delete\"\n Shortcut: \"Keys.Del\"\n)\n\n(Space.1289\n)\n\n(Choice.1290\n Help: \"Adds a table to the project\"\n HelpTopic: \"Add_Table\"\n Label: \"&Add Table...\"\n Click: \"Project.AddTable\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1291\n Help: \"Creates a new project component from an external source\"\n HelpTopic: \"Import\"\n Label: \"&Import...\"\n Click: \"Project.Import\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1292\n Help: \"Opens the SQL Connection manager\"\n HelpTopic: \"SQL_Connect \"\n Update: \"Project.HasSQL\"\n Label: \"&SQL Connect...\"\n Click: \"Project.SQLConnect\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1293\n)\n\n(Choice.1294\n Help: \"Summarizes the Documents and contents of a project\"\n Label: \"Summarize Contents\"\n Click: \"Project.Summarize\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1295\n Help: \"Default Project Properties//Set variables to the default project's Initialization file AVDEF.INI.\"\n Label: \"Default Project Properties\"\n Click: \"DNR.EditDefaultProperties\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1296\n InternalName: \"Window\"\n Child: 1297\n Child: 1298\n Child: 1299\n Child: 1300\n Child: 1301\n Child: 1302\n Child: 1304\n Label: \"&Window\"\n)\n\n(Choice.1297\n Help: \"Arranges windows as non-overlapping tiles\"\n HelpTopic: \"Tile\"\n Label: \"&Tile\"\n Click: \"Project.Tile\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1298\n Help: \"Arranges windows\"\n HelpTopic: \"Cascade\"\n Label: \"&Cascade\"\n Click: \"Project.Cascade\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1299\n Help: \"Arranges iconified windows\"\n HelpTopic: \"Arrange_Icons\"\n Label: \"&Arrange Ic ons\"\n Click: \"Project.ArrangeIcons\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1300\n)\n\n(Choice.1301\n Help: \"Shows the symbol window\"\n HelpTopic: \"Show_Symbol_Window\"\n Label: \"Show Symbol Window...\"\n Click: \"Project.ShowHideSymWin\"\n Shortcut: \"Keys.Ctrl+P\"\n)\n\n(Space.1302\n ObjectTag: 1303\n Update: \"WindowMenuUpdate\"\n)\n\n(AVStr.1303\n S: \"defproj31b.apr\"\n)\n\n(Choice.1304\n Help: \"Activates defproj31b.apr\"\n Label: \"&1 defproj31b.apr\"\n Click: \"WindowActivate\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1305\n InternalName: \"Help\"\n Child: 1306\n Child: 1307\n Child: 1308\n Child: 1309\n Child: 1310\n Label: \"&Help\"\n)\n\n(Choice.1306\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1307\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1308\n Help: \"Access Default Project Help File\"\n Tag: \"avdefpr.pdf\"\n Label: \"DNR Default Project Help\"\n Click: \"DNR.ShowHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1309\n)\n\n(Choice.1310\n Help: \"Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.1311\n Update: \"Project.UpdateButtons\"\n Child: 1312\n Child: 1314\n Child: 1315\n Child: 1317\n)\n\n(Butn.1312\n Help: \"Save Project//Saves the current project\"\n HelpTopic: \"Save_Project\"\n Icon: 1313\n Click: \"P roject.Save\"\n)\n\n(AVIcon.1313\n Name: \"Save\"\n Res: \"Icons.Save\"\n\n)\n\n(Space.1314\n)\n\n(Butn.1315\n Help: \"Help//Gets help about the next button, tool, or menu choice you click\"\n HelpTopic: \"Help_button\"\n Icon: 1316\n Click: \"Help.Tool\"\n)\n\n(AVIcon.1316\n Name: \"HelpTool\"\n Res: \"Icons.HelpTool\"\n\n)\n\n(Butn.1317\n Help: \"Summarize Project//Generates a report of the contents of the current ArcView Project\"\n Icon: 1318\n Click: \"Project.Summarize\"\n)\n\n(AVIcon.1318\n Name: \"Summarize\"\n Res: \"Icons.Summarize\"\n\n)\n\n(PopupSet.1319 \n)\n\n(ToolBar.1320\n)\n\n(AVIcon.1321\n Name: \"Icon\"\n Res: \"Project.Icon\"\n\n)\n\n(DocGUI.1322\n Name: \"Appl\"\n Type: \"Application\"\n Modified: 1\n MenuBar: 1323\n ButnBar: 1336\n Popups: 1337\n ToolBar: 1338\n Icon: 1339\n)\n\n(MenuBar.1323\n Child: 1324\n Child: 1331\n)\n\n(PMenu.1324\n InternalName: \"File\"\n Child: 1325\n Child: 1326\n Child: 1327\n Child: 1328\n Child: 1329\n Child: 1330\n Label: \"&File\"\n)\n\n(Choice.1325\n Help: \"Creates a new project\"\n HelpTopic: \"New_Project\"\n Label: \"&New Project\"\n Click: \"Project.New\"\n Shortcut: \"Key s.Ctrl+N\"\n)\n\n(Choice.1326\n Help: \"Opens an existing project\"\n HelpTopic: \"Open_Project\"\n Label: \"&Open Project...\"\n Click: \"Project.Open\"\n Shortcut: \"Keys.Ctrl+O\"\n)\n\n(Space.1327\n)\n\n(Choice.1328\n Help: \"Displays the Extensions dialog\"\n HelpTopic: \"Extensions\"\n Label: \"&Extensions...\"\n Click: \"Appl.GetExtensionWin\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1329\n)\n\n(Choice.1330\n Help: \"Exits ArcView\"\n HelpTopic: \"Exit\"\n Label: \"E&xit\"\n Click: \"Project.Exit\"\n Shortcut: \"Keys.None\"\n)\n\n(PMenu.1331\n InternalName: \"Help\"\n C hild: 1332\n Child: 1333\n Child: 1334\n Child: 1335\n Label: \"&Help\"\n)\n\n(Choice.1332\n Help: \"Displays the dialog for browsing and searching ArcView's help system\"\n HelpTopic: \"Help_on_Help_Topics\"\n Label: \"Help &Topics...\"\n Click: \"Project.HelpTopics\"\n Shortcut: \"Keys.None\"\n)\n\n(Choice.1333\n Help: \"Provides instructions for how to obtain help from ArcView\"\n HelpTopic: \"Help_on_How_to_Get_Help\"\n Label: \"&How to Get Help...\"\n Click: \"Project.HelpHelp\"\n Shortcut: \"Keys.None\"\n)\n\n(Space.1334\n)\n\n(Choice.1335\n Help: \" Provides information about ArcView\"\n HelpTopic: \"About\"\n Label: \"&About ArcView...\"\n Click: \"Project.About\"\n Shortcut: \"Keys.None\"\n)\n\n(ButnBar.1336\n)\n\n(PopupSet.1337\n)\n\n(ToolBar.1338\n)\n\n(AVIcon.1339\n Name: \"DefaultDocument\"\n Res: \"Icons.DefaultDocument\"\n\n)\n\n(AVStr.1340\n S: \"View\"\n)\n\n(AVStr.1341\n S: \"Table\"\n)\n\n(AVStr.1342\n S: \"Chart\"\n)\n\n(AVStr.1343\n S: \"Layout\"\n)\n\n(AVStr.1344\n S: \"Script\"\n)\n\n(AVStr.1345\n S: \"Project\"\n)\n\n(AVStr.1346\n S: \"Appl\"\n)\n\n" SearchStr: "4/15/99" FontSize: 1 ) (DocWin.11 Owner: 10 X: 213 Y: 25 W: 434 H: 100 ) (CSMgr.12 ) (DocAct.13 Doc: 10 ) (SEd.14 Name: "DefaultProject.Install" CreationDate: "Monday, May 18, 1998 12:46:45" GUIName: "Script" Win: 15 CSMgr: 16 DocExts: 17 Source: "'Install Script\n\n'Make sure this is ArcView 3.1\nif (av.getVersion.left(3) <> \"3.1\") then\n msgbox.error(\"Invalid ArcView Version. Must be 3.1 or above\",\"DNR Default Project for ArcView 3.1 Install\")\n av.quit\nend\n\n\nlongmsg = \"This project file will install the DNR ArcView 3.1 Default Project. \"\nlongmsg = longmsg +\"This project was created by the Minnesota Department of Natural Resources \"\nlongmsg = longmsg +\"and comes without warranty of any kind either expressed or implied.\"+NL+NL\nlongmsg = longmsg +\"This installation program will install the extension to the proper subdirectory \"\nlongmsg = longmsg +\"and construct a number of subdirectories required for the application.\"\n\nlongmsg = longmsg +\"The project will rename your original system default project to\"\nlongmsg = longmsg +\" \\esri\\av_gis30\\arcview\\etc\\defesri.apr and the original startup script to\"\nlongmsg = longmsg +\" \\esri\\av_gis30\\arcview\\etc\\startup.orig.\"\n\nmsgbox.report(longmsg,\"MN DNR ArcView 3.1 Default Project\")\n\nif (msgbox.yesno(\"You are about to install the Default Project. Proceed?\",\"Default Project Installation/Upgrade\",true).not) then\n return nil\nend\n\n' Find the installation directory of ArcView\ninstalldir = system.getenvvar(\"AVHOME\")\n\nif (file.IsWritable(installdir.asfilename).not) then\n msgbox.warning(\"No Write Access to the ArcView Installation Directory. Unable to continue...\",\"DNR Default Project for ArcView 3.1\")\n av.quit\nend\nif (file.exists(installdir.asfilename).not) then\n msgbox.error(\"Unable to find ArcView Installation directory! Failing ahhhhhh.....,\",\"Default Installation\")\n return nil\nend\n\n\n' make copies of the originals if they don't exist\nupgrade = false\nfor each fil in {\"default.esri\",\"defesri.apr\"}\n if (file.exists((installdir+\"/etc/\"+fil).asfilename)) then\n upgrade = true\n end\nend\nif (upgrade.not) then\n file.copy( (installdir+\"/etc/default.apr\").asfilename,(installdir+\"/etc/defesri.apr\").asfilename )\n file.copy( (installdir+\"/etc/startup\").asfilename,(installdir+\"/etc/startup.orig\").asfilename )\n file.copy( (install dir+\"/tools/avstart.___\").asfilename,(installdir+\"/tools/avstart.esri\").asfilename )\n file.copy( (installdir+\"/tools/labtools.avx\").asfilename,(installdir+\"/tools/labtools.esri\").asfilename )\nend\n\n\ndefFName = installdir+\"/etc/default.apr\"\nif (file.IsWritable(defFName.asfilename).not) then\n msgbox.warning(\"No Write Access to the system DEFAULT.APR! Unable to continue...\",\"DNR Default Project for ArcView 3.1\")\n return nil\nelse\n defproj = av.finddoc(\"Default Project\")\n f = LineFile.Make(defFName.asfilenam e, #FILE_PERM_WRITE) \n f.WriteElt(defproj.GetSource)\n f.close\nend\n\nstartupname = installdir+\"/etc/startup\"\nif (file.IsWritable(startupname.asfilename).not) then\n msgbox.warning(\"No Write Access to the system STARTUP file! Unable to continue...\",\"DNR Default Project for ArcView 3.1\")\n return nil\nelse\n startup = av.finddoc(\"Startup Script\")\n f = linefile.make(startupname.asfilename,#FILE_PERM_WRITE)\n f.writeElt(startup.getsource)\n f.close\nend\n\navstartname = installdir+\"/tools/avstart.___\"\nif (file.IsW ritable(avstartname.asfilename).not) then\n msgbox.warning(\"No Write Access to the AVSTART.___ file! Unable to continue...\",\"DNR Default Project for ArcView 3.1\")\n return nil\nelse\n avstart = av.finddoc(\"AVStart Extension\")\n f = linefile.make(avstartname.asfilename,#FILE_PERM_WRITE)\n f.writeElt(avstart.getsource)\n f.close\nend\n\ngrlabelname = installdir+\"/tools/labtools.avx\"\nif (file.IsWritable(grlabelname.asfilename).not) then\n msgbox.warning(\"No Write Access to the AVSTART.___ file! Unable to continue. ..\",\"DNR Default Project for ArcView 3.1\")\n return nil\nelse\n grlabel = av.finddoc(\"Graphic Label Extension\")\n f = linefile.make(grlabelname.asfilename,#FILE_PERM_WRITE)\n f.writeElt(grlabel.getsource)\n f.close\nend\n\n' now process log file...\nmsgbox.Report((av.FindDoc(\"DNR Default Project for ArcView 3.1 Log File\").GetSource),\"DNR Default Project Log\")\n\nmsgbox.info(\"DNR ArcView 3.1 Default Project Successfully Installed. You will need to re-start ArcView to take advantage of this new functionality....\",\"D efault Project Installation\")\nav.quit" SearchStr: "tutorail" FontSize: 1 ) (DocWin.15 Owner: 14 X: 16 Y: 8 W: 635 H: 378 ) (CSMgr.16 ) (DocAct.17 Doc: 14 ) (SEd.18 Name: "DNR Default Project for ArcView 3.1 Log File" Creator: "Tim Loesch" CreationDate: "Thursday, March 11, 1999 08:44:40" GUIName: "Script" Win: 19 CSMgr: 20 DocExts: 21 Source: "ArcView System Level Default Project Log File\nDNR Default Project for ArcView 3.1\n\nVersion 3.1e\nCreated 4/14/98\n\n1) Addition of Layout: FILE: Export to Alchemy option \nadditional varaibles to support this option\n ALCHLOC=v:\\mndnrgis\\alchemy\\alchlong.exe=Image Alchemy\n PRINTER1=<>=UNIX Printer #1\n PRINTER2=<>=UNIX Printer #2 (optional)\n PRINTER3=<>=UNIX Printer #3 (Optional)\n PRTSRV==UNIX Print Server\n IGAMMA=<1.0>=Image Alchemy Input Gamma (optional)\n OGAMMA=<1.8>=Image Alchemy Output Gamma (optional) \n SPOOLCMD==Use Novell NPRINT command instead of NT lpr\n\n2) Addition of Layout: Spool RTL File. This option will allow you to spool existing\nRTL files to a printer of your choice. It is only available if the Export to Alchemy\nOption is available.\n\n3) Fixed bug that prevented Project Autosave to Initialize\n\n4) Fixed _RememberLast bug\n\n5) Now saves 9 last projects rather than last 4\n\n6) Fixed RememberLast bug that wouldn't allow you to open projects whose name\nhad a space in them\n\n7) Added Updated Sta rtup Extension to incorporate Last Nine Projects in List box\non dialog.\n\n8) ArcView Banner now shows MN DNR Default Project -- ArcView GIS Version \n\n9) Updated MetaData button so that it searches for additional meta-data documents\n\n10) Addition of Project: PROJECT: Project Summarize option and button. This option will produce\na summary of the contents of the current ArcView project file and list them in a report\nwindow. This information is also copied to the clipboard for use in other programs..\n\n11) When a project is opened it is scanned and reconciled for differences between earlier versions\nof the menus, buttons, and tools.\n\n12) Added updated LABTOOLS.AVX with control for setting a reference scale for labels and text.\n\n*****************************************************************************************\nVersion 3.1d\nCreated 12/29/98\n\n1) Incorporated fixes so that project can be used on UNIX installations of ArcView.\n\n2) Created INSTALL.APR and UNINSTAL.APR to facilitate installat ion of files.\n\n\n\n\n*****************************************************************************************\nVersion 3.1c\nCreated 11/18/98\n\n1) Modification to STARTUP script that exists as $AVHOME/etc/startup. This script forces\nArcView to read the environment variables as the first thing it does. This avoids any problems with user based default projects that have extensions loaded. It is now included\nwith the default project and needs to be installed there. Save the existing copy of STARTUP\nas STARTUP.ESRI and save the provided STARTUP file in the $AVHOME/etc subdirectory.\n\n2) PROJECT: Add Default Property - Removed\n\n3) Default Project Properties are now handled through a Dialog Designer interface. This\nmakes the management of these variables much easier. The dialog contains the buttons to \nAdd and Delete Environment Variables. You can also change any variable value by double-\nclicking in the cell of interest and typing a new value.\n\n4) This method makes the old limitation of 40 variables obsolete. There is n o longer any\nlimits on the number of values you can have....\n\n5) LAYOUT: Frames Toolbar: Add Table Graphic tool - NEW\nThis tools allows the user to add a table to a layout as a graphic rather than a table object. By applying the table as a graphic rather\nthan a table object gives the user a much nicer looking table, one that actually works and gives you some flexibility in your display.\nThe downshide is that this table is a graphic, and not a table object so you must remember that any changes to the table d o not carry over to the layout. You must re-add the table to show the changes.\n\n6) VIEW: MetaData Button.\nThis button is used to retrieve the DNR's Meta-Data light for the active theme. This script activates the system's default browser and loads the appropriate metadata light html file. This is based on the filename of the theme of interest with an lt.html suffix. For example, for a theme called COUNTY.SHP there needs to be a html file called COUNTYLT.HTML. The HTML files are looked for first in $DNRCORE/m etadata and if not found there it will look in $AVCORE/metadata. $DNRCORE and $AVCORE refer to standard DNR environment variables for GIS Access and use.\n\n\n\n\n*****************************************************************************************\nVersion 3.1b\nCreated 10/19/98\n\nSince ArcView 3.1 has incorporated some of the functionality that the old DNR default project incorporated, the changes relate primarily to functions that have been removed. The following changes have been made:\n\n1) Project Interface :\n A) Copy Arc/Info Coverage has been moved to the View document Interface in the FILE menu.\n B) Copy/Rename Shapefiles has been implemented by ESRI in the View Document interface in the FILE menu, Manage Data Sources option.\n C) Removed Set Autosave Interval - Now available as a Default Project Property\n D) Removed Set Project Autosave - Now availab as a Default Project Property\n\n2) View Document Interface\n A) Removed Scaled Text Tool - Now supported by ESRI\n\n B) Removed GRAPHICS menu Set Text Scale opt ion - Now in the GRAPHICS: Text and Label\n Defaults dialog as Text Reference Scale.\n\n C) Added Zoom to Lat/Long Button - Zooms to a input Lat/Long position in UTM Zone 15, NAD83. (specific to Minnesota - Sorry to others).\n\n D) Show Lat/Long Tool - Displays the Lat/Long in DMS and DD of the selected point on data that is in UTM Zone 15, NAD83 (specific to Minnesota, sorry to others)\n\n3) Layout Document Interface:\n A) NeatLine Button: Removed. Now included as extension with ArcView.\n\n4) The ability to use the AVDEF.INI file in an environment where ArcView is served from a network server has now been implemented. If the user is using a networked copy of ArcView the AVDEF.INI file will be written in the directory referenced by the TEMP environment variable. This assures that each user will be able to have their own settings unique to their local machine. In earlier versions, the AVDEF.INI file was always written to the \\ESRI\\AV_GIS30\\ARCVIEW\\ETC subdirectory. In a networked environment user's usually didn't ha ve permission to write or modify this file.\n\n*****************************************************************************************\n\nCreated 5/28/98\nVersion 3.1\n\nUPDATES\n\n1) Major Functionality Update - \n\nThe Default project now incorporates the use of a initialization file called AVDEF.INI.\nThis is an ASCII file that sits in one of the following locations:\n\n $AVHOME/etc/avdef.ini, or\n $HOME/avdef.ini, or\n $TEMP/avdef.ini.\n\nThe $AVHOME and $HOME variables are set internally by ArcView, you don't have to worry about setting these two.\n\nIf the user cannot write to the installation directory of ArcView (say, if the installation is a network copy) then the initialization file is save in the $HOME location. If the user cannot write to that location the temp directory is used as a last resort.\n\nIf the file does not exist, the default project will create it with the following default\nvariables:\n\nTXTSCALE=100000 The default text scaling parameter\nTXTPNTS=24 The default text size in points\nAUTOSAVE=OFF Project A utosave is set to off\nAUTOSAVEINT=300 Project Autosave Interval defaults to 300 seconds (5 minutes)\nDNRMSG=ON DNR extension messages are on\nMAPUNITS=METERS Default View Document Map Units is Meters\nDISUNITS=FEET Default View Document Distance Units is Feet\n\nThis file stores environment variable assignments in the form\n==\n\nThe value in the place will be used in the Default Project Properties dialog.\n\nYou can display and change these settings using the PROJECT:Default Project Properties\nmenu option. To add an environment variable you can either edit the file using a text editor\nor you can use the PROJECT: Add Project Property option.\n\nThe important thing to remember is that these variables will over-ride any system.\nenvironment variables set any other way and that they are only valid when ArcView is \non.\n\nThe only restriction is that this file cannot contain more than 40 environment settings.\n\n\nNew Commands/Menu Options\n\n1)Project Document Interface\n Adde d to FILE Menu - Copy Arc/Info Coverage - This script allows the user to copy \n and Arc/Info Coverage from one spot to another.\n\n Added to FILE Menu - Copy/Rename Shapefiles - This script calls up a shapefile\n management dialog.\n\n Added to PROJECT Menu - Default Project Properties - Allows the\n user to change or view the ArcView Initialization settings.\n\n Added to PROJECT Menu - Add Project Property - Allows the user to\n add an environment variable to the ArcView Default Project Initialization file.\n\n2) Vi ew Document\n Added to View Menu - Export View - Converts all themes in a view document to new\n shapefiles in a new directory\n\n Added to View Toolbar - Text dropdown tool menu. This gives the user two options\n for adding scaled or unscaled text. This is a better implementation of the scaled\n text option.\n\n Removed from Graphic Menu - Scaled Text On/Off. This option is now implemented as\n a dropdown toolbar as described above.\n\n3) Layout Document\n Added to File Menu - Print Symbol Palette. This option allows the user to create\n layouts that are palettes of the current Fill, Lines, Markers, Text or colors that\n can be printed to determine color matching.\n\n" FontSize: 1 ) (DocWin.19 Owner: 18 X: -4 Y: -4 W: 512 H: 369 ) (CSMgr.20 ) (DocAct.21 Doc: 18 ) (SEd.22 Name: "Graphic Label Extension" CreationDate: "Thursday, March 11, 1999 08:37:06" GUIName: "Script" Win: 23 CSMgr: 24 DocExts: 25 Source: "/3.1\n(Extension.1\n Name: \"Label & Text Tools\"\n Dependencies: \"$AVBIN/avdlog.dll\\n\"\n FirstRootClassName: \"AVDLog\"\n Roots: 2\n Roots: 87\n Roots: 110\n Roots: 130\n Roots: 131\n Roots: 132\n Roots: 133\n Roots: 134\n Roots: 135\n Roots: 136\n Roots: 137\n Roots: 138\n Roots: 139\n Roots: 140\n Roots: 141\n Roots: 142\n Roots: 143\n Roots: 144\n Roots: 145\n Roots: 146\n Roots: 147\n Roots: 148\n Roots: 149\n Roots: 150\n Roots: 151\n Roots: 152\n Roots: 153\n Roots: 154\n Roots: 155\n Roots: 156\n Roots: 157\n Roots: 158\n Roots: 159\n Versi on: 31\n About: \"Contains scripts for ArcView's label and text tools\"\n LoadScript: 160\n CanUnloadScript: 161\n UnloadScript: 162\n ExtVersion: 3\n)\n\n(AVDLog.2\n Name: \"Graphic.Label Defaults\"\n X: 22\n Y: 43\n W: 588\n H: 325\n HelpTopic: \"Default_settings_for_text_and_label_tools\"\n ConstrainedControlNames: 3\n ConstrainedControlNames: 4\n Constraints: 5\n Constraints: 6\n Server: 7\n ControlPanel: 8\n Title: \"Default settings for text and label tools\"\n EscapeEnabled: 1\n Modal: 1\n AlwaysOnTop: 1\n HasTitleBar: 1\n Closeable: 1\n Close: \"Graphic.Label Defaults Close\"\n Open: \"Graphic.Label Defaults Open\"\n DefaultButton: 86\n)\n\n(AVStr.3\n S: \"OK\"\n)\n\n(AVStr.4\n S: \"Cancel\"\n)\n\n(Numb.5\n N: 85.00000000000000\n)\n\n(Numb.6\n N: 85.00000000000000\n)\n\n(Nil.7\n)\n\n(CPanel.8\n Child: 9\n Child: 10\n Child: 11\n Child: 59\n Child: 60\n Child: 62\n Child: 77\n ResBox: 79\n ResBox: 80\n ResBox: 81\n ResBox: 82\n ResBox: 83\n ResBox: 84\n ResBox: 85\n Listening: 1\n)\n\n(LButn.9\n InternalName: \"OK\"\n Help: \"Accepts the new settings and closes the Text and Label Defaults d ialog\"\n Label: \"OK\"\n Click: \"Graphic.Label Defaults Button\"\n)\n\n(LButn.10\n InternalName: \"Cancel\"\n Help: \"Cancels any changes you made and closes the Text and Label Defaults dialog\"\n Label: \"Cancel\"\n Click: \"Graphic.Label Defaults Button\"\n)\n\n(CPanel.11\n InternalName: \"PropsPanel\"\n Child: 12\n Child: 34\n Child: 35\n Child: 36\n Child: 39\n Child: 37\n Child: 40\n Child: 41\n Child: 42\n Child: 43\n Child: 44\n Child: 46\n Constraints: 0x55\n ResBox: 47\n ResBox: 48\n ResBox: 49\n ResBox: 50\n ResBox: 51\n ResBox: 52\n ResBox: 53\n ResBox: 54\n ResBox: 55\n ResBox: 56\n ResBox: 57\n ResBox: 58\n Label: \"Defaults for\"\n VisibleBorder: 1\n Listening: 1\n)\n\n(CPanel.12\n InternalName: \"TagTextPan\"\n Child: 13\n Child: 14\n Child: 15\n Child: 17\n Child: 18\n Child: 19\n Child: 20\n Child: 21\n Child: 22\n Child: 23\n Constraints: 0x55\n ResBox: 24\n ResBox: 25\n ResBox: 26\n ResBox: 27\n ResBox: 28\n ResBox: 29\n ResBox: 30\n ResBox: 31\n ResBox: 32\n ResBox: 33\n VisibleBorder: 1\n Listening: 1\n)\n\n(AVCBox.13\n InternalName: \"CDS\"\n Help: \"Check this to add a drop sha dow to the callout box\"\n Listening: 1\n Label: \"Use drop-shadow\"\n Click: \"Graphic.Label Control Update\"\n Constraints: 0x55\n)\n\n(AVCBox.14\n InternalName: \"UseOutline\"\n Help: \"Check this to place an outline around your callout label\"\n Listening: 1\n Label: \"Use outline\"\n Click: \"Graphic.Label Control Update\"\n Constraints: 0x55\n)\n\n(AVCBBox.15\n InternalName: \"COLWidth\"\n Help: \"Choose an outline width\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(Nil. 16\n)\n\n(AVCBBox.17\n InternalName: \"OLColor\"\n Help: \"Choose an outline color\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVCBBox.18\n InternalName: \"DSColor\"\n Help: \"Choose a color to use for the drop-shadow\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVCBBox.19\n InternalName: \"BGColor\"\n Help: \"Choose the color that will fill the callout box\"\n NextControl: 16\n ContentKind: 4\n Co nstraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(TextLabel.20\n InternalName: \"t6\"\n Constraints: 0x55\n Label: \"Width (pts):\"\n Listening: 1\n)\n\n(TextLabel.21\n InternalName: \"t7\"\n Constraints: 0x55\n Label: \"Outline color:\"\n Listening: 1\n)\n\n(TextLabel.22\n InternalName: \"t8\"\n Constraints: 0x55\n Label: \"Fill color:\"\n Listening: 1\n)\n\n(TextLabel.23\n InternalName: \"DSLabel\"\n Constraints: 0x55\n Label: \"Shadow color:\"\n Listening: 1\n)\n\n(RectD.24\n Left: 4.00000000000000\n Top: 119.00000000000000\n Right: 207.00000000000000\n Bottom: 95.00000000000000\n)\n\n(RectD.25\n Left: 4.00000000000000\n Top: 26.00000000000000\n Right: 152.00000000000000\n Bottom: 1.00000000000000\n)\n\n(RectD.26\n Left: 91.00000000000000\n Top: 212.00000000000000\n Right: 226.00000000000000\n Bottom: 24.00000000000000\n)\n\n(RectD.27\n Left: 91.00000000000000\n Top: 233.00000000000000\n Right: 226.00000000000000\n Bottom: 46.00000000000000\n)\n\n(RectD.28\n Left: 91.00000000000000\n Top: 305.00000000000000\n Right: 226.00000000000000\n Bottom: 118.00000000 000000\n)\n\n(RectD.29\n Left: 91.00000000000000\n Top: 257.00000000000000\n Right: 226.00000000000000\n Bottom: 69.00000000000000\n)\n\n(RectD.30\n Left: 10.00000000000000\n Top: 48.00000000000000\n Right: 130.00000000000000\n Bottom: 25.00000000000000\n)\n\n(RectD.31\n Left: 10.00000000000000\n Top: 68.00000000000000\n Right: 130.00000000000000\n Bottom: 45.00000000000000\n)\n\n(RectD.32\n Left: 10.00000000000000\n Top: 88.00000000000000\n Right: 113.00000000000000\n Bottom: 67.00000000000000\n)\n\n(RectD.33\n Left: 8.00000000000000\n To p: 143.00000000000000\n Right: 128.00000000000000\n Bottom: 121.00000000000000\n)\n\n(AVCBBox.34\n InternalName: \"CSize\"\n Help: \"Choose a point size for your font\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVCBBox.35\n InternalName: \"CStyle\"\n Help: \"Choose a style for your font\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVLBox.36\n InternalName: \"FontName\"\n Help: \"Choose a font\"\n N extControl: 37\n ContentKind: 4\n Constraints: 0x55\n ColumnCount: 1\n Listening: 1\n VerticalScroll: 1\n Select: \"Graphic.Label Control Update\"\n SelectionStyle: 38\n)\n\n(AVCBBox.37\n InternalName: \"FontColor\"\n Help: \"Choose a foreground color for your font\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVEnum.38\n Name: \"LISTBOX_SELECTION_SINGLECELL\"\n)\n\n(TextLabel.39\n InternalName: \"t9\"\n Constraints: 0x55\n Label: \"Font:\"\n Listening: 1\n)\n\n(AVCBox.40\n Int ernalName: \"UseSymWinDefs\"\n Help: \"Check this to use the Symbol Window's default settings for text\"\n Listening: 1\n Selected: 1\n Label: \"Use Symbol Window settings for text\"\n Click: \"Graphic.UseSymWinDefs\"\n Constraints: 0x55\n)\n\n(TextLabel.41\n InternalName: \"t3\"\n Constraints: 0x55\n Label: \"Color:\"\n Listening: 1\n)\n\n(TextLabel.42\n InternalName: \"t4\"\n Constraints: 0x55\n Label: \"Size (pts):\"\n Listening: 1\n)\n\n(TextLabel.43\n InternalName: \"t5\"\n Constraints: 0x55\n Label: \"Style:\"\n Listening: 1\n)\n\n(AVLBox.44\n Interna lName: \"TSample\"\n Disabled: 1\n Help: \"This is what the text for the selected tool will look like the next time you use that tool\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n ColumnCount: 1\n Listening: 1\n SelectionStyle: 45\n)\n\n(AVEnum.45\n Name: \"LISTBOX_SELECTION_SINGLECELL\"\n)\n\n(TextLabel.46\n InternalName: \"aTextLabel1\"\n Constraints: 0x55\n Label: \"Sample text symbol:\"\n Listening: 1\n)\n\n(RectD.47\n Left: 194.00000000000000\n Top: 267.00000000000000\n Right: 430.00000000000000\n Bottom: 112.00000000000000\n )\n\n(RectD.48\n Left: 66.00000000000000\n Top: 385.00000000000000\n Right: 186.00000000000000\n Bottom: 225.00000000000000\n)\n\n(RectD.49\n Left: 66.00000000000000\n Top: 449.00000000000000\n Right: 187.00000000000000\n Bottom: 251.00000000000000\n)\n\n(RectD.50\n Left: 11.00000000000000\n Top: 193.00000000000000\n Right: 185.00000000000000\n Bottom: 65.00000000000000\n)\n\n(RectD.51\n Left: 13.00000000000000\n Top: 71.00000000000000\n Right: 113.00000000000000\n Bottom: 47.00000000000000\n)\n\n(RectD.52\n Left: 66.00000000000000\n Top: 364.00000000000000\n Right: 185.00000000000000\n Bottom: 200.00000000000000\n)\n\n(RectD.53\n Left: 17.00000000000000\n Top: 44.00000000000000\n Right: 396.00000000000000\n Bottom: 21.00000000000000\n)\n\n(RectD.54\n Left: 11.00000000000000\n Top: 219.00000000000000\n Right: 87.00000000000000\n Bottom: 198.00000000000000\n)\n\n(RectD.55\n Left: 11.00000000000000\n Top: 243.00000000000000\n Right: 98.00000000000000\n Bottom: 221.00000000000000\n)\n\n(RectD.56\n Left: 11.00000000000000\n Top: 269.00000000000000\n Right: 89.0000000000000 0\n Bottom: 246.00000000000000\n)\n\n(RectD.57\n Left: 194.00000000000000\n Top: 106.00000000000000\n Right: 423.00000000000000\n Bottom: 65.00000000000000\n)\n\n(RectD.58\n Left: 196.00000000000000\n Top: 69.00000000000000\n Right: 427.00000000000000\n Bottom: 45.00000000000000\n)\n\n(TextLabel.59\n InternalName: \"aTextLabel3\"\n Constraints: 0x55\n Label: \"Click on the tool\\nicon to set its\\ndefault values.\"\n Listening: 1\n)\n\n(AVLBox.60\n InternalName: \"CalloutIcons\"\n Help: \"Click on tool icon to select it\"\n NextControl: 16\n Con tentKind: 4\n Constraints: 0x55\n ColumnCount: 1\n Listening: 1\n Select: \"Graphic.Label Defaults Change Icon\"\n SelectionStyle: 61\n)\n\n(AVEnum.61\n Name: \"LISTBOX_SELECTION_SINGLECELL\"\n)\n\n(CPanel.62\n InternalName: \"HwyPan\"\n Disabled: 1\n Child: 63\n Child: 64\n Child: 65\n Child: 66\n Child: 67\n Child: 68\n Child: 69\n Constraints: 0x55\n ResBox: 70\n ResBox: 71\n ResBox: 72\n ResBox: 73\n ResBox: 74\n ResBox: 75\n ResBox: 76\n VisibleBorder: 1\n Listening: 1\n)\n\n(AVCBox.63\n InternalName: \"UseOnlyNums\"\n Help: \"Choose this to show only the numeric portion of the highway label\"\n Listening: 1\n Label: \"Show only numbers\"\n Click: \"Graphic.Label Control Update\"\n Constraints: 0x55\n)\n\n(AVCBBox.64\n InternalName: \"HwyOL\"\n Help: \"Choose an outline color for your highway shield\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label Control Update\"\n)\n\n(AVCBBox.65\n InternalName: \"HwySize\"\n Help: \"Choose a size for your highway shield\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \" Graphic.Label Control Update\"\n)\n\n(TextLabel.66\n InternalName: \"l1\"\n Constraints: 0x55\n Label: \"Size (pts):\"\n Listening: 1\n)\n\n(TextLabel.67\n InternalName: \"t2\"\n Constraints: 0x55\n Label: \"Outline color:\"\n Listening: 1\n)\n\n(TextLabel.68\n InternalName: \"HwyFillLab\"\n Constraints: 0x55\n Label: \"Fill color:\"\n Listening: 1\n)\n\n(AVCBBox.69\n InternalName: \"HwyFill\"\n Help: \"Choose a background fill color for your highway shield\"\n NextControl: 16\n ContentKind: 4\n Constraints: 0x55\n Listening: 1\n Select: \"Graphic.Label C ontrol Update\"\n)\n\n(RectD.70\n Left: 3.00000000000000\n Top: 132.00000000000000\n Right: 194.00000000000000\n Bottom: 97.00000000000000\n)\n\n(RectD.71\n Left: 100.00000000000000\n Top: 187.00000000000000\n Right: 228.00000000000000\n Bottom: 37.00000000000000\n)\n\n(RectD.72\n Left: 100.00000000000000\n Top: 158.00000000000000\n Right: 228.00000000000000\n Bottom: 8.00000000000000\n)\n\n(RectD.73\n Left: 3.00000000000000\n Top: 27.00000000000000\n Right: 104.00000000000000\n Bottom: 7.00000000000000\n)\n\n(RectD.74\n Left: 3.0000000000 0000\n Top: 57.00000000000000\n Right: 104.00000000000000\n Bottom: 36.00000000000000\n)\n\n(RectD.75\n Left: 3.00000000000000\n Top: 88.00000000000000\n Right: 106.00000000000000\n Bottom: 63.00000000000000\n)\n\n(RectD.76\n Left: 104.00000000000000\n Top: 215.00000000000000\n Right: 230.00000000000000\n Bottom: 65.00000000000000\n)\n\n(TextLine.77\n InternalName: \"Reference Scale txl\"\n Help: \"Specify Reference Scale//Enter the map scale you want your text referenced to\"\n Label: \"Text Reference Scale 1:\"\n Constraints: 0x55\n Li stening: 1\n TextType: 78\n NextControl: 16\n)\n\n(AVEnum.78\n Name: \"TEXTLINE_TYPE_INTEGER\"\n)\n\n(RectD.79\n Left: 372.00000000000000\n Top: 317.00000000000000\n Right: 456.00000000000000\n Bottom: 291.00000000000000\n)\n\n(RectD.80\n Left: 459.00000000000000\n Top: 316.00000000000000\n Right: 543.00000000000000\n Bottom: 291.00000000000000\n)\n\n(RectD.81\n Left: 151.00000000000000\n Top: 282.00000000000000\n Right: 586.00000000000000\n Bottom: 6.00000000000000\n)\n\n(RectD.82\n Left: 7.00000000000000\n Top: 84.00000000000000\n Right: 1 50.00000000000000\n Bottom: 8.00000000000000\n)\n\n(RectD.83\n Left: 6.00000000000000\n Top: 149.00000000000000\n Right: 139.00000000000000\n Bottom: 64.00000000000000\n)\n\n(RectD.84\n Left: 500.00000000000000\n Top: 529.00000000000000\n Right: 737.00000000000000\n Bottom: 373.00000000000000\n)\n\n(RectD.85\n Left: 109.00000000000000\n Top: 315.00000000000000\n Right: 339.00000000000000\n Bottom: 295.00000000000000\n)\n\n(Nil.86\n)\n\n(AVDLog.87\n Name: \"View.Hwy Name Too Big\"\n X: 16\n Y: 298\n W: 513\n H: 295\n ConstrainedControlNames: 8 8\n ConstrainedControlNames: 89\n Constraints: 90\n Constraints: 91\n Server: 92\n ControlPanel: 93\n Title: \"Highway Label Tool cannot use:\"\n EscapeEnabled: 1\n Modal: 1\n AlwaysOnTop: 1\n HasTitleBar: 1\n Closeable: 1\n DefaultButton: 109\n)\n\n(AVStr.88\n S: \"OK\"\n)\n\n(AVStr.89\n S: \"Cancel\"\n)\n\n(Numb.90\n N: 85.00000000000000\n)\n\n(Numb.91\n N: 85.00000000000000\n)\n\n(Nil.92\n)\n\n(CPanel.93\n Child: 94\n Child: 95\n Child: 97\n Child: 98\n Child: 99\n Child: 100\n Child: 101\n ResBox: 102\n ResBox: 103\n ResBox: 104\n ResBox: 105\n ResBox: 1 06\n ResBox: 107\n ResBox: 108\n Listening: 1\n)\n\n(TextLabel.94\n InternalName: \"aTextLabel22\"\n Constraints: 0x55\n Label: \"A highway number could not be determined for the feature you\\nclicked on. Check to make sure your theme has its label field\\nproperty set to a field that contains highway numbers. Also\\nArcView is using the topmost active theme, try making your\\nhighway theme the only active theme if it is not.\"\n Listening: 1\n)\n\n(TextLine.95\n InternalName: \"userShortName\"\n Constraints: 0x55\n Listening: 1\n TextType: 96\n Changed: \"View.SixCharUpdate\"\n NextControl: 16\n)\n\n(AVEnum.96\n Name: \"TEXTLINE_TYPE_ALL\"\n)\n\n(TextLabel.97\n InternalName: \"aTextLabel28\"\n Constraints: 0x55\n Label: \"Or, if you want, you can enter the highway number that is\\ncorrect for where you clicked.\"\n Listening: 1\n)\n\n(LButn.98\n InternalName: \"OK\"\n Label: \"OK\"\n Click: \"View.Highway Tool Huge number\"\n)\n\n(LButn.99\n InternalName: \"Cancel\"\n Label: \"Cancel\"\n Click: \"View.Highway Tool Huge number\"\n)\n\n(TextLabel.100\n InternalName: \"aTextLabel32\"\n C onstraints: 0x55\n Label: \"(Limit = 6 characters)\"\n Listening: 1\n)\n\n(TextLabel.101\n InternalName: \"aTextLabel2\"\n Constraints: 0x55\n Label: \"Use this highway number instead:\"\n Listening: 1\n)\n\n(RectD.102\n Left: 9.00000000000000\n Top: 133.00000000000000\n Right: 507.00000000000000\n Bottom: 9.00000000000000\n)\n\n(RectD.103\n Left: 277.00000000000000\n Top: 217.00000000000000\n Right: 431.00000000000000\n Bottom: 197.00000000000000\n)\n\n(RectD.104\n Left: 9.00000000000000\n Top: 193.00000000000000\n Right: 486.00000000000000 \n Bottom: 137.00000000000000\n)\n\n(RectD.105\n Left: 357.00000000000000\n Top: 287.00000000000000\n Right: 459.00000000000000\n Bottom: 257.00000000000000\n)\n\n(RectD.106\n Left: 249.00000000000000\n Top: 287.00000000000000\n Right: 351.00000000000000\n Bottom: 257.00000000000000\n)\n\n(RectD.107\n Left: 285.00000000000000\n Top: 257.00000000000000\n Right: 492.00000000000000\n Bottom: 230.00000000000000\n)\n\n(RectD.108\n Left: 9.00000000000000\n Top: 226.00000000000000\n Right: 278.00000000000000\n Bottom: 201.00000000000000\n)\n\n(N il.109\n)\n\n(AVDLog.110\n Name: \"View.User Hwy Num\"\n X: 16\n Y: 370\n W: 453\n H: 244\n ConstrainedControlNames: 111\n ConstrainedControlNames: 112\n Constraints: 113\n Constraints: 114\n Server: 92\n ControlPanel: 115\n Title: \"A highway label cannot be placed\"\n EscapeEnabled: 1\n Modal: 1\n AlwaysOnTop: 1\n HasTitleBar: 1\n Closeable: 1\n DefaultButton: 129\n)\n\n(AVStr.111\n S: \"Cancel\"\n)\n\n(AVStr.112\n S: \"OK\"\n)\n\n(Numb.113\n N: 85.00000000000000\n)\n\n(Numb.114\n N: 85.00000000000000\n)\n\n(CPanel.115\n Child: 116\n Child: 118\n Child: 1 19\n Child: 120\n Child: 121\n Child: 122\n ResBox: 123\n ResBox: 124\n ResBox: 125\n ResBox: 126\n ResBox: 127\n ResBox: 128\n Listening: 1\n)\n\n(TextLine.116\n InternalName: \"UserNum\"\n Constraints: 0x55\n Listening: 1\n TextType: 117\n Changed: \"View.SixCharUpdate\"\n NextControl: 16\n)\n\n(AVEnum.117\n Name: \"TEXTLINE_TYPE_ALL\"\n)\n\n(TextLabel.118\n InternalName: \"aTextLabel16\"\n Constraints: 0x55\n Label: \"ArcView cannot locate a highway at the location you\\nclicked or the highway at that location did not have a\\nlabel in its att ribute table. Please enter a highway\\nnumber if you know it.\"\n Listening: 1\n)\n\n(LButn.119\n InternalName: \"Cancel\"\n Label: \"Cancel\"\n Click: \"View.Highway Tool User Number\"\n)\n\n(LButn.120\n InternalName: \"OK\"\n Label: \"OK\"\n Click: \"View.Highway Tool User Number\"\n)\n\n(TextLabel.121\n InternalName: \"aTextLabel33\"\n Constraints: 0x55\n Label: \"(Limit = 6 characters)\"\n Listening: 1\n)\n\n(TextLabel.122\n InternalName: \"aTextLabel1\"\n Constraints: 0x55\n Label: \"HIghway number:\"\n Listening: 1\n)\n\n(RectD.123\n Left: 167.00000000 000000\n Top: 167.00000000000000\n Right: 331.00000000000000\n Bottom: 147.00000000000000\n)\n\n(RectD.124\n Left: 12.00000000000000\n Top: 135.00000000000000\n Right: 438.00000000000000\n Bottom: 18.00000000000000\n)\n\n(RectD.125\n Left: 188.00000000000000\n Top: 237.00000000000000\n Right: 291.00000000000000\n Bottom: 205.00000000000000\n)\n\n(RectD.126\n Left: 297.00000000000000\n Top: 237.00000000000000\n Right: 398.00000000000000\n Bottom: 205.00000000000000\n)\n\n(RectD.127\n Left: 174.00000000000000\n Top: 202.00000000000000\n R ight: 419.00000000000000\n Bottom: 174.00000000000000\n)\n\n(RectD.128\n Left: 12.00000000000000\n Top: 183.00000000000000\n Right: 174.00000000000000\n Bottom: 149.00000000000000\n)\n\n(Nil.129\n)\n\n(Script.130\n Name: \"Graphic.Label Control Update\"\n SourceCode: \"'** This script updates the user interface \\n'** based on the state of checkboxes, and\\n'** Updates the Temporary preferences.\\n\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\n\\nTSample = CPC.FindByName(\\\"TSample\\\")\\nCStyle = CPC.FindByName(\\\"CStyle\\\").GetSe lection\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nUseSymWinDefs = CPC.FindByName(\\\"UseSymWinDefs\\\").IsSelected\\n\\nif (IconList.GetSelection.Count < 1) then\\n CurrIcon = IconList.GetList.Get(0).Get(0).GetName\\nelse\\n CurrIcon = IconList.GetSelection.Get(0).GetName\\nend\\n\\n\nthePrefs = IconList.GetObjectTag.Get(CurrIcon)\\n\\nisHwy = true\\nif ((CurrIcon.Left(1) = \\\"T\\\") or (CurrIcon.Left(1) = \\\"L\\\")) then\\n isHwy = false\\nend\\n\\n' NON-HIGHWAY HIGHWAY\\n'(0) Font Family (String) Font Family (String)\\n'(1) Font Style (String) Font Style (String)\\n'(2) Font Size (Number) Font Color (String)\\n'(3) Font Color (String) Overall Size (Number)\\n'(4) Fill Color (String) Outline Color (String)\\n'(5) HasOutline (Boolean) Fill Color (Str\ning)\\n'(6) OLColor (String) Numbers Only (Boolean)\\n'(7) OLWidth (Number) UseDefFont (Boolean)\\n'(8) HasDropShadow (Boolean)\\n'(9) DSColor (String)\\n'(10) UseDeFont (Boolean)\\n \\nz = Self\\n\\nif (Self.GetName = \\\"FontName\\\") then\\n thePrefs.Set(0,z.GetSelection.Get(0))\\n theStyles = FontManager.The.ReturnStyles(z.GetSelection.Get(0))\\n CPC.FindByName(\\\"CStyle\\\").DefineFromList(theStyles) \\n TSample.GetList.Get(0).SetFont(Font.Make(z.GetSelection.Get(0),theStyles.Get(0)))\\nelseif (\nSelf.GetName = \\\"CSize\\\") then\\n thePrefs.Set(2,z.GetSelection)\\n TSample.GetList.Get(0).SetSize(z.GetSelection)\\nelseif (Self.GetName = \\\"CStyle\\\") then\\n thePrefs.Set(1,z.GetSelection)\\n TSa mple.GetList.Get(0).SetFont( Font.make(TSample.GetList.Get(0).GetFont.GetFamily,z.GetSelection) )\\nelseif (Self.GetName = \\\"FontColor\\\") then\\n if (isHwy) then\\n thePrefs.Set(2,z.GetSelection)\\n else\\n thePrefs.Set(3,z.GetSelection)\\n end\\n TSample.GetList.Get(0).SetColor((av.Run(\\\"View.Return Color\\\",z.GetSelection)))\\nelsei\nf (Self.GetName = \\\"BGColor\\\") then\\n thePrefs.Set(4,z.GetSelection)\\nelseif (Self.GetName = \\\"OLColor\\\") then\\n thePrefs.Set(6,z.GetSelection)\\nelseif (Self.GetName = \\\"DS Color\\\") then\\n thePrefs.Set(9,z.GetSelection)\\nelseif (Self.GetName = \\\"COLWidth\\\") then\\n thePrefs.Set(7,z.GetSelection)\\nelseif (Self.GetName = \\\"CDS\\\") then\\n thePrefs.Set(8,z.IsSelected)\\n if (z.IsSelected) then\\n CPC.FindByName(\\\"DSLabel\\\").SetEnabled(true)\\n CPC.FindByName(\\\"DSColor\\\").SetEnabled(true)\\n else\\n CPC.FindByName(\\\"DSLabel\\\").SetEna\nbled(false)\\n CPC.FindByName(\\\"DSColor\\\").SetEnabled(false)\\n end\\nelseif (Self.GetName = \\\"UseOutline\\\") then\\n thePrefs.Set(5,z.IsSelect ed)\\n e = z.IsSelected\\n if (((CurrIcon = \\\"LTool3\\\") or (CurrIcon = \\\"TTool3\\\"))) then\\n e = z.IsSelected\\n CPC.FindByName(\\\"t8\\\").SetEnabled(e)\\n CPC.FindByName(\\\"BGColor\\\").SetEnabled(e)\\n else\\n CPC.FindByName(\\\"t8\\\").SetEnabled(true)\\n CPC.FindByName(\\\"BGColor\\\").SetEnabled(true)\\n end\\n CPC.FindByName(\\\"t6\\\").SetEnabled(e)\\n CPC.FindByName(\\\"t7\\\").SetEnabled(e)\\n CPC.FindByN\name(\\\"COLWidth\\\").SetEnabled(e)\\n CPC.FindByName(\\\"OLColor\\\").SetEnabled(e)\\nelseif (Self.GetName = \\\"Hwy Size\\\") then\\n thePrefs.Set(3,z.GetSelection)\\nelseif (Self.GetName = \\\"HwyOL\\\") then\\n thePrefs.Set(4,z.GetSelection)\\nelseif (Self.GetName = \\\"HwyFill\\\") then\\n thePrefs.Set(5,z.GetSelection)\\nelseif (Self.GetName = \\\"UseOnlyNums\\\") then\\n thePrefs.Set(6,z.IsSelected)\\nend \\n \\nfor each rrr in 0..(TSample.GetRowCount-1)\\n TSample.GoRow(rrr)\\n TSample.SetRowHeight(1)\\nend\\n\\nkk = IconList.GetObjectTag\\nkk.Set(CurrIc\non,thePrefs)\\nIconList.SetObjectTag(kk)\"\n)\n\n(Script.131\n Name: \"Graphic.Lab el Defaults Button\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nReset = CPC.FindByName(\\\"Cancel\\\")\\nif (Self.GetName = \\\"OK\\\") then\\n Reset.SetObjectTag(\\\"nil\\\")\\n '** Meaning: the close script will not reset the values\\n '** like it would if Cancel or Escape were clicked.\\nend\\nCPC.Close \\n\"\n)\n\n(Script.132\n Name: \"Graphic.Label Defaults Change Icon\"\n SourceCode: \"'** This script Updates the user interface to \\n'** either reflect the current defaults, or the\\n'** temporary defaults f or the selected tool.\\n'** This script is additionally responsible for\\n'** setting the state of controls based on their\\n'** applicability to certain tools.\\n\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\n\\nCFont = CPC.FindByName(\\\"FontName\\\")\\nCSize = CPC.FindByName(\\\"CSize\\\")\\nCStyle = CPC.FindByName(\\\"CStyle\\\")\\nCColor = CPC.FindByName(\\\"FontColor\\\")\\nBGColor = CPC.FindByName(\\\"BGColor\\\")\\nOLColor = CPC.Fi\nndByName(\\\"OLColor\\\")\\nDSColor = CPC.FindByName(\\\"DSColor\\\")\\nCOLWidth = CPC.FindByName(\\\"COLW idth\\\")\\nCDS = CPC.FindByName(\\\"CDS\\\")\\nUseOutline = CPC.FindByName(\\\"UseOutline\\\")\\nUseSymWinDefs = CPC.FindByName(\\\"UseSymWinDefs\\\")\\nPropsPanel = CPC.FindByName(\\\"PropsPanel\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nTSample = CPC.FindByName(\\\"TSample\\\")\\nTagTextPan = CPC.FindByName(\\\"TagTextPan\\\")\\nHwyPan = CPC.FindByName(\\\"HwyPan\\\")\\nOnlyUseNums = CPC.FindByName(\\\"UseOnlyNums\\\")\\nHwySize = CPC.FindByName(\\\"HwySize\\\")\\nHwyOL = CPC.FindByName(\\\"\nHwyOL\\\")\\nHwyFill = CPC.FindByName(\\\"HwyFill\\\")\\nHwyF illLab = CPC.FindByName(\\\"HwyFillLab\\\")\\nDSLabel = CPC.FindByName(\\\"DSLabel\\\")\\nt3 = CPC.FindByName(\\\"t3\\\")\\nt4 = CPC.FindByName(\\\"t4\\\")\\nt5 = CPC.FindByName(\\\"t5\\\")\\nt6 = CPC.FindByName(\\\"t6\\\")\\nt7 = CPC.FindByName(\\\"t7\\\")\\nt8 = CPC.FindByName(\\\"t8\\\")\\nt9 = CPC.FindByName(\\\"t9\\\")\\n\\nif (IconList.GetSelection.Count < 1) then\\n CurrIcon = IconList.GetList.Get(0).Get(0).GetName\\n IconList.SetSelection(Rect.Make(0@0,1@1),false)\\nelse\\n CurrIcon = IconList.GetSelection.Get(0).GetName\\nend\\n\\nthe\nFonts = Font Manager.The.ReturnFamilies.DeepClone\\ntheStyles = FontManager.The.ReturnStyles(theFonts.Get(0))\\ntheFGSyms = {\\\"Black\\\",\\\"White\\\",\\\"Dark Gray\\\",\\\"Medium Gray\\\",\\\"Light Gray\\\",\\\"Dark Red\\\",\\\"Medium Red\\\",\\n \\\"Light Red\\\",\\\"Dark Orange\\\",\\\"Medium Orange\\\",\\\"Light Orange\\\",\\\"Dark Yellow\\\",\\\"Medium Yellow\\\",\\n \\\"Light Yellow\\\",\\\"Dark Green\\\",\\\"Medium Green\\\",\\\"Light Green\\\",\\\"Dark Cyan\\\",\\\"Medium Cyan\\\",\\n \\\"Light Cyan\\\",\\\"Dark Blue\\\",\\\"Medium Blue\\\",\\\"Light Blue\\\",\\\"Dark Pur ple\\\",\\\"Medium Purple\\\",\\\"Light Purple\\\"}\\nthe\nBGSyms = (theFGSyms.DeepClone) + {\\\"Transparent\\\"}\\ntheDSSyms = {\\\"Dark Grey\\\",\\\"Medium Grey\\\",\\\"Dark Red\\\",\\\"Dark Orange\\\",\\\"Dark Yellow\\\",\\\"Dark Green\\\",\\\"Dark Cyan\\\",\\n \\\"Dark Blue\\\",\\\"Dark Purple\\\"}\\nOLW = {0.1,0.2,0.25,0.5,0.75,1.0,1.5,2.0,3.0}\\n\\nfSizes = {}\\nfor each x in 4..24\\n fSizes.Add(x)\\nend\\nfor each x in 26..72 by 2\\n fSizes.Add(x)\\nend\\nHwySizes = {}\\nfor each x in 12..72 by 2\\n HwySizes.Add(x)\\nend\\n\\n'** Update the control pane l label **\\n\\nPanLab = \\\"Defaults for \\\"\\nif (CurrIcon.Left(1) = \\\"T\\\") then\\n R = CurrIcon\n.Right(1)\\n if (r = \\\"1\\\") then\\n tn = \\\"text tool\\\"\\n elseif (r = \\\"2\\\") then\\n tn = \\\"callout text tool\\\"\\n elseif (r = \\\"3\\\") then\\n tn = \\\"bullet leader text tool\\\"\\n elseif (r = \\\"4\\\") then\\n tn = \\\"banner text tool\\\"\\n elseif (r = \\\"5\\\") then\\n tn = \\\"shadow text tool\\\"\\n elseif (r = \\\"6\\\") then\\n tn = \\\"aligned text tool\\\"\\n end\\n PanLab = PanLab + tn\\nelseif (CurrIcon.Left(1) = \\\"L\\ \") then\\n R = CurrIcon.Right(1)\\n if (r = \\\"1\\\") then\\n tn = \\\"tag tool\\\"\\n elseif (r = \\\"2\\\") then\\n tn = \\\"callout tag tool\\\"\\n elseif (\nr = \\\"3\\\") then\\n tn = \\\"bullet leader tag tool\\\"\\n elseif (r = \\\"4\\\") then\\n tn = \\\"banner tag tool\\\"\\n end\\n PanLab = PanLab + tn\\nelse 'Highway tool \\n R = CurrIcon.Right(1)\\n if (r = \\\"1\\\") then\\n tn = \\\"U.S. Interstate highway shield\\\"\\n elseif (r = \\\"2\\\") then\\n tn = \\\"U.S. Route highway shield\\\"\\n elseif (r = \\\"3\\\") then\\n tn = \\\"G eneric U.S. State Highway\\\"\\n elseif (r = \\\"4\\\") then\\n tn = \\\"Generic square highway shield\\\"\\n elseif (r = \\\"5\\\") then\\n tn = \\\"Generic oval highway shield\\\"\\n end\\n PanLab = PanLab + \ntn\\nend \\nPropsPanel.SetLabel(PanLab)\\n\\n\\n'** Update the User Interface to reflect the correct\\n'** Settings for the newly selected tool.\\n\\nthePrefs = IconList.GetObjectTag.Get(CurrIcon)\\n\\n' NON-HIGHWAY HIGHWAY\\n'(0) Font Family (String) Font Family (String)\\n'(1) Font Style (String) Font Style (String)\\n'(2) Font Size (Number) Font Color (String)\\n'(3) Font Color (String) Overall Size (Number)\\n'(4) Fill Color (String) Outline Color (String)\\n'(5) HasO\nutline (Boolean) Fill Color (String)\\n'(6) OLColor (String) Numbers Only (Boolean)\\n'(7) OLWidth (Number) UseDefFont (Boolean)\\n'(8) HasDropShadow (Boolean)\\n'(9) DSColor (String)\\n'(10) UseDefFont (Boolean)\\n\\n'**Set the font information\\n\\ntheFontName = thePrefs.Get(0)\\ntheFontStyle = thePrefs.Get(1)\\nif (CurrIcon.Left(1) <> \\\"H\\\") then \\n isDefFont = thePrefs.Get(10)\\n TheFontSize = thePrefs.Get(2)\\n TheFontColor = thePrefs.Get(3)\\n t4.SetEnabled(isDefFont.Not)\\n CSize.SetE\nnabled(isDefFont.Not)\\nelse\\n isDefFont = thePrefs.Get(7)\\n TheFontSize = 12 \\n TheFontColor = thePrefs.Get(2)\\n t4.SetEnabled(false)\\n CSize.SetEnabled(false)\\nend\\n\\nCFont.SetEnabled(isDefFont.Not)\\nCStyle.SetEnabled(isDefFont.Not)\\nCColor.SetEnabled(isDefFont.Not)\\nt9.Se tEnabled(isDefFont.Not)\\nt3.SetEnabled(isDefFont.Not)\\nt5.SetEnabled(isDefFont.Not)\\n\\nUseSymWinDefs.SetSelected(isDefFont)\\nif (isDefFont) then\\n nts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\nelse\\n if (theFonts.FindByValue(theFontNa\nme) = - 1) then\\n nts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\n nts.SetColor( av.Run(\\\"View.Return Color\\\",TheFontColor) )\\n nts.SetSize(theFontSize)\\n else\\n nts = TextSymbol.Make\\n nts.SetFont(Font.Make(theFontName,theFont Style))\\n nts.SetSize(TheFontSize)\\n if (theFontColor = \\\"Unnamed Color\\\") then\\n nts.SetColor(av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor)\\n else\\n nts.SetColor( av.Run(\\\"View.Return Color\\\",TheFontColor) )\\n end\\n end\\nend\\n\\nif (\nisDefFont) then\\n theFonts = {nts.GetFont.GetFamily}\\nend\\n\\nCFont.DefineFromList(theFonts)\\nftn = nts.GetFont.GetFamily\\nFidx = theFonts.FindByValue(ftn)\\nif (Fidx = -1) then\\n Fidx = 0\\nend\\nCFont.SetSelection(Rect.Make(0@Fidx, 1@1 ),false)\\nCFont.GoRow(Fidx)\\nCFont.ShowCurrent\\n\\nTSample.DefineFromList({nts}) \\n\\nFIdx = theFonts.FindByValue(theFontName)\\nif ( (FIdx = -1) or (FIdx > (theFonts.Count - 1)) ) then\\n sRect = Rect.Make(1@1,0@0)\\nelse\\n sRect = Rect.Make(0@FIdx,1@1)\\nend\\n\\nCFont.SetSelection(sRect,false )\\nCStyle.\nDefineFromList(({theFontStyle} + theStyles.DeepClone))\\nCSize.DefineFromList(({TheFontSize}+fsizes.DeepClone))\\nCColor.DefineFromList(({TheFontColor}+theFGSyms.DeepClone))\\n\\n'** Set the ExtraInformation and us er interface status\\n\\nif (CurrIcon.Left(1) <> \\\"H\\\") then \\n \\n '** Move the panels\\n if (TagTextPan.IsEnabled.Not) then\\n HwyPan.MoveTo(1500,1500)\\n HwyPan.SetEnabled(false)\\n TagTextPan.SetEnabled(true)\\n TagTextPan.MoveTo(191,116)\\n end\\n\\n HasOL = thePrefs.Get(5)\\n UseOutline.SetSelected(HasOL)\\n \nHasDS = thePrefs.Get(8)\\n CDS.SetSelected(HasDS)\\n\\n theFillColor = thePrefs.Get(4)\\n TheOLColor = thePrefs.Get(6)\\n theOLWidth = thePrefs.Get(7)\\n theDSColor = thePrefs.Get(9)\\n BGCO lor.DefineFromList( ({theFillColor}+theBGSyms.DeepClone) )\\n OLColor.DefineFromList( ({TheOLColor}+theFGSyms.DeepClone) )\\n DSColor.DefineFromList( ({theDSColor}+theDSSyms.DeepClone) )\\n COLWidth.DefineFromList( ({theOLWidth}+OLW.DeepClone) )\\n \\n '** Now Set the user interface status based on the newly selected tool\\n if ((Curr\nIcon = \\\"TTool1\\\") OR (CurrIcon = \\\"LTool1\\\") OR (CurrIcon = \\\"TTool6\\\")) then\\n BGColor.SetEnabled(false)\\n OLColor.SetEnabled(false)\\n DSColor.SetEnabled(false)\\n CDS.SetEnabled(false)\\n CDS.SetSelected(false)\\n UseOutline.SetEnabled(false)\\n UseOutline.SetSelected(false)\\n t6.SetEnabled(false)\\n ColWidth.SetEnabled(false)\\n t7.SetEnabled(false)\\n t8.SetEnabled(false)\\n DSLabel.SetEnabled(false)\\n elseif ((CurrIcon = \\\"TTool3\\\") OR (CurrIcon = \\\"LTool3\\\")) then\\n if (HasOL) then\\n BGCo\nlor.SetEnabled(true)\\n OLColor.SetEnabled(true)\\n DSColor.SetEnabled(true)\\n UseOutline.SetEnabled(true)\\n UseOutline.SetSelected (true)\\n t6.SetEnabled(true)\\n ColWidth.SetEnabled(true)\\n t7.SetEnabled(true)\\n t8.SetEnabled(true) \\n else\\n BGColor.SetEnabled(false)\\n OLColor.SetEnabled(false)\\n DSColor.SetEnabled(false)\\n UseOutline.SetEnabled(true)\\n UseOutline.SetSelected(false)\\n ColWidth.SetEnabled(false)\\n t6.SetEnabled(false)\\n t7.Se\ntEnabled(false)\\n t8.SetEnabled(false)\\n end\\n CDS.SetEnabled(false)\\n CDS.SetSelected(false)\\n DSLabel.SetEnabled (false)\\n elseif (CurrIcon = \\\"TTool5\\\") then\\n BGColor.SetEnabled(false)\\n OLColor.SetEnabled(false)\\n DSColor.SetEnabled(true)\\n CDS.SetEnabled(false)\\n CDS.SetSelected(true)\\n UseOutline.SetEnabled(false)\\n UseOutline.SetSelected(false)\\n t6.SetEnabled(false)\\n ColWidth.SetEnabled(false)\\n t7.SetEnabled(false)\\n t8.SetEnabled(false)\\n DSLabel.SetEnabled(true)\n\\n else\\n BGColor.SetEnabled(true)\\n OLColor.SetEnabled(true)\\n DSColor.SetEnabled(true)\\n CDS.Se tEnabled(true)\\n UseOutline.SetEnabled(true)\\n t6.SetEnabled(HasOL)\\n ColWidth.SetEnabled(HasOL)\\n t7.SetEnabled(HasOL)\\n t8.SetEnabled(true)\\n DSLabel.SetEnabled(HasDS) \\n DSColor.SetEnabled(HasDS) \\n end\\nelse\\n '** Move the panels\\n if (HwyPan.IsEnabled.Not) then\\n HwyPan.MoveTo(347,120)\\n HwyPan.SetEnabled(true)\\n TagTextPan.SetEnabled(false)\\n TagTextPan.MoveTo(1500,1500)\\n end\\n\n theFillColor = thePrefs.Get(5)\\n theSize = thePrefs.Get(3)\\n theOLColor = thePRefs. Get(4)\\n NumsOnly = thePrefs.Get(6)\\n HwySize.DefineFromList( ({theSize}+HwySizes) )\\n HwyOL.DefineFromList( ({theOLColor}+theFGSyms.DeepClone) )\\n HwyFill.DefineFromList( ({theFillColor}+theFGSyms.DeepClone) )\\n OnlyUseNums.SetSelected(NumsOnly)\\n if (CurrIcon = \\\"HTool1\\\") then\\n HwyFillLab.SetEnabled(false)\\n HwyFill.SetEnabled(false)\\n else\\n HwyFillLab.SetEnabled(true)\\n HwyFill.SetEnabled(true)\\n end\\nend\\n\\nfor ea\nch rrr in 0..(TSample.GetRowCount-1)\\n TSample.GoRow(rrr)\\n TSamp le.SetRowHeight(1)\\nend\\n\\n\"\n)\n\n(Script.133\n Name: \"Graphic.Label Defaults Close\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nReset = CPC.FindByName(\\\"Cancel\\\")\\n\\nif (Reset.GetObjectTag <> \\\"nil\\\") then\\n rr = Reset.GetObjectTag\\n hh = rr.ReturnKeys\\n nn = Dictionary.Make(rr.Count)\\n for each key in hh\\n oldVal = rr.Get(Key)\\n nn.Add(key.Clone,oldVal.DeepClone)\\n end\\n IconList.SetObjectTag(nn)\\nend\\n\\n' added by tim loesch\\n'\\nref scaletxl = CPC.findByName(\\\"Reference Scale txl\\\")\\nrefscale = RefScaletxl.GetText\\nRefScaletxl.SetText(refscale)\\nrefscaletxl\n.SetTag(refscale)\\n\"\n)\n\n(Script.134\n Name: \"Graphic.Label Defaults Open\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\n\\nCFont = CPC.FindByName(\\\"FontName\\\")\\nCSize = CPC.FindByName(\\\"CSize\\\")\\nCStyle = CPC.FindByName(\\\"CStyle\\\")\\nCColor = CPC.FindByName(\\\"FontColor\\\")\\nCBGColor = CPC.FindByName(\\\"BGColor\\\")\\nCOLColor = CPC.FindByName(\\\"OLColor\\\")\\nCDSColor = CPC.Fi ndByName(\\\"DSColor\\\")\\nCOLWidth = CPC.FindByName(\\\"COLWidth\\\")\\nCDS = CPC.FindByName(\\\"CDS\\\")\\nUseOutline = CPC.FindByName(\\\"UseOutline\\\")\\nPropsPanel = CPC.FindByName(\\\"PropsPanel\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nApplyBut = CPC.FindByNam\ne(\\\"Apply\\\")\\nUseOnlyNums = CPC.FindByName(\\\"UseOnlyNums\\\")\\nHwySize = CPC.FindByName(\\\"HwySize\\\")\\nHwyOL = CPC.FindByName(\\\"HwyOL\\\")\\nHwyFill = CPC.FindByName(\\\"HwyFill\\\")\\nTSample = CPC.FindByName(\\\"TSample\\\")\\nReset = CPC.FindByName(\\\"Cancel\\\")\\nUseSymWi nDefs = CPC.FindByName(\\\"UseSymWinDefs\\\")\\nrefscaletxl = CPC.findByName(\\\"Reference Scale txl\\\")\\n\\nrefscale = RefScaletxl.GetTag\\nif (refscale = \\\"\\\") then\\n RefScaletxl.SetText(\\\"24000\\\")\\n else\\n RefScaletxl.SetText(refscale)\\nend\\n' end of Tim's additions\\n\\nUseOutline.SetSelected(false)\\n\nCDS.SetSelected(false)\\n\\nPropsPanel.SetLabel(\\\"Properties for Text Tool\\\")\\n\\nLIcon1 = Icon.MakeFromResName(\\\"Icons.Tag\\\")\\nLIcon2 = Icon.MakeFromResName(\\\"Icons.CallOutLabel1\\\")\\nLIcon3 = Icon.MakeFromResName(\\\"Ic ons.CallOutLabel2\\\")\\nLIcon4 = Icon.MakeFromResName(\\\"Icons.CallOutLabel3\\\")\\nTIcon1 = Icon.MakeFromResName(\\\"Icons.Text\\\")\\nTIcon2 = Icon.MakeFromResName(\\\"Icons.CallOutText1\\\")\\nTIcon3 = Icon.MakeFromResName(\\\"Icons.CallOutText2\\\")\\nTIcon4 = Icon.MakeFromResName(\\\"Icons.CallOutText3\\\")\\nTIcon5 = Icon.MakeFromResName(\\\"Icons.\nDropShadowText\\\")\\nTIcon6 = Icon.MakeFromResName(\\\"Icons.TextAligned\\\")\\nHIcon1 = Icon.MakeFromResName(\\\"Icons.BW US Interstate\\\")\\nHIcon2 = Icon.MakeFromResName(\\\"Icons.USRoute\\\")\\nH Icon3 = Icon.MakeFromResName(\\\"Icons.GenericStateHighway\\\")\\nHIcon4 = Icon.MakeFromResName(\\\"Icons.GenericHighway1\\\")\\nHIcon5 = Icon.MakeFromResName(\\\"Icons.GenericHighway2\\\")\\n\\nTIcon1.SetName(\\\"TTool1\\\")\\nTIcon2.SetName(\\\"TTool2\\\")\\nTIcon3.SetName(\\\"TTool3\\\")\\nTIcon4.SetName(\\\"TTool4\\\")\\nTIcon5.SetName(\\\"TTool5\\\")\\nTIcon6.SetName(\\\"TTool6\\\")\\nHIcon1.SetName(\\\"HTool\n1\\\")\\nHIcon2.SetName(\\\"HTool2\\\")\\nHIcon3.SetName(\\\"HTool3\\\")\\nHIcon4.SetName(\\\"HTool4\\\")\\nHIcon5.SetName(\\\"HTool5\\\")\\nLIcon1.SetName(\\\"LTool1\\ \")\\nLIcon2.SetName(\\\"LTool2\\\")\\nLIcon3.SetName(\\\"LTool3\\\")\\nLIcon4.SetName(\\\"LTool4\\\")\\n\\nif (av.GetActiveDoc.Is(View)) then\\n CPC.SetTitle(\\\"Default settings for text and label tools\\\")\\n ILL = {{TIcon1,TIcon2,TIcon3,TIcon4,TIcon5,TIcon6},{LIcon1,LIcon2,LIcon3,LIcon4},{HIcon1,HIcon2,HIcon3,HIcon4,HIcon5}}\\nelseif (av.GetActiveDoc.Is(Layout)) then\\n CPC.SetTitle(\\\"Default settings for text tools\\\")\\n\n ILL = {{TIcon1,TIcon2,TIcon3,TIcon4,TIcon5}}\\nend\\n\\nIconList.DefineFromList(ILL)\\n\\nthePrefs = IconLis t.GetObjectTag\\n\\nif (thePrefs = nil) then\\n IconList.SetObjectTag(Dictionary.Make(20))\\n Reset.SetObjectTag(Dictionary.Make(20))\\n DefPrefs = Reset.GetObjectTag\\n thePrefs = IconList.GetObjectTag\\nend\\nkeyNames = {\\\"TTool1\\\",\\\"TTool2\\\",\\\"TTool3\\\",\\\"TTool4\\\",\\\"TTool5\\\",\\\"TTool6\\\",\\\"LTool1\\\",\\\"LTool2\\\",\\\"LTool3\\\",\\\"LTool4\\\",\\n \\\"HTool1\\\",\\\"HTool2\\\",\\\"HTool3\\\",\\\"HTool4\\\",\\\"HTool5\\\"}\\n \\ntheFonts = FontManager.The.ReturnFamili\nes.DeepClone\\ntheStyles = FontManager.The.ReturnStyles(the Fonts.Get(0))\\ntheFGSyms = {\\\"Black\\\",\\\"White\\\",\\\"Dark Gray\\\",\\\"Medium Gray\\\",\\\"Light Gray\\\",\\\"Dark Red\\\",\\\"Medium Red\\\",\\n \\\"Light Red\\\",\\\"Dark Orange\\\",\\\"Medium Orange\\\",\\\"Light Orange\\\",\\\"Dark Yellow\\\",\\\"Medium Yellow\\\",\\n \\\"Light Yellow\\\",\\\"Dark Green\\\",\\\"Medium Green\\\",\\\"Light Green\\\",\\\"Dark Cyan\\\",\\\"Medium Cyan\\\",\\n \\\"Light Cyan\\\",\\\"Dark Blue\\\",\\\"Medium Blue\\\",\\\"Light Blue\\\",\\\"Dark Purple\\\",\\\"Medium Purple\\\",\\\"Light Purple\\\"}\\ntheOLSyms = theFGSyms.DeepClone\\ntheBGS y\nms = (theFGSyms.DeepClone) + {\\\"Transparent\\\"}\\ntheDSSyms = {\\\"Dark Grey\\\",\\\"Medium Grey\\\",\\\"Dark Red\\\",\\\"Dark Orange\\\",\\\"Dark Yellow\\\",\\\"Dark Green\\\",\\\"Dark Cyan\\\",\\n \\\"Dark Blue\\\",\\\"Dark Purple\\\"}\\nOLW = {0.1,0.2,0.25,0.5,0.75,1.0,1.5,2.0,3.0}\\n\\nfSizes = {}\\nfor each x in 4..24\\n fSizes.Add(x)\\nend\\nfor each x in 26..72 by 2\\n fSizes.Add(x)\\nend\\n\\n'** Propagate Default values if this is the first time the dialog has been opened **\\nfor each k in keyNames\\n if (thePrefs.Get(k) = nil) the n\\n \\n '** This bit sets us up with\n the current symbolwindow default textsymbol\\n defTxt = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT)\\n df = defTxt.GetFont.GetFamily\\n ds = defTxt.GetFont.GetStyle\\n dz = defTxt.GetSize\\n dc = defTxt.GetColor\\n dcn = \\\"Unnamed Color\\\"\\n for each c in theFGSyms\\n if (dc = (av.Run(\\\"View.Return Color\\\",c)) ) then\\n dcn = c\\n break\\n end\\n end\\n '** Set the default properties dictionaries\\n if ((k.Left(1) = \\\"T\\\" ) or (k.Left(1) = \\\"L\\\")) then\\n '(0) Font Family (Stri\nng) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(4) Fill Color (String)\\n '(5) HasOutline (Boolean)\\n '(6) OLColor (String)\\n '(7) OLWidth (Number)\\n '(8) HasDropShadow (Boolean)\\n '(9) DSColor (String)\\n '(10) UseDefFont (Boolean)\\n if ((k = \\\"TTool3\\\") or (k = \\\"LTool3\\\") or (k = \\\"TTool1\\\") or (k = \\\"LT ool1\\\") or (k = \\\"TTool6\\\")) then\\n thePrefs.Add(k,{df.Clone,ds.Clone,dz.Clone,\ndcn.Clone,\\\"Transparent\\\",false,\\\"Black\\\",OLW.Get(0).Clone,false,\\\"Dark Gray\\\",true}) \\n elseif (k = \\\"TTool5\\\") then\\n thePrefs.Add(k,{df.Clone,ds.Clone,dz.Clone,dcn.Clone,\\\"Transparent\\\",false,\\\"Black\\\",OLW.Get(0).Clone,true,\\\"Dark Gray\\\",true}) \\n else\\n thePrefs.Add(k,{df.Clone,ds.Clone,dz.Clone,dcn.Clone,\\\"Light Yellow\\\",true,\\\"Black\\\",OLW.Get(0).Clone,true,\\\"Dark Gray\\\",true})\\n end\\n else 'Highway tool \\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) \nFont Color (String)\\n '(3) Overall Size (Number) \\n '(4) Outline Color (String) \\n '(5) Fill Color (String) \\n '(6) Numbers Only (Boolean) \\n '(7) UseDefFont (Boolean)\\n tcol = \\\"Black\\\"\\n if (k = \\\"HTool1\\\") then\\n tcol = \\\"White\\\"\\n end\\n thePrefs.Add(k,{thefonts.Get(0).Clone,theStyles.Get(0).Clone,tcol,18,tcol,\\\"Whit e\\\",true,false})\\n end \\n end\\nend\\n\\n'** Set the reset button's object tag to contain the default values that\\n'** were found when the \ndialog opened.\\n\\nIconList.SetObjectTag(thePrefs.Clone)\\nhh = thePrefs.ReturnKeys\\nnn = Dictionary.Make(hh.Count)\\nfor each key in hh\\n oldVal = thePrefs.Get(Key)\\n nn.Add(key.Clone,oldVal.DeepClone)\\nend\\nReset.SetObjectTag(nn)\\n\\n\\n'** Set Current Default Values For the Tool defaults that will initially be shown**\\n\\nfSizes.Insert(thePrefs.Get(\\\"TTool1\\\").Get(2))\\ nUseSymWinDefs.SetSelected(thePrefs.Get(\\\"TTool1\\\").Get(10))\\n\\n\\nif (UseSymWinDefs.IsSelected) then\\n TSample.DefineFromList({av.GetSymbolWin.ReturnCurrentSymbol(#\nSYMBOL_TEXT)})\\n CFont.DefineFromList({av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).GetFont.GetFamily})\\n CFont.SetSelection(Rect.Make(0@0,1@1),false)\\n Cfont.GoRow(0)\\n Cfont.ShowCurrent \\nelse\\n famn = thePrefs.Get(\\\"TTool1\\\").Get(0)\\n fams = thePrefs.Get(\\\"TTool1\\\").Get(1)\\n famz = thePrefs.Get(\\\"TTool1\\\").Get(2)\\n famc = thePre fs.Get(\\\"TTool1\\\").Get(3)\\n if (theFonts.FindByValue(famn) = -1) then\\n tsf = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).GetFont\\n else\\n tsf = Font.Make(famn,fams)\\n end\\n \n ts = TextSymbol.Make\\n '** This is for UNIX where the default font may not be correct.\\n ts.SetFont(tsf)\\n ts.SetSize(famz)\\n ts.SetColor(av.Run(\\\"View.Return Color\\\",famc))\\n TSample.DefineFromList({ts})\\n CFont.DefineFromList(thefonts)\\n dfidx = theFonts.FindByValue(tsf.GetFamily)\\n if (dfidx = -1) then\\n dfidx = 0\\n end\\n Cfont.SetSelection(Rect.Make(0@dfidx,1@1),false)\\n Cfont.GoRow(dfidx)\\n Cfont.ShowCurrent\\nend\\nfor each rrr in 0..(TSample.GetRowCount-1)\\n TSample.GoRow(rrr)\\n TSample.SetRowHeight(1)\n\\nend\\ntheStyles.Insert(thePrefs.Get(\\\"TTool1\\\").Get(1))\\nfSizes.Insert(thePrefs.Get(\\\"TTool1\\\").Get(2))\\ntheBGSyms.Insert(thePrefs.Get(\\\"TTool1\\\").Get(4))\\nUseOutline.SetSelected(thePrefs.Get(\\\"TTool1\\\").Get(5))\\ntheOLSyms.Insert(thePrefs.Get(\\\"TTool1\\\").Get(6))\\nOLW.Insert(thePrefs.Get(\\\"TTool1\\\").G et(7))\\nCDS.SetSelected(thePrefs.Get(\\\"TTool1\\\").Get(8))\\ntheDSSyms.Insert(thePrefs.Get(\\\"TTool1\\\").Get(9))\\n\\nUseOutline.SetEnabled(false)\\nCDS.SetEnabled(false)\\nCPC.FindByName(\\\"t6\\\").SetEnabled(false)\\nCPC.FindByName(\\\"t7\\\").SetEnabled(fals\ne)\\nCPC.FindByName(\\\"t8\\\").SetEnabled(false)\\nCPC.FindByName(\\\"DSLabel\\\").SetEnabled(false)\\nCPC.FindByName(\\\"COLWidth\\\").SetEnabled(false)\\nCPC.FindByName(\\\"OLColor\\\").SetEnabled(false)\\nCPC.FindByName(\\\"DSColor\\\").SetEnabled(false)\\n\\n\\nCSize.DefineFromList(fSizes) \\nCStyle.DefineFromList(theStyles)\\nCColor.DefineFromList(({thePrefs.Get(\\\"TTool1\\\").Get(3)} + (theFGSyms.DeepClone)))\\nCBGColor.DefineFromList(theBGSyms)\\nCOLColor.DefineFromList(theOLSyms)\\nCOLWidth.DefineFromList(OLW)\\nCDSColor.DefineFromList(theDSSyms)\\n\\nHwySizes = {t\nhePrefs.Get(\\\"HTool1\\\").Get(3)}\\nfor each x in 12..72 by 2\\n HwySizes.Add(x)\\nend\\nHwySize.DefineFromList(HwySizes)\\nReset.SetEnabled(true)\\n\\nIconList.Focus\\nIconList.GoColumn(0)\\nIconList.SetSelection(Rect.Make(0@0,1@1),false)\\n\"\n)\n\n(S cript.135\n Name: \"Graphic.Label Defaults Show\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nCPC.Open\"\n)\n\n(Script.136\n Name: \"Graphic.UseSymWinDefs\"\n SourceCode: \"GLD = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\n\\nUseSymWinDefs = GLD.FindByName(\\\"UseSymWinDefs\\\")\\nCFont = GLD.FindByName(\\\"FontName\\\")\\nCSize = GLD.FindByName(\\\"CSize\\\")\\nCStyle = GLD.FindByName(\\\"CStyle\\\")\\nCColor = GLD.FindByName(\\\"FontColor\\\")\\n\\nHwySize = GLD.FindByName(\\\"HwySize\\\")\\nHwyOL = GLD.FindByName(\\\"HwyOL\\\")\\nHwyF ill = GLD.FindByName(\\\"HwyFill\\\")\\n\\nTSample = GLD.FindByName(\\\"TSample\\\")\\nt9 = GLD.FindByName(\\\"t9\\\")\\nt3 = GLD.FindByName(\\\"t3\\\")\\nt4 = GLD.FindByName(\\\"t4\\\")\\nt5 = GLD.FindByName(\\\"t5\\\")\\n\\ntheFonts = FontManager.The.Retur\nnFamilies.DeepClone\\ntheStyles = FontManager.The.ReturnStyles(theFonts.Get(0))\\ntheFGSyms = {\\\"Black\\\",\\\"White\\\",\\\"Dark Gray\\\",\\\"Medium Gray\\\",\\\"Light Gray\\\",\\\"Dark Red\\\",\\\"Medium Red\\\",\\n \\\"Light Red\\\",\\\"Dark Orange\\\",\\\"Medium Orange\\\",\\\"Light Orange\\\",\\\"Dark Yellow\\\",\\\"M edium Yellow\\\",\\n \\\"Light Yellow\\\",\\\"Dark Green\\\",\\\"Medium Green\\\",\\\"Light Green\\\",\\\"Dark Cyan\\\",\\\"Medium Cyan\\\",\\n \\\"Light Cyan\\\",\\\"Dark Blue\\\",\\\"Medium Blue\\\",\\\"Light Blue\\\",\\\"Dark Purple\\\",\\\"Medium Purple\\\",\\\"Light Purple\\\"}\\nfSizes = {}\\nfor each x in 4..24\\n\n fSizes.Add(x)\\nend\\nfor each x in 26..72 by 2\\n fSizes.Add(x)\\nend\\n\\nIconList = GLD.FindByName(\\\"CalloutIcons\\\")\\nif (IconList.GetSelection.Count < 1) then\\n CurrIcon = IconList.GetList.Get(0).Get(0).GetName\\nelse\\n Cu rrIcon = IconList.GetSelection.Get(0).GetName\\nend\\nthePrefs = IconList.GetObjectTag.Get(CurrIcon)\\n\\n\\n' NON-HIGHWAY HIGHWAY\\n'(0) Font Family (String) Font Family (String)\\n'(1) Font Style (String) Font Style (String)\\n'(2) Font Size (Number) Font Color \n(String)\\n'(3) Font Color (String) Overall Size (Number)\\n'(4) Fill Color (String) Outline Color (String)\\n'(5) HasOutline (Boolean) Fill Color (String)\\n'(6) OLColor (Stri ng) Numbers Only (Boolean)\\n'(7) OLWidth (Number) UseDefFont (Boolean)\\n'(8) HasDropShadow (Boolean)\\n'(9) DSColor (String)\\n'(10) UseDefFont (Boolean)\\n\\nif (CurrIcon.Left(1) = \\\"H\\\") then\\n thePrefs.Set(7,UseSymWinDefs.IsSelected)\\nelse\\n thePrefs.Set(10,UseSymWinDefs.IsSelected)\\nend\\n\\ne = tr\nue\\nnts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\ndc = nts.GetColor\\ndcn = \\\"Unnamed Color\\\"\\nfor each c in theFGSyms\\n if (dc = (av.Run(\\\"View.Return Color\\\",c)) ) t hen\\n dcn = c\\n break\\n end\\nend\\n\\nif (UseSymWinDefs.IsSelected) then 'We turned it on.\\n '**Set the preferences such that they reflect the default font.\\n e = false\\n thePrefs.Set(0, nts.GetFont.GetFamily)\\n thePrefs.Set(1, nts.GetFont.GetStyle)\\n if (CurrIcon.Left(1) = \\\"H\\\") then\\n thePrefs.Set(2,dcn)\\n else\\n thePrefs.Set(2, nt\ns.GetSize)\\n thePrefs.Set(3,dcn)\\n end\\n \\n CFont.DefineFromList({nts.GetFont.GetFamily})\\n theFonts = {nts.GetFont.GetFamily}\\nelse 'This event turned it off.\\n CFont.DefineFromList(theFonts)\\nend\\n\\nCColor.DefineFromList(({dcn} + theFGSyms))\\nCSize.DefineFromList(({nts.GetSize} + fsizes))\\nCStyle.DefineFromList((FontManager.The.ReturnStyles(nts.GetFont.GetFamily)))\\n\\nftn = nts.GetFont.GetFamily\\nFidx = theFonts.FindByValue(ftn)\\nif (Fidx = -1) then\\n Fidx = 0\\nend\\nCFont.SetSelection(Rect.Make(0@Fidx, 1@1),false)\\n\nCFont.GoRow(Fidx)\\nCFont.ShowCurrent\\n\\nTSample.DefineFromList({nts})\\nfor each rrr in 0..(TSample.GetRowCount-1)\\n TSample.GoRow(rrr)\\n TSample.SetRowHeight(1)\\nend\\n\\nCFont.SetEnabled(e)\\nif (CurrIcon.Left(1) = \\\"H\\\") then\\n CSize.SetEnabled(false)\\n t4.SetEnabled(false)\\nelse\\n t4.SetEnabled(e)\\n CSize.SetEnabled(e)\\nend\\nCStyle.SetEnabled(e)\\nCColor.SetEnabled(e)\\nt9.SetEnabled(e)\\nt3.SetEnabled(e)\\nt5.SetEnabled(e)\\n\\nkk = IconList.GetObjectTag\\nkk.Set(CurrIcon,thePrefs)\\nIconList.SetObjectTag(kk)\"\n)\n\n(Script.137\n Name: \"Layout.Text\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"Callout Icons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ttool1\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(10) UseDefFont (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCSize = thePrefs.Get(2)\\nUseDef = thePrefs.Get(10)\\nif (thePrefs.Get(3) = \\\"Unnamed Color\\\") then\\n CColor = av.GetSymbolwin.ReturnCurr\nentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av .Run(\\\"View.Return Color\\\",thePrefs.Get(3))\\nend\\n\\n\\n\\ntheLayout = av.GetActiveDoc\\nif (theLayout.GetGraphics.EditText.Not) then\\n pt = theLayout.GetDisplay.ReturnUserPoint\\n t = GraphicText.Make(\\\"\\\", pt)\\n t.SetDisplay(theLayout.GetDisplay)\\n theLayout.GetGraphics.UnselectAll\\n t.SetSelected(TRUE)\\n if (t.EditText) then\\n theLayout.GetGraphics.AddName(t)\\n av.GetProject.SetModified(true)\\n end\\n if (not UseDef) then\\n t.GetSymbol.SetFont(Font.make(Cfo\nnt,CStyle))\\n t.GetSymbol.SetSize (CSize)\\n t.GetSymbol.SetColor(CColor)\\n end\\n \\nend\"\n)\n\n(Script.138\n Name: \"View.BulletLeaderLabelTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ltool3\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(4) Fill Color (String)\\n '(5) HasOutline (Boolean)\\n '(6) OLColor (String)\\n '(7) OLWidth (Number)\\n '(8) HasDropShadow (Boolean)\\n '(9) DSColor (String)\\n '(10) UseDefFont \n (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nif (FontManager.The.ReturnFamilies.FindByValue(CFont) = -1) then\\n CFont = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetFamily\\n CStyle = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetStyle\\nend\\n\\nCSize = thePrefs.Get(2)\\nif (thePrefs.Get(3 ) = \\\"Unnamed Color\\\") then\\n CColor = av.GetSymbolwin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av.Run(\\\"View.Return Color\\\",thePrefs.\nGet(3))\\nend\\nCBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nUseOutline = thePrefs.Get(5)\\nCOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(6))\\nCOLWidth = thePrefs.Get(7)\\nUseDef = thePrefs.Get(10)\\nif (UseDef) then\\n ts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\n CFont = ts.GetFont.GetFamily\\n CStyle = ts.GetFont.GetStyle\\n CSize = ts.GetSize\\n CColor = ts.GetColor\\n else\\n ' added by Tim Loesch to Facilitate Text Scale Referencing\\n '\\n refscaletxl = CPC.FindByName(\\\"Reference\n Scale txl\\\")\\n if (refscaletxl <> nil) then\\n RefScale = refscaletxl.GetText.Asnumber\\n scale = av.GetActiveDoc.returnscale\\n Csize = CSize / (scale / refscale)\\n end\\n ' end of Tim's Stuff\\nend\\n\\ncbox=NIL\\ntheDoc = av.GetActiveDoc\\n\\nif (theDoc.GetGraphics.EditText) then\\n return nil\\nend\\n\\nul = theDoc.Return UserLine\\nif (ul.IsNull) then return nil end\\n\\npt1 = ul.ReturnStart\\npt2 = ul.ReturnEnd\\nt = GraphicText.Make(\\\"\\\", pt2)\\nt.SetDisplay(theDoc.GetDisplay)\\ntheDoc.GetDisplay.HookUpSymbol(t.GetSymbol)\\ntheDoc.GetG\nraphics.UnselectAll\\nt.SetSelected(TRUE)\\n\\nblurbstring = \\\"\\\"\\nfor each athm in theDoc.GetActiveThemes\\n thelabelfield=athm.getlabelfield\\n if(athm.CanSelect) then\\n ListofFound = athm.FindByPoint(pt1)\\n else\\n continue\\n end\\n if (ListofFound.Count = 0) then \\n continue\\n end\\n if (blurbString = \\\"\\\") then\\n blurbString = av.Run(\\\"View.ReturnLabelString\\\",{athm,ListofFound,2})\\n else\\n blurbString = blurbString + nl + av.Run(\\\"View.ReturnLabelString\\\",{athm,ListofFound,2}) \\n end\\nend\\nif (blurbString = \\\"\\\") t\nhen\\n return nil\\nend\\n\\nt.SetText(blurbstring)\\nt.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\nt.GetSymbol.SetSize(CSize)\\nt.GetSymbol.SetColor(CColor)\\nt.SetName(\\\"Callout\\\")\\nt.SetDisplay(theDoc.GetDisplay)\\n\\nif (t.gettext.count < 1) then return nil end\\n\\nBulletS ymbol = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(0)\\nBulletSymbol.Setsize(3)\\nBulletSymbol.SetColor(CColor)\\ngb = GraphicShape.Make(pt1)\\ngb.SetName(\\\"Callout\\\")\\ngb.SetSymbol(BulletSymbol)\\n\\nLeaderPen = BasicPen.Make\\nLeaderPen.SetColor(CColor)\\nif\n (UseOutline) then\\n LeaderPen.SetSize(COLWidth)\\nelse\\n LeaderPen.SetSize(0.25)\\nend\\ngl = GraphicShape.Make(ul)\\ngl.SetName(\\\"Callout\\\")\\ngl.SetSymbol(LeaderPen)\\n\\n\\nBgFill = Rasterfill.Make\\nBgFill.SetStyle(#RASTERFILL_STYLE_SOLID)\\nBg Fill.SetColor(CBGColor)\\nif (UseOutLine) then\\n BgFill.SetOutlined(true)\\n BgFill.SetOLColor(COLColor)\\n BgFill.SetOLWidth(COLWidth)\\nelse\\n BgFill.SetOutLined(false)\\nend\\n\\n'Determine which side of leader to position box\\n\\nCurrentTextWidth = t.GetBounds.GetWidth\\nCurrentTextHeight = t.GetB\nounds.GetHeight\\nCurrentTextOrigin = t.GetBounds.ReturnOrigin\\nExpandDist = (CurrentTextHeight)/5\\n\\nx1 = pt1.GetX\\nx2 = pt2.GetX\\ny1 = pt1.GetY\\ny2 = pt2.GetY\\nxDiff = x1 - x2\\nyDiff = y1 - y2\\n \\nif (xDiff.Abs < (yDiff/5).Abs ) then \\n '** Means that the line was dragged a distance at least five times \\n '** greater in the y direction. So, center the label directly above \\n '** or below pt2\\n if (y1 > y2) then 'Below\\n TXAdj = -CurrentTextWidth/2 \\n TYAdj = -(CurrentTextHeight) \\n elseif (y1 < y2) then 'Abo\nve\\n TXAdj = -CurrentTextWidth/2 \\n TYAdj = ExpandDist \\n end\\nelseif (yDiff.Abs < (xDiff/5).Abs ) then\\n '** Means that the line was dragged a distance at least five times \\n '** gr eater in the x direction. So, center the label directly to the \\n '** right or left of pt2\\n if (x1 > x2) then 'Left\\n TXAdj = -(CurrentTextWidth - ExpandDist) \\n TYAdj = -CurrentTextHeight/2 \\n elseif (x1 < x2) then 'Right\\n TXAdj = ExpandDist \\n TYAdj = -CurrentTextHeight/2 \\n end \\nelse\\n '** Means tha\nt while the line was not in a fairly vertical or \\n '** horizontal direction, so there are four potential placements\\n if ((x2 > x1) and (y2 > y1)) then 'Cartesian 1\\n TXAdj = ExpandDist \\n TYAdj = -((CurrentTextHeight/2) - ExpandDist) \\n elseif ((x2 < x1) and (y2 > y1)) then 'Cartesian 2\\n TXAdj = -(CurrentTextWidth - ExpandDist) \\n TYAdj = -((CurrentTextHeight/2) - ExpandDist) \\n elseif ((x2 < x1) and (y2 < y1)) then 'Cartesian 3\\n TXAdj = -(CurrentTe\nxtWidth - ExpandDist) \\n TYAdj = -(CurrentTextHeight/2) \\n elseif ((x2 > x1) and (y2 < y1)) then 'Cartesian 4\\n TXAdj = ExpandDist \\n TYAdj = -(CurrentTextHeight/2) \\n end \\nend \\n\\n\\nNewTextOrigin = CurrentTextOrigin + (TXAdj@TYAdj)\\n\\n\\nt.GetBounds.SetOrigin(NewTextOrigin) \\n\\n\\nif (UseOutline) then\\n BgRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetWidth * 0.1)\\n tbg = GraphicShape.Make(BgRect)\\n tbg.SetName(\\\"Callout\\\")\\n tbg.SetSymbol(BgFill)\\n theDoc.GetGraphics.Add(tb\ng)\\n tbg.SetSelected(false)\\nend\\ntheDoc.GetGraphics.Add(gb)\\ntheDoc.GetGraphics.Add(gl)\\ntheDoc.GetGraphics.Add(t)\\n\\ngb.SetSelected(false)\\ngl .SetSelected(false) \\nt.SetSelected(true)\\ntheDoc.GetGraphics.MoveSelectedToFront\\nt.SetSelected(false)\\ngl.SetSelected(true)\\ntheDoc.GetGraphics.MoveSelectedToBack\\nt.SetSelected(true)\\ngb.SetSelected(true)\\nif (UseOutline) then\\n tbg.SetSelected(true)\\nend\\ntheDoc.GetGraphics.GroupSelected\\ntheDoc.GetGraphics.GetSelected.Get(0).SetName(\\\"Callout\\\")\\nif(theDoc.Is(View)) then\\n if (the\nDoc.GetActiveThemes.Count > 0) then\\n theDoc.GetActiveThemes.Get(0).GetGraphics.Add(theDoc.getGraphics.GetSelected.Ge t(0))\\n end\\nend\\ntheDoc.GetGraphics.GetSelected.Get(0).Invalidate\\ntheDoc.GetGraphics.MoveSelectedToFront\\ntheDoc.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\ntheDoc.GetGraphics.UnselectAll\\n\"\n)\n\n(Script.139\n Name: \"View.BulletLeaderTextTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"TTool3\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(4) Fill Color (String)\\n '(5) HasOutline (Boolean)\\n '(6) OLColor (String)\\n '(7) OLWidth (Number)\\n '(8) HasDropShadow (Boolean)\\n '(9) DSColor (String)\\n '(10) UseDefFont \n (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nif (FontManager.The.ReturnFamilies.FindByValue(CFont) = -1) then\\n CFont = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetFa mily\\n CStyle = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetStyle\\nend\\n\\nCSize = thePrefs.Get(2)\\nif (thePrefs.Get(3) = \\\"Unnamed Color\\\") then\\n CColor = av.GetSymbolwin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av.Run(\\\"View.Return Color\\\",thePrefs.\nGet(3))\\nend\\nCBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nUseOutline = thePrefs.Get(5)\\nCOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(6))\\nCOLWidth = thePrefs.Get(7)\\nUseDef = thePrefs.Get(10)\\nif (UseDef) then\\n ts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\n CFont = ts.GetFont.GetFamily\\n CStyle = ts.GetFont.GetStyle\\n CSize = ts.GetSize\\n CColor = ts.GetColor\\n ' added by Tim Loesch to Facilitate Text Scale Referencing\\n '\\n else\\n refscaletxl = CPC.FindByName(\\\"Reference\n Scale txl\\\")\\n if (refscaletxl <> nil) then\\n RefScale = refscaletxl.GetText.Asnumber\\n scale = av.GetActiveDoc.returnscale\\n Csize = CSize / (scale / refscale)\\n end\\n ' end of Tim's Stuff\\nend\\n\\n\\ncbox=NIL\\ntheDoc = av.GetActiveDoc\\nif (theDoc.GetGraphics.EditText) then\\n return nil\\nend\\n\\nif (theDoc.Is(Layout)) then\\n ul = theDoc.GetDisplay.ReturnUserLine\\nelseif (theDoc.Is(View)) then\\n ul = theDoc.ReturnUserLine\\nend\\nif (ul.IsNull) then return nil end\\npt1 = ul.ReturnStart\\npt2 = ul.ReturnEnd\\nt = GraphicTex\nt.Make(\\\"\\\", pt2)\\nt.SetDisplay(theDoc.GetDisplay)\\ntheDoc.GetDisplay.HookUpSymbol(t.GetSymbol)\\ntheDoc.GetGraphics.UnselectAll\\nt.SetSelected(TRUE)\\nif (( t.EditText).not) then\\n return nil\\nend \\nt.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\nt.GetSymbol.SetSize(CSize)\\nt.GetSymbol.SetColor(CColor)\\nt.SetName(\\\"Callout\\\")\\nif (t.GetText.count < 1) then return nil end\\nDoneThis = t.GetText.AsTokens(nl).Count\\nBulletSymbol = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(0)\\nBulletSymbol.Setsize(3)\\nBulletSymbol.\nSetColor(CColor)\\ngb = GraphicShape.Make(pt1)\\ngb.SetName(\\\"Callout\\\")\\ngb.SetSymbol(BulletSymbol)\\nLeaderPen = BasicPen.Make\\nLeaderP en.SetColor(CColor)\\nif (UseOutline) then\\n LeaderPen.SetSize(COLWidth)\\nelse\\n LeaderPen.SetSize(0.25)\\nend\\ngl = GraphicShape.Make(ul)\\ngl.SetName(\\\"Callout\\\")\\ngl.SetSymbol(LeaderPen)\\nBgFill = Rasterfill.Make\\nBgFill.SetStyle(#RASTERFILL_STYLE_SOLID)\\nBgFill.SetColor(CBGColor)\\nif (UseOutLine) then\\n BgFill.SetOutlined(true)\\n BgFill.SetOLColor(COLColor)\\n BgFill.SetOLWidth(COLWidth)\\nelse\\n \n BgFill.SetOutLined(false)\\nend\\nCurrentTextWidth = t.GetBounds.GetWidth\\nCurrentTextHeight = t.GetBounds.G etHeight\\nCurrentTextOrigin = t.GetBounds.ReturnOrigin\\nExpandDist = (CurrentTextHeight/DoneThis)/5\\nx1 = pt1.GetX\\nx2 = pt2.GetX\\ny1 = pt1.GetY\\ny2 = pt2.GetY\\nxDiff = x1 - x2\\nyDiff = y1 - y2\\n\\nif (xDiff.Abs < (yDiff/5).Abs ) then \\n '** Means that the line was dragged a distance at least five times \\n '** greater in the y direction. So, center the label directly above \\n '** or below pt2\\n if (y1 > y2) then 'Be\nlow\\n TXAdj = -CurrentTextWidth/2 \\n TYAdj = -(CurrentTextHeight) \\n elseif ( y1 < y2) then 'Above\\n TXAdj = -CurrentTextWidth/2 \\n TYAdj = ExpandDist \\n end\\nelseif (yDiff.Abs < (xDiff/5).Abs ) then\\n '** Means that the line was dragged a distance at least five times \\n '** greater in the x direction. So, center the label directly to the \\n '** right or left of pt2\\n if (x1 > x2) then 'Left\\n TXAdj = -(CurrentTextWidth - ExpandDist) \\n TYAdj = -CurrentTextHeight/2 \\n elseif (x1 < x2\n) then 'Right\\n TXAdj = ExpandDist \\n TYAdj = -CurrentTextHeight/2 \\n end \\nelse\\n '** Means that while the line was not in a fairly vertical or \\n '** horizontal direction, so there are four potential placements\\n if ((x2 > x1) and (y2 > y1)) then 'Cartesian 1\\n TXAdj = ExpandDist \\n TYAdj = -((CurrentTextHeight/2) - ExpandDist) \\n elseif ((x2 < x1) and (y2 > y1)) then 'Cartesian 2\\n TXAdj = -(CurrentTextWidth - ExpandDist) \\n TYAdj = -((CurrentTextHeight/2) - ExpandDist) \\n else\nif ((x2 < x1) and (y2 < y1)) then 'Cartesian 3\\n TXAdj = -(CurrentTextWidth - ExpandDist) \\n TYAdj = -(CurrentTextHeight/2) \\n elseif ((x2 > x1) and (y2 < y1)) then 'Cartesian 4\\n TXAdj = ExpandDist \\n TYAdj = -(CurrentTextHeight/2) \\n end \\nend \\nNewTextOrigin = CurrentTextOrigin + (TXAdj@TYAdj)\\nt.GetBounds.SetOrigin(NewTextOrigin) \\nif (UseOutline) then\\n BgRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetWidth * 0.1)\\n tbg = GraphicShape.Make(BgRect)\\n tbg.SetName(\\\"Callout\\\")\\n tbg\n.SetSymbol(BgFill)\\n theDoc.GetGraphics.Ad d(tbg)\\n tbg.SetSelected(false)\\nend\\ntheDoc.GetGraphics.Add(gb)\\ntheDoc.GetGraphics.Add(gl)\\ntheDoc.GetGraphics.Add(t)\\ngb.SetSelected(false)\\ngl.SetSelected(false) \\nt.SetSelected(true)\\ntheDoc.GetGraphics.MoveSelectedToFront\\nt.SetSelected(false)\\ngl.SetSelected(true)\\ntheDoc.GetGraphics.MoveSelectedToBack\\nt.SetSelected(true)\\ngb.SetSelected(true)\\nif (UseOutline) then\\n tbg.SetSelected(true)\\nend\\ntheDoc.GetGraphics.GroupSelected\\ntheDoc.GetGraphics.GetSelected.Get(0).SetName(\n\\\"Callout\\\")\\nif(theDo c.Is(View)) then\\n if (theDoc.GetActiveThemes.Count > 0) then\\n theDoc.GetActiveThemes.Get(0).GetGraphics.Add(theDoc.getGraphics.GetSelected.Get(0))\\n end\\nend\\ntheDoc.GetGraphics.GetSelected.Get(0).Invalidate\\ntheDoc.GetGraphics.MoveSelectedToFront\\ntheDoc.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\ntheDoc.GetGraphics.UnselectAll\"\n)\n\n(Script.140\n Name: \"View.CalloutLabelTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePref s = IconList.GetObjectTag.Get(\\\"Ltool2\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(4) Fill Color (String)\\n '(5) HasOutline (Boolean)\\n '(6) OLColor (String)\\n '(7) OLWidth (Number)\\n '(8) HasDropShadow (Boolean)\\n '(9) DSColor (String)\\n '(10) UseDefFont \n (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nif ( FontManager.The.ReturnFamilies.FindByValue(CFont) = -1) then\\n CFont = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetFamily\\n CStyle = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetStyle\\nend\\n\\nCSize = thePrefs.Get(2)\\nif (thePrefs.Get(3) = \\\"Unnamed Color\\\") then\\n CColor = av.GetSymbolwin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av.Run(\\\"View.Return Color\\\",thePrefs.\nGet(3))\\nend\\nCBGColor = av.Run(\\\"View.Return Color\\\",thePre fs.Get(4))\\nUseOutline = thePrefs.Get(5)\\nCOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(6))\\nCOLWidth = thePrefs.Get(7)\\nCDS = thePrefs.Get(8)\\nDSColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(9))\\nUseDef = thePrefs.Get(10)\\nif (UseDef) then\\n ts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\n CFont = ts.GetFont.GetFamily\\n CStyle = ts.GetFont.GetStyle\\n CSize = ts.GetSize\\n CColor = ts.GetColor\\n ' added by Tim Loesch to\n Facilitate Text Scale Referencing\\n '\\ n else\\n refscaletxl = CPC.FindByName(\\\"Reference Scale txl\\\")\\n if (refscaletxl <> nil) then\\n RefScale = refscaletxl.GetText.Asnumber\\n scale = av.GetActiveDoc.returnscale\\n Csize = CSize / (scale / refscale)\\n end\\n ' end of Tim's Stuff\\n\\nend\\n\\n\\ncbox=NIL\\ntheView = av.GetActiveDoc\\n\\nif (theView.GetGraphics.EditText) then\\n return nil\\nend\\n\\nul = theView.ReturnUserLine\\nif (ul.IsNull) then return nil end\\n\\npt1 = ul.ReturnStart\\npt2 = ul.ReturnEnd\\nt = GraphicText.Make(\\\"\\\", p\nt2)\\nt.Se tDisplay(theView.GetDisplay)\\ntheView.GetDisplay.HookUpSymbol(t.GetSymbol)\\ntheView.GetGraphics.UnselectAll\\nt.SetSelected(TRUE)\\n\\nblurbstring = \\\"\\\"\\nDoneThis = 0\\nfor each athm in theView.GetActiveThemes\\n thelabelfield=athm.getlabelfield\\n if(athm.CanSelect) then\\n ListofFound = athm.FindByPoint(pt1)\\n else\\n continue\\n end\\n if (ListofFound.Count = 0) then \\n continue\\n end\\n if (blurbString = \\\"\\\") then\\n blurbString = av.Run(\\\"View.ReturnLabelString\\\",{athm,ListofFound,2})\\n else\\ n blurbString =\n blurbString + nl + av.Run(\\\"View.ReturnLabelString\\\",{athm,ListofFound,2})\\n end\\nend\\nif (blurbString = \\\"\\\") then\\n return nil\\nend\\n\\nt.SetText(blurbstring)\\nif (t.gettext.count < 1) then return nil end \\nt.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\nt.GetSymbol.SetSize(CSize)\\nt.GetSymbol.SetColor(CColor)\\nt.SetName(\\\"Callout\\\") \\ntheView.GetGraphics.Add(t)\\n\\n \\nif ((pt1.GetX <= pt2.GetX) and (pt1.GetY <= pt2.GetY)) then \\n bb = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeigh t * 0.1)\\n bo_x = bb.ReturnOrigin.GetX\\n b\no_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.08)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5) \\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n lr = ((boxoriginx + bw)@boxoriginy)\\n ul = (boxoriginx@(boxoriginy + bh))\\n o = (boxoriginx@boxoriginy)\\n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh))) then\\n llo = (boxoriginx@(boxoriginy + (bh*0.31)))\\n rlo = (boxoriginx@(boxorig iny + (bh/2)))\\n cbox = Polygon.Make({{(pt1),(llo),(o)\n,(lr),(ur),(ul),(rlo)}})\\n else\\n llo = ((boxoriginx + (bw/6))@boxoriginy)\\n rlo = ((boxoriginx + ((bw/6)*2))@(boxoriginy))\\n cbox = Polygon.Make({{(pt1),(llo),(o),(ul),(ur),(lr),(rlo)}})\\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nelseif ((pt1.GetX >= pt2.GetX) and (pt1.GetY <= pt2.GetY)) then \\n ntx = t.GetBounds.GetWidth * 1.1\\n t.SetOrigin(((t.GetOrigin.GetX - ntx)@t.GetOrigin.GetY))\\n b b = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1)\\n bo_x =\n bb.ReturnOrigin.GetX\\n bo_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.05)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5)\\n o = (boxoriginx@boxoriginy)\\n ul = (boxoriginx@(boxoriginy + bh))\\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n lr = ((boxoriginx + bw)@boxoriginy)\\n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh))) then\\n llo = ((boxoriginx + bw)@ (boxoriginy + (bh*0.31)))\\n rlo = ((boxoriginx + bw)@(boxoriginy + (bh/2)))\\n \n cbox = Polygon.Make({{(pt1),(llo),(lr),(o),(ul),(ur),(rlo)}})\\n else\\n llo = ((boxoriginx + ((bw/6)*5))@boxoriginy)\\n rlo = ((boxoriginx + ((bw/6)*4))@(boxoriginy))\\n cbox = Polygon.Make({{(pt1),(llo),(lr),(ur),(ul),(o),(rlo)}}) \\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nelseif ((pt1.GetX <= pt2.GetX) and (pt1.GetY > pt2.GetY)) then\\n ntx = t.GetBounds.GetHeig ht * 1.1\\n t.SetOrigin((t.GetOrigin.GetX@(t.GetOrigin.GetY - ntx)))\\n bb = t.GetBounds.Clone\n.ExpandBy(t.GetBounds.GetHeight * 0.1)\\n bo_x = bb.ReturnOrigin.GetX\\n bo_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.05)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5)\\n o = ((boxoriginx )@(boxoriginy))\\n ul = ((boxoriginx)@(boxoriginy+bh))\\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh ))) then\\n ull = ((boxoriginx)@(boxoriginy + (bh*0.31)))\\n lr = ((boxoriginx + bw)@(boxoriginy))\\n \nrlo = ((boxoriginx)@(boxoriginy + (bh/2)))\\n cbox = Polygon.Make({{(pt1),(ull),(o),(lr),(ur),(ul),(rlo)}})\\n else\\n ull = ((boxoriginx + (bw/12))@(boxoriginy+bh))\\n ll = ((boxoriginx + bw)@boxoriginy)\\n rlo = ((boxoriginx + ((bw/12)*2))@(boxoriginy + bh))\\n cbox = Polygon.Make({{(pt1),(ull),(ul),(o),(ll),(ur),(rlo)}})\\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nelseif ((pt1.GetX > pt2.GetX) and (pt1.GetY > pt2.GetY)) then\\n ntx = t.GetBounds.GetWidth * 1\n.1\\n t.SetOrigin(((t.GetOrigin.GetX - ntx)@t.GetOrigin.GetY))\\n bb = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1)\\n bo_x = bb.ReturnOrigin.GetX\\n bo_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.05)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5)\\n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh))) then \\n o = ((boxoriginx)@(boxoriginy))\\n llo = ((boxoriginx + bw)@(boxoriginy + (bh*0.31)))\\n ul = ((boxoriginx)@(boxoriginy + \nbh))\\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n lr = ((boxoriginx + bw)@(boxoriginy))\\n rlo = ((boxoriginx + bw)@(boxoriginy + (bh/2)))\\n cbox = Polygon.Make({{(pt1),(llo),(lr),(o),(ul),(ur),(rlo)}})\\n else\\n o = ((boxoriginx + bw)@(boxoriginy + bh))\\n llo = ((boxoriginx + ((bw/12)*10))@(boxoriginy + bh))\\n ul = ((boxoriginx + bw)@(boxoriginy))\\n u r = ((boxoriginx)@(boxoriginy))\\n lr = ((boxoriginx)@(boxoriginy + bh))\\n rlo = ((boxoriginx + ((bw/12)*11))@(boxoriginy + bh))\\n cbox =\n Polygon.Make({{(pt1),(llo),(lr),(ur),(ul),(o),(rlo)}})\\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nend\\n\\nNumLines = t.GetText.AsTokens(nl).Count\\nif (NumLines > 1) then\\n NumLines = 2\\nend\\nBgRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1) \\nCurrentWidth = BgRect.GetWidth \\nCurrentHeight = B gRect.GetHeight\\nBgO = BgRect.ReturnOrigin\\nadjustment = ((CurrentWidth*(-(0.05)))@( (CurrentHeight*(-(0.05*((NumLines*NumLines)*0.9))))/(2)))\\nt.GetBounds.SetO\nrigin(BgO + adjustment)\\n\\n'do foreground box color\\n\\ncboxgs = GraphicShape.Make(cbox)\\nfs = RasterFill.Make\\nfs.SetStyle(#RASTERFILL_STYLE_SOLID)\\nfs.SetColor(CBGColor)\\nif (UseOutline) then\\n fs.SetOLColor(COLColor)\\n fs.SetOLWidth(COLWidth)\\nelse\\n fs.SetOutlined(false)\\nend\\ncboxgs.SetSymbol(fs)\\n\\n'Do Background box color\\n\\nif (CDS) then\\n S hdAdj = t.GetBounds.GetHeight/5\\n sPts = cbox.AsList\\n nPts = {}\\n for each p in sPts.Get(0)\\n if ((p.GetX = pt1.GetX) and (p.GetY = pt1.GetY)) then\\n nPts.Add(p.Clone)\\n e\nlse\\n np = p + (ShdAdj@(-ShdAdj))\\n nPts.Add(np)\\n end\\n end \\n sbox = Polygon.Make({nPts})\\n bs = RasterFill.Make\\n changebox=Graphicshape.make(sbox)\\n bs.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\\n bgbg = color.Make\\n bgbg.SetTransparent(true)\\n bs.SetColor(bgbg)\\n bs.SetBGColor(DSColor)\\n bs.SetOut Lined(FALSE)\\n changebox.setsymbol(bs) \\n theView.GetGraphics.Add(changebox)\\n changebox.SetName(\\\"Callout\\\")\\nend\\n\\ntheView.GetGraphics.Add(cboxgs)\\ncboxgs.SetName(\\\"Callout\\\")\\ncboxgs.SetSelected(false)\\nt\n.SetSelected(true)\\ntheView.GetGraphics.MoveSelectedToFront\\n\\n\\n\\nif (CDS) then\\n changebox.setselected(true)\\nend\\n\\ncboxgs.SetSelected(true)\\ntheView.GetGraphics.GroupSelected\\ntheView.GetGraphics.GetSelected.Get(0).SetName(\\\"Callout\\\")\\nif(theView.Is(View)) then\\n if (theView.GetActiveThemes .Count > 0) then\\n theView.GetActiveThemes.Get(0).GetGraphics.Add(theView.getGraphics.GetSelected.Get(0))\\n end\\nend\\n\\ntheView.GetGraphics.MoveSelectedToFront\\ntheView.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\ntheView\n.GetGraphics.GetSelected.Get(0).Invalidate\\ntheView.GetGraphics.UnselectAll\\n\"\n)\n\n(Script.141\n Name: \"View.CalloutTextTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ttoo l2\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(4) Fill Color (String)\\n '(5) HasOutline (Boolean)\\n '(6) OLColor (String)\\n '(7) OLWidth (Number)\\n '(8) HasDropShadow (Boolean)\\n '(9) DSColor (String)\\n '(10) UseDefFont \n (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nif (FontManager.The.ReturnFamilies.FindB yValue(CFont) = -1) then\\n CFont = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetFamily\\n CStyle = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetStyle\\nend\\n\\nCSize = thePrefs.Get(2)\\nif (thePrefs.Get(3) = \\\"Unnamed Color\\\") then\\n CColor = av.GetSymbolwin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av.Run(\\\"View.Return Color\\\",thePrefs.\nGet(3))\\nend\\nCBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nUseOutline = thePrefs.Ge t(5)\\nCOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(6))\\nCOLWidth = thePrefs.Get(7)\\nCDS = thePrefs.Get(8)\\nDSColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(9))\\nUseDef = thePrefs.Get(10)\\nif (UseDef) then\\n ts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone\\n CFont = ts.GetFont.GetFamily\\n CStyle = ts.GetFont.GetStyle\\n CSize = ts.GetSize\\n CColor = ts.GetColor\\n ' added by Tim Loesch to\n Facilitate Text Scale Referencing\\n '\\n else\\n refscaletxl = CPC.FindByNa me(\\\"Reference Scale txl\\\")\\n if (refscaletxl <> nil) then\\n RefScale = refscaletxl.GetText.Asnumber\\n scale = av.GetActiveDoc.returnscale\\n Csize = CSize / (scale / refscale)\\n end\\n ' end of Tim's Stuff\\nend\\n\\n\\ncbox=NIL\\ntd = av.GetActiveDoc\\n\\nif (td.GetGraphics.EditText) then\\n return nil\\nend\\n\\n'do it slightly differently if using a view document.\\n\\nif (td.Is(Layout)) then\\n ul = td.GetDisplay.ReturnUserLine\\nelseif (td.Is(View)) then\\n\n ul = td.ReturnUserLine\\nend\\nif (ul.IsNull) th en return nil end\\n\\npt1 = ul.ReturnStart\\npt2 = ul.ReturnEnd\\nt = GraphicText.Make(\\\"\\\", pt2)\\nt.SetDisplay(td.GetDisplay)\\ntd.GetDisplay.HookUpSymbol(t.GetSymbol)\\ntd.GetGraphics.UnselectAll\\nt.SetSelected(TRUE)\\n\\nif ((t.EditText).not) then return nil end \\nif (t.gettext.count < 1) then return nil end \\nt.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\nt.GetSymbol.SetSize(CSize)\\nt.GetSymbol.SetColor(CColor)\\nt.SetName(\\\"Callout\\\") \\ntd.GetGraphics.Add(t)\\n\\n'Determine which sid\ne of leader to position box\\nif ((pt1.GetX <= pt2.GetX) and (pt1.GetY <= pt2.GetY)) then \\n bb = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1)\\n bo_x = bb.ReturnOrigin.GetX\\n bo_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.08)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5) \\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n lr = ((boxoriginx + bw)@boxoriginy)\\n ul = (boxoriginx@(boxoriginy + bh))\\n o = (boxoriginx@boxoriginy)\\n if ((pt1.GetY >= (pt2.G\netY - bh) ) and (pt1.GetY <= (pt2.GetY + bh))) then\\n llo = (boxoriginx@(boxoriginy + (bh*0.31)))\\n rlo = (boxoriginx@(boxoriginy + (bh/2)))\\n cbox = Polygon.Make({{(pt1),(llo),(o),(lr),(ur),(ul),(rlo)}})\\n else\\n llo = ((boxoriginx + (bw/6))@boxoriginy)\\n rlo = ((boxoriginx + ((bw/6)*2))@(boxoriginy))\\n cbox = Polygon.Make({{(pt1),(llo),(o),(ul),(ur),(lr),(rlo)}})\\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nelseif ((pt1.GetX >= pt2.GetX) and (pt1.GetY \n<= pt2.GetY)) then \\n ntx = t.GetBounds.GetWidth * 1.1\\n t.SetOrigin(((t.GetOrigin.GetX - ntx)@t.GetOrigin.GetY))\\n bb = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1)\\n bo_x = bb.ReturnOrigin.GetX\\n bo_y = bb.ReturnOrigin.GetY\\n bw = ((bb.GetWidth) * 1.05)\\n bh = ((bb.GetHeight) * 1.1)\\n boxoriginx = bo_x - (bw / 10)\\n boxoriginy = bo_y - (bh / 5)\\n o = (boxoriginx@boxoriginy)\\n ul = (boxoriginx@(boxoriginy + bh))\\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\\n lr = ((boxoriginx + bw )@boxoriginy)\\n \n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh))) then\\n llo = ((boxoriginx + bw)@(boxoriginy + (bh*0.31)))\\n rlo = ((boxoriginx + bw)@(boxoriginy + (bh/2)))\\n cbox = Polygon.Make({{(pt1),(llo),(lr),(o),(ul),(ur),(rlo)}})\\n else\\n llo = ((boxoriginx + ((bw/6)*5))@boxoriginy)\\n rlo = ((boxoriginx + ((bw/6)*4))@(boxoriginy))\\n cbox = Polygon.Make({{(pt1),(llo),