Upgrade to v0.86

Author: scrappy

src/bin/pgaccess/README.pga

@@ -1,7 +1,5 @@
 ---------------------------------------------------------------------------
 
-
-
 Copyright (c) 1994-7 Regents of the University of California
 
 Permission to use, copy, modify, and distribute this software and its
@@ -21,10 +19,10 @@ AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
 ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATIONS TO
 PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
 
+---------------------------------------------------------------------------
 
 
-
-PGACCESS 0.83 11 March 1998
+PGACCESS 0.86 29 March 1998
 ================================
 I dedicate this program to my little 4 year daughter Ana-Maria and my wife
 for their understanding. I hope they will forgive me for spending so many
@@ -38,15 +36,15 @@ First of all because PostgreSQL lacks a graphical interface where you
 can manage your tables, edit them, define queries, sequences and
 functions.
 
-I use Tcl/Tk because it's a powerfull language, and it took me only
+I use Tcl/Tk because it's a powerful language, and it took me only
 four days of hard work to get it as you see it now.
 
 
 
 2.How to INSTALL ?
 
-You will need Tcl/Tk package, I am using now Tcl 7.6 and Tk 4.2. There
-are some problems running under Tcl/Tk 8.0 but I will soon fix them.
+You will need Tcl/Tk package, I am using now Tcl 7.6 and Tk 4.2.
+PgAccess is running also on Tcl/Tk 8.0
 
 Also, you will need the PostgreSQL to Tcl interface library, lined as a
 Tcl/Tk 'load'-able module.  It is called libpgtcl and the source is
@@ -65,7 +63,9 @@ go for it.
 
 You run it with the command:
 
-        wish -f pgaccess.tcl
+        wish -f pgaccess.tcl [database]
+
+[database] is optional.
 
 Another way of loading the PostgreSQL library is running it with pgwish.
 It's a wish compiled with libpgtcl library so it could understand the
@@ -82,7 +82,7 @@ pgaccess.tcl file.
 - Saves preferences in ~/pgaccessrc file
 
 Tables
-- opening tables for vieweing, max 200 records
+- opening tables for viewing, max 200 records
 - column resizing by dragging the vertical grid lines
 - text will wrap in cells now
 - dynamic row height when editing
@@ -93,7 +93,7 @@ Tables
 - editing in place, double click the text you want to change
 - record deleting , point the record, press Del key
 - adding new records ,save new row with right-button-click on table for the moment
-- table generator assistant lizzard :-) (not wizzard)
+- table generator assistant
 - table renaming and deleting (dropping)
 - table information retrieving : owner, field information, indexes
 
@@ -102,7 +102,7 @@ Queries
 - save view layout
 - can store queries as views
 - execution of queries
-- vieweing of select type queries result
+- viewing of select type queries result
 - running action queries (insert, update, delete)
 - visual query builder with drag & drop support, table aliasing
 
@@ -128,7 +128,7 @@ Reports
 Forms
 - open user defined forms
 - form design module available
-- query widget allowing access to a recordset
+- query widget allowing access to a record set
 
 Scripts
 - define, modify and call user defined scripts
@@ -137,17 +137,17 @@ Scripts
 
 - table design (add new fields, renaming, etc)
 - sequence and function renaming
-- more powerfull report generator and viewer
+- more powerful report generator and viewer
 - help on line
 
 
 
 6. How you should report the errors?
 First of all : operating system, PostgreSQL version,Tcl/Tk version.
-A more detailed story of what have you done when error had occured.
+A more detailed story of what have you done when error had occurred.
 Tcl/Tk stops usually with a error message and there is a button there
 "Stack Trace" and if you press it, you will see a detailed information
-about the place where it stucks. Please send it to me.
+about the place where it stuck. Please send it to me.
 Some information about table structure, no. of fields, records would
 be also good.
 

src/bin/pgaccess/formdemo.sql

@@ -5,13 +5,22 @@ CREATE TABLE pga_reports (reportname varchar(64), reportsource text, reportbody
 CREATE TABLE phonebook (name varchar(32), phone_nr varchar(16), city varchar(32), company bool, continent char16);
 CREATE TABLE pga_layout (tablename varchar(64), nrcols int2, colnames text, colwidth text);
 COPY pga_queries FROM stdin;
+Query that can be saved as view	S	select * from phonebook where continent='usa'    
 \.
 COPY pga_forms FROM stdin;
+A simple demo form	asdf 14 {1 2 3 4 5 6 7 8 9 10 11 12 13 14} 377x315+170+155 {label label1 {15 36 99 57} {} {Selected color} {}} {entry entry2 {111 36 225 54} {} entry2 color} {radio red {249 21 342 36} {} {Red as cherry} color} {radio green {249 45 342 60} {} {Green as a melon} color} {radio blue {249 69 342 84} {} {Blue as the sky} color} {button button6 {45 69 198 99} {set color spooky} {Set a weird color} {}} {label label7 {24 129 138 147} {} {The checkbox's value} {}} {entry entry8 {162 129 172 147} {} entry8 cbvalue} {checkbox checkbox9 {180 126 279 150} {} {Check me :-)} cbvalue} {button button10 {219 273 366 303} {destroy .asdf} {Close that simple form} {}} {button button11 {219 237 366 267} {open_form "Phone book"} {Open my phone book} {}} {listbox lb {12 192 162 267} {} listbox12 {}} {button button13 {12 156 162 186} {.asdf.lb insert end red green blue cyan white navy black purple maroon violet} {Add some information} {}} {button button14 {12 273 162 303} {.asdf.lb delete 0 end} {Clear this listbox} {}}
 Phone book	pb 26 {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26} 444x310+284+246 {label label1 {33 12 63 30} {} Name {}} {entry name_entry {87 9 217 30} {} entry2 pbqs(name)} {label label3 {33 39 73 54} {} Phone {}} {entry entry4 {87 36 195 57} {} entry4 pbqs(phone_nr)} {label label5 {33 66 78 84} {} City {}} {entry entry6 {87 63 195 84} {} entry6 pbqs(city)} {query qs {3 6 33 33} {} query7 {}} {button button8 {126 177 198 203} {.pb.qs:setsql "select oid,* from phonebook where name ~* '$what' order by name"\
 .pb.qs:open\
 set nrecs [.pb.qs:nrecords]\
 .pb.qs:updatecontrols\
-.pb.qs:fill .pb.allnames name} Find {}} {button button9 {159 276 229 302} {.pb.qs:close\
+.pb.qs:fill .pb.allnames name\
+bind .pb.allnames <ButtonRelease-1> {\
+   set ancr [.pb.allnames curselection]\
+   if {$ancr!=""} {\
+\	.pb.qs:moveto $ancr\
+\	.pb.qs:updatecontrols\
+   }\
+}} Find {}} {button button9 {159 276 229 302} {.pb.qs:close\
 .pb.qs:clearcontrols\
 set nrecs {}\
 set what {}\
@@ -46,7 +55,6 @@ tk_messageBox -title Information -message "A new record has been added!"\
 # so I force it to 'f' (false)\
 set pbqs(company) f\
 focus .pb.name_entry} New {}} {listbox allnames {246 12 432 240} {} listbox26 {}}
-A simple demo form	asdf 14 {1 2 3 4 5 6 7 8 9 10 11 12 13 14} 377x315+170+155 {label label1 {15 36 99 57} {} {Selected color} {}} {entry entry2 {111 36 225 54} {} entry2 color} {radio red {249 21 342 36} {} {Red as cherry} color} {radio green {249 45 342 60} {} {Green as a melon} color} {radio blue {249 69 342 84} {} {Blue as the sky} color} {button button6 {45 69 198 99} {set color spooky} {Set a weird color} {}} {label label7 {24 129 138 147} {} {The checkbox's value} {}} {entry entry8 {162 129 172 147} {} entry8 cbvalue} {checkbox checkbox9 {180 126 279 150} {} {Check me :-)} cbvalue} {button button10 {219 273 366 303} {destroy .asdf} {Close that simple form} {}} {button button11 {219 237 366 267} {open_form "Phone book"} {Open my phone book} {}} {listbox lb {12 192 162 267} {} listbox12 {}} {button button13 {12 156 162 186} {.asdf.lb insert end red green blue cyan white navy black purple maroon violet} {Add some information} {}} {button button14 {12 273 162 303} {.asdf.lb delete 0 end} {Clear this listbox} {}}
 \.
 COPY pga_scripts FROM stdin;
 How are forms keeped inside ?	open_table pga_forms\
@@ -69,9 +77,14 @@ MUGADUMBU	+92 534662634	\N	t	africa
 Frank Zappa	6734567	Montreal	f	usa
 Jimmy Page	66323452		f	europe
 Constantin Teodorescu	+40 39 611820	Braila	f	europe
-NGBENDU Wazabanga	34577345	\N	f	africa
+Ngbendu Wazabanga	34577345		f	africa
+Victor Ciorbea	634567	Bucuresti	f	europe
+Mugabe Kandalam	7635745		f	africa
 \.
 COPY pga_layout FROM stdin;
 pga_forms	2	formname formsource	82 713
 phonebook	5	name phone_nr city company continent	150 105 80 66 85
+Usaisti	5	name phone_nr city company continent	150 150 150 150 150
+q1	5	name phone_nr city company continent	150 150 150 150 150
+view_saved_from_that_query	5	name phone_nr city company continent	150 150 150 150 150
 \.