/3.2 (Extension.1 Name: "SWAT2003" FirstRootClassName: "PMenu" Roots: 2 Roots: 3 Roots: 4 Version: 32 About: "AVSWATX Extension for BASINS, Version 1.0 Adds SWAT2003 to the Models menu. Requires AVSWATX from Texas A&M. AQUA TERRA Consultants, Decatur, GA." InstallScript: 5 UninstallScript: 6 ExtVersion: 1 ) (PMenu.2 Child: 3 Label: "&Models" ) (Choice.3 Label: "&SWAT2003" Click: "basins3.invoke_avswatx" Shortcut: "Keys.None" ) (Script.4 Name: "basins3.invoke_avswatx" SourceCode: "'basins3.invoke_avswatx\n\ntheBasinsDir = av.GetProject.GetFileName.AsString.Left(1) \nextPath = theBasinsDir + \":\\BASINS\\etc\\extensions\\models\\\"\naprstr = extPath + \"avswatx.apr\"\n\navname = \"$AVBIN\\arcview.exe\".asfilename.GetFullName\n\nexec_str = avname.asstring ++ aprstr\n\n'check to see that avswatx has been installed?\naFname = \"$AVEXT\\avswatx.avx\".asFileName \nif(File.Exists(aFname))then\n System.Execute(EXEC_STR)\nelse\n MsgBox.Error(\"AVSWATX is not installed.\"+NL+\"AVSWATX may be obtained from Texas A&M.\",\"AVSW ATX\") \nend \n" ) (Script.5 Name: "install" SourceCode: "theMenuObject = SELF.Get(0)\ntheChoiceObject = SELF.Get(1)\n\nMenuFound = av.run(\"BASINS3.MenuAdd\",{theMenuObject,theChoiceObject})\n\n'av.GetProject.AddDialog( self.Get(2))\n'av.GetProject.AddDialog( self.Get(3))\n'av.GetProject.AddDialog( self.Get(4))\n" ) (Script.6 Name: "uninstall" SourceCode: "theMenuObject =\nav.GetProject.FindGUI(\"View\").GetMenuBar.FindbyLabel(\"Models\")\ntheChoiceObject = theMenuObject.FindbyLabel(\"SWAT2003\")\nav.run(\"BASINS3.MenuRemove\", {theMenuObject, theChoiceObject})\n\n\n" )