Changeset 9104 for trunk/tools

Timestamp:

Aug 23, 2002, 5:47:22 PM (23 years ago)

Author:

sandervl

Message:

new odinbug version

Location:

trunk/tools/OdinBug

Files:

• NBTab.bmp (added)
• ODINBUG.FW4 (modified) ( previous)
• ODINBUG.IPF (modified) (62 diffs)
• OdinBug.RC (modified) (1 diff)
• OdinBug.VRP (modified) (1 diff)
• OdinBug.VRT (added)
• OdinBug.VRX (modified) (41 diffs)
• OdinBug.VRY (modified) ( previous)
• PAPER1.BMP (added)
• PAPER2.BMP (added)
• PAPER3.BMP (added)
• Paper.BMP (added)
• TAB16.BMP (added)
• Tab11.BMP (added)
• Tab12.BMP (added)
• Tab13.BMP (added)
• Tab14.BMP (added)
• Tab15.BMP (added)
• Tab21.BMP (added)
• Tab22.BMP (added)
• Tab23.BMP (added)
• Tab24.BMP (added)
• Tab25.BMP (added)
• readme.source (modified) (4 diffs)
• tab26.bmp (added)

trunk/tools/OdinBug/ODINBUG.IPF

@@ -1 @@
-:userdoc.:title.OdinBug Help 0.5.6
+:userdoc.:title.OdinBug Help 0.5.7
 :docprof toc=123.
 .***************************************************
@@ -7 +7 @@
 :h1 res=100 x=right y=bottom width=66% height=100%.Introduction
 
-:font facename='Default' size=0x0.:artwork align=center name='E:\DEV\REXX\VXREXX\PROJECTS\ODINBUG\ODIN.BMP' fit.
+:artwork align=center name='E:\DEV\REXX\VXREXX\PROJECTS\ODINBUG\ODIN.BMP' fit.:font facename='Default' size=0x0.
 :p.OdinBug is a helper application for Odin&comma. the Win32-subsystem of
 OS&slr.2 (eCS) . Its purpose is to ease the creation of proper bug reports.
@@ -27 +27 @@
 :h2 res=120 x=right y=bottom width=66% height=100%.Reporting Odin bugs
 
-:font facename='Default' size=0x0.:p.To make our job easier when dealing with reports of failures to run 
+:p.:font facename='Default' size=0x0.To make our job easier when dealing with reports of failures to run 
 certain applications&comma. there's a :link reftype=hd res=840.standard form:elink. to report bugs. Use
 OdinBug to create these bug reports.
@@ -66 +66 @@
 :h2 res=130 x=right y=bottom width=66% height=100%.Useful tips
 
-:font facename='Default' size=0x0.:p.Crashes are always easy to locate in logfiles (search for 'Exception Information')&comma. 
+:p.:font facename='Default' size=0x0.Crashes are always easy to locate in logfiles (search for 'Exception Information')&comma. 
 but improper behaviour isn't.
 :p.In the system menu (top left button of a window)&comma. there's a menu item called
@@ -80 +80 @@
 :h2 res=140 x=right y=bottom width=66% height=100%.How to create a bug report in a few easy steps
 
-:font facename='Default' size=0x0.:p.Ideally OdinBug should be called immediately after you experienced a crash
+:p.:font facename='Default' size=0x0.Ideally OdinBug should be called immediately after you experienced a crash
 in a Win32 program and after you have :link reftype=hd res=220.created a log file:elink..
 
@@ -120 +120 @@
 :h1 res=200 x=right y=bottom width=66% height=100%.Application
 
-:font facename='Default' size=0x0.:p.The "Application" page of OdinBug presents a form to fill in all
+:p.:font facename='Default' size=0x0.The "Application" page of OdinBug presents a form to fill in all
 kind of information about the program that you want to create a
 bug report for.
@@ -138 +138 @@
 :h2 res=220.Odin logfiles and how to create them
 
-:font facename='Default' size=0x0.:p.The logfile is the main source of bug information for OdinBug. It
+:p.:font facename='Default' size=0x0.The logfile is the main source of bug information for OdinBug. It
 is impossible to create a bugreport without a logfile!
 
@@ -190 +190 @@
 :h2 res=230.Windows executable
 
-:font facename='Default' size=0x0.:p.The field "Windows Executable" should hold the name of the binary
+:p.:font facename='Default' size=0x0.The field "Windows Executable" should hold the name of the binary
 program file&comma. that was used to run the Win32-application.
 :p.If the name is not what you think it should be&comma. you might
@@ -201 +201 @@
 :h2 res=240.Application name
 
-:font facename='Default' size=0x0.:p.The application name is not meant to be the name of the
+:p.:font facename='Default' size=0x0.The application name is not meant to be the name of the
 executable&comma. but the name of the program as it is
 advertised&comma. for example&colon.
@@ -219 +219 @@
 :h2 res=250.Version
 
-:font facename='Default' size=0x0.:p.The version field should contain the exact revision number of the
+:p.:font facename='Default' size=0x0.The version field should contain the exact revision number of the
 program to make it easy for Team Odin to exactly identify the
 program you are using. For example&colon.
@@ -237 +237 @@
 :h2 res=260.Ohhh, no
 
-:font facename='Default' size=0x0.:p.Set the "Ohh&comma. no!" checkmark&comma. if a popup messagebox
+:p.:font facename='Default' size=0x0.Set the "Ohh&comma. no!" checkmark&comma. if a popup messagebox
 saying "Ohhh&comma. no! Unhandled exception..." was shown during
 the program was run.
@@ -248 +248 @@
 :h2 res=270.Available from
 
-:font facename='Default' size=0x0.:p.The purpose of the "Available from" field is to tell Team Odin
+:p.:font facename='Default' size=0x0.The purpose of the "Available from" field is to tell Team Odin
 from where they eventually could achieve the application for
 testing it with Odin. This could be a URL or Webpage.
@@ -260 +260 @@
 :h2 res=280.Verbal description
 
-:font facename='Default' size=0x0.:p.The "Verbal description" field is the plcae where you (the user)
+:p.:font facename='Default' size=0x0.The "Verbal description" field is the plcae where you (the user)
 can express in your own words&comma. what you have done&comma.
 seen or heard.
@@ -276 +276 @@
 :h2 res=290.Exception page
 
-:font facename='Default' size=0x0.:p.The "Exception"page shows the most important techniscal
+:p.:font facename='Default' size=0x0.The "Exception"page shows the most important techniscal
 information&comma. that Team Odin needs in order to track down a
 bug.
@@ -286 +286 @@
 :h1 res=300 x=right y=bottom width=66% height=100%.Odin
 
-:font facename='Default' size=0x0.:p.The "Odin" page shows all the necessary information about your
+:p.:font facename='Default' size=0x0.The "Odin" page shows all the necessary information about your
 installed Odin-subsystem.
 :p.All information is gathered from various source around your
@@ -298 +298 @@
 :h2 res=320.Current Odin build
 
-:font facename='Default' size=0x0.:p.The "Current Odin build" field shows the filename of the
+:p.:font facename='Default' size=0x0.The "Current Odin build" field shows the filename of the
 currently installed Odin build. As Odin buildfiles follow a
 strict name scheme&comma. this can usually be determined
@@ -315 +315 @@
 :h2 res=330.Installation method
 
-:font facename='Default' size=0x0.:p.The field "Installation method" shows whether the last install
+:p.:font facename='Default' size=0x0.The field "Installation method" shows whether the last install
 was done from a daily build ZIP file or from a weekly build WPI
 file.
@@ -330 +330 @@
 :h2 res=340.Launching method
 
-:font facename='Default' size=0x0.:p.The "Launching method" field shows whether the Win32 program was
+:p.:font facename='Default' size=0x0.The "Launching method" field shows whether the Win32 program was
 launched using PE.EXE&comma. PEC.EXE or the transparent loader
 Win32K.SYS.
@@ -345 +345 @@
 :h2 res=350.Win32K.SYS parameters
 
-:font facename='Default' size=0x0.:p.As Win32K.SYS can operate in various modes&comma. the "WIN32K.SYS
+:p.:font facename='Default' size=0x0.As Win32K.SYS can operate in various modes&comma. the "WIN32K.SYS
 parameters" field shows which parameters were used.
 
@@ -360 +360 @@
 :h2 res=360.Last WarpIN installation
 
-:font facename='Default' size=0x0.:p.It is essential that Odin is installed properly. UnZIPping the
+:p.:font facename='Default' size=0x0.It is essential that Odin is installed properly. UnZIPping the
 files only&comma. is not enough to have a proper Odin
 environment.
@@ -376 +376 @@
 :h2 res=370.Last OdinInst installation
 
-:font facename='Default' size=0x0.:p.:link reftype=fn refid=1.OdinInst.EXE:elink. updates the registry and creates a bunch of
+:p.:link reftype=fn refid=1.:font facename='Default' size=0x0.OdinInst.EXE:elink. updates the registry and creates a bunch of
 directories.
 :p.Both are vital to have a proper Odin environment.
@@ -388 +388 @@
 :h2 res=380.Odin "Windows" directory
 
-:font facename='Default' size=0x0.:p.Odin creates a directory structure&comma. which resembles the one
+:p.:font facename='Default' size=0x0.Odin creates a directory structure&comma. which resembles the one
 usually found  in a real Windows.
 :p.The "Windows" directory of Odin is the directory that is
@@ -403 +403 @@
 :h2 res=390.Odin "System" directory
 
-:font facename='Default' size=0x0.:p.Odin creates a directory structure&comma. which resembles the one
+:p.:font facename='Default' size=0x0.Odin creates a directory structure&comma. which resembles the one
 usually found  in a real Windows.
 :p.The "System" directory of Odin is the directory that is
@@ -416 +416 @@
 :h2 res=3100.Evaluated Odin.INI
 
-:font facename='Default' size=0x0.:p.Odin.INI stores specific settings about the Odin environment.
+:p.:font facename='Default' size=0x0.Odin.INI stores specific settings about the Odin environment.
 :p.It is recreated every time :link reftype=fn refid=1.OdinInst.EXE:elink. is called.
 :p.For currently implemented Odin.INI settings read this file
@@ -427 +427 @@
 :h1 res=400 x=right y=bottom width=66% height=100%.System
 
-:font facename='Default' size=0x0.:p.The "System" page provides necessary information about your
+:p.:font facename='Default' size=0x0.The "System" page provides necessary information about your
 system&comma. especially about your Operating System and your
 display driver.
@@ -435 +435 @@
 :h2 res=420.OS/2 system type and version
 
-:font facename='Default' size=0x0.:p.The OS&slr.2 (eCS) system type and version is of general
+:p.:font facename='Default' size=0x0.The OS&slr.2 (eCS) system type and version is of general
 importance for Team Odin. It simply tells whether you run Warp
 3&comma. 4&comma. 4.5 aka MCP&comma. WarpServer for eBusiness or
@@ -449 +449 @@
 :h2 res=430.OS/2 reports and kernel revision
 
-:font facename='Default' size=0x0.:p.This information is of general importance for Team Odin.
+:p.:font facename='Default' size=0x0.This information is of general importance for Team Odin.
 
 :hp7.:p.Source of information&colon.:ehp7.
@@ -461 +461 @@
 :h2 res=440.FixPack level
 
-:font facename='Default' size=0x0.:p.The "FixPack level" field shows on which fixpack level your
+:p.:font facename='Default' size=0x0.The "FixPack level" field shows on which fixpack level your
 system is.
 :p.Please provide this information manually&comma. if you are on a
@@ -477 +477 @@
 :h2 res=450.Display driver
 
-:font facename='Default' size=0x0.:p.The "Display driver" field indicates&comma. which video driver
+:p.:font facename='Default' size=0x0.The "Display driver" field indicates&comma. which video driver
 you are currently using.
 :p.This information is very important for Team Odin&comma. because
@@ -490 +490 @@
 :h2 res=460.Display driver version
 
-:font facename='Default' size=0x0.:p.As the name indicates&comma. the "display driver version" field
+:p.:font facename='Default' size=0x0.As the name indicates&comma. the "display driver version" field
 shows the driver revision of your video adapter driver.
 :p.Please provide this information manually&comma. if you do not run
@@ -502 +502 @@
 :h2 res=470.Display chipset
 
-:font facename='Default' size=0x0.:p.The "Display chipset" field indicates the video chipset your
+:p.:font facename='Default' size=0x0.The "Display chipset" field indicates the video chipset your
 video adapter is using.
 :p.Please provide this information manually&comma. if you do not run
@@ -516 +516 @@
 :h2 res=480.XF86Sup.SYS loaded
 
-:font facename='Default' size=0x0.:p.This checkbox shows whether Holger Veit's XFree86 support driver
+:p.:font facename='Default' size=0x0.This checkbox shows whether Holger Veit's XFree86 support driver
 named XF86SUP.SYS is installed on your system.
 
@@ -531 +531 @@
 :h1 res=500 x=right y=bottom width=66% height=100%.Settings
 
-:font facename='Default' size=0x0.:p.The "Settings" page displays all configurable options for
+:p.:font facename='Default' size=0x0.The "Settings" page displays all configurable options for
 OdinBug.
 :p.By setting these you can change the behaviour of OdinBug to a
@@ -538 +538 @@
 :h2 res=520.Add exception info and stack dump and line buffer
 
-:font facename='Default' size=0x0.:p.For Team Odin the exception information and the stack dump is the
+:p.:font facename='Default' size=0x0.For Team Odin the exception information and the stack dump is the
 most important information&comma. when trying to fix a bug.
 :p.The exception information is found on the page "Exception". This
@@ -548 +548 @@
 :h2 res=530.Default build directory
 
-:font facename='Default' size=0x0.:p.This is the directory where you store your complete buildfiles
+:p.:font facename='Default' size=0x0.This is the directory where you store your complete buildfiles
 (i.e the odin32bin-20011010-debug.ZIP or .wpi files).
 
 :h2 res=540.Application directory
 
-:font facename='Default' size=0x0.:p.The application directory is the directory&comma. where OdinBug
+:p.:font facename='Default' size=0x0.The application directory is the directory&comma. where OdinBug
 should look for logfiles. This is only useful if you have one
 application that you want to make bug reports for.
@@ -563 +563 @@
 :h2 res=550.Logfile browser
 
-:font facename='Default' size=0x0.:p.In the logfile browser field you can specify a program&comma.
+:p.:font facename='Default' size=0x0.In the logfile browser field you can specify a program&comma.
 that you want to use to manually investigate the odin32_?.log
 file.
@@ -573 +573 @@
 :h2 res=560.Ask, whether to delete the logfile
 
-:font facename='Default' size=0x0.:p.If this option is set&comma. OdinBug will ask you&comma. if you
+:p.:font facename='Default' size=0x0.If this option is set&comma. OdinBug will ask you&comma. if you
 would like to delete the currently used odin32_?.log before
 OdinBug itself is closed.
@@ -581 +581 @@
 :h1 res=600 x=right y=bottom width=66% height=100%.EMail
 
-:font facename='Default' size=0x0.:p.The email settings let you specify&comma. which email client
+:p.:font facename='Default' size=0x0.The email settings let you specify&comma. which email client
 OdinBug should use for sending the email that holds the bug
 report.
@@ -611 +611 @@
 :h2 res=620.EMail address
 
-:font facename='Default' size=0x0.:p.This is the address&comma. where the bug report should be sent
+:p.:font facename='Default' size=0x0.This is the address&comma. where the bug report should be sent
 to.
 :p.Currently the only valid address is
@@ -625 +625 @@
 :h2 res=630.Netscape Messenger 4.61
 
-:font facename='Default' size=0x0.:p.If you click on this radio button&comma. you do not have to enter
+:p.:font facename='Default' size=0x0.If you click on this radio button&comma. you do not have to enter
 anything more&comma. OdinBug will do all the rest for you.
 :p.Please note that current Mozilla and IBM-Webbrowser releases do
@@ -633 +633 @@
 :h2 res=640.PMMail (via PMMSend)
 
-:font facename='Default' size=0x0.:p.If you use PMMail as your favorite email client&comma. you have
+:p.:font facename='Default' size=0x0.If you use PMMail as your favorite email client&comma. you have
 to check this radio button. OdinBug will take care of all the
 rest.
@@ -651 +651 @@
 :h2 res=650.MR/2 ICE
 
-:font facename='Default' size=0x0.:p.If you use MR&slr.2 ICE as your favorite email client&comma. you
+:p.:font facename='Default' size=0x0.If you use MR&slr.2 ICE as your favorite email client&comma. you
 have to check this radio button. OdinBug will take care of all
 the rest.
@@ -658 +658 @@
 :h2 res=660.PolarBar
 
-:font facename='Default' size=0x0.:p.If you use PolarBar as your favorite email client&comma. you have
+:p.:font facename='Default' size=0x0.If you use PolarBar as your favorite email client&comma. you have
 to check this radio button.
 
@@ -673 +673 @@
 :h2 res=670.Other email client
 
-:font facename='Default' size=0x0.:p.If you are using the generic email support&comma. you will have
+:p.:font facename='Default' size=0x0.If you are using the generic email support&comma. you will have
 to paste the bug report from the clipboard to the body of the
 message. Eventually you will also have to specify the subject.
@@ -681 +681 @@
 :h2 res=680.EMail directory
 
-:font facename='Default' size=0x0.:p.OdinBug changes into this directory before sending the report if
+:p.:font facename='Default' size=0x0.OdinBug changes into this directory before sending the report if
 this field is not empty.
 :p.This field is needed for PMMail support and might be useful for
@@ -688 +688 @@
 :h2 res=690.EMail account/Outbox directory
 
-:font facename='Default' size=0x0.:p.:hp2.PMMail users&colon.
+:p.:font facename='Default' size=0x0.P:hp2.MMail users&colon.
 :p.:ehp2.Specify your email account directory name here (normally one of
 the directories 
@@ -698 +698 @@
 :h1 res=700 x=right y=bottom width=66% height=100%.Buttons
 
-:font facename='Default' size=0x0.:p.The following pages describe the functions of the various buttons
+:p.:font facename='Default' size=0x0.The following pages describe the functions of the various buttons
 found in OdinBug.
 
 :h2 res=720.Create
 
-:font facename='Default' size=0x0.:p.By pressing this button&comma. the actual report is created in
+:p.:font facename='Default' size=0x0.By pressing this button&comma. the actual report is created in
 the :link reftype=hd res=840.standard form:elink.. All the information has to be gathered and
 entered before doing this.
@@ -712 +712 @@
 :h2 res=730.EMail
 
-:font facename='Default' size=0x0.:p.Pressing the EMail button will copy the reportfile to the
+:p.:font facename='Default' size=0x0.Pressing the EMail button will copy the reportfile to the
 clipboard&comma. open an instance of your favorite email program.
 
@@ -724 +724 @@
 :h2 res=740.Open
 
-:font facename='Default' size=0x0.:p.Pressing this button opens the newly created OdinBug.RPT bug
+:p.:font facename='Default' size=0x0.Pressing this button opens the newly created OdinBug.RPT bug
 report file in your favorite editor&comma. in order to modify it
 manually before sending it to the appropriate email address.
@@ -730 +730 @@
 :h2 res=750.Browse
 
-:font facename='Default' size=0x0.:p.Pressing this button opens the program specified as logfile
+:p.:font facename='Default' size=0x0.Pressing this button opens the program specified as logfile
 browser on the settings page with the current odin32_?.log as
 parameter in order to ease the manual investigation of the
@@ -737 +737 @@
 :h2 res=760.Help
 
-:font facename='Default' size=0x0.:p.This button opens the file you are just reading.
+:p.:font facename='Default' size=0x0.This button opens the file you are just reading.
 :p.Amazing&comma. ain't it?
 
 :h2 res=770.Exit
 
-:font facename='Default' size=0x0.:p.Pressing this button will close OdinBug without any further
+:p.:font facename='Default' size=0x0.Pressing this button will close OdinBug without any further
 action.
 
 :h2 res=780.Save settings
 
-:font facename='Default' size=0x0.:p.Pressing this button saves all the options to OdinBug.INI&comma.
+:p.:font facename='Default' size=0x0.Pressing this button saves all the options to OdinBug.INI&comma.
 a standard OS&slr.2 (eCS) INI file which resides in the same
 directory as OdinBug.EXE.
@@ -753 +753 @@
 :h2 res=790.Recreate objects
 
-:font facename='Default' size=0x0.:p.When OdinBug.EXE is called for the first time (or with the
+:p.:font facename='Default' size=0x0.When OdinBug.EXE is called for the first time (or with the
 &slr.InstallOnly commandline switch)&comma. it will
 create&slr.update its objects and associations in the Odin
@@ -761 +761 @@
 :h2 res=7100.Destroy objects
 
-:font facename='Default' size=0x0.:p.Pressing this button will destroy all objects that are created by
+:p.:font facename='Default' size=0x0.Pressing this button will destroy all objects that are created by
 OdinBug.
 :note.OdinBug also creates the Odin folder&comma. if it is not found on
@@ -770 +770 @@
 :h2 res=7110.About
 
-:font facename='Default' size=0x0.:p.Like in every program the "About" button is the most important
+:p.:font facename='Default' size=0x0.Like in every program the "About" button is the most important
 function of all.
 :p.It displays&comma. what you never would have expected&colon. All
@@ -779 +779 @@
 :h1 res=800 x=right y=bottom width=66% height=100%.Miscanellous
 
-:font facename='Default' size=0x0.:p.The following sections of the manual contain various topics
+:p.:font facename='Default' size=0x0.The following sections of the manual contain various topics
 around Odin&comma. logging and reporting bugs.
 
 :h2 res=820.Extended logging feature
 
-:font facename='Default' size=0x0.:p.Disabling or enabling logging for all the Odin dlls isn't always
+:p.:font facename='Default' size=0x0.Disabling or enabling logging for all the Odin dlls isn't always
 useful. To make logging more flexible&comma. you can now disable
 or enable separate source files for each dll.
@@ -828 +828 @@
 :h2 res=830.Email client support and further development
 
-:font facename='Default' size=0x0.:p.In order to provide email support for a specific email
+:p.:font facename='Default' size=0x0.In order to provide email support for a specific email
 program&comma. I need to know how to send emails by command line
 with this program.
@@ -847 +847 @@
 :h2 res=840.Standard form of a bug report
 
-:font facename='Default' size=0x0.:lines align=left.:font facename='Courier' size=12x6.--------------------- Begin of Odin Bug Report ----------------------
+:lines align=left.:font facename='Courier' size=12x6.:font facename='Default' size=0x0.--------------------- Begin of Odin Bug Report ----------------------
   
 Odin build information&colon.
@@ -892 +892 @@
 :h2 res=850.Installation of OdinBug
 
-:font facename='Default' size=0x0.:p.As OdinBug.EXE is written in VX-REXX it needs the VROBJ.DLL runtime.
+:p.:font facename='Default' size=0x0.As OdinBug.EXE is written in VX-REXX it needs the VROBJ.DLL runtime.
 
 :p.VROBJ.DLL can be found in the directory x&colon.&bsl.IMAGES (x=CD-ROM drive)
@@ -941 +941 @@
 :h2 res=860.Commandline options for OdinBug
 
-:font facename='Default' size=0x0.:p.OdinBug accepts the following items on the commandline&colon.
+:p.:font facename='Default' size=0x0.OdinBug accepts the following items on the commandline&colon.
 :ul.
 :li.:font facename='Courier' size=12x6.&slr.InstallOnly:font facename='Default' size=0x0. (not case sensitive)&colon.
@@ -959 +959 @@
 :h2 res=870.Contributors
 
-:font facename='Default' size=0x0.:p.This compilation was done in November&slr.December 2001 by&colon.
+:p.:font facename='Default' size=0x0.This compilation was done in November&slr.December 2001 by&colon.
 
 :p.Herwig Bauernfeind (:link reftype=fn refid=999.herwig.bauernfeind@aon.at:elink.)
@@ -981 +981 @@
 :h2 res=880.Dedication
 
-:font facename='Default' size=0x0.:p.This release is dedicated to the loving memory of my elder
+:p.:font facename='Default' size=0x0.This release is dedicated to the loving memory of my elder
 brother Walter Bauernfeind&comma. who died from cancer on
 06.01.2002.
@@ -991 +991 @@
 
 
-:p.:link reftype=fn refid=IPFGen.About IPF-Generator:elink.
-:fn id=IPFGen.:lines.:hp8.:font facename='Tms Rmn' size=24x14.IPF-Generator Version 0.82:font facename=Helv size=8x4.alpha:ehp8.:font facename='Tms Rmn' size=24x14.
-:font facename=Helv size=8x4.Another fine user developed piece of software
-written in FRED for good, old Framework IV.
-(c) by Herwig Bauernfeind. All rights reserved.
-:elines.:p.IPF-Generator is (1) a printer driver and (2) a bound set of macros, that create the IPF-Tags (not all by now), translate Framework container structures to .IPF structures and call the IBM IPF-Compiler at last.
-:p.Viewers available for OS/2-PM, OS/2-Text, Win16, DOS-Text.:efn.
 :euserdoc.

trunk/tools/OdinBug/OdinBug.RC

@@ -1 +1 @@
 ICON 1 ODINBUG.ICO
 BITMAP 2 ODIN.BMP
+BITMAP 4 PAPER1.BMP
+BITMAP 5 PAPER2.BMP
+BITMAP 6 PAPER3.BMP
+BITMAP 11 TAB11.BMP
+BITMAP 12 TAB12.BMP
+BITMAP 13 TAB13.BMP
+BITMAP 14 TAB14.BMP
+BITMAP 15 TAB15.BMP
+BITMAP 16 TAB16.BMP
+BITMAP 21 TAB21.BMP
+BITMAP 22 TAB22.BMP
+BITMAP 23 TAB23.BMP
+BITMAP 24 TAB24.BMP
+BITMAP 25 TAB25.BMP
+BITMAP 26 TAB26.BMP
+

trunk/tools/OdinBug/OdinBug.VRP

@@ -6 +6 @@
 RunParameters: 
 RunDirectory: 
-VRXWindow: __VREMainWindow,1,527,1987,979,7995
-VRXWindow: __VREFileListWindow,1,542,10058,1912,3358
-VRXWindow: __VRESectionListWindow,1,5661,10058,4291,3373
-VRXWindow: __VREToolsWindow,1,527,60,4996,1681
-VRXWindow: __VREWindListWindow,1,2469,10058,3162,3373
+VRXWindow: __VREMainWindow,1,1039,1987,994,7905
+VRXWindow: __VREFileListWindow,1,602,10901,2665,3358
+VRXWindow: __VRESectionListWindow,1,5977,10901,2650,3342
+VRXWindow: __VREToolsWindow,1,2800,60,5505,1688
+VRXWindow: __VREWindListWindow,1,3297,10901,2650,3150
 UserFile: 1
 UserWindow: OdinBugReport,1
+UserWindow: Progress,1
 UserWindow: AboutPage,1

trunk/tools/OdinBug/OdinBug.VRX

@@ -96 +96 @@
        which display driver is installed
      */
+    FoundWin32KSysNow = 0
     ConfigSys = SysBootDrive()'\CONFIG.SYS'
     do while lines(ConfigSys) > 0 
@@ -133 +134 @@
     call lineout(ConfigSys)
 return
+
 /*:VRX         _AnalyseKernel32DLL
 */
@@ -186 +188 @@
 
     ExceptFilename = filespec('D',LogFileName)||filespec('P',LogFileName)||'Except.$$$'
-
     LogFileSize = stream(LogfileName,'c','QUERY SIZE')
     ApproxLines = LogFileSize % 41
@@ -235 +236 @@
     call lineout(LogFileName)
 return
+
 /*:VRX         _AnalyseOdinIni
 */
@@ -306 +308 @@
         if pos('build',logline) > 0 then do
             SddBuildNr = substr(LogLine,pos('build',logline),10)
+            IsSNAP = sign(Pos('SNAP',LogLine))
         end
     end
@@ -313 +316 @@
     License = linein(GraphicsLog)
     select 
-        when word(License,1)= 'Valid' & word(License,2) = 'IHV' then Driver = 'Scitech Display Doctor/SE'
-        when word(License,1)= 'Registered' & word(License,2) = 'end' then Driver = 'Scitech Display Doctor/Pro'
-        otherwise Driver = 'Scitech DD/Demo'
+        when word(License,1)= 'Valid' & word(License,2) = 'IHV' & \IsSNAP then Driver = 'Scitech Display Doctor/SE'
+        when word(License,1)= 'Valid' & word(License,2) = 'IHV' & IsSNAP  then Driver = 'Scitech SNAP/OEM'
+        when word(License,1)= 'Registered' & word(License,2) = 'end' & \IsSNAP then Driver = 'Scitech Display Doctor/Pro'
+        when word(License,1)= 'Registered' & word(License,2) = 'end' & IsSNAP  then Driver = 'Scitech SNAP'
+        otherwise if IsSNAP then Driver = 'Scitech SNAP/Demo'
+            else Driver = 'Scitech Display Doctor/Demo'
     end
 
@@ -349 +355 @@
     sys_os2 = SysSearchPath('path', 'syslevel.os2')
     sys_info = Charin(sys_os2, 1, 150)
-    Parse Var sys_info . 61 os_name 141 os_comp 150
+    Parse Var sys_info . 53 os_type 61 os_name 141 os_comp 150
     os_name = Strip(os_name, 't', '00'x)
+    os_type = Strip(os_type, 't', '_')
+    parse var os_type . 4 major 6 minor
     os_ver  = SysOS2Ver()
-    if os_ver = 2.30 then OS2Type = "OS/2 Warp 3 (not supported)"
+    if os_ver = 2.30 then OS2Type = "OS/2 Warp 3.0x (not supported)"
     select 
         when os_comp = '5639A6100' then do
-            if os_ver = 2.40 then OS2Type = "OS/2 Warp 4"
-            if os_ver = 2.45 then OS2Type = "OS/2 Warp 4.5"
-        end
-        when os_comp = '5639A6101' then OS2Type = "OS/2 4.51 MCP or eComStation"
-        when os_comp = '5639A6150' then OS2Type = "OS/2 WSeB uni"
-        when os_comp = '5639A5550' then OS2Type = "OS/2 WSeB smp"
+            if os_ver = 2.40 then OS2Type = "OS/2 Warp 4.00"
+            if os_ver = 2.45 then OS2Type = "OS/2 Warp 4.50"
+        end
+        when os_comp = '5639A6101' & minor = '01' then OS2Type = "OS/2 Warp 4.51 (MCP1)"
+        when os_comp = '5639A6101' & minor = '02' then OS2Type = "OS/2 Warp 4.52 (MCP2)"
+        when os_comp = '5639A6150' & minor = '00' then OS2Type = "OS/2 WSeB 4.50 uni"
+        when os_comp = '5639A6150' & minor = '01' then OS2Type = "OS/2 WSeB 4.51 uni (ACP1)"
+        when os_comp = '5639A6150' & minor = '02' then OS2Type = "OS/2 WSeB 4.52 uni (ACP2)"
+        when os_comp = '5639A5550' & minor = '00' then OS2Type = "OS/2 WSeB 4.50 smp"
+        when os_comp = '5639A5550' & minor = '01' then OS2Type = "OS/2 WSeB 4.51 smp (ACP1)"
+        when os_comp = '5639A5550' & minor = '02' then OS2Type = "OS/2 WSeB 4.52 smp (ACP2)"
         otherwise do
         end
@@ -366 +379 @@
     ok = stream(sys_os2,'c','CLOSE')
 
+    /* detect eComStation - a very simplicistic approach */    
+    ecs = 1
+    ok = SysFileTree(SysBootDrive()'\WiseMachine.fit',ecs.,'FO')
+    ecs = ecs * ecs.0
+    ok = SysFileTree(SysBootDrive()'\eCS',ecs.,'DO')
+    ecs = ecs * ecs.0
+    ok = SysFileTree(SysBootDrive()'\TVoice',ecs.,'DO')
+    ecs = ecs * ecs.0
+    if ecs then OS2Type = 'eComStation (Base: 'substr(OS2Type,10)')'
+    
     /* get Kernel Version */
     BldInfo     = 'BldInfo.TXT'
@@ -510 +533 @@
         end
     end
-    /* if UseRxNap then ok = RxNap(1) */
 return
 
@@ -555 +577 @@
     end
 return AllowReport
-/*:VRX         _CheckInvalidreport
-*/
-_CheckInvalidreport: 
+
+/*:VRX         _CheckInvalidReport
+*/
+_CheckInvalidReport: 
     Invalidreport = 0
     InvalidReport = InvalidReport + (VRGet("EF_Build","value") = "")
@@ -627 +650 @@
     end
     ok = lineout(ExceptFileName)
-return    
-
-/*
-    call lineout RptFileName, 'Exception information and stack dump:'
-    call lineout RptFileName, '  '
-    LogFileName = VRget("EF_LogFile","Value")
-    if LogFileName = '' then return
-    Buffer.0 = VRGet("SPIN_BufferSize","Value")
-    LogFileSize = stream(LogfileName,'c','QUERY SIZE')
-    call _InitProgress
-    ApproxLines = LogFileSize % 41
-    
-    I = 0
-    do while pos('Exception Information',LogLine) = 0 & lines(LogFileName) <> 0
-        LogLine = linein(LogFileName)
-        I = I + 1
-        idx = I // 10 + 1
-        Buffer.idx = LogLine
-        if I // 1000 = 0 then do
-            call _CheckForEvent
-            Progress = I * 100 % ApproxLines
-            ok = VRSet("SL_Progress","Percentile",Progress)
-        end
-    end
-    if lines(LogFileName) = 0 then do
-        call lineout RptFileName, 'No exception found in logfile!'
-    end
-    else do /* we had an exception lets create the dump */
-        do J = idx+1 to 10
-            call lineout RptFileName, Buffer.J
-        end
-        do J = 1 to idx
-            call lineout RptFileName, Buffer.J
-        end
-        LogLine = linein(LogFileName)
-        do until pos('End Of Exception Information',LogLine) > 0 | lines(LogFileName) = 0
-            LogLine = linein(LogFileName)
-            call lineout RptFileName, LogLine
-        end
-
-        do while pos('** BEGIN STACK DUMP **',LogLine) = 0 & lines(LogFileName) <> 0
-            LogLine = linein(LogFileName)
-            I = I + 1
-            Progress = I * 100 % ApproxLines
-            ok = VRSet("SL_Progress","Percentile",Progress)
-        end 
-        call lineout RptFileName, LogLine
-        do until pos('** END OF STACK DUMP **',LogLine) > 0 | lines(LogFileName) = 0
-            LogLine = linein(LogFileName)
-            call lineout RptFileName,LogLine
-        end
-    end
-    call lineout(LogFileName)
-    ok = VRSet("Progress","Visible", 0) */
+return
 
 /*:VRX         _CreateObject
@@ -889 +859 @@
 
 Options Must Begin With A Slash '/'  */
+
 /*:VRX         _EMailPolarbar
 */
@@ -927 +898 @@
     end
 return
+
 /*:VRX         _FillPageException
 */
@@ -947 +919 @@
 return
 
-/*:VRX         _GotNewLogfileName
-*/
-_GotNewLogfileName: 
+/*:VRX         _GotNewLogFileName
+*/
+_GotNewLogFileName: 
     ok = VRSet("PB_CreateReport","Visible", 1)
     ok = VRset("EF_LogFile","Value",LogFilename)
@@ -1050 +1022 @@
     end
 return
+
 /*:VRX         _GUIInit
 */
@@ -1057 +1030 @@
                               else ok = VRSet("CB_WIN32LOG_ENABLED","set",0)
 
-    ok = VRSet( "GB_Settings",       "HintText", "Currently using "our_ini)
+    ok = VRSet( "Page_6",            "HintText", "Currently using "our_ini) /* Settings page */
     ok = VRSet( "EF_BuildDir",       "Value", BuildDir       )
     ok = VRSet( "EF_TestAppDir",     "Value", TestAppDir     )
@@ -1077 +1050 @@
 
     /*  enter help file */
-    ok = VRSet("OdinBugReport",   "HelpFile", base_dir"OdinBug.HLP")
-    ok = VRSet("PageApplication", "HelpFile", base_dir"OdinBug.HLP")
-    ok = VRSet("PageOdin",        "HelpFile", base_dir"OdinBug.HLP")
-    ok = VRSet("PageSystem",      "HelpFile", base_dir"OdinBug.HLP")
-    ok = VRSet("PageSettings",    "HelpFile", base_dir"OdinBug.HLP")
-    ok = VRSet("PageEMail",       "HelpFile", base_dir"OdinBug.HLP")
+    ok = VRSet("OdinBugReport", "HelpFile", base_dir"OdinBug.HLP") /* Main Window */
+/*  ok = VRSet("Page_1",        "HelpFile", base_dir"OdinBug.HLP") /* Application */
+    ok = VRSet("Page_3",        "HelpFile", base_dir"OdinBug.HLP") /* Odin */
+    ok = VRSet("Page_4",        "HelpFile", base_dir"OdinBug.HLP") /* System */
+    ok = VRSet("Page_5",        "HelpFile", base_dir"OdinBug.HLP") /* Settings */
+    ok = VRSet("Page_6",        "HelpFile", base_dir"OdinBug.HLP") /* EMail */  */
 return
 
@@ -1131 +1104 @@
 /*:VRX         _INIRead
 */
-_INIRead: /* Initialize variables, read values from INI file */
+_INIRead: 
     /* Show our window */
     if translate(VRGet("Application","Commandline")) <> '/INSTALLONLY' then do
@@ -1142 +1115 @@
     ok = SysFileDelete('OdinBug.CFG')
 
-    /* Disable obsolete RxNap support */
-    UseRxNap                = 0 /* \RxFuncQuery(RxNap) */
- 
     /* Msg.Title = default title for message boxes */
     Msg.Title               = 'Odin Bug Report Generator'
 
-    /*  Initialize variables - former undocumented cfg switches */
+    /*  Initialize variables */
     WarnOld                 = 10 /* days */
     TooOld                  = 20 /* days */
@@ -1158 +1128 @@
     ExceptionSearchDone     = 0
     DestroyWPS              = 0
+    ReplaceObjects          = 0
 
     /* for abbreviation purposes */    
@@ -1281 +1252 @@
 /*:VRX         _INIWrite
 */
-_INIWrite: /* Write settings to INI file */
+_INIWrite: 
     ok = VRSetIni( "OdinBug", "BuildDir", BuildDir, our_ini, 'NoClose' )
     ok = VRSetIni( "OdinBug", "DontSaveAppDir", DontSaveAppDir, our_ini, 'NoClose' )
@@ -1306 +1277 @@
     ok = SysDestroyObject("<OdinBug>")
 
-    /* Set Creation Disposition - we are polite and update always */
-    CreateCollision = 'Update'
+    /* Set Creation Disposition - we are polite and update per default */
+    if ReplaceObjects then CreateCollision = 'Replace'
+                      else CreateCollision = 'Update'
 
     rc1 = _CreateObject( 'WPFolder','Odin','<WP_PROGRAMSFOLDER>',,
@@ -1364 +1336 @@
             'OBJECTID=<Subscribe_odinusers@yahoogroups>',,
         CreateCollision )
-    rc6 = _CreateObject( 'WPProgram','Project Odin User''s Manual','<ODINFOLDER>',,
+    rc6 = _CreateObject( 'WPProgram','Odin User''s Manual','<ODINFOLDER>',,
             'EXENAME=VIEW.EXE;'||,
             'PROGTYPE=PM;'||,
             'PARAMETERS='||base_dir||'ODINUSER.INF Introduction;'||,
-            'TITLE=Project Odin^User''s Manual;'||,
+            'TITLE=Odin User''s Manual;'||,
             'NOPRINT=YES;'||,
             'HIDEBUTTON=DEFAULT;'||,
@@ -1374 +1346 @@
             'CCVIEW=DEFAULT;'||,
             'DEFAULTVIEW=DEFAULT;'||,
-            'OBJECTID=<Project_Odin_Users_Manual>',,
+            'OBJECTID=<Odin_Users_Manual>',,
         CreateCollision )
 
@@ -1398 +1370 @@
     end
 return
+
 /*:VRX         _LaunchPMMail
 */
@@ -1438 +1411 @@
         when KeyStr = "{Alt}h" then call PB_Help_Click 
         when KeyStr = "{Alt}x" then call PB_Exit_Click
+        when KeyStr = "{Alt}{PgUp}" then call Activate max(CurrentPageNr-1,1)
+        when KeyStr = "{Alt}{PgDown}" then call Activate min(CurrentPageNr+1,Pages)
         otherwise ok = VRSet(KeyObj, "KeyString", Keystr)
     end
 return
-
 /*:VRX         _ShowMsg
 */
@@ -1461 +1435 @@
     call _AnalyseWarpINdatabase
     call _GUIRedraw
-    if LogFileName = '' 
+    if LogFileName = '' | LogfileName = 'LOGFILENAME'
         then call PB_SearchLogFile_Click
         else call _GotNewLogfileName
@@ -1579 +1553 @@
 return
 
+/*:VRX         Activate
+*/
+Activate: 
+    parse arg Nr
+    call PushbackAll
+    CurrentPageNr = Nr
+    /* ok = VRSet("PB_"Nr,"Font","9.WarpSans Bold") */
+    ok = VRSet("TAB_"Nr,"Top", TabTop-8)
+    ok = VRSet("TAB_"Nr,"Left",TabWidth*(Nr-1)+PageLeft)
+    ok = VRSet("TAB_"Nr,"PicturePath", "#1"||Nr)
+    ok = VRset("DT_PageName", "Caption", VRGet("Page_"Nr, "Caption"))
+    ok = VRSet("Page_"Nr,"Visible", 1)
+    ok = VRSet("Page_"Nr,"BorderType", 'None')
+    ok = VRSet("Page_"Nr,"Height", VRget("GB_Main2","Height")-600)
+    ok = VRSet("Page_"Nr,"Width", VRget("GB_Main2","Width")-450)
+    ok = VRSet("Menu_"Nr,"Checked", 1)
+    select 
+        when Nr = 1 then ok = VRSet("IPB_paper","PicturePath","#4")
+        when Nr = Pages then ok = VRSet("IPB_paper","PicturePath","#6")
+        otherwise ok = VRSet("IPB_paper","PicturePath","#5")
+    end
+return
+
 /*:VRX         CB_AddException_Click
 */
@@ -1609 +1606 @@
 return
 
-/*:VRX         CB_UseRxNap_Click
-*/
-CB_UseRxNap_Click: 
-    UseRxNap then ok = VRGet("CB_UseRxNap","Set")
+/*:VRX         CB_ReplaceObjects_Click
+*/
+CB_ReplaceObjects_Click: 
+    ReplaceObjects = VRget("CB_replaceObjects","set")
 return
 
@@ -1734 +1731 @@
 return 0
 
+/*:VRX         GB_Main_ContextMenu
+*/
+GB_Main_ContextMenu: 
+    nop
+return
+
+/*:VRX         GetBootDrive
+*/
+GetBootDrive: 
+/* Use SysBootDrive if possible */
+If Rxfuncadd('SysBootDrive', 'RexxUtil', 'SysBootDrive') Then
+   Return Left(Value('RUNWORKPLACE',,'OS2ENVIRONMENT'),2)
+Else
+   Return SysBootDrive()
+
+
 /*:VRX         Halt
 */
@@ -1740 +1753 @@
 return
 
-/*:VRX         HelpWindow_Close
-*/
-HelpWindow_Close: 
-    call HelpWindow_Fini
-return
-
-/*:VRX         HelpWindow_Create
-*/
-HelpWindow_Create: 
-    call HelpWindow_Init
-return
-
-/*:VRX         HelpWindow_Fini
-*/
-HelpWindow_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         HelpWindow_Init
-*/
-HelpWindow_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        /* call VRMethod window, "CenterWindow" */
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
 /*:VRX         Init
 */
 Init:
-    window = VRWindow()
-    call VRMethod window, "CenterWindow"
-    call VRSet window, "Visible", 0
-    call VRMethod window, "Activate"
-    drop window
-return
-
-/*:VRX         NB_Main_PageSelected
-*/
-NB_Main_PageSelected: 
-    /* CurPage = VRMethod("NB_Main","GetPageWindow",VRInfo("Page")) */
-    CurPage = VRInfo("Page")
-    select
-        when CurPage = 1 then ok = VRMethod("EF_Appname","setfocus")
-        when CurPage = 2 then ok = VRMethod("LB_Exception","setfocus")
-        when CurPage = 3 then ok = VRMethod("EF_Build","setfocus")
-        when CurPage = 4 then ok = VRMethod("DDCB_OS2Version","Setfocus")
-        when CurPage = 5 then do
-            ok = VRSet("EF_BuildDir","Value", BuildDir)
-            ok = VRSet("EF_TestAppDir","Value", TestAppDir)
-            ok = VRMethod("EF_BuildDir","SetFocus")
-        end
-        when CurPage = 6 then do
-            ok = VRSet("EF_MessengerDir","Value", MessengerDir)
-            ok = VRMethod("DDCB_EMail","SetFocus")
-        end
-        otherwise nop
-    end
+window = VRWindow()
+call VRMethod window, "CenterWindow"
+call VRSet window, "Visible", 0
+call VRMethod window, "Activate"
+drop window
+return
+
+/*:VRX         IPB_Paper_Click
+*/
+IPB_Paper_Click: 
+    if VRInfo("Left") >  VRInfo("Top") then call Activate min(CurrentPageNr+1,Pages)
+    if VRInfo("Left") <= VRInfo("Top") then call Activate max(CurrentPageNr-1,1)
+return
+
+/*:VRX         Menu_1_Click
+*/
+Menu_1_Click: 
+    call Activate 1
+return
+
+/*:VRX         Menu_2_Click
+*/
+Menu_2_Click: 
+    call Activate 2
+return
+
+/*:VRX         Menu_3_Click
+*/
+Menu_3_Click: 
+    call Activate 3
+return
+
+/*:VRX         Menu_4_Click
+*/
+Menu_4_Click: 
+    call Activate 4
+return
+
+/*:VRX         Menu_5_Click
+*/
+Menu_5_Click: 
+    call Activate 5
+return
+
+/*:VRX         Menu_6_Click
+*/
+Menu_6_Click: 
+    call Activate 6
 return
 
@@ -1818 +1820 @@
 return
 
+/*:VRX         OdinBugReport_ContextMenu
+*/
+OdinBugReport_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
 /*:VRX         OdinBugReport_Create
 */
@@ -1823 +1831 @@
     call _LoadOtherFuncs
     window = VRLoadSecondary( "Progress" )
+    ok = VRMethod("PB_Exit","SetFocus")
+    call PushbackAll
+    call TAB_1_Click
     call _INIRead
-return
-
-/*:VRX         PageApplication_Close
-*/
-PageApplication_Close: 
-    call PageApplication_Fini
-return
-
-/*:VRX         PageApplication_Create
-*/
-PageApplication_Create: 
-    call PageApplication_Init
+    call Page1_Create
+    call Page2_Create
+    call Page3_Create
+    call Page4_Create
+    call Page5_Create
+    call Page6_Create
+    /* call OdinBugReport_Resize */
+
+return
+
+/*:VRX         OdinBugReport_KeyPress
+*/
+OdinBugReport_KeyPress: 
+    call _ProcessHotKeys
+return
+
+/*:VRX         OdinBugReport_Resize
+*/
+OdinBugReport_Resize: 
+    MainWin = "OdinBugReport"
+    ok = VRset(MainWin,"Visible", 0)
+    ok = VRSet(MainWin,"Width",max(VRget(MainWin,"Width"),Pages*TabWidth+300))
+    ok = VRset("GB_Main","width",VRget(MainWin,"Width")-150)
+    ok = VRset("GB_Main","Height",VRget(MainWin,"Height")-1175-330)
+    ok = VRset("GB_Main2","width",VRget("GB_Main","Width")-260)
+    ok = VRset("GB_Main2","Height",VRget("GB_Main","Height")-275)
+    ok = VRset("GB_LineVertical","Left",VRget("GB_Main2","Width")-60)
+    ok = VRset("GB_LineVertical","Height",VRget("GB_Main2","Height")-410)
+    ok = VRset("IPB_Paper","Left",VRget("GB_Main2","width")-510)
+    ok = VRset("GB_LineHorizTop","Width",VRget("GB_Main2","width")-480)
+    ok = VRset("GB_LineHorizTop","Width",VRget("GB_Main2","width")-480)
+    ok = VRset("GB_LineHorizSubtitle","Width",VRget("GB_Main2","width")-480)
+    do I = 1 to Pages
+        ok = VRSet("Page_"I,"Height", VRget("GB_Main2","Height")-600)
+        ok = VRSet("Page_"I,"Width", VRget("GB_Main2","Width")-450)
+    end
+    ok = VRSEt("PB_CreateReport","top",VRGet("GB_Main","Height")+365)
+    ok = VRSEt("PB_EMail","top",VRGet("GB_Main","Height")+365)
+    ok = VRSEt("PB_OpenReport","top",VRGet("GB_Main","Height")+365)
+    ok = VRSEt("PB_BrowseLogFile","top",VRGet("GB_Main","Height")+365)
+    ok = VRSEt("PB_Help","top",VRGet("GB_Main","Height")+365)
+    ok = VRSEt("PB_Exit","top",VRGet("GB_Main","Height")+365)
+    ButtonDist= 1080
+    ButtonNr  = 6
+    ButtonPos = max((VRget(MainWin,"Width")-ButtonDist*ButtonNr)/2,0)
+    ok = VRSEt("PB_CreateReport","Left",ButtonPos+ButtonDist*(ButtonNr-6))
+    ok = VRSEt("PB_EMail","Left",ButtonPos+ButtonDist*(ButtonNr-5))
+    ok = VRSEt("PB_OpenReport","Left",ButtonPos+ButtonDist*(ButtonNr-4))
+    ok = VRSEt("PB_BrowseLogFile","Left",ButtonPos+ButtonDist*(ButtonNr-3))
+    ok = VRSEt("PB_Help","left",ButtonPos+ButtonDist*(ButtonNr-2))
+    ok = VRSEt("PB_Exit","left",ButtonPos+ButtonDist*(ButtonNr-1))
+    ok = VRset(MainWin,"Visible", 1)
+return
+
+/*:VRX         Page1_Create
+*/
+Page1_Create: 
+    call Page1_Init /* Application */
     call _StartUp
-return
-
-/*:VRX         PageApplication_Fini
-*/
-PageApplication_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageApplication_Init
-*/
-PageApplication_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageApplication_KeyPress
-*/
-PageApplication_KeyPress: 
-    call _ProcessHotkeys
-return
-
-/*:VRX         PageEMail_Close
-*/
-PageEMail_Close: 
-    call PageEMail_Fini
-return
-
-/*:VRX         PageEMail_Create
-*/
-PageEMail_Create: 
-    call PageEMail_Init
-return
-
-/*:VRX         PageEMail_Fini
-*/
-PageEMail_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageEMail_Init
-*/
-PageEMail_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageEMail_KeyPress
-*/
-PageEMail_KeyPress: 
-    call _ProcessHotkeys
-return
-
-/*:VRX         PageException_Close
-*/
-PageException_Close: 
-    call PageException_Fini
-return
-
-/*:VRX         PageException_Create
-*/
-PageException_Create: 
-    call PageException_Init
-return
-
-/*:VRX         PageException_Fini
-*/
-PageException_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageException_Init
-*/
-PageException_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageOdin_Close
-*/
-PageOdin_Close: 
-    call PageOdin_Fini
-return
-
-/*:VRX         PageOdin_Create
-*/
-PageOdin_Create: 
-    call PageOdin_Init
-return
-
-/*:VRX         PageOdin_Fini
-*/
-PageOdin_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageOdin_Init
-*/
-PageOdin_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageOdin_KeyPress
-*/
-PageOdin_KeyPress: 
-    call _ProcessHotkeys
-return
-
-/*:VRX         PageSettings_Close
-*/
-PageSettings_Close: 
-    call PageSettings_Fini
-return
-
-/*:VRX         PageSettings_Create
-*/
-PageSettings_Create: 
-    call PageSettings_Init
-return
-
-/*:VRX         PageSettings_Fini
-*/
-PageSettings_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageSettings_Init
-*/
-PageSettings_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageSettings_KeyPress
-*/
-PageSettings_KeyPress: 
-    call _ProcessHotKeys
-return
-
-/*:VRX         PageSystem_Close
-*/
-PageSystem_Close: 
-    call PageSystem_Fini
-return
-
-/*:VRX         PageSystem_Create
-*/
-PageSystem_Create: 
-    call PageSystem_Init
-return
-
-/*:VRX         PageSystem_Fini
-*/
-PageSystem_Fini: 
-    window = VRInfo( "Window" )
-    call VRDestroy window
-    drop window
-return
-/*:VRX         PageSystem_Init
-*/
-PageSystem_Init: 
-    window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
-        call VRMethod window, "CenterWindow"
-        call VRSet window, "Visible", 1
-        call VRMethod window, "Activate"
-    end
-    drop window
-return
-
-/*:VRX         PageSystem_KeyPress
-*/
-PageSystem_KeyPress: 
-    call _ProcessHotkeys
-return
-
-/*:VRX         PB_About1_Click
-*/
-PB_About1_Click: 
-    window = VRLoadSecondary( "AboutPage", "W" )
+Return
+
+/*:VRX         Page1_Init
+*/
+Page1_Init: 
+
+return
+
+/*:VRX         Page2_Create
+*/
+Page2_create:
+
+Return
+/*:VRX         Page2_init
+*/
+Page2_init: 
+
+return
+
+/*:VRX         Page3_Create
+*/
+Page3_create:
+
+Return
+/*:VRX         Page3_Init
+*/
+Page3_Init: 
+
+return
+
+/*:VRX         Page4_Create
+*/
+Page4_Create: 
+
+Return
+/*:VRX         Page4_init
+*/
+Page4_init: 
+
+return
+
+/*:VRX         Page5_Create
+*/
+Page5_Create: 
+
+return
+
+/*:VRX         Page6_Create
+*/
+Page6_Create: 
+
 return
 
@@ -2066 +1964 @@
     'start "Browsing 'LogFileName'" /F 'LogFileBrowser' "'LogFileName'"'
 return
+
 /*:VRX         PB_CreateReport_Click
 */
@@ -2110 +2009 @@
     call OdinBugReport_Close
 return
+
 /*:VRX         PB_Help_Click
 */
@@ -2116 +2016 @@
     /* ok = SysSetObjectData(base_dir"OdinBug.HLP","OPEN=DEFAULT;PARAMETERS=Introduction") */
 return
-/*:VRX         PB_Install1_Click
-*/
-PB_Install1_Click: 
-    call _InstallWPSObjects
-return
+
 /*:VRX         PB_Install_Click
 */
@@ -2131 +2027 @@
     ok = SysSetObjectData(RPTFileName,"OPEN=DEFAULT")
 return
+
 /*:VRX         PB_SaveSettings1_Click
 */
@@ -2205 +2102 @@
     Lines.1 = "Many thanks go to Team Odin and their efforts, especially to Sander van Leeuwen for his (almost) endless patience and to my testers Sven Stroh and Peter Weilbacher."
     Lines.2 = " "
-    Lines.3 = "This program is free, but copyrighted software. The license for Odin is also valid for this program. Current source is freely available by request to the author."
+    Lines.3 = "This program is free, but copyrighted software. The license for Odin is also valid for this program."
     Lines.0 = 3
     Buttons.1 = "OK"
@@ -2212 +2109 @@
 return
 
-/*:VRX         PB_UnInstall1_Click
-*/
-PB_UnInstall1_Click: 
-    call _UnInstallWPSObjects
-return
 /*:VRX         PB_UnInstall_Click
 */
@@ -2252 +2144 @@
     end
     drop window
+return
+
+/*:VRX         PushbackAll
+*/
+PushbackAll: 
+    Pages = 6
+    /* Tab distance from top */
+    TabTop = 25
+    TabWidth = 1180
+    TabHeight= 360
+
+    /* Page Position */
+    PageLeft = 120
+    PageTop = PageLeft + TabTop + 330
+
+    /* Page size */
+    PageHeight = 4500
+    PageWidth = 7000
+    ok = VRset("DT_PageName", "Caption", "")
+    ok = VRSet("GB_Main","Left", 0)
+    ok = VRSet("GB_Main","Top", TabTop+290)
+    do I = 1 to Pages
+        ok = VRSet("TAB_"I,"Top", TabTop)
+        ok = VRSet("TAB_"I,"PicturePath","#2"||I)
+        ok = VRSet("TAB_"I,"Left",TabWidth*(I-1)+PageLeft)
+        ok = VRSet("TAB_"I,"Width",TabWidth)
+        ok = VRSet("TAB_"I,"Height",TabHeight)
+        ok = VRSet("Page_"I,"Height", PageHeight)
+        ok = VRSet("Page_"I,"Width", PageWidth)
+        ok = VRSet("Page_"I,"Left", PageLeft)
+        ok = VRSet("Page_"I,"Top", PageTop)
+        ok = VRSet("Page_"I,"Visible", 0)
+        ok = VRSet("Page_"I,"BackColor", "<default>")
+        ok = VRSet("Menu_"I,"Checked", 0)
+    end
 return
 
@@ -2394 +2321 @@
 return
 
+/*:VRX         TAB_1_Click
+*/
+TAB_1_Click: 
+    call Activate 1
+return
+
+/*:VRX         TAB_1_ContextMenu
+*/
+TAB_1_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
+/*:VRX         TAB_2_Click
+*/
+TAB_2_Click: 
+    call Activate 2
+return
+
+/*:VRX         TAB_2_ContextMenu
+*/
+TAB_2_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
+/*:VRX         TAB_3_Click
+*/
+TAB_3_Click: 
+    call Activate 3
+return
+
+/*:VRX         TAB_3_ContextMenu
+*/
+TAB_3_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
+/*:VRX         TAB_4_Click
+*/
+TAB_4_Click: 
+    call Activate 4
+return
+
+/*:VRX         TAB_4_ContextMenu
+*/
+TAB_4_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
+/*:VRX         TAB_5_Click
+*/
+TAB_5_Click: 
+    call Activate 5
+return
+
+/*:VRX         TAB_5_ContextMenu
+*/
+TAB_5_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
+/*:VRX         TAB_6_Click
+*/
+TAB_6_Click: 
+    call Activate 6
+return
+
+/*:VRX         TAB_6_ContextMenu
+*/
+TAB_6_ContextMenu: 
+    ok = VRMethod( "Menu_TabMenu", "Popup", , , "", "" )
+return
+
 /*:VRX         TM_CheckValid_Trigger
 */

trunk/tools/OdinBug/readme.source

@@ -1 @@
-Sourcecode for OdinBug 0.5.5
+Sourcecode for OdinBug 0.5.7
 ============================
 
@@ -8 +8 @@
       VX-REXX projects folder.
    
-   2. Unzip this OdinBugSrc055.ZIP in this folder.
+   2. Unzip this OdinBugSrc057.ZIP in this folder.
 
    3. Open OdinBug.VRP using VRXedit.
@@ -32 +32 @@
       taken to syncronize these two (or three). Check for event 
       routines tied to the entryfields on the settings page and 
-      for the subroutines _GUInit, _GUIEMailInit, _GUIRedraw and 
+      for the subroutines _GUIInit, _GUIEMailInit, _GUIRedraw and 
       _GUIRedraw2 to get an idea how I do this.
    
@@ -61 +61 @@
 D. AUTHOR:
 
-Herwig Bauernfeind, 02-12-2001
+Herwig Bauernfeind, 11-08-2002
 EMail: herwig.bauernfeind@aon.at