/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),(lr),(ur),(ul),(o),(rlo)}}) \\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxorig inx + bw),(boxoriginy + bh\n))\\nelseif ((pt1.GetX <= pt2.GetX) and (pt1.GetY > pt2.GetY)) then\\n ntx = t.GetBounds.GetHeight * 1.1\\n t.SetOrigin((t.GetOrigin.GetX@(t.GetOrigin.GetY - ntx)))\\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)@(boxorigin y+bh))\\n ur = ((boxoriginx + bw)@(boxor\niginy + 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 rlo = ((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 = P olygon.Make({{(pt1),(ull),(ul),(o),(ll),(ur),(rlo)}\n})\\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 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 >= \n(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 + bh))\\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)@(boxor iginy + bh))\\n llo = ((boxoriginx + ((bw/12)*10))@(boxoriginy + bh))\\n \nul = ((boxoriginx + bw)@(boxoriginy))\\n ur = ((boxoriginx)@(boxoriginy))\\n lr = ((boxoriginx)@(boxoriginy + bh))\\n rlo = ((boxoriginx + ((bw/12)*11))@(boxoriginy + bh))\\n cbox = Polygon.Make({{(pt1),(llo),(lr),(ur),(ul),(o),(rlo)}})\\n end\\n BgRect = Rect.MakeXY(boxoriginx,boxoriginy,(boxoriginx + bw),(boxoriginy + bh))\\nend\\n \\n\\nNumLines = t.GetText.AsTokens(nl).Count\\nif (NumLines > 1) then\\n NumLines = 2\\nend\\nB gRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetHeight * 0.1) \\nCurrentWidth = BgRect.\nGetWidth \\nCurrentHeight = BgRect.GetHeight\\nBgO = BgRect.ReturnOrigin\\nadjustment = ((CurrentWidth*(-(0.05)))@( (CurrentHeight*(-(0.05*((NumLines*NumLines)*0.9))))/(2)))\\nt.GetBounds.SetOrigin(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.Se tOLWidth(COLWidth)\\nelse\\n fs.SetOutlined(false)\\nend\\ncboxgs.SetSymbol(fs)\\n\\n'Do Background box color\\n\\nif (CDS) \nthen\\n ShdAdj = t.GetBounds.GetHeight/NumLines/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 else\\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(#RASTERF ILL_STYLE_OPAQUESTIPPLE)\\n bgbg = color.Make\\n bgbg.SetTransparent(true)\\n bs.SetColor(bgbg)\\n bs.SetBGColor(DSColor)\\n bs.SetOutLin\ned(FALSE)\\n changebox.setsymbol(bs) \\n td.GetGraphics.Add(changebox)\\n changebox.SetName(\\\"Callout\\\")\\nend\\n\\ntd.GetGraphics.Add(cboxgs)\\ncboxgs.SetName(\\\"Callout\\\")\\ncboxgs.SetSelected(false)\\nt.SetSelected(true)\\ntd.GetGraphics.MoveSelectedToFront\\n\\n\\nif (CDS) then\\n changebox.setselected(true)\\nend\\n\\ncboxgs.SetSelected(true)\\ntd.GetGraphics.GroupSelected\\ntd.Ge tGraphics.GetSelected.Get(0).SetName(\\\"Callout\\\")\\nif(td.Is(View)) then\\n if (td.GetActiveThemes.Count > 0) then\\n td.GetActiveThemes.Get(0).GetGraphics.Add(td.ge\ntGraphics.GetSelected.Get(0))\\n end\\nend\\ntd.GetGraphics.GetSelected.Get(0).Invalidate\\ntd.GetGraphics.MoveSelectedToFront\\ntd.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\n\\ntd.GetGraphics.UnselectAll\\n\"\n)\n\n(Script.142\n Name: \"View.CreateDropShadowText\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.F indByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ttool5\\\")\\n\\n '(0) Font Family (String) \\n '(1) Font Style (String)\\n '(2) Font Size (Number)\\n '(3) Font Color (String)\\n '(9) DSColor (String)\\n '(10) UseDefFont (Boolean)\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nif (FontManager.The.ReturnFamilies.FindByValue(CFont) = -1) then\\n CFont = av.GetSymbolWin.ReturnCurrentS\nymbol(#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.Get(3))\\nend\\nCDSColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(9))\\nUseDef = thePrefs.Get(10)\\nif (UseDef) then\\n ts = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clo\nne\\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 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\\ntheDoc = av.GetActiveDoc\\ncbox=NIL\\nif (theDoc.GetGraphics.EditText.Not) then\\n pt = theDoc.\nG etDisplay.ReturnUserPoint\\n t = GraphicText.Make(\\\"\\\", pt)\\n t.SetDisplay(theDoc.GetDisplay)\\n t.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\n t.GetSymbol.SetSize(CSize)\\n t.GetSymbol.SetColor(CColor)\\n t.SetName(\\\"Callout\\\")\\n theDoc.GetDisplay.HookUpSymbol(t.GetSymbol)\\n theDoc.GetGraphics.UnselectAll\\n t.SetSelected(false)\\n if (t.EditText) then\\n if (t.gettext.count<1) then return nil end\\n theDoc.GetGraphics.Add(t)\\n NumLines = t.GetText.AsTokens(nl).Count\\n CurrentTextHeight = t.G etBounds.GetHeigh\nt\\n ExpandDist = (CurrentTextHeight/NumLines)/25\\n t2=t.clone\\n t2.SetName(\\\"Callout\\\")\\n theDoc.GetGraphics.Add(t2)\\n t2.offset(point.make(ExpandDist,-ExpandDist))\\n t2.GetSymbol.SetColor(CDSColor)\\n theDoc.GetDisplay.HookUpSymbol(t2.GetSymbol)\\n BGRect = t2.GetBounds.Clone' .UnionWith(t.GetBounds.Clone)\\n theDoc.GetGraphics.UnselectAll\\n t2.SetSelected(TRUE)\\n theDoc.GetGraphics.MoveSelectedToBack\\n t.SetSelected(TRUE)\\n theDoc.GetGraphics.GroupSel ected\\n theDoc.GetGraphics.Move\nSelectedToFront\\n theDoc.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\n theDoc.GetGraphics.GetSelected.Get(0).SetName(\\\"Callout\\\")\\n if (theDoc.Is(View)) then\\n if (theDoc.GetActiveThemes.Count > 0) then\\n theDoc.GetActiveThemes.Get(0).GetGraphics.Add(theDoc.getGraphics.GetSelected.Get(0))\\n end\\n end\\n end\\nend\\n\"\n)\n\n(Script.143\n Name: \"View.Highway Strip Down to Number\"\n SourceCode: \"InNum = Self\\n\\nif (InNum.IsNumber) then\\n retu rn InNum\\nelse\\n HNum = \\\"\\\"\\n for each c in 0..(InNum.Count - 1)\\n ch = InNum.Middle(c,1)\\n if (ch.IsNumber) then\\n HNum = HNum + ch\\n end\\n end\\n if (HNum.Count > 6) then\\n HNum = HNum.Left(6)\\n end\\n return HNum\\nend\\n\"\n)\n\n(Script.144\n Name: \"View.Highway Tool Huge number\"\n SourceCode: \"MXX = av.FindDialog(\\\"View.Hwy Name Too Big\\\")\\n\\nMXX.Close\\n\\nif(Self.GetName = \\\"Cancel\\\") then\\n MXX.FindByName(\\\"userShortName\\\").SetText(\\\"\\\")\\nend\"\n)\n\n(Script.145\n Name: \"View.Highway Tool La bel Placer\"\n SourceCode: \"'** This script accepts parameters from the highway\\n'** tool apply scripts and uses them to produce a\\n'** highway shield with an appropriate label.\\n\\nHwyThm = nil\\nv = av.GetActiveDoc\\nfor each t in v.GetActiveThemes\\n if ((t.CanFindByPoint) and (t.HasAttributes)) then\\n HwyThm = t\\n break\\n end\\nend\\n\\nToolStr = Self.Get(1)\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(ToolStr)\\n\\nMrkS ize = thePrefs.Get(3).Clone\\nLabFont = thePrefs\n.Get(0).Clone\\nStyle = thePrefs.Get(1).Clone\\n\\nif (FontManager.The.ReturnFamilies.FindByValue(LabFont) = -1) then\\n LabFont = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetFamily\\n Style = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetFont.GetStyle \\nend\\n\\nbc = av.Run(\\\"View.Return Color\\\", thePrefs.Get(2))\\nNumsOnly = thePrefs.Get(6).Clone\\n\\np = Self.Get(0)\\nrecNums = HwyThm.FindByPoint(p)\\nj = HwyThm.GetLa belField '**Guaranteed by the update script**\\n\\nHwyNum = nil\\nHwyNu\nm = av.Run(\\\"View.ReturnLabelString\\\",{HwyThm,recNums,1})\\n\\nif ((HwyNum = nil) OR (HwyNum = \\\"\\\")) then\\n UHN = av.FindDialog(\\\"View.User Hwy Num\\\")\\n UHN.FindByName(\\\"UserNum\\\").SetText(\\\"\\\")\\n UHN.FindByName(\\\"UserNum\\\").Focus\\n UHN.Open\\n if ((UHN.FindByName(\\\"UserNum\\\").GetText <> nil) and (UHN.FindByName(\\\"UserNum\\\").GetText <> \\\"\\\")) then\\n HwyNum = UHN.FindByName(\\\"UserNum\\\").GetText\\n else\\n return nil\\n end \\nend\\ n\\nLhm = HwyNum.Trim\\nif (NumsOnly) then\\n Nums = {\\\"0\\\",\\\"1\\\",\\\"2\\\",\\\"3\\\",\\\"4\\\",\\\"5\\\",\\\"6\\\",\\\"7\\\",\\\"8\\\",\\\"9\\\"}\\n for each n\nn in 0..(Nums.Count - 1)\\n if ( HwyNum.Contains(Nums.Get(nn)) )then\\n FoundNum = true\\n break\\n end\\n end\\n HwyNum = av.Run(\\\"View.Highway Strip Down to Number\\\",Lhm)\\n if (HwyNum = \\\"\\\") then\\n return nil\\n end\\nelse\\n HwyNum = Lhm\\nend\\n\\nHwyStrSize = HwyNum.Count\\nif (HwyStrSize > 6) then \\n HwyTokens = HwyNum.AsTokens(\\\" \\\")\\n DerivedNum = false\\n Deri vedDes = false\\n HNum = \\\"\\\"\\n HDes = \\\"\\\"\\n for each tx in HwyTokens\\n if ((tx.IsNumber) and (not DerivedNum)) then\\n DerivedNum = true\\n HNum =\n tx\\n elseif ((tx.IsNumber.Not) and (not DerivedDes)) then\\n CommonThwarts = {\\\"INTERSTATE\\\",\\\"Interstate\\\",\\\"I-\\\",\\\"ROUTE\\\",\\\"Route\\\",\\\"US-\\\",\\\"US Route\\\",\\\"US ROUTE\\\",\\\"U.S.\\\",\\n \\\"Ramp\\\",\\\"Hwy\\\",\\\"Highway\\\",\\\"Rte\\\",\\\"rte\\\",\\\"County\\\",\\\"Cty\\\",\\\"Business\\\",\\\"Bus\\\",\\\"Alt\\\",\\\"Alternate\\\"}\\n CommonSubs = {\\\"I\\\",\\\"I\\ \",\\\"I\\\",\\\"\\\",\\\"\\\",\\\"US\\\",\\\"US\\\",\\\"US\\\",\\\"US\\\",\\\"\\\",\\\"\\\",\\\"\\\",\\\"\\\",\\\"\\\",\\\"\\\",\\\"\\\",\\\"B\\\",\\\"B\\\",\\\"A\\\",\\\"A\\\"}\\n for each nn in 0..(CommonThwarts.Count - 1)\\n if ( ( tx.Contains(CommonThwarts.Get(nn)) ) and (Not DerivedDes) )then\\n D\nerivedDes = true\\n HDes = CommonSubs.Get(nn)\\n end\\n end\\n end\\n end\\n HwyNum = HDes + HNum \\n if (DerivedDes = false) then\\n MXX = av.FindDialog(\\\"View.Hwy Name Too Big\\\")\\n MXX.SetTitle(\\\"Highway Label Tool cannot use: \\\"+HwyNu m.AsString)\\n MXX.FindByName(\\\"userShortName\\\").SetText(\\\"\\\")\\n MXX.FindByName(\\\"userShortName\\\").Focus\\n MXX.Open\\n hh = MXX.FindByName(\\\"userShortName\\\").GetText\\n if ((hh = \\\"\\\") or (hh = nil)) then\\n return nil\\n end\\n HwyNum = MXX.FindByName(\\\"userSho\nrtName\\\").GetText\\n HwyNum = HwyNum.Trim\\n HwyStrSize = HwyNum.Count\\n end\\n HwyStrSize = HwyNum.Count\\nend\\n\\nvAdj = Self.Get(2).Get(HwyStrSize - 1)\\nv.GetGraphics.UnSelectAll\\n\\nfor each xx in Self.Get(4)\\n if ((Self.G et(1) = \\\"HTool5\\\") and (HwyStrSize > 2))then\\n symAdj = 4\\n oldChar = xx.GetCharacter\\n newChar = oldChar + symAdj\\n xx.SetCharacter(newChar)\\n end\\n Shld = GraphicShape.Make(p.Clone)\\n xx.SetSize(MrkSize)\\n v.GetDisplay.HookUpSymbol(xx)\\n Shld.SetSymbol(xx)\\n Shld.SetDisplay(v.GetDispla\ny)\\n v.GetGraphics.AddBatch(Shld)\\n Shld.SetSelected(true)\\n Shld.SetName(\\\"HwyShield\\\")\\nend\\n\\nv.GetGraphics.GroupSelected\\nShield = v.GetGraphics.GetSelected.Get(0)\\nShield.SetSelected(false)\\nShiel d.SetName(\\\"HwyShield\\\")\\n\\ntmrkSize = MrkSize * Self.Get(3).Get(HwyStrSize -1)\\n\\ngexp = GraphicShape.Make(0@0)\\nb = BasicMarker.Make\\nb.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nb.SetFont(Font.Make(Labfont,Style))\\nb.SetCharacter(\\\"O\\\".AsAscii)\\nb.SetSize(tmrkSize)\\nb.SetColor(bc.Clone)\\ngexp.SetSymbol(b)\\ngexp.SetDisplay(v.GetDisplay\n)\\ncw = gexp.GetBounds.GetWidth\\n\\nh = Shield.GetBounds.GetHeight/2 \\nMaxW = Shield.GetBounds.GetWidth * (0.6667)\\nMaxCW = MaxW/HwyStrSize\\nActualOffset = cw - (HwyStrSize*cw)\\ nActualOffset = (HwyStrSize - 1)*cw/4\\nt_o = p - ( ActualOffset@(h*vAdj) )\\nfor each c in 0..(HwyStrSize - 1)\\n b = BasicMarker.Make\\n b.SetStyle(#BASICMARKER_STYLE_PATTERN)\\n b.SetFont(Font.Make(Labfont,Style))\\n b.SetCharacter(HwyNum.Middle(c,1).AsASCII)\\n b.SetSize(tmrkSize)\\n b.SetColor(bc.Clone)\\n v.GetDisplay.HookUpSymbol(b)\\n ng = Graph\nicShape.Make(t_o)\\n ng.SetSymbol(b)\\n ng.SetDisplay(v.GetDisplay)\\n t_o = t_o + ((cw/2)@0)\\n ng.SetName(\\\"HwyShield\\\")\\n v.GetGraphics.AddBatch(ng)\\n ng .SetSelected(true)\\nend\\nv.GetGraphics.GroupSelected\\nNumsWidth = v.GetGraphics.GetSelected.Get(0).GetBounds.GetWidth\\nShldWidth = Shield.GetBounds.GetWidth\\nNumsOrig = v.GetGraphics.GetSelected.Get(0).GetBounds.ReturnOrigin\\nShldOrig = Shield.GetBounds.ReturnOrigin\\nShield.SetSelected(true)\\nv.GetGraphics.GroupSelected\\nv.GetGraphics.GetSelected.Get(0).SetName(\\\"HwyShi\neld\\\")\\nv.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\nhwyThm.GetGraphics.Add(v.GetGraphics.GetSelected.Get(0))\\n\\nv.GetGraphics .EndBatch\"\n)\n\n(Script.146\n Name: \"View.Highway Tool User Number\"\n SourceCode: \"MDD = av.FindDialog(\\\"View.User Hwy Num\\\")\\n\\nMDD.Close\\nif (Self.GetName = \\\"Cancel\\\") then\\n MDD.FindByName(\\\"UserNum\\\").SetText(\\\"\\\")\\nend\"\n)\n\n(Script.147\n Name: \"View.Highway1 Apply\"\n SourceCode: \"'** This script sends positioning and construction parameters\\n'** a master script that will build the symbol and place it\\n'** in the view.\\n\\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) Font 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\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"Callout\nIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"HTool1\\\")\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(2))\\nCSize = thePrefs.Get(3)\\nO LColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(5))\\nNumsOnly = thePrefs.Get(6)\\nUseDef = thePrefs.Get(7)\\n\\nv = av.GetActiveDoc\\np = v.GetDisplay.ReturnUserPoint\\n\\n\\nif (System.GetOS = #SYSTEM_OS_UNIX) then\\n '** Vertical Adjustment constants for pla\ncement of progressively\\n '** larger Hwy Number strings. This will be different for each\\n '** Highway Shield symbol\\n \\n paramv1 = -0.0 \\n paramv2 = -0.0\\n paramv3 = -0.1\\n param v4 = -0.12\\n paramv5 = -0.15\\n paramv6 = -0.15\\n \\n '** Text Adjustments represent the percentage label point size\\n '** is of the total point\\n paramt1 = 0.35\\n paramt2 = 0.325\\n paramt3 = 0.3\\n paramt4 = 0.25\\n paramt5 = 0.21\\n paramt6 = 0.18\\nelse\\n paramv1 = -0.05 \\n paramv2 = -0.1\\n paramv3 = -0.15\\n paramv4 = -0.20\\n paramv5 =\n -0.25\\n paramv6 = -0.27\\n\\n paramt1 = 0.4\\n paramt2 = 0.4\\n paramt3 = 0.3875\\n paramt4 = 0.3\\n paramt5 = 0.3\\n paramt6 = 0.25\\nend\\n\\n'** Send the marker symbols that are needed to construct the \\n'** appropriate highway shield\\n\\nmrk1 = BasicMarker.Make\\nmrk1.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk1.SetFont(Font.Make(\\\"ESRI Transportation & Municipal\\\",\\\"Normal\\\"))\\nmrk1.SetCharacter(46)\\nmrk1.SetColor(Color.GetBlue)\\nmrk1.SetColorLock(true)\\nmrk2 = BasicMarker.Make\\nmrk2.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk2.SetFont\n(Font.Make(\\\"ESRI Transportation & Municipal\\\",\\\"Normal\\\"))\\nmrk2.SetCharacter(45)\\nmrk2.SetColor(Color.GetRed)\\nmrk2.SetColorLock(tru e)\\nmrk3 = BasicMarker.Make\\nmrk3.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk3.SetFont(Font.Make(\\\"ESRI Transportation & Municipal\\\",\\\"Normal\\\"))\\nmrk3.SetCharacter(44)\\nmrk3.SetColor(OLColor)\\nmrk3.SetColorLock(false)\\n\\nHinfo = {p,\\\"HTool1\\\",{paramv1,paramv2,paramv3,paramv4,paramv5,paramv6},\\n {paramt1,paramt2,paramt3,paramt4,paramt5,paramt6},\\n {mrk1,mrk2,mrk3}}\\n \\n\nx = av.Run(\\\"View.Highway Tool Label Placer\\\", Hinfo)\\n\"\n)\n\n(Script.148\n Name: \"View.Highway2 Apply\"\n Source Code: \"'** This script sends positioning and construction parameters\\n'** a master script that will build the symbol and place it\\n'** in the view.\\n\\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) Font 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\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"Callout\nIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"HTool2\\\")\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(2))\\nCSize = thePrefs.Get(3)\\nOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(5))\\nNumsOnly = thePrefs.Get(6)\\nUseDef = thePrefs.Get(7)\\n\\nv = av.GetActiveDoc\\np = v.GetDisplay.ReturnUserPoint\\n\\nif (System.GetOS = #SYSTEM_OS_UNIX) then\\n\\n '** Vertical Adjustment constants for pla\ncement of progressively\\n '** larger Hwy Number strings. This will be different for each\\n '** Highway Shield symbol\\n \\n paramv1 = 0.1\\n paramv2 = 0.0\\n paramv3 = 0.0\\n paramv4 = 0.0\\n paramv5 = 0.0\\n paramv6 = 0.0\\n \\n '** Text Adjustments represent the percentage label point size\\n '** is of the total point\\n \\n paramt1 = 0.55\\n paramt2 = 0.45\\n paramt3 = 0.3\\n paramt4 = 0.24\\n paramt5 = 0.19\\n paramt6 = 0.15\\n\\nelse\\n paramv1 = 0.2\\ n paramv2 = 0.2\\n paramv3 = 0.2\\n paramv4 = 0.25\\n paramv5 = 0.30\\n paramv\n6 = 0.32\\n \\n paramt1 = 0.5\\n paramt2 = 0.5\\n paramt3 = 0.45\\n paramt4 = 0.38\\n paramt5 = 0.32\\n paramt6 = 0.27\\nend\\n\\n'** Send the marker symbols that are needed to construct the \\n'** appropriate highway shield\\n\\nmrk1 = BasicMarker.Make\\nmrk1.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk1.SetFont(Font.Make(\\\"ESRI Transportation & Municipal\\\",\\\"Normal\\\"))\\nmrk1.SetCharacter(40)\\nmrk1.SetColor(BGColor)\\nmrk1.SetColorLock(tr ue)\\nmrk2 = BasicMarker.Make\\nmrk2.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk2.SetFont(Font.Make(\\\"ESRI Tra\nnsportation & Municipal\\\",\\\"Normal\\\"))\\nmrk2.SetCharacter(47)\\nmrk2.SetColor(OLColor)\\nmrk2.SetColorLock(true)\\n\\n\\nHinfo = {p,\\\"HTool2\\\",{paramv1,paramv2,paramv3,paramv4,paramv5,paramv6},\\n {paramt1,paramt2,paramt3,paramt4,paramt5,paramt6},\\n {mrk1,mrk2}}\\n \\nx = av.Run(\\\"View.Highway Tool Label Placer\\\", Hinfo)\\n\"\n)\n\n(Script.149\n Name: \"View.Highway3 Apply\"\n SourceCod e: \"'** This script sends positioning and construction parameters\\n'** a master script that will build the symbol and place it\\n'** in the view.\\n\\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) Font 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\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC .FindByName(\\\"Callout\nIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"HTool3\\\")\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(2))\\nCSize = thePrefs.Get(3)\\nOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(5))\\nNumsOnly = thePrefs.Get(6)\\nUseDef = thePrefs.Get(7)\\n\\n\\nv = av.GetActiveDoc\\np = v.GetDisplay.ReturnUserPoint\\n\\n\\n'** Vertical Adjustment constants f or placement of progressively\\n'** larger Hwy Num\nber strings. This will be different for each\\n'** Highway Shield symbol\\n\\nparamv1 = 0\\nparamv2 = 0\\nparamv3 = 0\\nparamv4 = 0\\nparamv5 = 0\\nparamv6 = 0\\n\\n'** Text Adjustments represent the percentage label point size\\n'** is of the total point\\nparamt1 = 0.55\\nparamt2 = 0.55\\nparamt3 = 0.4\\nparamt4 = 0.3\\nparamt5 = 0.24\\nparamt6 = 0.2\\n\\n\\n'** Send the marker symbols that are needed to construct the \\n'** appropriate highway shield\\n\\nmrk1 = BasicMarker.Mak e\\nmrk1.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk1.SetFont(Font.Make(\\\"ESRI \nGeometric Symbols\\\",\\\"Normal\\\"))\\nmrk1.SetCharacter(34)\\nmrk1.SetColor(BGColor)\\nmrk1.SetColorLock(true)\\nmrk2 = BasicMarker.Make\\nmrk2.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk2.SetFont(Font.Make(\\\"ESRI Geometric Symbols\\\",\\\"Normal\\\"))\\nmrk2.SetCharacter(33)\\nmrk2.SetColor(OLColor)\\nmrk2.SetColorLock(true)\\n\\n\\n\\nHinfo = {p,\\\"HTool3\\\",{paramv1,paramv2,paramv3,paramv4,paramv5,paramv6},\\n {paramt1,paramt2,paramt3,paramt4 ,paramt5,paramt6},\\n {mrk1,mrk2}}\\n \\nx = av.Run(\\\"View.Highway Tool Label Placer\\\",\n Hinfo)\\n\"\n)\n\n(Script.150\n Name: \"View.Highway4 Apply\"\n SourceCode: \"'** This script sends positioning and construction parameters\\n'** a master script that will build the symbol and place it\\n'** in the view.\\n\\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) Font 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\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"Callout\nIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"HTool4\\\")\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(2))\\nCSize = thePrefs.Get(3)\\nOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nBGColor = av.Run(\\\"View.Return Color\\\",thePr efs.Get(5))\\nNumsOnly = thePrefs.Get(6)\\nUseDef = thePrefs.Get(7)\\n\\n\\n\\nv = av.GetActiveDoc\\np = v.GetDisplay.ReturnUserPoint\\n\\n\\n'** Vertical Adjustment constants for placement of progressively\\n'** larger Hwy Nu\nmber strings. This will be different for each\\n'** Highway Shield symbol\\n\\nparamv1 = 0.0\\nparamv2 = 0.0\\nparamv3 = 0.0\\nparamv4 = 0.0\\nparamv5 = 0.0\\nparamv6 = 0.0\\n\\n'** Text Adjustments represent the percentage label point size\\n'** is of the total point\\n\\nparamt1 = 0.5\\nparamt2 = 0.5\\ nparamt3 = 0.37\\nparamt4 = 0.29\\nparamt5 = 0.22\\nparamt6 = 0.19\\n\\n\\n\\n'** Send the marker symbols that are needed to construct the \\n'** appropriate highway shield\\n\\nmrk1 = BasicMarker.Make\\nmrk1.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk1.SetFont(\nFont.Make(\\\"ESRI Geometric Symbols\\\",\\\"Normal\\\"))\\nmrk1.SetCharacter(37)\\nmrk1.SetColor(BGColor)\\nmrk1.SetColorLock(true)\\nmrk2 = BasicMarker.Make\\nmrk2.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk2.SetFont(Font.Make(\\\"ESRI Geometric Symbols\\\",\\\"Normal\\\"))\\nmrk2.Se tCharacter(103)\\nmrk2.SetColor(OLColor)\\nmrk2.SetColorLock(true)\\n\\n\\n\\nHinfo = {p,\\\"HTool4\\\",{paramv1,paramv2,paramv3,paramv4,paramv5,paramv6},\\n {paramt1,paramt2,paramt3,paramt4,paramt5,paramt6},\\n {mrk1,mrk2}}\\n \\nx = av.Run(\\\"View.Highway To\nol Label Placer\\\", Hinfo)\\n\"\n)\n\n(Script.151\n Name: \"View.Highway5 Apply\"\n SourceCode: \"'** This script sends positioning and construction parameters\\n'** a master script that will build the symbol and place it\\n'** in the view.\\n\\n\\n '(0) Font Family (String)\\n '(1) Font Style (String)\\n '(2) Font 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\\nCPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"Callou\ntIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"HTool5\\\")\\n\\nCFont = thePrefs.Get(0)\\nCStyle = thePrefs.Get(1)\\nCCol or = av.Run(\\\"View.Return Color\\\",thePrefs.Get(2))\\nCSize = thePrefs.Get(3)\\nOLColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(4))\\nBGColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(5))\\nNumsOnly = thePrefs.Get(6)\\nUseDef = thePrefs.Get(7)\\n\\nv = av.GetActiveDoc\\np = v.GetDisplay.ReturnUserPoint\\n\\n'** Vertical Adjustment constants for placement of progressively\\n'** larger Hwy Numb\ner strings. This will be different for each\\n'** Highway Shield symbol\\n\\nparamv1 = 0\\nparamv2 = 0\\np aramv3 = 0\\nparamv4 = 0\\nparamv5 = 0\\nparamv6 = 0\\n\\n\\nif (System.GetOS = #SYSTEM_OS_UNIX) then\\n '** Text Adjustments represent the percentage label point size\\n '** is of the total point\\n paramt1 = 0.55\\n paramt2 = 0.48\\n paramt3 = 0.42\\n paramt4 = 0.35\\n paramt5 = 0.28\\n paramt6 = 0.25\\nelse \\n paramt1 = 0.55\\n paramt2 = 0.55\\n paramt3 = 0.50\\n paramt4 = 0.45\\n paramt5 = 0.35\\n paramt6 = 0.3\\nend\\n\\n'** Send the marke\nr symbols that are needed to construct the \\n'** appropriate highway sh ield\\n\\nmrk1 = BasicMarker.Make\\nmrk1.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk1.SetFont(Font.Make(\\\"ESRI Oil, Gas, & Water\\\",\\\"Normal\\\"))\\nmrk1.SetCharacter(244)\\nmrk1.SetColor(BGColor)\\nmrk1.SetColorLock(true)\\nmrk2 = BasicMarker.Make\\nmrk2.SetStyle(#BASICMARKER_STYLE_PATTERN)\\nmrk2.SetFont(Font.Make(\\\"ESRI Oil, Gas, & Water\\\",\\\"Normal\\\"))\\nmrk2.SetCharacter(243)\\nmrk2.SetColor(OLColor)\\nmrk2.SetColorLock(true)\\n\\nHinfo = {p,\\\"HTool5\\\",{paramv1,paramv2,paramv3,\nparamv4,paramv5,paramv6},\\n {par amt1,paramt2,paramt3,paramt4,paramt5,paramt6},\\n {mrk1,mrk2}}\\n \\nx = av.Run(\\\"View.Highway Tool Label Placer\\\", Hinfo)\"\n)\n\n(Script.152\n Name: \"View.LabelTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ltool1\\\")\\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\\ntheView = av.GetActiveDoc\\n\\ntheView.Label(theView.GetDisplay.ReturnUserPoint)\\n\\nif (not UseDef) then\\n ' added by Tim Loesch to Facilitate Text Scale Referencing\\n '\\n refsca letxl = 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 the\nNewLabel = theView.GetGraphics.GetSelected.Get(0).GetSymbol\\n theNewLabel.SetFont(Font.Make(CFont,CStyle))\\n theNewLabel.SetSize(CSize)\\n theNewLabel.SetColor(CColor)\\n theView.GetGraphics.GetSelected.Get(0).SetDisplay(theView.GetDisplay)\\nend\\n\\nif (theView.GetGr aphics.GetSelected.Count > 0) then\\n theView.GetGraphics.GetSelected.Get(0).invalidate\\nend\"\n)\n\n(Script.153\n Name: \"View.Return Color\"\n SourceCode: \"nc = Color.make\\n\\nif (Self = \\\"Black\\\") then\\n nc.SetRGBList({0,0,0})\\nelseif (Self = \\\"White\\\") then\\n nc.SetRGBList({255,255,255})\\nelseif (Self = \\\"Dark Gray\\\") then\\n nc.SetRGBList({130,130,130})\\nelseif (Self = \\\"Medium Gray\\\") then\\n nc.SetRGBList({165,165,165})\\nelseif (Self = \\\"Light Gray\\\") then\\n nc.SetRGBList({210,210,210})\\nelseif (Self = \\\"D ark Red\\\") then\\n nc.SetRGBList({150,0,0})\\nelseif (Self = \\\"Medium Red\\\") then\\n nc.SetRGBList({255,0,0})\\nelseif (Self = \\\"Light Red\\\") then\\n nc.SetRGBList({255,180,180})\\nelseif\n (Self = \\\"Dark Orange\\\") then\\n nc.SetRGBList({180,140,0})\\nelseif (Self = \\\"Medium Orange\\\") then\\n nc.SetRGBList({255,210,0})\\nelseif (Self = \\\"Light Orange\\\") then\\n nc.SetRGBList({255,210,180})\\nelseif (Self = \\\"Dark Yellow\\\") then\\n nc.SetRGBList({200,200,130})\\nelseif (Self = \\\"Medium Yellow\\\") then\\n nc.SetRGBLis t({255,255,0})\\nelseif (Self = \\\"Light Yellow\\\") then\\n nc.SetRGBList({255,255,200})\\nelseif (Self = \\\"Dark Green\\\") then\\n nc.SetRGBList({0,150,0})\\nelseif (Self = \\\"Medium Green\\\") then\\n nc.SetRGBList({0,255,0}\n)\\nelseif (Self = \\\"Light Green\\\") then\\n nc.SetRGBList({180,255,180})\\nelseif (Self = \\\"Light Cyan\\\") then\\n nc.SetRGBList({150,255,255})\\nelseif (Self = \\\"Medium Cyan\\\") then\\n nc.SetRGBList({150,150,255})\\nelseif (Self = \\\"Dark Cyan\\\") then\\n nc.SetRGBList({0,150,150})\\nelseif (Self = \\\" Dark Blue\\\") then\\n nc.SetRGBList({0,0,150}) \\nelseif (Self = \\\"Medium Blue\\\") then\\n nc.SetRGBList({0,0,255})\\nelseif (Self = \\\"Light Blue\\\") then\\n nc.SetRGBList({150,150,255})\\nelseif (Self = \\\"Dark Purple\\\") then\\n nc.SetRGBList({150,0,150}\n) \\nelseif (Self = \\\"Medium Purple\\\") then\\n nc.SetRGBList({255,0,255})\\nelseif (Self = \\\"Light Purple\\\") then\\n nc.SetRGBList({255,180,255})\\nelseif (Self = \\\"Transparent\\\") then\\n nc.SetTransparent(true) \\nend\\n\\nReturn nc\"\n)\n\n(Script.154\n Name: \"View.Ret urnLabelString\"\n SourceCode: \"'View.ReturnLabelString\\n\\naTheme = Self.Get(0)\\nrecNums = Self.Get(1)\\naStyle = Self.Get(2) ' 1 = 1 line string, 2 = multi-line string\\n\\nlabStr = \\\"\\\"\\n\\nfor each h in recNums \\n lf = aTheme.GetLabelField \\n if ((aTheme.Is(FTheme)) or (aTheme.getClass.GetClassName =\\\"TTheme\\\")) then\\n FStr = aTheme.GetFTab.ReturnValueString(lf,h)\\n elseif (aTheme.GetClass.GetClassName = \\\"DBTheme\\\") then\\n q = aTheme.GetQueryDef.Clone\\n h.SetFormat(\\\"d\\\")\\n q.SetWhereClaus e(\\\"\\\")\\n q.SetWhereClause(aTheme.GetSColumn.GetSColu\nmnName+\\\" = \\\"+ h.AsString)\\n r = q.OpenRecordSet\\n if (r = nil) then\\n return nil\\n end\\n FoundIt = r.Next\\n if (Not FoundIt) then \\n return nil 'The recordSet contained no records\\n else\\n FoundIt = true\\n lstFields = r.GetFields\\n fIdx = 0\\n FldIdx = 0\\n While (FoundIt)\\n bolFlag = True\\n theRowofValues = r.GetRow\\n for each FldIdx in 1..(lstFields.Count - 1)\\n fld = lstFields.Get(FldIdx)\\n if (fld.GetAlias <> lf.GetAlias) then\\n \n continue\\n end\\n FStr = theRowofValues.Get(fldIdx)\\n if (FStr.Is(Number)) then\\n FStr = (FStr.SetFormat(\\\"d\\\")).AsString\\n end\\n end\\n FldIdx = FldIdx + 1\\n FoundIt = R.Next\\n end\\n r.Close \\n end \\n end \\n if (FStr <> \\\"\\\") then\\n if (aStyle = 1) then\\n return FStr \\n elseif (aStyle = 2) then \\n if (LabStr = \\\"\\\") then\\n LabStr = FStr\\n else\\n LabStr = LabStr + nl + FStr\\n end\\n end\\n end\\nend \\nreturn\n labStr \\n\\n\"\n)\n\n(Script.155\n Name: \"View.ShadowBoxLabelTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ltool4\\\")\\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.Ge tStyle\\nend\\n\\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\n.Get(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)\\nCDS = thePrefs.Get(8)\\nDSColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(9))\\n UseDef = 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 t\no 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\\nend\\n\\n\\n\\ncbox=NIL\\ntheDoc = av.GetActiveDoc\\nif(theDoc.GetGraphics.EditText) then\\n return nil\\nend\\npt = theDoc.GetDisplay.ReturnUserPoint\\nt = GraphicText.Make(\\\"\\\", pt)\\nt.SetDisplay(theDoc.GetDisplay)\\ntheDoc.GetDisplay.HookUpSymbol(t.G\netSymbol)\\ntheDoc.GetGraphics.UnselectAll\\nt.SetSelected(TRUE)\\n\\n\\nblurbstring = \\\"\\\"\\nfor each athm in theDoc.GetActiveThemes\\n thelabelfield=athm.getlabelfield\\n if(athm.CanSelect) then\\n ListofFound = athm.FindByPoint(pt)\\n el se\\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 + av.Run(\\\"View.ReturnLabelString\\\",{athm,ListofFound,2})\\n end\\nend\\nif (blur\nbString = \\\"\\\") then\\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\\\")\\n\\nif (t.ge ttext.count<1) then return nil end\\ntheDoc.GetGraphics.Add(t)\\n\\nfgcolor = CBGColor\\nNumLines = t.GetText.AsTokens(nl).Count\\nboxgsfill = RasterFill.Make\\nboxgsfill.SetStyle(#RASTERFILL_STYLE_SOLID)\\nboxgsfill.SetColor(fgcolor)\\nif (UseOutline) then\\n boxgsfill.SetOutlined(true)\\n boxgsfill.SetOLWidth(COLWidth)\\n boxgsfill.SetO\nLColor(COLColor)\\nelse\\n boxgsfill.SetOutlined(false)\\nend\\nBgRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetWidth * 0.1)\\nCurrentHeight = t.GetBounds.GetHeight\\nExpandDist = ( CurrentHeight/NumLines)/5\\nBgO = BgRect.ReturnOrigin\\nBgRect.SetOrigin(BgO - (0@ExpandDist) )\\nboxgs = GraphicShape.Make(BgRect)\\nboxgs.SetName(\\\"Callout\\\")\\nboxgs.SetSymbol(boxgsfill)\\nboxgs.SetDisplay(theDoc.GetDisplay)\\nif (CDS) then\\n sbox = BgRect.Clone\\n sbox.Move(ExpandDist,-ExpandDist)\\n shbox = GraphicShape.Make(sbox)\\n shbox.SetName(\\\"Ca\nllout\\\")\\n shboxfill = RasterFill.Make\\n shboxfill.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\\n shboxfill.SetOutlined(false)\\n transc = Color.Make\\n trans c.SetTransparent(true)\\n shboxfill.SetColor(transc)\\n shboxfill.SetBGColor(DSColor)\\n shbox.SetSymbol(shboxfill)\\n shbox.SetDisplay(theDoc.GetDisplay)\\nend\\nif(CDS) then\\n theDoc.GetGraphics.Add(shbox)\\n shbox.SetSelected(FALSE)\\nend\\nthedoc.GetGraphics.Add(boxgs)\\nboxgs.SetSelected(FALSE)\\nt.SetSelected(TRUE)\\ntheDoc.GetGraphics.MoveSelectedToFront\\nif(CDS) then\\n \nshbox.SetSelected(TRUE)\\nend \\nboxgs.SetSelected(TRUE)\\ntheDoc.GetGraphics.GroupSelected\\ntheDoc.GetGraphics.GetSelected.Get(0).SetNa me(\\\"Callout\\\")\\nif(theDoc.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).SetUniformScaling(true)\\n\\ntheDoc.getgraphics.unselectall\\n\\n\\n\"\n)\n\n(Script.156\n Name: \"View.ShadowBoxTextTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ttool4\\\")\\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)\\n\\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\n.Get(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)\\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 t\no Facilitate Text Scale Referencing\\n '\\n else\\n refscaletxl = CPC.FindByName(\\\"Reference Sca le 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\\nif(theDoc.GetGraphics.EditText) then\\n return nil\\nend\\npt = theDoc.GetDisplay.ReturnUserPoint\\nt = GraphicText.Make(\\\"\\\", pt)\\nt.SetDisplay(theDoc.GetDisplay)\\ntheDoc.GetDisplay.HookUpSymbol(t.Get\nSymbol)\\ntheDoc.GetGraphics.UnselectAll\\nt.SetSelected(TRUE)\\n\\nif (t. EditText) then\\n if (t.gettext.count<1) then return nil end\\n t.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\n t.GetSymbol.SetSize(CSize)\\n t.GetSymbol.SetColor(CColor)\\n t.SetName(\\\"Callout\\\")\\n\\n NumLines = t.GetText.AsTokens(nl).Count\\n theDoc.GetGraphics.Add(t)\\n \\n fgcolor = CBGColor\\n NumLines = t.GetText.AsTokens(nl).Count\\n boxgsfill = RasterFill.Make\\n boxgsfill.SetStyle(#RASTERFILL_STYLE_SOLID)\\n boxgsfill.SetColor(fgcolor)\\n if (UseOu\ntline) then\\n boxgsfill.SetOutlined(true)\\n boxgsfill.SetOLWidth(COLWidth)\\n boxgsfill.SetOLColor(COLColor)\\n else\\n boxgsfill.SetOutlined(false)\\n end\\n BgRect = t.GetBounds.Clone.ExpandBy(t.GetBounds.GetWidth * 0.1)\\n CurrentHeight = t.GetBounds.GetHeight\\n ExpandDist = (CurrentHeight/NumLines)/5\\n BgO = BgRect.ReturnOrigin\\n BgRect.SetOrigin(BgO - (0@ExpandDist) )\\n boxgs = GraphicShape.Make(BgRect)\\n boxgs.SetName(\\\"Callout\\\")\\n boxgs.SetSymbol(boxgsfill)\\n boxgs.SetDisplay(theDoc.GetDisplay)\\n if\n (CDS) then\\n sbox = BgRec t.Clone\\n sbox.Move(ExpandDist,-ExpandDist)\\n shbox = GraphicShape.Make(sbox)\\n shbox.SetName(\\\"Callout\\\")\\n shboxfill = RasterFill.Make\\n shboxfill.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\\n shboxfill.SetOutlined(false)\\n transc = Color.Make\\n transc.SetTransparent(true)\\n shboxfill.SetColor(transc)\\n shboxfill.SetBGColor(DSColor)\\n shbox.SetSymbol(shboxfill)\\n shbox.SetDisplay(theDoc.GetDisplay)\\n end\\n if(CDS) then\\n theDoc.GetGraphics.Add(shbox)\\n s\nhbox.SetS elected(FALSE)\\n end\\n thedoc.GetGraphics.Add(boxgs)\\n boxgs.SetSelected(FALSE)\\n t.SetSelected(TRUE)\\n theDoc.GetGraphics.MoveSelectedToFront\\n if(CDS) then\\n shbox.SetSelected(TRUE)\\n end \\n boxgs.SetSelected(TRUE)\\n theDoc.GetGraphics.GroupSelected\\n theDoc.GetGraphics.GetSelected.Get(0).SetName(\\\"Callout\\\")\\nelse\\n return nil\\nend\\nif (theDoc.Is(View)) then\\n if (theDoc.GetActiveThemes.Count > 0) then\\n theDoc.GetActiveThemes.Get(0).GetGraphics.Add(theDoc.getGraphics.GetSelected.Get (0))\\n end\n\\nend\\n\\ntheDoc.GetGraphics.GetSelected.Get(0).SetUniformScaling(true)\\ntheDoc.getgraphics.unselectall\\n\\n\\n\"\n)\n\n(Script.157\n Name: \"View.SixCharUpdate\"\n SourceCode: \"TheText = Self.GetText\\nif (TheText.Count > 6) then\\n newText = theText.Left(6)\\n Self.SetText(newText)\\nend\\n\"\n)\n\n(Script.158\n Name: \"View.TextTool\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"Ttool1\\\")\\n\\n '(0) Font Famil y (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\\ntheView = av.GetActiveDoc\\nif ( theView.GetGraphics.EditText.Not) then\\n pt = theView.GetDisplay.ReturnUserPoint\\n t = GraphicText.Make(\\\"\\\", pt)\\n t.SetDisplay(theView.GetDisplay)\\n theView.GetDisplay.HookupSymbol(t.GetSymbol)\\n theView.GetGraphics.UnselectAll\\n t.SetSelected(TRUE)\\n if (t.EditText) then\\n theView.GetGraphics.Add(t)\\n end\\n if (not UseDef) then\\n ' added by Tim Loesch to Facilitate Text\n Scale Referencing\\n '\\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 t.GetSymbol.SetFont(Font.make(Cfont,CStyle))\\n t.GetSymbol.SetSize(CSize)\\n t.GetSymbol.SetColor(CColor)\\n end\\n av.GetProject.SetModified(true)\\nend\"\n)\n\n(Script.159\n Name: \"View.SplineText\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\nIconList = CPC.FindByName(\\\"CalloutIcons\\\")\\nthePrefs = IconList.GetObjectTag.Get(\\\"TTool6\\\")\\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.ReturnCurrentSymbol(#SYMBOL_TEXT).Clone.GetColor\\nelse \\n CColor = av.Run(\\\"View.Return Color\\\",thePrefs.Get(3))\\nend\\n\\ntheDoc = av.GetActiveDoc\\nif (theDoc.Is(View) )then\\n theTheme = theDoc.Ge\ntEditableTheme\\n if (theTheme <> nil) then return nil end\\nend\\nif (theDoc.GetGraphics.EditText.Not) then\\n\\n l = theDoc.Return UserPolyLine\\n if (l.IsNull) then return nil end\\n st = SplineText.Make(\\\"\\\",l)\\n st.EditText\\n if (st.GetText <> \\\"\\\") then\\n theDoc.GetGraphics.UnselectAll\\n st.SetSelected(TRUE)\\n theDoc.GetGraphics.Add(st)\\n end\\n \\n av.GetProject.SetModified(true)\\n if (not UseDef) then\\n ' added by Tim Loesch to Facilitate Text Scale Referencing\\n '\\n refscaletxl = CPC.FindByName(\\\"Referen\nce 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 st.GetSymbol.SetFont(Font.Make(CFont,CStyle))\\n st.GetSymbol.SetSize(CSize)\\n st.GetSymbol.SetColor(CColor)\\n st.SetDisplay(theDoc.GetDisplay)\\n ' end of Tim's Stuff\\n end\\nend \\n\"\n)\n\n(Script.160\n Name: \"AVX.LOAD\"\n SourceCode: \"CPC = av.FindDialog(\\\"Graphic.Label Defaults\\\")\\n\\nCFont = CPC.FindByName(\\\"FontName\\\")\\nCSize = CPC.FindByName(\\\"CSize\\\")\\nCStyle = CPC.FindByName(\\\"CStyle\\\")\\nCColor = CPC.Find ByName(\\\"FontColor\\\")\\nCBGColor = CPC.FindByName(\\\"BGColor\\\")\\nCOLColor = CPC.FindByName(\\\"OLColor\\\")\\nCDSColor = CPC.FindByName(\\\"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\\\")\\nHw yFill = CPC.FindByName(\\\"HwyFill\\\")\\nTSample = CPC.FindByName(\\\"TSample\\\")\\nReset = CPC.FindByName(\\\"Cancel\\\")\\nUseSymWinDefs = CPC.FindByName(\\\"UseSymWinDefs\\\")\\n\\n\\nReset.SetObjectTag(nil)\\nIconList.SetObjectTag(nil)\\n\\n\\nUseOutline.SetSelected(false)\\nCDS.SetSelected(false)\\n\\nIconList.SetObjectTag(Dictionary.Make(20))\\nthePrefs = IconList.GetObjectTag\\nkeyNames = {\\\"TTool1\\\",\\\"TTool2\\\",\\\"TTool3\\\",\\\"TTool4\\\",\\\"TT\nool5\\\",\\\"TTool6\\\",\\\"LTool1\\\",\\\"LTool2\\\",\\\"LTool3\\\",\\\"LTool4\\\",\\n \\\"HTool1\\\",\\\"HTo ol2\\\",\\\"HTool3\\\",\\\"HTool4\\\",\\\"HTool5\\\"}\\n \\ntheFonts = FontManager.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\\\",\\\"Me\ndium Cyan\\\",\\n \\\"Light Cyan\\\",\\\"Dark Blue\\\",\\\"Medium Blue\\\",\\\"Light Blue\\\",\\\"Dark Purple\\\",\\\"Medium Purple\\\",\\\"Light Purple\\\"}\\ntheOLSyms = theFGSyms.DeepClone\\ntheBGSyms = (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 D\nefault values if this is the first time the dialog has been opened **\\nfor each k in keyNames\\n if (thePrefs.Get(k) = nil) then\\n \\n '** This bit sets us up with 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.Re turn Color\\\",c)) ) then\\n dcn = c\\n \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 (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 (B\noolean)\\n if ((k = \\\"TTool3\\\") or (k = \\\"LTool3\\\") or (k = \\\"TTool1\\\") or (k = \\\"TTool6\\\") or (k = \\\"LTool1\\\")) then\\n thePrefs.Add(k,{df.Clone,ds.Clone,dz.Clone,dcn.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,\\\"Bl\nack\\\",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) Font 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\n(0).Clone,tcol.Clone,18,tcol,\\\"White\\\",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 dialog opened.\\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\"\n)\n\n(Script.161\n Name: \"AVX.CANUNLOAD\"\n SourceCode: \"return (System.CanUnloadLibrary(self.GetDependencies.Get(0)))\"\n)\n\n(Script.162\n Name: \"AVX.UNLOAD\"\n SourceCode: \"Dialog.DetachFromExtension(self)\"\n)\n\n" FontSize: 1 ) (DocWin.23 Owner: 22 X: 271 Y: 74 W: 363 H: 245 ) (CSMgr.24 ) (DocAct.25 Doc: 22 ) (SEd.26 Name: "Install.Update" CreationDate: "Monday, April 19, 1999 07:09:50" GUIName: "Script" Win: 27 CSMgr: 28 DocExts: 29 Source: "'Update Install Project\n\n'get the latest version of the default project\n'\ndefproj = av.FindDoc(\"Default Project\")\ndefproj.SelectAll\ndefproj.ClearSelected\nf = TextFile.Make(\"d:\\projects\\avproj\\defproj31\\default.apr\".asfilename, #FILE_PERM_READ)\nDefProj.SetCodepage(f.GetCodepage)\nDefProj.Insert(f.Read(f.GetSize))\nf.Close\n\n'get the latest version of the startup script\n'\nthesed = av.FindDoc(\"Startup Script\")\nthesed.SelectAll\nthesed.ClearSelected\nf = TextFile.Make(\"d:\\projects\\avproj\\defproj31\\startup.ave\".asfil ename, #FILE_PERM_READ)\nif (f = nil) then\n msgbox.info(\"Unable to find d:\\projects\\avproj\\defproj31\\startup.ave\",Script.The.GetName)\n return nil\nend\nthesed.SetCodepage(f.GetCodepage)\nthesed.Insert(f.Read(f.GetSize))\nf.Close\n\n'get the latest version of the AvStart Extension\n'\nthesed = av.FindDoc(\"AVStart Extension\")\nthesed.SelectAll\nthesed.ClearSelected\nf = TextFile.Make(\"c:\\esri1\\av_gis30\\arcview\\tools\\avstart.___\".asfilename, #FILE_PERM_READ)\nif (f = nil) then\n msgbox.info(\"Unable to find c:\\esri1\\av_gi s30\\arcview\\tools\\avstart.___\",Script.The.GetName)\n return nil\nend\nthesed.SetCodepage(f.GetCodepage)\nthesed.Insert(f.Read(f.GetSize))\nf.Close\n\n'get the latest version of the Graphic Label Extension\n'\nthesed = av.FindDoc(\"Graphic Label Extension\")\nthesed.SelectAll\nthesed.ClearSelected\nf = TextFile.Make(\"c:\\esri1\\av_gis30\\arcview\\tools\\labtools.avx\".asfilename, #FILE_PERM_READ)\nif (f = nil) then\n msgbox.info(\"Unable to find c:\\esri1\\av_gis30\\arcview\\tools\\labtools.avx\",Script.The.GetName)\n return nil\nend\nt hesed.SetCodepage(f.GetCodepage)\nthesed.Insert(f.Read(f.GetSize))\nf.Close\n\n'get the latest version of the default project log\n'\nthesed = av.FindDoc(\"DNR Default Project for ArcView 3.1 Log File\")\nthesed.SelectAll\nthesed.ClearSelected\nf = TextFile.Make(\"d:\\projects\\avproj\\defproj31\\avdef31.log\".asfilename, #FILE_PERM_READ)\nif (f = nil) then\n msgbox.info(\"Unable to find d:\\projects\\avproj\\defproj31\\avdef31.log\",Script.The.GetName)\n return nil\nend\nthesed.SetCodepage(f.GetCodepage)\nthesed.Insert(f.Read(f.GetS ize))\nf.Close\n" FontSize: 1 ) (DocWin.27 Owner: 26 X: -4 Y: -4 W: 512 H: 369 ) (CSMgr.28 ) (DocAct.29 Doc: 26 ) (SEd.30 Name: "Startup Script" CreationDate: "Thursday, December 17, 1998 09:06:29" GUIName: "Script" Win: 31 CSMgr: 32 DocExts: 33 Source: "' ArcView's startup file, which runs before default.apr is read.\n' Check for a valid project workspace -- the directory must be writable.\nhaveHOMEPath = false\nfor each var in {\"HOME\", \"TEMP\", \"CWD\", \"AVHOME\"}\n path = System.GetEnvVar(var)\n if (path <> NIL) then\n if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then\n System.SetEnvVar(\"HOME\", path)\n haveHOMEPath = true\n break\n end\n end\nend\n\nif (Not haveHOMEPath) then\n MsgBox.Warning(\"Cannot find a writable proje ct directory. Please set environment variable HOME to a writable directory.\", \"\")\nend\n\n' Check for a valid TEMP under Windows -- let user know if it is not set.\n' Required for themes based on TXT type annotation and for editing.\nif (system.GetOS = #SYSTEM_OS_MSW) then\n haveTEMPPath = false\n for each var in {\"TEMP\", \"HOME\", \"CWD\", \"AVHOME\"}\n path = System.GetEnvVar(var)\n if (path <> NIL) then\n if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then\n System.SetEnvVar(\"T EMP\", path)\n haveTEMPPath = true\n break\n end\n end\n end\n if (Not haveTEMPPath) then\n MsgBox.Warning(\"Cannot find TEMP directory. Please set environment variable TEMP to a writable directory.\", \"\")\n end\nend\n\n' Check for a valid TMPDIR under UNIX.\nif (system.GetOS = #SYSTEM_OS_UNIX) then\n home = System.GetEnvVar(\"HOME\")\n if (Not (File.IsWritable(home.AsFileName))) then\n path = System.GetEnvVar(\"TMPDIR\")\n if (path <> NIL) then\n if (Not (File.Exists(path.AsFileName) and F ile.IsWritable(path.AsFileName))) then\n MsgBox.Warning(\"TMPDIR directory \" + path.AsString + \" is not writable . \" +\n \"Please set environment variable TMPDIR to a writable directory.\", \"\")\n end\n else\n System.SetEnvVar(\"TMPDIR\",\"/tmp\")\n end\n end\nend\n\nMsgBox.Banner(\"$AVHOME/etc/banner\".AsFileName, 1, \"\")\nav.SetName(\"ArcView GIS Version 3.1\")\n\navExt = FN.Make(\"$AVHOME\")\navExt.MergePath(\"ext\")\nSystem.SetEnvVar(\"AVEXT\", avExt.GetFullName)\n\navBin = FN.Make(\"$AVHOME\")\navBin.MergeP ath(\"bin\")\nSystem.SetEnvVar(\"AVBIN\", avBin.GetFullName)\n\n'The next set of code 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'set up some default variables the user can control\n'\ndefaultvals = { \"100000\", \"24\", \"OFF\", \"300\", \"ON\", \"METERS\", \"Feet\"}\ndefaultvars = {\"TXTSCALE\",\"TX TPNTS\",\"AUTOSAVE\",\"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\"}\n\n' define the three places where we look for the initialization file that\n' sets up the user environment variables.\n'\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' $HOME/avdef.ini is the second place we look, this is usually somewhere on the user's\n' machine and in a lot of cases the same as the $TEMP directory\n'\n' $TEMP/avdef.ini is the last resort location.\n\ninifile = nil\nhaveINIFile = false\nfor each var in {\"$AVHOME/etc/avdef.ini\".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\n' if the INI file is not found then we have to create it and add some\n' default values\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) then\n if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then\n inifile = (path+\"/avdef.ini\").asfilename\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)+\"=\"+defaultvarsdesc.get(i - 1)) \n end\n f1.close\n break\n end\n end\n end\nend\n\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 >1) then\n system.setenvvar (strlist.get(0),strlist.get(1))\n end\n end\nend\nf1.close\n'\n' The USEREXT variable is used by the extension manager dialog. \n' That dialog looks for additional extensions in the directory specified by \n' it. You can change it's value if you want to keep additional extensions in \n' some other location.\n'\nif (System.GetEnvVar(\"USEREXT\") = NIL) then\n System.SetEnvVar(\"USEREXT\", System.GetEnvVar(\"HOME\"))\nend\n\n'\n' The default font size used by ArcView's script editor is approximately\n' 14 pt (courier). That fo nt size is identified by the enumeration element\n' #SED_FONTSIZE_MEDIUM. You can use the elements #SED_FONTSIZE_SMALL\n' or #SED_FONTSIZE_LARGE to make the default font size smaller (12 pt)\n' or larger (14 pt).\nSEd.SetDefaultFontSize(#SED_FONTSIZE_SMALL)\n\nif (system.GetOS = #SYSTEM_OS_MSW) then\n Script.Make(\"DDEServer.Start\").DoIt(NIL)\n\n if (system.GetOSVariant = #SYSTEM_OSVARIANT_MSW16) then\n\n System.SetEnvVar(\"AVBIN\", System.GetEnvVar(\"AVHOME\")+\"\\bin16\")\n System.SetEnvVar(\"AVEXT\", System.GetEnvVar( \"AVHOME\")+\"\\ext16\")\n\n if (FN.FindInSystemSearchPath(\"winsock.dll\") <> nil) then\n System.LoadLibrary(\"$AVBIN/avrpc.dll\".AsFileName)\n end\n System.LoadLibrary(\"$AVBIN/avexec.dll\".AsFileName)\n\n else 'for WinNT and Win95\n\n System.SetEnvVar(\"AVBIN\", System.GetEnvVar(\"AVHOME\")+\"\\bin32\")\n System.SetEnvVar(\"AVEXT\", System.GetEnvVar(\"AVHOME\")+\"\\ext32\")\n\n if (FN.FindInSystemSearchPath(\"wsock32.dll\") <> nil) then \n System.LoadLibrary(\"$AVBIN/avrpc.dll\".AsFileName)\n end\n end 'MSW16 case\nend 'MSW case\n\n'\n' Load the Shapes.dll\nif (system.GetOS = #SYSTEM_OS_MSW) then\n System.LoadLibrary(\"$AVBIN/shapes.dll\".AsFileName)\nend 'MSW case\nif (system.GetOS = #SYSTEM_OS_UNIX) then\n if (File.Exists(\"$AVHOME/lib/libshapes.so\".AsFileName)) then\n System.LoadLibrary(\"$AVHOME/lib/libshapes.so\".AsFileName)\n else\n if (File.Exists(\"$AVHOME/lib/libshapes.sl\".AsFileName)) then\n System.LoadLibrary(\"$AVHOME/lib/libshapes.sl\".AsFileName)\n else\n if (File.Exists(\"$AVHOME/lib/libshapes.a\".A sFileName)) then\n System.LoadLibrary(\"$AVHOME/lib/libshapes.a\".AsFileName)\n end\n end\n end\nend\n\n'\n' Load the dnsgm.dll\nif (File.Exists(\"$AVBIN/dnsgm.dll\".AsFileName)) then\n System.LoadLibrary(\"$AVBIN/dnsgm.dll\".AsFileName)\nend\n\n'\n' Load the avimgexp.dll\nif (File.Exists(\"$AVBIN/avimgexp.dll\".AsFileName)) then\n System.LoadLibrary(\"$AVBIN/avimgexp.dll\".AsFileName)\nend\n\n'\n' Load the avdlog.dll\nif (File.Exists(\"$AVBIN/avdlog.dll\".AsFileName)) then\n System.LoadLibrary(\"$AVBIN/avdlog.dll\".AsFileN ame)\nend\n" FontSize: 1 ) (DocWin.31 Owner: 30 X: 38 Y: 20 W: 745 H: 416 ) (CSMgr.32 ) (DocAct.33 Doc: 30 ) (LButn.34 HelpTopic: "New_button" Update: "Doc.NewUpdate" Label: "&New" Click: "View.New" ) (LButn.35 Disabled: 1 HelpTopic: "Open_button" Update: "Doc.OpenUpdate" Label: "&Open" Click: "Doc.Open" ) (LButn.36 Disabled: 1 HelpTopic: "Print_button" Update: "Doc.ActionUpdate" Label: "P&rint" Click: "Doc.Action" ) (FN.37 Path: "$AVEXT/dlogcore.___" ) (NameDict.38 ) (NameDict.39 Obj: 40 Obj: 41 Obj: 46 Obj: 49 ) (AVDict.40 InternalName: "Table of Contents Defaults Dialog" ) (AVDict.41 InternalName: "Legend Tool" Key: 42 Key: 43 Value: 44 Value: 45 ) (AVStr.42 S: "Loaded" ) (AVStr.43 S: "Version" ) (Bool.44 Truth: 1 ) (Numb.45 N: 3.10000000000000 ) (AVDict.46 InternalName: "_Thor_" Key: 47 Value: 48 ) (AVStr.47 S: "DLOGS" ) (NameDict.48 ) (AVDict.49 InternalName: "Geoprocessing" Key: 50 Key: 51 Value: 44 Value: 52 ) (AVStr.50 S: "Loaded" ) (AVStr.51 S: "Version" ) (Numb.52 N: 3.10000000000000 ) (DocGUI.53 Name: "View" Type: "View" Modified: 1 Visible: 1 MenuBar: 54 ButnBar: 165 Popups: 206 ToolBar: 225 NewScript: "View.New" OpenScript: "Doc.Open" ActionScript: "Doc.Action" NewUpdateScript: "Doc.NewUpdate" OpenUpdateScript: "Doc.OpenUpdate" ActionUpdateScript: "Doc.ActionUpdate" Title: "Views" Icon: 281 ) (MenuBar.54 Child: 55 Child: 67 Child: 87 Child: 111 Child: 133 Child: 150 Child: 160 ) (PMenu.55 InternalName: "File" Child: 56 Child: 57 Child: 58 Child: 59 Child: 60 Child: 61 Child: 62 Child: 63 Child: 64 Child: 65 Child: 66 Label: "&File" ) (Choice.56 Help: "Closes the active component" HelpTopic: "Close" Label: "&Close" Click: "Project.CloseDoc" Shortcut: "Keys.None" ) (Choice.57 Help: "Closes all components" HelpTopic: "Close_All" Label: "Close &All" Click: "Project.CloseAll" Shortcut: "Keys.None" ) (Space.58 ) (Choice.59 Help: "Allows you to specify the current working directory" HelpTopic: "Set_Working_Directory" Label: "Set &Working Directory..." Click: "Project.SetProjectWorkDir" Shortcut: "Keys.None" ) (Choice.60 Help: "Saves the current project" HelpTopic: "Save_Project" Label: "&Save Project" Click: "Project.Save" Shortcut: "Keys.Ctrl+S" ) (Space.61 ) (Choice.62 Help: "Prints the view" HelpTopic: "Print" Label: "&Print..." Click: "View.Print" Shortcut: "Keys.None" ) (Choice.63 Help: "Edits the printer and the printing options" HelpTopic: "Print_Setup" Label: "P&rint Setup..." Click: "Project.PrintSetup" Shortcut: "Keys.None" ) (Choice.64 Disabled: 1 Help: "Exports the view" HelpTopic: "Export" Update: "View.HasThemesUpdate" Label: "&Export..." Click: "View.ExportDisp" Shortcut: "Keys.None" ) (Space.65 ) (Choice.66 Help: "Exits ArcView" HelpTopic: "Exit" Label: "E&xit" Click: "Project.Exit" Shortcut: "Keys.None" ) (PMenu.67 InternalName: "Edit" Child: 68 Child: 69 Child: 70 Child: 71 Child: 72 Child: 73 Child: 74 Child: 75 Child: 76 Child: 77 Child: 78 Child: 79 Child: 80 Child: 81 Child: 82 Child: 83 Child: 84 Child: 85 Child: 86 Label: "&Edit" ) (Choice.68 Disabled: 1 Help: "Cuts the active themes to the clipboard" HelpTopic: "Cut_Themes" Update: "View.ActiveDeletableThemesUpdate" Label: "Cut T&hemes" Click: "View.CutThemes" Shortcut: "Keys.None" ) (Choice.69 Disabled: 1 Help: "Copies the active themes to the clipboard" HelpTopic: "Copy_Themes" Update: "View.ActiveThemesUpdate" Label: "Cop&y Themes" Click: "View.CopyThemes" Shortcut: "Keys.None" ) (Choice.70 Disabled: 1 Help: "Removes the active themes from the view" HelpTopic: "Delete_Themes" Update: "View.ActiveDeletableThemesUpdate" Label: "De&lete Themes" Click: "View.DeleteThemes" Shortcut: "Keys.None" ) (Space.71 ) (Choice.72 Disabled: 1 Help: "Undo the last edit to graphics on a view" HelpTopic: "Undo_Graphic_Edit_on_a_view" Update: "View.UndoEditUpdate" Label: "&Undo Graphic Edit" Click: "View.UndoEdit" Shortcut: "Keys.Ctrl+Z" ) (Choice.73 Disabled: 1 Invisible: 1 Help: "Redo the last edit operation on a theme that was undone" HelpTopic: "Redo_Edit_on_a_view" Update: "View.RedoEditUpdate" Label: "&Redo Feature Edit" Click: "View.RedoEdit" Shortcut: "Keys.Ctrl+Y" ) (Space.74 ) (Choice.75 Disabled: 1 Help: "Cuts the selected graphics to the clipboard" HelpTopic: "Cut_Graphics" Update: "View.CutUpdate" Label: "Cu&t Graphics" Click: "View.CutGraphics" Shortcut: "Keys.Ctrl+X" ) (Choice.76 Disabled: 1 Help: "Copies the selected graphics to the clipboard" HelpTopic: "Copy_Graphics" Update: "View.CopyUpdate" Label: "&Copy Graphics" Click: "View.CopyGraphics" Shortcut: "Keys.Ctrl+C" ) (Choice.77 Disabled: 1 Help: "Removes the selected graphics from the view" HelpTopic: "Delete_Graphics" Update: "View.DeleteUpdate" Label: "&Delete Graphics" Click: "View.DeleteGraphics" Shortcut: "Keys.Del" ) (Space.78 ) (Choice.79 Disabled: 1 Help: "Combines the selected polygons" HelpTopic: "Combine_Graphics" Update: "View.CombineUpdate" Label: "Com&bine Graphics" Click: "View.CombineGraphics" Shortcut: "Keys.None" ) (Choice.80 Disabled: 1 Help: "Unions the selected graphics to create a new graphic" HelpTopic: "Union_Graphics" Update: "View.UnionUpdate" Label: "U&nion Graphics" Click: "View.UnionGraphics" Shortcut: "Keys.None" ) (Choice.81 Disabled: 1 Help: "Subtracts one selected polygon from the other selected polygon" HelpTopic: "Subtract_Graphics" Update: "View.SubtractUpdate" Label: "&Subtract Graphics" Click: "View.SubtractGraphics" Shortcut: "Keys.None" ) (Choice.82 Disabled: 1 Help: "Creates a new polygon from the area of overlap between the selected polygons" HelpTopic: "Intersect_Graphics" Update: "View.IntersectUpdate" Label: "&Intersect Graphics" Click: "View.IntersectGraphics" Shortcut: "Keys.None" ) (Space.83 ) (Choice.84 Disabled: 1 Help: "Inserts the contents of the clipboard" HelpTopic: "Paste" Update: "View.PasteUpdate" Label: "&Paste" Click: "View.Paste" Shortcut: "Keys.Ctrl+V" ) (Space.85 ) (Choice.86 Disabled: 1 Help: "Selects all graphics in the view" HelpTopic: "Select_All_Graphics" Update: "View.HasGraphicsUpdate" Label: "Select &All Graphics" Click: "Graphic.SelectAll" Shortcut: "Keys.None" ) (PMenu.87 InternalName: "View" Child: 88 Child: 89 Child: 90 Child: 91 Child: 92 Child: 93 Child: 94 Child: 95 Child: 96 Child: 97 Child: 98 Child: 99 Child: 100 Child: 101 Child: 102 Child: 103 Child: 104 Child: 105 Child: 106 Child: 107 Child: 108 Child: 109 Child: 110 Label: "&View" ) (Choice.88 Help: "Displays the dialog box to edit properties of the view" HelpTopic: "View_Properties" Label: "&Properties..." Click: "View.Properties" Shortcut: "Keys.None" ) (Choice.89 Help: "Duplicate View Document//Create a new document that is a duplicate of the active View." Label: "&Duplicate" Click: "Document.Duplicate" Shortcut: "Keys.None" ) (Choice.90 Help: "Convert Themes in View//Export the themes in the view to Shapefiles and index them." Label: "Export Themes" Click: "View.ConvertViewThemes" Shortcut: "Keys.None" ) (Space.91 ) (Choice.92 Help: "Inserts themes into the view" HelpTopic: "Add_Theme" Label: "&Add Theme..." Click: "View.Add" Shortcut: "Keys.Ctrl+T" ) (Choice.93 Disabled: 1 Help: "Displays a dialog box to create a geocoded theme" HelpTopic: "Geocode_Addresses" Update: "View.GeocodeUpdate" Label: "&Geocode Addresses..." Click: "View.Geocode" Shortcut: "Keys.None" ) (Choice.94 Disabled: 1 Help: "Displays a dialog box to create an XY or dynamic segmentation event-based theme " HelpTopic: "Add_Event_Theme" Update: "View.AddEventUpdate" Label: "Add &Event Theme..." Click: "View.AddEvent" Shortcut: "Keys.None" ) (Choice.95 Help: "Creates a new theme" HelpTopic: "New_Theme" Label: "&New Theme..." Click: "View.NewTheme" Shortcut: "Keys.None" ) (Choice.96 Disabled: 1 Help: "Makes all themes visible" HelpTopic: "Themes_On_Themes_Off" Update: "View.HasThemesUpdate" Label: "&Themes On" Click: "View.ThemesOn" Shortcut: "Keys.None" ) (Choice.97 Disabled: 1 Help: "Makes all themes invisible" HelpTopic: "Themes_On_Themes_Off" Update: "View.HasThemesUpdate" Label: "T&hemes Off" Click: "View.ThemesOff" Shortcut: "Keys.Esc" ) (Space.98 ) (Choice.99 Disabled: 1 Help: "Create a Layout from the View" HelpTopic: "Layout_menu_choice" Update: "View.HasThemesUpdate" Label: "La&yout..." Click: "View.Layout" Shortcut: "Keys.None" ) (Space.100 ) (Choice.101 Disabled: 1 Help: "Zooms to the extent of all themes" HelpTopic: "Zoom_to_Full_Extent" Update: "View.HasDataUpdate" Label: "Full E&xtent" Click: "View.ZoomFullExtent" Shortcut: "Keys.None" ) (Choice.102 Disabled: 1 Help: "Zooms in on the center of the display" HelpTopic: "Zoom_In" Update: "View.HasDataUpdate" Label: "Zoom &In" Click: "View.ZoomIn" Shortcut: "Keys.None" ) (Choice.103 Disabled: 1 Help: "Zooms out from the center of the display" HelpTopic: "Zoom_Out" Update: "View.HasDataUpdate" Label: "Zoom &Out" Click: "View.ZoomOut" Shortcut: "Keys.None" ) (Choice.104 Disabled: 1 Help: "Zooms to the extent of active themes" HelpTopic: "Zoom_to_Active_Theme" Update: "View.ActiveThemesUpdate" Label: "&Zoom To Themes" Click: "View.ZoomToThemes" Shortcut: "Keys.None" ) (Choice.105 Disabled: 1 Help: "Zooms to the extent of the selected features" HelpTopic: "Zoom_to_Selected" Update: "View.SelectableThemesUpdate" Label: "Zoom To &Selected" Click: "View.ZoomToSelected" Shortcut: "Keys.None" ) (Choice.106 Disabled: 1 Help: "Goes back to the previous extent you were viewing" HelpTopic: "Zoom_Previous" Update: "View.UndoZoomUpdate" Label: "Zoom Pre&vious" Click: "View.UndoZoom" Shortcut: "Keys.None" ) (Space.107 ) (Choice.108 Disabled: 1 Help: "Finds features in the active themes using the text you enter" HelpTopic: "Find" Update: "View.TabularThemesUpdate" Label: "&Find..." Click: "View.Find" Shortcut: "Keys.Ctrl+F" ) (Choice.109 Disabled: 1 Help: "Locates an address in the active, matchable theme" HelpTopic: "Locate_Address" Update: "View.LocateUpdate" Label: "&Locate Address..." Click: "View.Locate" Shortcut: "Keys.None" ) (Choice.110 InternalName: "GeoProc" Disabled: 1 Help: "Opens the GeoProcessing Wizard" HelpTopic: "geoproc_choice" Tag: "GeoProcessing" Update: "GeoProc.Main.Show Update" Label: "GeoProcessing Wizard..." Click: "GeoProc.Show" Shortcut: "Keys.None" ) (PMenu.111 InternalName: "Theme" Child: 112 Child: 113 Child: 114 Child: 115 Child: 116 Child: 117 Child: 118 Child: 119 Child: 120 Child: 121 Child: 122 Child: 123 Child: 124 Child: 125 Child: 126 Child: 127 Child: 128 Child: 129 Child: 130 Child: 131 Child: 132 Label: "&Theme" ) (Choice.112 Disabled: 1 Help: "Displays the dialog box to edit properties of the active theme" HelpTopic: "Theme_Properties" Update: "View.ActiveThemesUpdate" Label: "&Properties..." Click: "View.ThemeProperties" Shortcut: "Keys.None" ) (Space.113 ) (Choice.114 Disabled: 1 Help: "Starts or stops editing of shapefile" HelpTopic: "Start_Stop_Editing_in_a_view" Update: "View.ToggleEditingUpdate" Label: "Start &Editing" Click: "View.ToggleEditing" Shortcut: "Keys.None" ) (Choice.115 Disabled: 1 Help: "Save edits to the source shapefile" HelpTopic: "Save_edits_theme" Update: "View.SaveEditsUpdate" Label: "Save Ed&its" Click: "View.SaveEdits" Shortcut: "Keys.None" ) (Choice.116 Disabled: 1 Help: "Saves edits to a new shapefile" HelpTopic: "Save_edits_as_theme" Update: "View.SaveEditsUpdate" Label: "Save E&dits As..." Click: "View.SaveEditsAs" Shortcut: "Keys.None" ) (Choice.117 Disabled: 1 Help: "Converts a theme to a shapefile" HelpTopic: "Convert_to_Shapefile" Update: "View.ExportUpdate" Label: "Convert to &Shapefile..." Click: "View.Export" Shortcut: "Keys.None" ) (Space.118 ) (Choice.119 Disabled: 1 Help: "Displays the legends of the active themes" HelpTopic: "Edit_Legend" Update: "View.ActiveThemesUpdate" Label: "Edit &Legend..." Click: "View.EditLegendClick" Shortcut: "Keys.None" ) (Choice.120 Disabled: 1 Help: "Shows or hides the active themes' legends" HelpTopic: "Hide_show_Legend" Update: "View.ActiveThemesUpdate" Label: "&Hide/Show Legend" Click: "View.ToggleLegend" Shortcut: "Keys.None" ) (Space.121 ) (Choice.122 Disabled: 1 Help: "Displays the Re-match dialog for re-matching addresses" HelpTopic: "Re_match_Addresses" Update: "View.EditMatchUpdate" Label: "&Re-match Addresses..." Click: "View.EditMatch" Shortcut: "Keys.None" ) (Space.123 ) (Choice.124 Disabled: 1 Help: "Labels features in active, visible themes" HelpTopic: "Auto_label" Update: "View.LabelThemesUpdate" Label: "&Auto-label..." Click: "View.LabelThemes" Shortcut: "Keys.Ctrl+L" ) (Choice.125 Disabled: 1 Help: "Removes any labels from active themes" HelpTopic: "Remove_Labels" Update: "View.RemoveThemeLabelsUpdate" Label: "Rem&ove Labels" Click: "View.RemoveThemeLabels" Shortcut: "Keys.Ctrl+R" ) (Choice.126 Disabled: 1 Help: "Removes the overlapping labels from active themes, if they are still green." HelpTopic: "Remove_Overlapping_Labels" Update: "View.RemoveOverlapThemeLabelsUpdate" Label: "Remove Overlappi&ng Labels" Click: "View.RemoveOverlapThemeLabels" Shortcut: "Keys.None" ) (Choice.127 Disabled: 1 Help: "Converts selected overlapping labels to symbol of selected good label" HelpTopic: "Convert_Overlapping_Labels" Update: "View.ConvertOverlapLabelsUpdate" Label: "&Convert Overlapping Labels" Click: "View.ConvertOverlapLabels" Shortcut: "Keys.Ctrl+O" ) (Space.128 ) (Choice.129 Disabled: 1 Help: "Opens the tables of the active themes" HelpTopic: "Open_Theme_Table" Update: "View.TabularThemesUpdate" Label: "&Table..." Click: "View.ShowTable" Shortcut: "Keys.None" ) (Choice.130 Disabled: 1 Help: "Displays the Query Builder to select features with a logical expression" HelpTopic: "Query_Builder" Update: "View.AttributeThemesUpdate" Label: "&Query..." Click: "View.Query" Shortcut: "Keys.Ctrl+Q" ) (Choice.131 Disabled: 1 Help: "Selects features in the active themes using another theme's features" HelpTopic: "Select_By_Theme" Update: "View.SelectableThemesUpdate" Label: "Select &By Theme..." Click: "View.SelectByTheme" Shortcut: "Keys.None" ) (Choice.132 Disabled: 1 Help: "Unselects the selected features of all active themes" HelpTopic: "Clear_Selected_Features" Update: "View.AttributeThemesUpdate" Label: "Clear Selected &Features" Click: "View.ClearSelect" Shortcut: "Keys.None" ) (PMenu.133 InternalName: "Graphics" Child: 134 Child: 135 Child: 136 Child: 137 Child: 138 Child: 139 Child: 140 Child: 141 Child: 142 Child: 143 Child: 144 Child: 145 Child: 146 Child: 147 Child: 148 Child: 149 Label: "&Graphics" ) (Choice.134 Disabled: 1 Help: "Displays the property editor for the selected graphic" HelpTopic: "Graphic_Properties" Update: "Graphic.HasSelectionUpdate" Label: "&Properties..." Click: "Graphic.Edit" Shortcut: "Keys.None" ) (Space.135 ) (Choice.136 Disabled: 1 Help: "Displays a dialog box to adjust size and position of selected graphic" HelpTopic: "Size_and_Position" Update: "Graphic.SingleSelectionUpdate" Label: "&Size and Position..." Click: "Graphic.SizePos" Shortcut: "Keys.None" ) (Choice.137 Disabled: 1 Help: "Aligns the selected graphics" HelpTopic: "Align" Update: "Graphic.HasSelectionUpdate" Label: "&Align..." Click: "Graphic.Align" Shortcut: "Keys.Ctrl+A" ) (Space.138 ) (Choice.139 Help: "Set Text Scale//Set the text scaling parameters including point size and view scale" Label: "Set Text Scale" Click: "View.SetTextScale" Shortcut: "Keys.None" ) (Choice.140 Help: "Scale Selected Text//Scale the selected text to the scale specified in the Set Text Scale menu" Label: "Scale Selected Text" Click: "View.ScaleSelectedText" Shortcut: "Keys.None" ) (Space.141 ) (Choice.142 Disabled: 1 Help: "Moves selected graphics in front of other graphics" HelpTopic: "Bring_to_Front_on_a_view" Update: "Graphic.HasSelectionUpdate" Label: "Bring to &Front" Click: "Graphic.ToFront" Shortcut: "Keys.None" ) (Choice.143 Disabled: 1 Help: "Moves selected graphics behind other graphics" HelpTopic: "Send_to_Back_on_a_view" Update: "Graphic.HasSelectionUpdate" Label: "Send to &Back " Click: "Graphic.ToBack" Shortcut: "Keys.None" ) (Choice.144 Disabled: 1 Help: "Groups selected graphics" HelpTopic: "Group_on_a_view" Update: "Graphic.GroupUpdate" Label: "&Group" Click: "Graphic.Group" Shortcut: "Keys.Ctrl+G" ) (Choice.145 Disabled: 1 Help: "Ungroups selected graphics" HelpTopic: "Ungroup_on_a_view" Update: "Graphic.UngroupUpdate" Label: "&Ungroup" Click: "Graphic.Ungroup" Shortcut: "Keys.Ctrl+U" ) (Space.146 ) (Choice.147 Disabled: 1 Help: "Associates selected graphics with active themes" HelpTopic: "Attach_Graphics" Update: "View.AddGraphicsUpdate" Label: "A&ttach Graphics" Click: "View.AddGraphics" Shortcut: "Keys.None" ) (Choice.148 Disabled: 1 Help: "Removes association between graphics and active themes" HelpTopic: "Detach_Graphics" Update: "View.ClearGraphicsUpdate" Label: "&Detach Graphics" Click: "View.ClearGraphics" Shortcut: "Keys.None" ) (Space.149 ) (PMenu.150 InternalName: "Window" Child: 151 Child: 152 Child: 153 Child: 154 Child: 155 Child: 156 Child: 158 Child: 159 Label: "&Window" ) (Choice.151 Help: "Arranges windows as non-overlapping tiles" HelpTopic: "Tile" Label: "&Tile" Click: "Project.Tile" Shortcut: "Keys.None" ) (Choice.152 Help: "Arranges windows" HelpTopic: "Cascade" Label: "&Cascade" Click: "Project.Cascade" Shortcut: "Keys.None" ) (Choice.153 Help: "Arranges iconified windows" HelpTopic: "Arrange_Icons" Label: "&Arrange Icons" Click: "Project.ArrangeIcons" Shortcut: "Keys.None" ) (Space.154 ) (Choice.155 Help: "Shows the symbol window" HelpTopic: "Show_Symbol_Window" Label: "Show Symbol Window..." Click: "Project.ShowHideSymWin" Shortcut: "Keys.Ctrl+P" ) (Space.156 ObjectTag: 157 Update: "WindowMenuUpdate" ) (AVStr.157 S: "install.apr View1" ) (Choice.158 Help: "Activates install.apr" Label: "&1 install.apr" Click: "WindowActivate" Shortcut: "Keys.None" ) (Choice.159 Help: "Activates View1" Label: "&2 View1" Click: "WindowActivate" Shortcut: "Keys.None" ) (PMenu.160 InternalName: "Help" Child: 161 Child: 162 Child: 163 Child: 164 Label: "&Help" ) (Choice.161 Help: "Displays the dialog for browsing and searching ArcView's help system" HelpTopic: "Help_on_Help_Topics" Label: "Help &Topics..." Click: "Project.HelpTopics" Shortcut: "Keys.None" ) (Choice.162 Help: "Provides instructions for how to obtain help from ArcView" HelpTopic: "Help_on_How_to_Get_Help" Label: "&How to Get Help..." Click: "Project.HelpHelp" Shortcut: "Keys.None" ) (Space.163 ) (Choice.164 Help: "Provides information about ArcView" HelpTopic: "About" Label: "&About ArcView..." Click: "Project.About" Shortcut: "Keys.None" ) (ButnBar.165 Child: 166 Child: 168 Child: 169 Child: 171 Child: 172 Child: 174 Child: 176 Child: 178 Child: 179 Child: 181 Child: 183 Child: 185 Child: 186 Child: 188 Child: 190 Child: 192 Child: 194 Child: 196 Child: 198 Child: 199 Child: 201 Child: 203 Child: 204 ) (Butn.166 Help: "Save Project//Saves the current project" HelpTopic: "Save_Project" Icon: 167 Click: "Project.Save" ) (AVIcon.167 Name: "Save" Res: "Icons.Save" ) (Space.168 ) (Butn.169 Help: "Add Theme//Inserts themes into the view" HelpTopic: "Add_Theme" Icon: 170 Click: "View.Add" ) (AVIcon.170 Name: "AddTheme" Res: "Icons.AddTheme" ) (Space.171 ) (Butn.172 Disabled: 1 Help: "Theme Properties//Displays the dialog box to edit properties of the active theme" HelpTopic: "Theme_Properties" Update: "View.ActiveThemesUpdate" Icon: 173 Click: "View.ThemeProperties" ) (AVIcon.173 Name: "Props" Res: "Icons.Props" ) (Butn.174 Disabled: 1 Help: "Edit Legend//Displays the legends of the active themes" HelpTopic: "Edit_Legend" Update: "View.ActiveThemesUpdate" Icon: 175 Click: "View.EditLegendClick" ) (AVIcon.175 Name: "Legend" Res: "Icons.Legend" ) (Butn.176 Disabled: 1 Help: "Open Theme Table//Opens the tables of the active themes" HelpTopic: "Open_Theme_Table" Update: "View.TabularThemesUpdate" Icon: 177 Click: "View.ShowTable" ) (AVIcon.177 Name: "Table" Res: "Icons.Table" ) (Space.178 ) (Butn.179 Disabled: 1 Help: "Find//Finds features in the active themes using the text you enter" HelpTopic: "Find" Update: "View.TabularThemesUpdate" Icon: 180 Click: "View.Find" ) (AVIcon.180 Name: "Find" Res: "Icons.Find" ) (Butn.181 Disabled: 1 Help: "Locate Address//Locates an address in the active, matchable theme" HelpTopic: "Locate_Address" Update: "View.LocateUpdate" Icon: 182 Click: "View.Locate" ) (AVIcon.182 Name: "AddMatch" Res: "Icons.AddMatch" ) (Butn.183 Disabled: 1 Help: "Query Builder//Displays the Query Builder to select features with a logical expression" HelpTopic: "Query_Builder" Update: "View.AttributeThemesUpdate" Icon: 184 Click: "View.Query" ) (AVIcon.184 Name: "QueryBuilder" Res: "Icons.QueryBuilder" ) (Space.185 ) (Butn.186 Disabled: 1 Help: "Zoom to Full Extent//Zooms to the extent of all themes" HelpTopic: "Zoom_to_Full_Extent" Update: "View.HasDataUpdate" Icon: 187 Click: "View.ZoomFullExtent" ) (AVIcon.187 Name: "ZoomView" Res: "Icons.ZoomView" ) (Butn.188 Disabled: 1 Help: "Zoom to Active Theme(s)//Zooms to the extent of active themes" HelpTopic: "Zoom_to_Active_Theme" Update: "View.ActiveThemesUpdate" Icon: 189 Click: "View.ZoomToThemes" ) (AVIcon.189 Name: "ZoomTheme" Res: "Icons.ZoomTheme" ) (Butn.190 Disabled: 1 Help: "Zoom to Selected//Zooms to the extent of the selected features" HelpTopic: "Zoom_to_Selected" Update: "View.SelectableThemesUpdate" Icon: 191 Click: "View.ZoomToSelected" ) (AVIcon.191 Name: "ZoomToSelected" Res: "Icons.ZoomToSelected" ) (Butn.192 Disabled: 1 Help: "Zoom In//Zooms in on the center of the display" HelpTopic: "Zoom_In" Update: "View.HasDataUpdate" Icon: 193 Click: "View.ZoomIn" ) (AVIcon.193 Name: "ZoomIn" Res: "Icons.ZoomIn" ) (Butn.194 Disabled: 1 Help: "Zoom Out//Zooms out from the center of the display" HelpTopic: "Zoom_Out" Update: "View.HasDataUpdate" Icon: 195 Click: "View.ZoomOut" ) (AVIcon.195 Name: "ZoomOut" Res: "Icons.ZoomOut" ) (Butn.196 Disabled: 1 Help: "Zoom to Previous Extent//Goes back to the previous extent you were viewing" HelpTopic: "Zoom_Previous" Update: "View.UndoZoomUpdate" Icon: 197 Click: "View.UndoZoom" ) (AVIcon.197 Name: "ZoomPrevious" Res: "Icons.ZoomPrevious" ) (Space.198 ) (Butn.199 Disabled: 1 Help: "Select Features Using Graphic//Selects features in active themes using selected graphics" HelpTopic: "Select_Features_Using_Graphic" Update: "View.SpatialSelectUpdate" Icon: 200 Click: "View.SpatialSelect" ) (AVIcon.200 Name: "SpatialSelect" Res: "Icons.SpatialSelect" ) (Butn.201 Disabled: 1 Help: "Clear Selected Features//Unselects the selected features of all active themes" HelpTopic: "Clear_Selected_Features" Update: "View.AttributeThemesUpdate" Icon: 202 Click: "View.ClearSelect" ) (AVIcon.202 Name: "SelectNone" Res: "Icons.SelectNone" ) (Space.203 ) (Butn.204 Help: "Help//Gets help about the next button, tool, or menu choice you click" HelpTopic: "Help_button" Icon: 205 Click: "Help.Tool" ) (AVIcon.205 Name: "HelpTool" Res: "Icons.HelpTool" ) (PopupSet.206 Child: 207 ) (Popup.207 Child: 208 Child: 209 Child: 210 Child: 211 Child: 212 Child: 213 Child: 214 Child: 215 Child: 216 Child: 217 Child: 218 Child: 219 Child: 220 Child: 221 Child: 222 Child: 223 Child: 224 Label: "Menu" ) (Choice.208 Disabled: 1 Invisible: 1 Help: "Deletes the last entered point on the line or polygon being drawn" Update: "View.DelLastPointUpdate" Label: "Delete Last Point" Click: "View.DeleteLastPoint" Shortcut: "Keys.None" ) (Choice.209 Disabled: 1 Help: "Undo the last edit to graphics on a view" HelpTopic: "Undo_Graphic_Edit_on_a_view" Update: "View.UndoEditUpdate" Label: "Undo Graphic Edit" Click: "View.UndoEdit" Shortcut: "Keys.None" ) (Choice.210 Disabled: 1 Invisible: 1 Help: "Redo the last edit operation on a theme that was undone" Update: "View.RedoEditUpdate" Label: "Redo Feature Edit" Click: "View.RedoEdit" Shortcut: "Keys.None" ) (Space.211 ) (Choice.212 Disabled: 1 Invisible: 1 Help: "Turns general snapping on" Update: "View.ToggleGeneralSnapUpdate" Label: "Enable General Snapping" Click: "View.ToggleGeneralSnap" Shortcut: "Keys.None" ) (Choice.213 Disabled: 1 Invisible: 1 Help: "Turns interactive snapping on" Update: "View.ToggleInteractiveSnapUpdate" Label: "Enable Interactive Snapping" Click: "View.ToggleInteractiveSnap" Shortcut: "Keys.None" ) (Space.214 ) (Choice.215 Disabled: 1 Invisible: 1 Help: "Snaps the next entered point to the nearest vertex within the user tolerance" Update: "View.InteractiveSnapUpdate" Label: "Snap to Vertex" Click: "View.SnapToVertex" Shortcut: "Keys.None" ) (Choice.216 Disabled: 1 Invisible: 1 Help: "Snaps the next entered point to the nearest line segment" Update: "View.InteractiveSnapUpdate" Label: "Snap to Boundary" Click: "View.SnapToBoundary" Shortcut: "Keys.None" ) (Choice.217 Disabled: 1 Invisible: 1 Help: "Snaps the next entered point to the nearest node common to two or more features" Update: "View.InteractiveSnapUpdate" Label: "Snap to Intersection" Click: "View.SnapToIntersection" Shortcut: "Keys.None" ) (Choice.218 Disabled: 1 Invisible: 1 Help: "Snaps the next entered point to the nearest endpoint of an existing line" Update: "View.SnapToEndPointUpdate" Label: "Snap to Endpoint" Click: "View.SnapToEndPoint" Shortcut: "Keys.None" ) (Space.219 ) (Choice.220 Help: "Unselects the selected features in all active themes" Update: "View.AttributeThemesUpdate" Label: "Clear Selection" Click: "View.ClearSelect" Shortcut: "Keys.None" ) (Choice.221 Help: "Zooms in at point where you click to bring up popup menu" Update: "View.HasDataUpdate" Label: "Zoom In" Click: "View.PopupZoomIn" Shortcut: "Keys.None" ) (Choice.222 Help: "Zooms out from point where you click to bring up popup menu" Update: "View.HasDataUpdate" Label: "Zoom Out" Click: "View.PopupZoomOut" Shortcut: "Keys.None" ) (Choice.223 Help: "Zooms to the extent of the selected features" Update: "View.SelectableThemesUpdate" Label: "Zoom to Selected" Click: "View.ZoomToSelected" Shortcut: "Keys.None" ) (Choice.224 Help: "Centers display on point where you click to bring up popup" Update: "View.HasDataUpdate" Label: "Pan" Click: "View.PopupPan" Shortcut: "Keys.None" ) (ToolBar.225 Child: 226 Child: 228 Child: 230 Child: 232 Child: 234 Child: 236 Child: 238 Child: 240 Child: 242 Child: 244 Child: 246 Child: 248 Child: 253 Child: 272 Child: 273 Child: 278 Child: 279 ) (Tool.226 Disabled: 1 Help: "Identify//Provides information about a feature" HelpTopic: "Identify_tool" Update: "View.IdentifyUpdate" Icon: 227 Cursor: "Cursors.ID" Apply: "View.Identify" ) (AVIcon.227 Name: "ID" Res: "Icons.ID" ) (Tool.228 Disabled: 1 Help: "Pointer//Selects, moves, and resizes graphics" HelpTopic: "Pointer_tool" Update: "View.HasDataUpdate" Icon: 229 Cursor: "Cursors.Select" Apply: "View.Select" Click: "View.SelectTool" ) (AVIcon.229 Name: "Select" Res: "Icons.Select" ) (Tool.230 Disabled: 1 Help: "Vertex Edit//Adds, moves, and deletes vertices of features and graphics" HelpTopic: "Vertex_Edit_tool" Update: "View.SelectToEditUpdate" Icon: 231 Cursor: "Cursors.SelectEdit" Apply: "View.SelectToEdit" Click: "View.SelectToEditTool" ) (AVIcon.231 Name: "SelectEdit" Res: "Icons.SelectEdit" ) (Tool.232 Disabled: 1 Help: "Select Feature//Selects features in the active themes by pointing or dragging" HelpTopic: "Select_Feature_tool" Update: "View.SelectableThemesUpdate" Icon: 233 Cursor: "Cursors.Default" Apply: "View.SelectPoint" ) (AVIcon.233 Name: "FeatureSelect" Res: "Icons.FeatureSelect" ) (Tool.234 Disabled: 1 Help: "Zoom In//Zooms in at a point you click or zooms in on a rectangle you drag" HelpTopic: "Zoom_In_tool" Update: "View.HasDataUpdate" Icon: 235 Cursor: "Cursors.ZoomIn" Apply: "View.ZoomInTool" ) (AVIcon.235 Name: "ZoomInTool" Res: "Icons.ZoomInTool" ) (Tool.236 Disabled: 1 Help: "Zoom Out//Zooms out from a point you click or zooms out to include a rectangle you drag" HelpTopic: "Zoom_Out_tool" Update: "View.HasDataUpdate" Icon: 237 Cursor: "Cursors.ZoomOut" Apply: "View.ZoomOutTool" ) (AVIcon.237 Name: "ZoomOutTool" Res: "Icons.ZoomOutTool" ) (Tool.238 Disabled: 1 Help: "Pan//Drags the display in the direction you move the cursor" HelpTopic: "Pan_tool" Update: "View.HasDataUpdate" Icon: 239 Cursor: "Cursors.Pan" Apply: "View.Pan" ) (AVIcon.239 Name: "Pan" Res: "Icons.Pan" ) (Tool.240 Disabled: 1 Help: "Measure//Measures distance" HelpTopic: "Measure_tool" Update: "View.HasDataUpdate" Icon: 241 Cursor: "Cursors.Measure" Apply: "View.Measure" ) (AVIcon.241 Name: "Measure" Res: "Icons.Measure" ) (Tool.242 Disabled: 1 Help: "Hot Link//Follows a hot link in the active themes" HelpTopic: "Hot_Link_tool" Update: "View.HotLinkUpdate" Icon: 243 Cursor: "Cursors.Media" Apply: "View.HotLink" ) (AVIcon.243 Name: "Media" Res: "Icons.Media" ) (Tool.244 Disabled: 1 Help: "Area of Interest//Sets the view's Area Of Interest for library-based themes" HelpTopic: "Area_Of_Interest_tool" Update: "View.AOIToolUpdate" Icon: 245 Cursor: "Cursors.Default" Apply: "View.AOITool" ) (AVIcon.245 Name: "AOI" Res: "Icons.AOI" ) (Tool.246 Disabled: 1 Help: "Label//Labels a feature in the active theme with data from its table" HelpTopic: "Label_tool" Update: "View.LabelToolUpdate" Icon: 247 Cursor: "Cursors.Tag" Apply: "View.LabelTool" ) (AVIcon.247 Name: "Tag" Res: "Icons.Tag" ) (ToolMenu.248 Help: "Add Scaled Text//Adds Scaled Text to the View. " HelpTopic: "Text_tool" Tag: "SCALED" Update: "View.GraphicToolUpdate" Icon: 249 Cursor: "Cursors.Text" Apply: "View.TextTool" Click: "SymWin.DisplayFontPanel" Child: 250 Child: 251 ) (AVIcon.249 Name: "Text" Res: "Icons.Text" ) (Tool.250 Help: "Add Scaled Text//Adds Scaled Text to the View. " HelpTopic: "Text_tool" Tag: "SCALED" Update: "View.GraphicToolUpdate" Icon: 249 Cursor: "Cursors.Text" Apply: "View.TextTool" Click: "SymWin.DisplayFontPanel" ) (Tool.251 Help: "Add Unscaled Text//Adds Unscaled Text to the View. " HelpTopic: "Text_tool" Update: "View.GraphicToolUpdate" Icon: 252 Cursor: "Cursors.Text" Apply: "View.TextTool" Click: "SymWin.DisplayFontPanel" ) (AVIcon.252 Name: "T" Res: "Icons.T" ) (ToolMenu.253 Help: "Draw Point//Creates a point on the display" HelpTopic: "Draw_tool" Update: "View.PointToolUpdate" Icon: 254 Cursor: "Cursors.CrossHair" Apply: "View.PointTool" Click: "SymWin.DisplayMarkerPanel" Child: 255 Child: 256 Child: 258 Child: 260 Child: 262 Child: 264 Child: 266 Child: 268 Child: 270 ) (AVIcon.254 Name: "Point" Res: "Icons.Point" ) (Tool.255 Help: "Draw Point//Creates a point on the display" HelpTopic: "Draw_tool" Update: "View.PointToolUpdate" Icon: 254 Cursor: "Cursors.CrossHair" Apply: "View.PointTool" Click: "SymWin.DisplayMarkerPanel" ) (Tool.256 Help: "Draw Straight Line//Creates a line on the display" HelpTopic: "Draw_tool" Update: "View.GraphicToolUpdate" Icon: 257 Cursor: "Cursors.CrossHair" Apply: "View.LineTool" Click: "SymWin.DisplayPenPanel" ) (AVIcon.257 Name: "SelectLine" Res: "Icons.SelectLine" ) (Tool.258 Help: "Draw Line//Creates a line with two or more points on the display" HelpTopic: "Draw_tool" Update: "View.PolyLineToolUpdate" Icon: 259 Cursor: "Cursors.CrossHair" Apply: "View.PolyLineTool" Click: "SymWin.DisplayPenPanel" ) (AVIcon.259 Name: "Lines" Res: "Icons.Lines" ) (Tool.260 Help: "Draw Rectangle//Creates a rectangle on the display" HelpTopic: "Draw_tool" Update: "View.PolyToolUpdate" Icon: 261 Cursor: "Cursors.CrossHair" Apply: "View.RectTool" Click: "SymWin.DisplayFillPanel" ) (AVIcon.261 Name: "Rect" Res: "Icons.Rect" ) (Tool.262 Help: "Draw Circle//Creates a circle on the display" HelpTopic: "Draw_tool" Update: "View.PolyToolUpdate" Icon: 263 Cursor: "Cursors.CrossHair" Apply: "View.CircleTool" Click: "SymWin.DisplayFillPanel" ) (AVIcon.263 Name: "Disk" Res: "Icons.Disk" ) (Tool.264 Help: "Draw Polygon//Creates a polygon on the display" HelpTopic: "Draw_tool" Update: "View.PolyToolUpdate" Icon: 265 Cursor: "Cursors.CrossHair" Apply: "View.PolyTool" Click: "SymWin.DisplayFillPanel" ) (AVIcon.265 Name: "Poly" Res: "Icons.Poly" ) (Tool.266 Disabled: 1 Help: "Draw Line to Split Feature//Creates a line to split line features" HelpTopic: "Draw_tool" Update: "View.SplitLineToolUpdate" Icon: 267 Cursor: "Cursors.CrossHair" Apply: "View.SplitTool" ) (AVIcon.267 Name: "SplitLine" Res: "Icons.SplitLine" ) (Tool.268 Disabled: 1 Help: "Draw Line to Split Polygon//Creates a line to split polygon features" HelpTopic: "Draw_tool" Update: "View.SplitPolyToolUpdate" Icon: 269 Cursor: "Cursors.CrossHair" Apply: "View.SplitTool" ) (AVIcon.269 Name: "SplitPoly" Res: "Icons.SplitPoly" ) (Tool.270 Disabled: 1 Help: "Draw Line to Append Polygon//Appends a new polygon adjacent to other polygons" HelpTopic: "Draw_tool" Update: "View.AutoCompleteUpdate" Icon: 271 Cursor: "Cursors.CrossHair" Apply: "View.AutoCompleteTool" ) (AVIcon.271 Name: "AutoComplete" Res: "Icons.AutoComplete" ) (Space.272 ) (ToolMenu.273 Disabled: 1 Invisible: 1 Help: "Snap//Sets the general snapping tolerance for the editable theme" HelpTopic: "Snap_tools" Update: "View.SnapToolUpdate" Icon: 274 Cursor: "Cursors.Default" Apply: "View.SnapTool" Child: 275 Child: 276 ) (AVIcon.274 Name: "SnapTool" Res: "Icons.SnapTool" ) (Tool.275 Disabled: 1 Invisible: 1 Help: "Snap//Sets the general snapping tolerance for the editable theme" HelpTopic: "Snap_tools" Update: "View.SnapToolUpdate" Icon: 274 Cursor: "Cursors.Default" Apply: "View.SnapTool" ) (Tool.276 Disabled: 1 Invisible: 1 Help: "Snap//Sets the interactive snapping tolerance for the editable theme" HelpTopic: "Snap_tools" Update: "View.InteractiveSnapToolUpdate" Icon: 277 Cursor: "Cursors.Default" Apply: "View.InteractiveSnapTool" ) (AVIcon.277 Name: "SnapFeatureTool" Res: "Icons.SnapFeatureTool" ) (Space.278 ) (Tool.279 Disabled: 1 Help: "Show Lat/Long//Show Lat/Long coordinates for selected point on display." Update: "View.HasDataUpdate" Icon: 280 Cursor: "Cursors.CrossHair" Apply: "View.UTM2LATLONG" ) (AVIcon.280 Name: "D" Res: "Icons.D" ) (AVIcon.281 Name: "Icon" Res: "View.Icon" ) (DocGUI.507 Name: "Layout" Type: "Layout" Modified: 1 Visible: 1 MenuBar: 508 ButnBar: 585 Popups: 627 ToolBar: 639 NewScript: "Layout.New" OpenScript: "Doc.Open" ActionScript: "Doc.Action" NewUpdateScript: "Doc.NewUpdate" OpenUpdateScript: "Doc.OpenUpdate" ActionUpdateScript: "Doc.ActionUpdate" Title: "Layouts" Icon: 697 ) (MenuBar.508 Child: 509 Child: 526 Child: 535 Child: 555 Child: 570 Child: 580 ) (PMenu.509 InternalName: "File" Child: 510 Child: 511 Child: 512 Child: 513 Child: 514 Child: 515 Child: 516 Child: 517 Child: 518 Child: 519 Child: 520 Child: 521 Child: 522 Child: 523 Child: 524 Child: 525 Label: "&File" ) (Choice.510 Help: "Closes the active component" HelpTopic: "Close" Label: "&Close" Click: "Project.CloseDoc" Shortcut: "Keys.None" ) (Choice.511 Help: "Closes all components" HelpTopic: "Close_All" Label: "Close &All" Click: "Project.CloseAll" Shortcut: "Keys.None" ) (Space.512 ) (Choice.513 Help: "Saves the current project" HelpTopic: "Save_Project" Label: "&Save Project" Click: "Project.Save" Shortcut: "Keys.Ctrl+S" ) (Choice.514 Help: "Saves the current project with a new name" HelpTopic: "Save_Project_As" Label: "Save Project As..." Click: "Project.SaveAs" Shortcut: "Keys.None" ) (Space.515 ) (Choice.516 Help: "Displays the Extensions Dialog" HelpTopic: "Extensions" Label: "Extensions..." Click: "Appl.GetExtensionWin" Shortcut: "Keys.None" ) (Space.517 ) (Choice.518 Help: "Prints the layout" HelpTopic: "Print" Label: "&Print..." Click: "Doc.Print" Shortcut: "Keys.None" ) (Choice.519 Help: "Edits the printer and the printing options" HelpTopic: "Print_Setup" Label: "P&rint Setup..." Click: "Project.PrintSetup" Shortcut: "Keys.None" ) (Choice.520 Help: "Create a Color Palette//Create a color Palette of the Current symbol sets." Label: "Create Symbol &Palette" Click: "Layout.SymbolDump" Shortcut: "Keys.None" ) (Choice.521 Help: "Exports the Layout to a graphics file" HelpTopic: "Export" Label: "&Export..." Click: "Layout.Export" Shortcut: "Keys.None" ) (Choice.522 Help: "Export a file using Alchemy" Update: "Layout.ExportToAlchemy.Update" Label: "Export to Alchemy" Click: "Layout.ExporttoAlchemy" Shortcut: "Keys.None" ) (Choice.523 Help: "Spool an Existing RTL File" Update: "Layout.ExportToAlchemy.Update" Label: "Print RTL File" Click: "Layout.PrintRTLFile" Shortcut: "Keys.None" ) (Space.524 ) (Choice.525 Help: "Exits ArcView" HelpTopic: "Exit" Label: "E&xit" Click: "Project.Exit" Shortcut: "Keys.None" ) (PMenu.526 InternalName: "Edit" Child: 527 Child: 528 Child: 529 Child: 530 Child: 531 Child: 532 Child: 533 Child: 534 Label: "&Edit" ) (Choice.527 Disabled: 1 Help: "Undo last edit" HelpTopic: "Undo" Update: "Layout.UndoUpdate" Label: "&Undo" Click: "Layout.Undo" Shortcut: "Keys.Ctrl+Z" ) (Space.528 ) (Choice.529 Disabled: 1 Help: "Copies selected graphics to the clipboard and removes them from the layout" HelpTopic: "Cut" Update: "Graphic.HasSelectionUpdate" Label: "Cu&t" Click: "Layout.Cut" Shortcut: "Keys.Ctrl+X" ) (Choice.530 Disabled: 1 Help: "Copies the selected shapes or graphics to the clipboard" HelpTopic: "Copy" Update: "Graphic.HasSelectionUpdate" Label: "&Copy" Click: "Layout.Copy" Shortcut: "Keys.Ctrl+C" ) (Choice.531 Disabled: 1 Help: "Inserts the contents of the clipboard" HelpTopic: "Paste" Update: "Layout.PasteUpdate" Label: "&Paste" Click: "Layout.Paste" Shortcut: "Keys.Ctrl+V" ) (Choice.532 Disabled: 1 Help: "Removes the selected frames or graphics from the layout" HelpTopic: "Delete" Update: "Graphic.HasSelectionUpdate" Label: "&Delete" Click: "Layout.Clear" Shortcut: "Keys.Del" ) (Space.533 ) (Choice.534 Disabled: 1 Help: "Selects all graphics in the layout" HelpTopic: "Select_All" Update: "Layout.HasGraphicsUpdate" Label: "Select &All" Click: "Graphic.SelectAll" Shortcut: "Keys.None" ) (PMenu.535 InternalName: "Layout" Child: 536 Child: 537 Child: 538 Child: 539 Child: 540 Child: 541 Child: 542 Child: 543 Child: 544 Child: 545 Child: 546 Child: 547 Child: 548 Child: 549 Child: 550 Child: 551 Child: 552 Child: 553 Child: 554 Label: "&Layout" ) (Choice.536 Help: "Displays the dialog box to edit properties of the layout" HelpTopic: "Layout_Properties" Label: "&Properties..." Click: "Layout.Properties" Shortcut: "Keys.None" ) (Choice.537 Help: "Displays the page setup dialog" HelpTopic: "Page_Setup" Label: "Page Se&tup..." Click: "Layout.PageSetup" Shortcut: "Keys.None" ) (Choice.538 Help: "Duplicate Layout//Creates a new layout by creating a duplicate of the currently active Layout Document" Label: "&Duplicate Layout" Click: "Document.Duplicate" Shortcut: "Keys.None" ) (Space.539 ) (Choice.540 Help: "Zooms to the extent of the layout's page" HelpTopic: "Zoom_to_Page" Label: "&Zoom to Page" Click: "Layout.ZoomPage" Shortcut: "Keys.None" ) (Choice.541 Help: "Zooms to display the actual size of the layout (1:1)" HelpTopic: "Zoom_to_Actual_Size" Label: "Zoom to &Actual" Click: "Layout.ZoomActual" Shortcut: "Keys.None" ) (Choice.542 Disabled: 1 Help: "Zooms to the extent of the selected layout graphics" HelpTopic: "Zoom_to_Selected" Update: "Graphic.HasSelectionUpdate" Label: "Zoom to &Selected" Click: "Layout.ZoomSelected" Shortcut: "Keys.None" ) (Choice.543 Help: "Zooms in on the center of the display" HelpTopic: "Zoom_In" Label: "Zoom &In" Click: "Layout.ZoomIn" Shortcut: "Keys.None" ) (Choice.544 Help: "Zooms out from the center of the display" HelpTopic: "Zoom_Out" Label: "Zoom &Out" Click: "Layout.ZoomOut" Shortcut: "Keys.None" ) (Space.545 ) (Choice.546 Help: "Shows or hides the layout's grid" HelpTopic: "Show_Hide_Grid" Update: "Layout.ShowHideGridUpdate" Label: "Hide &Grid" Click: "Layout.ShowHideGrid" Shortcut: "Keys.None" ) (Choice.547 Help: "Shows or hides the layout's margins" HelpTopic: "Show_Hide_Margins" Update: "Layout.ShowHideMarginsUpdate" Label: "Hide &Margins" Click: "Layout.ShowHideMargins" Shortcut: "Keys.None" ) (Space.548 ) (Choice.549 Help: "Places a neatline around your graphics or inside your margins " HelpTopic: "Layout_Neatline" Update: "Graphic.Neatline ShowUpdate" Label: "Add Neatline..." Click: "Graphic.Neatline Show" Shortcut: "Keys.None" ) (Space.550 ) (Space.551 ) (Choice.552 Help: "Create a new layout by using a predefined template" HelpTopic: "Use_Template" Label: "&Use Template..." Click: "Layout.Template" Shortcut: "Keys.None" ) (Choice.553 Help: "Store the current layout as a template" HelpTopic: "Store_As_Template" Label: "Sto&re As Template..." Click: "Layout.TemplateStore" Shortcut: "Keys.None" ) (Choice.554 Disabled: 1 Help: "Store each graphic group in the current layout as a north arrow" HelpTopic: "Store_North_Arrows" Update: "Graphic.HasSelectionUpdate" Label: "Store &North Arrows" Click: "Graphic.StoreNorthArrow" Shortcut: "Keys.None" ) (PMenu.555 InternalName: "Graphics" Child: 556 Child: 557 Child: 558 Child: 559 Child: 560 Child: 561 Child: 562 Child: 563 Child: 564 Child: 565 Child: 566 Child: 567 Child: 568 Child: 569 Label: "&Graphics" ) (Choice.556 Disabled: 1 Help: "Displays the property editor for the selected graphic" HelpTopic: "Graphic_Properties" Update: "Graphic.HasSelectionUpdate" Label: "&Properties..." Click: "Graphic.Edit" Shortcut: "Keys.None" ) (Space.557 ) (Space.558 ) (Choice.559 Help: "Shows a dialog where you can set the default values for the text tools" HelpTopic: "Default_settings_for_text_and_label_tools" Label: "&Text Tool Defaults..." Click: "Graphic.Label Defaults Show" Shortcut: "Keys.None" ) (Space.560 ) (Choice.561 Disabled: 1 Help: "Displays a dialog box to adjust size and position of selected graphic" HelpTopic: "Size_and_Position" Update: "Graphic.SingleSelectionUpdate" Label: "&Size and Position..." Click: "Graphic.SizePos" Shortcut: "Keys.None" ) (Choice.562 Disabled: 1 Help: "Aligns the selected graphics" HelpTopic: "Align" Update: "Graphic.HasSelectionUpdate" Label: "&Align..." Click: "Graphic.Align" Shortcut: "Keys.Ctrl+A" ) (Space.563 ) (Choice.564 Disabled: 1 Help: "Moves selected graphics in front of other graphics" HelpTopic: "Bring_to_Front" Update: "Graphic.HasSelectionUpdate" Label: "Bring to &Front" Click: "Graphic.ToFront" Shortcut: "Keys.None" ) (Choice.565 Disabled: 1 Help: "Moves selected graphics behind other graphics" HelpTopic: "Send_to_Back" Update: "Graphic.HasSelectionUpdate" Label: "Send to &Back" Click: "Graphic.ToBack" Shortcut: "Keys.None" ) (Choice.566 Disabled: 1 Help: "Groups selected graphics" HelpTopic: "Group" Update: "Graphic.GroupUpdate" Label: "&Group" Click: "Graphic.Group" Shortcut: "Keys.Ctrl+G" ) (Choice.567 Disabled: 1 Help: "Ungroups selected graphics" HelpTopic: "Ungroup" Update: "Graphic.UngroupUpdate" Label: "&Ungroup" Click: "Graphic.Ungroup" Shortcut: "Keys.Ctrl+U" ) (Space.568 ) (Choice.569 Disabled: 1 Help: "Simplify selected graphics by converting them to a set of shapes" HelpTopic: "Simplify" Update: "Graphic.HasSelectionUpdate" Label: "S&implify" Click: "Graphic.Simplify" Shortcut: "Keys.None" ) (PMenu.570 InternalName: "Window" Child: 571 Child: 572 Child: 573 Child: 574 Child: 575 Child: 576 Child: 578 Child: 579 Label: "&Window" ) (Choice.571 Help: "Arranges windows as non-overlapping tiles" HelpTopic: "Tile" Label: "&Tile" Click: "Project.Tile" Shortcut: "Keys.None" ) (Choice.572 Help: "Arranges windows" HelpTopic: "Cascade" Label: "&Cascade" Click: "Project.Cascade" Shortcut: "Keys.None" ) (Choice.573 Help: "Arranges iconified windows" HelpTopic: "Arrange_Icons" Label: "&Arrange Icons" Click: "Project.ArrangeIcons" Shortcut: "Keys.None" ) (Space.574 ) (Choice.575 Help: "Shows the symbol window" HelpTopic: "Show_Symbol_Window" Label: "Show Symbol Window..." Click: "Project.ShowHideSymWin" Shortcut: "Keys.Ctrl+P" ) (Space.576 ObjectTag: 577 Update: "WindowMenuUpdate" ) (AVStr.577 S: "defproj31.apr Layout1" ) (Choice.578 Help: "Activates defproj31.apr" Label: "&1 defproj31.apr" Click: "WindowActivate" Shortcut: "Keys.None" ) (Choice.579 Help: "Activates Layout1" Label: "&2 Layout1" Click: "WindowActivate" Shortcut: "Keys.None" ) (PMenu.580 InternalName: "Help" Child: 581 Child: 582 Child: 583 Child: 584 Label: "&Help" ) (Choice.581 Help: "Displays the dialog for browsing and searching ArcView's help system" HelpTopic: "Help_on_Help_Topics" Label: "Help &Topics..." Click: "Project.HelpTopics" Shortcut: "Keys.None" ) (Choice.582 Help: "Provides instructions for how to obtain help from ArcView" HelpTopic: "Help_on_How_to_Get_Help" Label: "&How to Get Help..." Click: "Project.HelpHelp" Shortcut: "Keys.None" ) (Space.583 ) (Choice.584 Help: "Provides information about ArcView" HelpTopic: "About" Label: "&About ArcView..." Click: "Project.About" Shortcut: "Keys.None" ) (ButnBar.585 Child: 586 Child: 588 Child: 589 Child: 591 Child: 593 Child: 595 Child: 596 Child: 598 Child: 600 Child: 602 Child: 604 Child: 606 Child: 608 Child: 609 Child: 611 Child: 613 Child: 615 Child: 617 Child: 619 Child: 620 Child: 622 Child: 624 Child: 625 ) (Butn.586 Help: "Save Project//Saves the current project" HelpTopic: "Save_Project" Icon: 587 Click: "Project.Save" ) (AVIcon.587 Name: "Save" Res: "Icons.Save" ) (Space.588 ) (Butn.589 Disabled: 1 Help: "Cut//Cuts the selection and puts it into the clipboard" HelpTopic: "Cut" Update: "Graphic.HasSelectionUpdate" Icon: 590 Click: "Layout.Cut" ) (AVIcon.590 Name: "Cut" Res: "Icons.Cut" ) (Butn.591 Disabled: 1 Help: "Copy//Copies the selected graphics to the clipboard" HelpTopic: "Copy" Update: "Graphic.HasSelectionUpdate" Icon: 592 Click: "Layout.Copy" ) (AVIcon.592 Name: "Copy" Res: "Icons.Copy" ) (Butn.593 Disabled: 1 Help: "Paste//Inserts the contents of the clipboard" HelpTopic: "Paste" Update: "Layout.PasteUpdate" Icon: 594 Click: "Layout.Paste" ) (AVIcon.594 Name: "Paste" Res: "Icons.Paste" ) (Space.595 ) (Butn.596 Help: "Layout Properties//Displays the dialog box to edit properties of the layout" HelpTopic: "Layout_Properties" Icon: 597 Click: "Layout.Properties" ) (AVIcon.597 Name: "Props" Res: "Icons.Props" ) (Butn.598 Disabled: 1 Help: "Group//Groups selected graphics" HelpTopic: "Group" Update: "Graphic.GroupUpdate" Icon: 599 Click: "Graphic.Group" ) (AVIcon.599 Name: "Group" Res: "Icons.Group" ) (Butn.600 Disabled: 1 Help: "Ungroup//Ungroups selected graphics" HelpTopic: "Ungroup" Update: "Graphic.UngroupUpdate" Icon: 601 Click: "Graphic.Ungroup" ) (AVIcon.601 Name: "Ungroup" Res: "Icons.Ungroup" ) (Butn.602 Disabled: 1 Help: "Bring to Front//Moves selected graphics in front of other graphics" HelpTopic: "Bring_to_Front" Update: "Graphic.HasSelectionUpdate" Icon: 603 Click: "Graphic.ToFront" ) (AVIcon.603 Name: "MoveToFront" Res: "Icons.MoveToFront" ) (Butn.604 Disabled: 1 Help: "Send to Back//Moves selected graphics behind other graphics" HelpTopic: "Send_to_Back" Update: "Graphic.HasSelectionUpdate" Icon: 605 Click: "Graphic.ToBack" ) (AVIcon.605 Name: "SendToBack" Res: "Icons.SendToBack" ) (Butn.606 Disabled: 1 Help: "Undo//Undo last edit" HelpTopic: "Undo" Update: "Layout.UndoUpdate" Icon: 607 Click: "Layout.Undo" ) (AVIcon.607 Name: "Undo" Res: "Icons.Undo" ) (Space.608 ) (Butn.609 Help: "Zoom to Page//Zooms to the page" HelpTopic: "Zoom_to_Page" Icon: 610 Click: "Layout.ZoomPage" ) (AVIcon.610 Name: "ZoomToPage" Res: "Icons.ZoomToPage" ) (Butn.611 Help: "Zoom to Actual Size//Zooms to display the actual size of the layout (1:1)" HelpTopic: "Zoom_to_Actual_Size" Icon: 612 Click: "Layout.ZoomActual" ) (AVIcon.612 Name: "ZoomToActual" Res: "Icons.ZoomToActual" ) (Butn.613 Disabled: 1 Help: "Zoom to Selected//Zooms to the extent of the selected layout graphics" HelpTopic: "Zoom_to_Selected" Update: "Graphic.HasSelectionUpdate" Icon: 614 Click: "Layout.ZoomSelected" ) (AVIcon.614 Name: "ZoomToSelected" Res: "Icons.ZoomToSelected" ) (Butn.615 Help: "Zoom In//Zooms in on the center of the display" HelpTopic: "Zoom_In" Icon: 616 Click: "Layout.ZoomIn" ) (AVIcon.616 Name: "ZoomIn" Res: "Icons.ZoomIn" ) (Butn.617 Help: "Zoom Out//Zooms out from the center of the display" HelpTopic: "Zoom_Out" Icon: 618 Click: "Layout.ZoomOut" ) (AVIcon.618 Name: "ZoomOut" Res: "Icons.ZoomOut" ) (Space.619 ) (Butn.620 Help: "Print//Prints the layout" HelpTopic: "Print" Icon: 621 Click: "Doc.Print" ) (AVIcon.621 Name: "Print" Res: "Icons.Print" ) (Butn.622 Help: "Neatline//Places a neatline around your graphics or inside your margins" HelpTopic: "Layout_Neatline" Update: "Graphic.Neatline ShowUpdate" Icon: 623 Click: "Graphic.Neatline Show" ) (AVIcon.623 Name: "Neatline" Res: "Icons.Neatline" ) (Space.624 ) (Butn.625 Help: "Help//Gets help about the next button, tool, or menu choice you click" HelpTopic: "Help_button" Icon: 626 Click: "Help.Tool" ) (AVIcon.626 Name: "HelpTool" Res: "Icons.HelpTool" ) (PopupSet.627 Child: 628 ) (Popup.628 Child: 629 Child: 630 Child: 631 Child: 632 Child: 633 Child: 634 Child: 635 Child: 636 Child: 637 Child: 638 Label: "Menu" ) (Choice.629 Help: "Selects all layout graphics" HelpTopic: "Select_All" Update: "Layout.HasGraphicsUpdate" Label: "Select All" Click: "Graphic.SelectAll" Shortcut: "Keys.None" ) (Space.630 ) (Choice.631 Help: "Undo the last edit" Update: "Layout.UndoUpdate" Label: "Undo" Click: "Layout.Undo" Shortcut: "Keys.None" ) (Space.632 ) (Choice.633 Help: "Moves selected graphics in front of other graphics" HelpTopic: "Bring_to_Front" Update: "Graphic.HasSelectionUpdate" Label: "Bring to Front" Click: "Graphic.ToFront" Shortcut: "Keys.None" ) (Choice.634 Help: "Moves selected graphics behind other graphics" HelpTopic: "Send_to_Back" Update: "Graphic.HasSelectionUpdate" Label: "Send to Back" Click: "Graphic.ToBack" Shortcut: "Keys.None" ) (Space.635 ) (Choice.636 Help: "Simplifies the selected graphic by converting it to a set of shapes" HelpTopic: "Simplify" Update: "Graphic.HasSelectionUpdate" Label: "Simplify" Click: "Graphic.Simplify" Shortcut: "Keys.None" ) (Space.637 ) (Choice.638 Disabled: 1 Help: "Refreshes view frames" Update: "Frame.RefreshUpdate" Label: "Refresh View Frames" Click: "Frame.Refresh" Shortcut: "Keys.None" ) (ToolBar.639 Child: 640 Child: 642 Child: 644 Child: 646 Child: 648 Child: 650 Child: 663 Child: 665 Child: 678 Child: 695 ) (Tool.640 Help: "Pointer//Selects frames or graphics on the layout by pointing or dragging" HelpTopic: "Pointer_tool" Icon: 641 Cursor: "Cursors.Select" Apply: "Layout.Select" Click: "Layout.SelectTool" ) (AVIcon.641 Name: "Select" Res: "Icons.Select" ) (Tool.642 Help: "Vertex_Edit//Adds, moves, and deletes vertices of line and polygon graphics" HelpTopic: "Vertex_Edit_Tool" Icon: 643 Cursor: "Cursors.SelectEdit" Apply: "Layout.SelectToEdit" Click: "Layout.SelectToEditTool" ) (AVIcon.643 Name: "SelectEdit" Res: "Icons.SelectEdit" ) (Tool.644 Help: "Zoom In//Zooms in at a point you click or zooms in on a rectangle you drag" HelpTopic: "Zoom_In_tool" Icon: 645 Cursor: "Cursors.ZoomIn" Apply: "Layout.ZoomInTool" ) (AVIcon.645 Name: "ZoomInTool" Res: "Icons.ZoomInTool" ) (Tool.646 Help: "Zoom Out//Zooms out from a point you click or zooms out to include a rectangle you drag" HelpTopic: "Zoom_Out_tool" Icon: 647 Cursor: "Cursors.ZoomOut" Apply: "Layout.ZoomOutTool" ) (AVIcon.647 Name: "ZoomOutTool" Res: "Icons.ZoomOutTool" ) (Tool.648 Help: "Pan//Drags the display in the direction you move the cursor" HelpTopic: "Pan_tool" Icon: 649 Cursor: "Cursors.Pan" Apply: "Layout.Pan" ) (AVIcon.649 Name: "Pan" Res: "Icons.Pan" ) (ToolMenu.650 Help: "Text//Creates text on the display" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 651 Cursor: "Cursors.Text" Apply: "Layout.Text" Click: "SymWin.DisplayFontPanel" Child: 652 Child: 653 Child: 655 Child: 657 Child: 659 Child: 661 ) (AVIcon.651 Name: "Text" Res: "Icons.Text" ) (Tool.652 Help: "Text//Creates text on the display" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 651 Cursor: "Cursors.Text" Apply: "Layout.Text" Click: "SymWin.DisplayFontPanel" ) (Tool.653 Help: "Callout Text//Draws text with a box and leader around it" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 654 Cursor: "Cursors.Bullseye" Apply: "View.CalloutTextTool" ) (AVIcon.654 Name: "CallOutText1" Res: "Icons.CallOutText1" ) (Tool.655 Help: "Bullet Leader Text//Draws text with a bullet and leader" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 656 Cursor: "Cursors.Bullseye" Apply: "View.BulletLeaderTextTool" ) (AVIcon.656 Name: "CallOutText2" Res: "Icons.CallOutText2" ) (Tool.657 Help: "Banner Text//Creates text with a box and shadow around it" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 658 Cursor: "Cursors.Bullseye" Apply: "View.ShadowBoxTextTool" ) (AVIcon.658 Name: "CallOutText3" Res: "Icons.CallOutText3" ) (Tool.659 Help: "Drop-Shadow Text//Creates text where each letter has a drop-shadow" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 660 Cursor: "Cursors.Bullseye" Apply: "View.CreateDropShadowText" ) (AVIcon.660 Name: "DropShadowText" Res: "Icons.DropShadowText" ) (Tool.661 Help: "SplineText//Adds text aligned to a spline baseline" HelpTopic: "Text_tool" Update: "Layout.TextToolUpdate" Icon: 662 Cursor: "Cursors.Bullseye" Apply: "View.SplineText" ) (AVIcon.662 Name: "TextAligned" Res: "Icons.TextAligned" ) (Tool.663 Help: "Add Text File//Add a Text file to a text box." Icon: 664 Cursor: "Cursors.Finger" Apply: "Layout.AddTextFile" ) (AVIcon.664 Name: "TextJust" Res: "Icons.TextJust" ) (ToolMenu.665 Help: "Draw Point//Creates a point on the display" HelpTopic: "Draw_tool" Icon: 666 Cursor: "Cursors.CrossHair" Apply: "Layout.Point" Click: "SymWin.DisplayMarkerPanel" Child: 667 Child: 668 Child: 670 Child: 672 Child: 674 Child: 676 ) (AVIcon.666 Name: "Point" Res: "Icons.Point" ) (Tool.667 Help: "Draw Point//Creates a point on the display" HelpTopic: "Draw_tool" Icon: 666 Cursor: "Cursors.CrossHair" Apply: "Layout.Point" Click: "SymWin.DisplayMarkerPanel" ) (Tool.668 Help: "Draw Straight Line//Creates a line on the display" HelpTopic: "Draw_tool" Icon: 669 Cursor: "Cursors.CrossHair" Apply: "Layout.Line" Click: "SymWin.DisplayPenPanel" ) (AVIcon.669 Name: "SelectLine" Res: "Icons.SelectLine" ) (Tool.670 Help: "Draw Line//Creates a line with three or more points on the display" HelpTopic: "Draw_tool" Icon: 671 Cursor: "Cursors.CrossHair" Apply: "Layout.PolyLine" Click: "SymWin.DisplayPenPanel" ) (AVIcon.671 Name: "Lines" Res: "Icons.Lines" ) (Tool.672 Help: "Draw Rectangle//Creates a rectangle on the display" HelpTopic: "Draw_tool" Icon: 673 Cursor: "Cursors.CrossHair" Apply: "Layout.Rect" Click: "SymWin.DisplayFillPanel" ) (AVIcon.673 Name: "Rect" Res: "Icons.Rect" ) (Tool.674 Help: "Draw Circle//Creates a circle on the display" HelpTopic: "Draw_tool" Icon: 675 Cursor: "Cursors.CrossHair" Apply: "Layout.Circle" Click: "SymWin.DisplayFillPanel" ) (AVIcon.675 Name: "Disk" Res: "Icons.Disk" ) (Tool.676 Help: "Draw Polygon//Creates a polygon on the display" HelpTopic: "Draw_tool" Icon: 677 Cursor: "Cursors.CrossHair" Apply: "Layout.Poly" Click: "SymWin.DisplayFillPanel" ) (AVIcon.677 Name: "Poly" Res: "Icons.Poly" ) (ToolMenu.678 Help: "View Frame//Creates a view frame on the display" HelpTopic: "Frame_tool" Icon: 679 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameView" Child: 680 Child: 681 Child: 683 Child: 685 Child: 687 Child: 689 Child: 691 Child: 693 ) (AVIcon.679 Name: "FrameView" Res: "Icons.FrameView" ) (Tool.680 Help: "View Frame//Creates a view frame on the display" HelpTopic: "Frame_tool" Icon: 679 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameView" ) (Tool.681 Help: "Legend Frame//Creates a legend frame on the display" HelpTopic: "Frame_tool" Icon: 682 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameLegend" ) (AVIcon.682 Name: "FrameLegend" Res: "Icons.FrameLegend" ) (Tool.683 Help: "Scale Bar Frame//Creates a scale bar frame on the display" HelpTopic: "Frame_tool" Icon: 684 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameScalebar" ) (AVIcon.684 Name: "FrameScalebar" Res: "Icons.FrameScalebar" ) (Tool.685 Help: "North Arrow//Creates a north arrow on the display" HelpTopic: "Frame_tool" Icon: 686 Cursor: "Cursors.CrossHair" Apply: "Layout.NorthArrow" ) (AVIcon.686 Name: "NorthArrow" Res: "Icons.NorthArrow" ) (Tool.687 Help: "Chart Frame//Creates a chart frame on the display" HelpTopic: "Frame_tool" Icon: 688 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameChart" ) (AVIcon.688 Name: "FrameChart" Res: "Icons.FrameChart" ) (Tool.689 Help: "Table Frame//Creates a table frame on the display" HelpTopic: "Frame_tool" Icon: 690 Cursor: "Cursors.CrossHair" Apply: "Layout.FrameTable" ) (AVIcon.690 Name: "FrameTable" Res: "Icons.FrameTable" ) (Tool.691 Help: "Add Table Graphic//Adds a table as a graphic to a layout. Works much better than Table Frame Tool" Icon: 692 Cursor: "Cursors.CrossHair" Apply: "DNR.Layout.AddTableGraphic" ) (AVIcon.692 Name: "FrameText" Res: "Icons.FrameText" ) (Tool.693 Help: "Picture Frame//Creates a picture frame on the display" HelpTopic: "Frame_tool" Icon: 694 Cursor: "Cursors.CrossHair" Apply: "Layout.FramePicture" ) (AVIcon.694 Name: "FramePicture" Res: "Icons.FramePicture" ) (Tool.695 InternalName: "MapTool" Help: "Custom Legend Tool//Click where you want the lower left origin of a multicolumn legend" Icon: 696 Cursor: "Cursors.Bullseye" Apply: "Legends.Show" ) (AVIcon.696 Name: "CartoLegend" Res: "Icons.CartoLegend" ) (AVIcon.697 Name: "Icon" Res: "Layout.Icon" ) (DocGUI.808 Name: "Project" Type: "Project" Modified: 1 MenuBar: 809 ButnBar: 835 Popups: 841 ToolBar: 842 Icon: 843 ) (MenuBar.809 Child: 810 Child: 822 ) (PMenu.810 InternalName: "File" Child: 811 Child: 812 Child: 813 Child: 814 Child: 815 Child: 816 Child: 817 Child: 818 Child: 819 Child: 820 Child: 821 Label: "&File" ) (Choice.811 Help: "Creates a new project" HelpTopic: "New_Project" Label: "&New Project" Click: "Project.New" Shortcut: "Keys.Ctrl+N" ) (Choice.812 Help: "Opens an existing project" HelpTopic: "Open_Project" Label: "&Open Project..." Click: "Project.Open" Shortcut: "Keys.None" ) (Choice.813 Help: "Closes the project window" HelpTopic: "Close_Project" Label: "&Close Project" Click: "Project.Close" Shortcut: "Keys.None" ) (Space.814 ) (Choice.815 Help: "Saves the current project" HelpTopic: "Save_Project" Label: "&Save Project" Click: "Project.Save" Shortcut: "Keys.Ctrl+S" ) (Choice.816 Help: "Saves the current project with a new name" HelpTopic: "Save_Project_As" Label: "Save Project &As..." Click: "Project.SaveAs" Shortcut: "Keys.None" ) (Choice.817 Help: "Exports Project and Data to a Single Location" Update: "DNR.ExportProject.Update" Label: "Export Project" Click: "DNR.ExportProject" Shortcut: "Keys.None" ) (Space.818 ) (Choice.819 Help: "Displays the Extensions dialog" HelpTopic: "Extensions" Label: "&Extensions..." Click: "Appl.GetExtensionWin" Shortcut: "Keys.None" ) (Space.820 ) (Choice.821 Help: "Exits ArcView" HelpTopic: "Exit" Label: "E&xit" Click: "Project.Exit" Shortcut: "Keys.None" ) (PMenu.822 InternalName: "Project" Child: 823 Child: 824 Child: 825 Child: 826 Child: 827 Child: 828 Child: 829 Child: 830 Child: 831 Child: 832 Child: 833 Child: 834 Label: "&Project" ) (Choice.823 Help: "Displays the dialog box to edit properties of the project" HelpTopic: "Project_Properties" Label: "&Properties..." Click: "Project.Properties" Shortcut: "Keys.None" ) (Choice.824 Help: "Customizes the active project" HelpTopic: "Customize" Update: "Project.CustomizeUpdate" Label: "&Customize..." Click: "Project.Customize" Shortcut: "Keys.None" ) (Space.825 ) (Choice.826 Disabled: 1 Help: "Renames the selected project component" HelpTopic: "Rename" Update: "Project.RenameUpdate" Label: "&Rename..." Click: "Project.Rename" Shortcut: "Keys.Ctrl+R" ) (Choice.827 Disabled: 1 Help: "Deletes the selected component from the project" HelpTopic: "Delete_Component" Update: "Project.DeleteUpdate" Label: "&Delete..." Click: "Project.Delete" Shortcut: "Keys.Del" ) (Space.828 ) (Choice.829 Help: "Adds a table to the project" HelpTopic: "Add_Table" Label: "&Add Table..." Click: "Project.AddTable" Shortcut: "Keys.None" ) (Choice.830 Help: "Creates a new project component from an external source" HelpTopic: "Import" Label: "&Import..." Click: "Project.Import" Shortcut: "Keys.None" ) (Choice.831 Help: "Opens the SQL Connection manager" HelpTopic: "SQL_Connect" Update: "Project.HasSQL" Label: "&SQL Connect..." Click: "Project.SQLConnect" Shortcut: "Keys.None" ) (Space.832 ) (Choice.833 Help: "Default Project Properties//Set variables to the default project's Initialization file AVDEF.INI." Label: "Default Project Properties" Click: "DNR.SetDefaultProperties" Shortcut: "Keys.None" ) (Choice.834 Help: "Add Project Property//Adds a Project Property to the ArcView Environment at startup. The file is called AVDEF.INI and resides in the, $AVHOME/etc, $HOME, or $TEMP subdirectory" Label: "Add Project Property" Click: "DNR.SetVariable" Shortcut: "Keys.None" ) (ButnBar.835 Update: "Project.UpdateButtons" Child: 836 Child: 838 Child: 839 ) (Butn.836 Help: "Save Project//Saves the current project" HelpTopic: "Save_Project" Icon: 837 Click: "Project.Save" ) (AVIcon.837 Name: "Save" Res: "Icons.Save" ) (Space.838 ) (Butn.839 Help: "Install DNR ArcView Default Project V 3.1//Install the DNR ArcView Default Project V3.1" Icon: 840 Click: "DefaultProject.Install" ) (AVIcon.840 Name: "Minn" Res: "Icons.Minn" ) (PopupSet.841 ) (ToolBar.842 ) (AVIcon.843 Name: "Icon" Res: "Project.Icon" ) (FN.862 Path: "$HOME" ) (TClr.863 Red: 0xffff Green: 0xffff ) (AVStr.864 S: "View" ) (AVStr.865 S: "Table" ) (AVStr.866 S: "Chart" ) (AVStr.867 S: "Layout" ) (AVStr.868 S: "Script" ) (AVStr.869 S: "Project" ) (AVStr.870 S: "Appl" )