diff --git a/src/bin/pgaccess/README b/src/bin/pgaccess/README
index 69a920ab67..3771708a3d 100644
--- a/src/bin/pgaccess/README
+++ b/src/bin/pgaccess/README
@@ -22,7 +22,7 @@ PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
---------------------------------------------------------------------------
-PGACCESS 0.98 29 August 1999
+PGACCESS 0.98.4 29 January 2000
================================
I dedicate this program to my little daughters Ana-Maria and Emilia and to my
wife for their understanding. I hope they will forgive me for spending so many
diff --git a/src/bin/pgaccess/demo/formdemo.sql b/src/bin/pgaccess/demo/formdemo.sql
index 6062c0d200..c802abdc56 100644
--- a/src/bin/pgaccess/demo/formdemo.sql
+++ b/src/bin/pgaccess/demo/formdemo.sql
@@ -38,12 +38,10 @@ CREATE TABLE "pga_schema" (
REVOKE ALL on "pga_schema" from PUBLIC;
GRANT ALL on "pga_schema" to PUBLIC;
CREATE TABLE "cities" (
- "id" int4 DEFAULT nextval('"cities_id_seq"') NOT NULL,
+ "id" int4 DEFAULT nextval ( '"cities_id_seq"' ) NOT NULL,
"name" character varying(32) NOT NULL,
"prefix" character varying(16) NOT NULL);
REVOKE ALL on "cities" from PUBLIC;
-GRANT UPDATE,DELETE,SELECT,RULE on "cities" to "fane";
-GRANT ALL on "cities" to "liviu";
CREATE FUNCTION "getcityprefix" (int4 ) RETURNS varchar AS 'select prefix from cities where id = $1 ' LANGUAGE 'SQL';
COPY "pga_queries" FROM stdin;
Query that can be saved as view S select * from phonebook where continent='usa' \N \N \N \N
diff --git a/src/bin/pgaccess/doc/html/download.html b/src/bin/pgaccess/doc/html/download.html
index efbe7bf50a..adc8286f86 100644
--- a/src/bin/pgaccess/doc/html/download.html
+++ b/src/bin/pgaccess/doc/html/download.html
@@ -14,11 +14,11 @@ Download
Constantin Teodorescu<
using Visual Tcl, the best tool for developing Tcl/Tk applications I've
ever seen.
Last version
-
Last stable version is 0.98 , released on 29 August 1999. Read what's
-new in 0.98.
+
Last stable version is 0.98.5 , released on 30 March 2000. Read what's
+new .
Portability issues
PgAccess is available for every platform where PostgreSQL was ported
and where a Tcl/Tk package is available. PgAccess has been reported running
on :
- Linux
- FreeBSD
+
- NetBSD
- Solaris
- HPUX
- Irix
diff --git a/src/bin/pgaccess/doc/html/whatsnew.html b/src/bin/pgaccess/doc/html/whatsnew.html
index f2faede015..187677f3ac 100644
--- a/src/bin/pgaccess/doc/html/whatsnew.html
+++ b/src/bin/pgaccess/doc/html/whatsnew.html
@@ -2,9 +2,47 @@
-
+
+30 March 2000 - PgAccess 0.98.5
+
+-
+added the "new database" feature
+
+-
+added the czech and spanish message file
+
+29 January 2000 - PgAccess 0.98.4
+
+-
+fixed a problem granting or revoking rights from PUBLIC
+
+-
+added the portuguese message file translation
+
+-
+fixed the preferences window problems for big screens 1280x1024
+
+17 January 2000 - PgAccess 0.98.3
+
+-
+prevent saving of big forms that source size has more than 8000 bytes so
+pga_forms table does not crash anymore, read FAQ
+how to make your form sources smaller
+
+-
+other very small bug fixes (less important)
+
+-
+some windows can resize now up to 1280x1024 on big screens
+
+-
+deutsh, russian and magyar message file available
+
+-
+FAQ updates
+
29 August 1999 - PgAccess 0.98 has been released!
-
diff --git a/src/bin/pgaccess/lib/forms.tcl b/src/bin/pgaccess/lib/forms.tcl
index 631c3537c7..de4761e9f6 100644
--- a/src/bin/pgaccess/lib/forms.tcl
+++ b/src/bin/pgaccess/lib/forms.tcl
@@ -419,6 +419,10 @@ global PgAcVar CurrentDB
}
lappend info [list $PgAcVar(fdobj,$i,class) $PgAcVar(fdobj,$i,name) $PgAcVar(fdobj,$i,coord) $PgAcVar(fdobj,$i,command) $PgAcVar(fdobj,$i,label) $PgAcVar(fdobj,$i,variable) $PgAcVar(fdobj,$i,value) $PgAcVar(fdobj,$i,relief) $PgAcVar(fdobj,$i,fcolor) $PgAcVar(fdobj,$i,bcolor) $PgAcVar(fdobj,$i,borderwidth) $wfont]
}
+ if {[string length $info]>8000} {
+ tk_messageBox -title [intlmsg Error] -message [intlmsg "Form too big!\nSource size [string length $info] bytes\nCannot save !"]
+ return 0
+ }
sql_exec noquiet "delete from pga_forms where formname='$PgAcVar(fdvar,formtitle)'"
regsub -all "'" $info "''" info
sql_exec noquiet "insert into pga_forms values ('$PgAcVar(fdvar,formtitle)','$info')"
diff --git a/src/bin/pgaccess/lib/functions.tcl b/src/bin/pgaccess/lib/functions.tcl
index 96e4860592..84e7988ee8 100644
--- a/src/bin/pgaccess/lib/functions.tcl
+++ b/src/bin/pgaccess/lib/functions.tcl
@@ -57,7 +57,8 @@ global PgAcVar
showError [intlmsg "You must supply the function language!"]
} else {
set funcbody [.pgaw:Function.fs.text1 get 1.0 end]
- regsub -all "\n" $funcbody " " funcbody
+ # regsub -all "\n" $funcbody " " funcbody
+ regsub -all {'} $funcbody {''} funcbody
if {$PgAcVar(function,nametodrop) != ""} {
if {! [sql_exec noquiet "drop function $PgAcVar(function,nametodrop)"]} {
return
diff --git a/src/bin/pgaccess/lib/help.tcl b/src/bin/pgaccess/lib/help.tcl
index 87f65703f8..f5ed12e510 100644
--- a/src/bin/pgaccess/lib/help.tcl
+++ b/src/bin/pgaccess/lib/help.tcl
@@ -80,7 +80,7 @@ global PgAcVar
set x [expr {($sw - 640)/2}]
set y [expr {($sh - 480)/2}]
wm geometry $base 640x480+$x+$y
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
diff --git a/src/bin/pgaccess/lib/help/vacuum.hlp b/src/bin/pgaccess/lib/help/vacuum.hlp
index cbdf355161..ec98382580 100644
--- a/src/bin/pgaccess/lib/help/vacuum.hlp
+++ b/src/bin/pgaccess/lib/help/vacuum.hlp
@@ -7,6 +7,8 @@ VACUUM opens every class in the database, cleans out records from rolled back tr
We recommend that active production databases be cleaned nightly, in order to keep statistics relatively current. The VACUUM query may be executed at any time, however. In particular, after copying a large class into Postgres or after deleting a large number of records, it may be a good idea to issue a VACUUM query. This will update the system catalogs with the results of all recent changes, and allow the Postgres query optimizer to make better choices in planning user queries.
+If the server crashes during a VACUUM command, chances are it will leave a lock file hanging around. Attempts to re-run the VACUUM command result in an error message about the creation of a lock file. If you are sure VACUUM is not running, remove the pg_vlock file in your database directory (i.e. PGDATA/base/dbname/pg_vlock).
+
" {} "Synopsis" {bold} "
VACUUM \[ VERBOSE \] \[ ANALYZE \] \[ table \]
VACUUM \[ VERBOSE \] ANALYZE \[ table \[ (column \[, ...\] ) \] \]
diff --git a/src/bin/pgaccess/lib/languages/magyar b/src/bin/pgaccess/lib/languages/magyar
index 3293632e61..e90724c220 100644
--- a/src/bin/pgaccess/lib/languages/magyar
+++ b/src/bin/pgaccess/lib/languages/magyar
@@ -1,34 +1,34 @@
array set Messages {
-"Label" "Cimke"
+"Label" "Címke"
"Save schema" "Séma mentése"
-"Is unique ?" "Egyedi (UNIQUE) ?"
+"Is unique ?" "Egyedi ?"
"Report builder" "Jelentés szerkesztő"
"Criteria" "Feltételek"
-"FATAL ERROR upgrading PgAccess table" "FATÁLIS HIBA keletkezett a PgAccess tábla frissitése közben"
+"FATAL ERROR upgrading PgAccess table" "SÚLYOS HIBA a PgAccess tábla frissítése közben"
-"Save this query as a view" "Nézetként (VIEW) akarod elmenteni a lekérdezést?"
+"Save this query as a view" "Lekérdezés mentése nézetként?"
-"Page header" "Oldal fejléc"
+"Page header" "Fejléc"
"Query name" "Lekérdezés név"
"Please select an object first!" "Először válassz egy objektumot!"
-"Fields :" "Mezők :"
+"Fields :" "Mezők"
"Name" "Név"
"File name" "Fájl név"
-"Detail record" "Részletes bejegyzés"
+"Detail record" "Részletes rekord"
-"Auto-load the last opened database at startup" "Az utolsóként használt adatbázis automatikus nyitésa inditáskor"
+"repAuto-load the last opened database at startup" "Az utolsóként használt adatbázis automatikus megnyitása indításkor?"
"Maxvalue" "Maximális érték"
@@ -36,41 +36,42 @@ array set Messages {
"Report fields" "Jelentés mezők"
-"Test form" "Teszt kérdőiv (FORM)"
+"Test form" "Teszt űrlap"
-"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' nevű adatbázishoz kapcsolódás közben a(z) '%s' szerveren.\n\nPostgreSQL hibaüzenet:%s"
+"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' adatbázishoz kapcsolódás közben a(z) %s szerveren.\n\nPostgreSQL
+hibaüzenet:%s"
-"No field type ?" "Nincs a mezőnek tipusa ?"
+"No field type ?" "Nincs a mezőnek típusa ?"
"User without name?" "Felhasználó név nélkül ?"
-"You have to supply a name for this schema!" "Nevet kell adj ennek a sémának !"
+"You have to supply a name for this schema!" "A sémához név megadása szükséges !"
"Last value" "Legutóbbi érték"
-"Preferences" "Beállitások"
+"Preferences" "Beállítások"
-"View '%s' already exists!\nOverwrite ?" "A(z) '%s' nevű nézet (VIEW) már létezik!\n Felülirás ?"
+"View '%s' already exists!\nOverwrite ?" "A(z) '%s' nézet már létezik!\n Felülírás ?"
-"You have to select an index!" "Választanod kell egy indexet!"
+"You have to select an index!" "Választani kell egy indexet!"
-"Field type" "Mezőtipus"
+"Field type" "Mezőtípus"
"Script name" "Szkript neve"
"Reload" "Újratölt"
-"Remove table %s from query?" "Törölni akarod a(z) '%s' táblát ebből a lekérdezésből ?"
+"Remove table %s from query?" "%s tábla eltávolítása a lekérdezésből ?"
"SQL window" "SQL ablak"
-"Allow user to create other users" "Engedély a felhasználónak új felhasználó készitésére"
+"Allow user to create other users" "Engedély másik felhasználó létrehozására"
-"Delete current record ?" "Az aktuális bejegyzés törlése ?"
+"Delete current record ?" "Aktuális rekord törlése ?"
"List box" "Lista"
-"Save to query builder" "Mentsd a lekérdezés szerkesztőbe"
+"Save to query builder" "Mentés a lekérdezés szerkesztőbe"
"fixed width" "fix szélesség"
@@ -78,109 +79,109 @@ array set Messages {
"Yes" "Igen"
-"Add label" "Adj hozzá cimkét"
+"Add label" "Címke hozzáadása"
-"Sequence created!" "A szekvencia (SEQUENCE) elkészült!"
+"Sequence created!" "A szekvencia elkészült!"
"Field information" "Mező információ"
-
+
"Design" "Tervezés"
"Field" "Mező"
-"You have to supply an external file name!" "Meg kell adj egy külső fájlnevet!"
+"You have to supply an external file name!" "Meg kell adni egy külső fájlnevet!"
-"Increment" "Növelés"
+"Increment" "Növel"
"No" "Nem"
-"Form design" "Kérdőiv (FORM) tervezés"
+"Form design" "Űrlap tervezés"
-"You must supply a return type!" "Szükség van visszatérési értékre!"
+"You must supply a return type!" "Meg kell adni visszatérési értéket!"
-"Remove field from result ?" "A mezö törlése az eredményből ?"
+"Remove field from result ?" "Mező eltávolítása az eredményből ?"
-"There is another object (a %s) with the same name.\nPlease change it!" "Van már ilyen nevű (%s) objektum!\nLégyszives változtasd meg!"
+"There is another object (a %s) with the same name.\nPlease change it!" "Már van egy (%s) nevű objektum. \n Kérlek változtasd meg!"
"This query has no commands?" "Ebben a lekérdezésben nincs parancs?"
-"Execute query" "Lekérdezés futtatása"
+"Execute query" "Lekérdezés végrehajtása"
"field cannot be null" "a mező nem lehet NULL"
"Help" "Súgó"
-"Rename column" "Az oszlop átnevezése"
+"Rename column" "Oszlop átnevezése"
"Database" "Adatbázis"
"Information" "Információ"
-"Close" "Zárás"
+"Close" "Bezár"
-"Command" "Utasitás"
+"Command" "Parancs"
"Table" "Tábla"
-"verify password" "jelszó ellenőrzés"
+"verify password" "jelszó ellenőrzése"
"Vacuum" "Porszivózás (VACUUM)"
"Default value" "Alapérték"
-"Import" "Behozatal"
+"Import" "Import"
"Delete index" "Index törlés"
-"Move up" "Mozgasd fel"
+"Move up" "Mozgatás fel"
"index properties" "index tulajdonságok"
-"check" "ellenőrzi"
+"check" "ellenőrzés"
-"Create new table" "Új tábla készités"
+"Create new table" "Új tábla készítése"
-"Visual query designer" "Lekérdezés tervező"
+"Visual query designer" "Vizuális lekérdezés tervező"
-"Delete all" "Törölni mindet"
+"Delete all" "Mindent töröl"
-"You are going to delete\n\n %s \n\nProceed?" "Le fogod törölni az alábbit:\n\n %s \n\nFolytatod?"
+"You are going to delete\n\n %s \n\nProceed?" "Biztosan törölni akarja %s-t ?"
"Schema name" "Séma neve"
-"Error executing query" "Hiba a lekérdezés futtatása közben"
+"Error executing query" "Hiba a lekérdezés végrehajtása közben"
"Report name" "Jelentés neve"
-"Add field" "Mező hozzáadás"
+"Add field" "Mező hozzáadása"
"Field name" "Mezőnév"
-"FATAL ERROR searching for PgAccess system tables" "FATÁLIS HIBA a PgAccess rendszertáblák keresésénél"
+"FATAL ERROR searching for PgAccess system tables" "SÚLYOS HIBA a PgAccess rendszertáblák keresésekor"
-"A big number of rows displayed in table view will take a lot of memory!" "A nézetnél (VIEW) kijelzendő sorok nagy száma miatt sok memória fog lefoglalódni !"
+"A big number of rows displayed in table view will take a lot of memory!" "Sok oszlop mutatása a táblanézetben sok memóriát igényel!"
-"Preview" "Előzetes nézet"
+"Preview" "Előnézet"
"Users" "Felhasználók"
"Owner" "Tulajdonos"
-"Form's window internal name" "Kérdőiv (FORM) ablakának belső használatú neve"
+"Form's window internal name" "Űrlap ablak belső használatú neve"
-"Sort field" "Mező rendezése"
+"Sort field" "Mezők rendezése"
"New name is the same as the old one!" "Az új név megegyezik a régivel!"
"Warning" "Figyelem"
-"Suggestions at" "Javaslatok itt:"
+"Suggestions at" "Javaslatok"
"Functions" "Függvények"
"Schema" "Séma"
-"Open" "Nyit"
+"Open" "Megnyit"
"size" "méret"
@@ -190,7 +191,7 @@ array set Messages {
"Define new user" "Új felhasználó definiálása"
-"Move down" "Mozgasd le"
+"Move down" "mozgatás le"
"Design script" "Szkript tervezés"
@@ -198,37 +199,37 @@ array set Messages {
"FINAL WARNING" "UTOLSÓ FIGYELMEZTETÉS"
-"Add table" "Tábla hozzáadás"
+"Add table" "Tábla hozzáadása"
-"Table viewer font" "Tábla néző betűkészlet"
+"Table viewer font" "Tábla néző betűtípusa"
-"The field type is not specified!" "A mező tipusa nincs megadva!"
+"The field type is not specified!" "A mező típusa nincs megadva!"
-"Close test form" "Zárd le a teszt kérdőivet (FORM)"
+"Close test form" "Teszt űrlap bezárása"
-"Export table" "Tábla kivitel"
+"Export table" "Tábla export"
-"Add new index" "Űj index hozzáadás"
+"Add new index" "Új index hozzáadása"
"Left" "Bal"
"Field delimiter" "Mező határoló"
-"Add formula" "Formula hozzáadás"
+"Add formula" "Formula hozzáadása"
-"Open database" "Adatbázis megnyitás"
+"Open database" "Adatbázis megnyitása"
"Return" "Visszatérés"
-"Changed fonts may appear in the next working session!" "A megváltoztatott betűkészlet a következő futtatásnál lesz látható!"
+"Changed fonts may appear in the next working session!" "A megáltoztatott betűtípusok csak a következő futtatáskor látszódnak majd!"
"Error" "Hiba"
"Enter a field name" "Adj meg egy mezőnevet !"
-"field name" "Mezőnév"
+"field name" "mező név"
-"Forms" "Kérdőivek"
+"Forms" "Űrlapok"
"Cannot add column" "Nem lehet oszlopot hozzáadni"
@@ -238,7 +239,7 @@ array set Messages {
"Preferred language" "Választott nyelv"
-"Execute SQL" "SQL futtatás"
+"Execute SQL" "SQL futtatása"
"Sequences" "Szekvenciák"
@@ -246,65 +247,65 @@ array set Messages {
"Language" "Nyelv"
-"Query '%s' was not found!" "A(z) '%s' nevű lekérdezés nem található!"
+"Query '%s' was not found!" "%s lekérdezés nem található!"
"Object" "Objektum"
-"Font fixed" "Fix betűkészlet"
+"Font fixed" "Fix betűtípus"
-"Table name" "Táblanév"
+"Table name" "Táblanév"
-"Export" "Kivitel"
+"Export" "Export"
-"Change user" "Felhasználócsere"
+"Change user" "Felhasználó változtatása"
-"You must give object a new name!" "Az objektumnak új nevet kell adjál!"
+"You must give object a new name!" "Új nevet kell adni az objektumnak!"
"Query" "Lekérdezés"
"User name" "Felhasználónév"
-"Font normal" "Normális betűkészlet"
+"Font normal" "Normál betűtípus"
-"Import table" "Tábla bevitel"
+"Import table" "Tábla import"
-"Toolbar" "Eszközpult"
+"Toolbar" "Eszközsor"
"Radio btn" "Rádiógomb"
"You must supply a name for this function!" "Hiányzik a függvény neve!"
-"You have to select index fields!" "Az index mezőket kell választanod!"
+"You have to select index fields!" "Index mezőket kell választani!"
-"Constraint" "Kényszer (CONSTRAINT)"
+"Constraint" "Kényszer"
-"The script must have a name" "Hiányzik a szkript neve"
+"The script must have a name" "A szkriptnek nevet kell adni"
"Save" "Mentés"
"Exit" "Kilépés"
-"Inherits" "örökli"
+"Inherits" "Örökli"
-"Delete field" "Mező törlés"
+"Delete field" "Mező törlése"
-"About" "A programról"
+"About" "A PgAccess-ről"
-"Empty field name ?" "Nom de champ inexistant ?"
+"Empty field name ?" "Üres mezőnév ?"
-"All report information will be deleted.\n\nProceed ?" "Toutes les informations de l'état vont ętre détruites\n\nContinuer ?"
+"All report information will be deleted.\n\nProceed ?" "Minden jelentés infomáció törölve lesz.\n\nRendben ?"
"Host" "Szerver"
-"vacuuming database %s ..." "A(z) %s adatbázis porszivózása ..."
+"vacuuming database %s ..." "%s adatbázis porszivózása ..."
-"Indexes defined" "Definiált indexek"
+"Indexes defined" "Indexek definiálva"
"You must specify field size!" "Hiányzik a mezőméret!"
-"Schema '%s' already exists!" "A(z) '%s' schéma már létezik!"
+"Schema '%s' already exists!" "'%s' séma már létezik!"
-"There is another field with the same name: '%s'!\n\nReplace it ?" "Már van ilyen nevű mező: '%s'!\n\nFelülirás ?"
+"There is another field with the same name: '%s'!\n\nReplace it ?" "Már van '%s' nevű mező!\n\nCserélhető ?"
"Contents" "Tartalom"
@@ -312,37 +313,37 @@ array set Messages {
"Variable" "Változó"
-"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba a lekérdezés futtatása közben\n\n%s\n\nPostgreSQL hibaüzenet:\n%s\nPostgreSQL státusz:%s"
+"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba(z) %s lekérdezés végrehajtásakor\n\nPostgreSQL hibaüzenet:\n%s\nPostgreSQL állapot:%s"
"Filter conditions" "Szűrőfeltételek"
-"Error retrieving query definition" "Hiba a lekérdezés definiciójának betöltésénél"
+"Error retrieving query definition" "Hiba a lekérdezés definíció betöltésekor"
-"Error deleting view" "Hiba a nézet (VIEW) törlésénél"
+"Error deleting view" "Hiba a nézet törléskor"
"New" "Új"
"Tables" "Táblák"
-"Create" "Elkészit"
+"Create" "Létrehoz"
-"Forms need an internal name, only literals, low case" "A kérdőiveknek (FORM) kell egy belső név, csak kisbetűkkel"
+"Forms need an internal name, only literals, low case" "Az űrlapoknak kell egy belső név, csak kisbetűkből állhat!"
-"Do you want to save the form into the database?" "El akarod menteni a kérdőivet (FORM) az adatbázisba ?"
-
-"Schema '%s' was not found!" "A(z) '%s' nevű séma nem található!"
+"Do you want to save the form into the database?" "Kívánod lementeni az űrlapot az adatbázisba?"
-"proportional" "megfelelő"
+"Schema '%s' was not found!" "'%s' séma nem található!"
-"Function saved!" "A függvény elmentve!"
+"proportional" "propócionális"
+
+"Function saved!" "Függvény elmentve!"
"with OIDs" "OID-ekkel"
"Table information" "Tábla információ"
-"Error inserting new record" "Hiba az üj bejegyzés tárolásával"
+"Error inserting new record" "Hiba az új rekord beszúrása közben"
-"Column name '%s' already exists in this table!" "A(z) '%s' nevű oszlop már létezik ebben a táblában !"
+"Column name '%s' already exists in this table!" "'%s' nevű oszlop már van ebben a táblában !"
"File" "Fájl"
@@ -352,130 +353,130 @@ array set Messages {
"You will always get the latest version at:" "A legfrissebb verzió megszerezhető innen:"
-"Form must have a name" "Hiányzik a kérdőiv (FORM) neve !"
+"Form must have a name" "Hiányzik az űrlap neve !"
"Password" "Jelszó"
"Valid until (date)" "Érvényes eddig (dátum)"
-"Report source" "A jelentés forrása"
+"Report source" "Jelentés forrása"
-"Allow user to create databases" "Engedély a felhasználónak új adatbázis készitésére"
+"Allow user to create databases" "Adatbázis létrehozás engedélyezése a felhasználónak"
"Cancel" "Mégsem"
-"Is clustered ?" "CLUSTER-elt ?"
+"Is clustered ?" "Klaszterezett ?"
-"Add new column" "Új oszlop hozzáadás"
+"Add new column" "Új oszlop hozzáadása"
"Show SQL" "SQL parancsok"
"New name" "Új név"
-"Table '%s' not found!" "A(z) '%s' nevű tábla nem található!"
+"Table '%s' not found!" "'%s' tábla nem található!"
-"Form name" "Kérdőiv (FORM) név"
+"Form name" "Űrlap név"
-"Visual designer" "Tervező"
+"Visual designer" "Vizuális tervező"
-"You choose to delete index\n\n %s \n\nProceed?" "Biztos, hogy akarod törölni az alábbi indexet?\n\n %s"
+"You choose to delete index\n\n %s \n\nProceed?" "%s\n\n index törlését választottad?\n\nBiztos vagy benne?"
-"Error retrieving from" "Hiba a betöltésnél erről a helyről"
+"Error retrieving from" "Hiba betöltés közben"
-"Save query definition" "A lekérdezés elmentése"
+"Save query definition" "Lekérdezés definíció elmentése"
-"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Egy Tcl/Tk felület a\nPostgreSQL-hez\nKészitette: Constantin Teodorescu"
+"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Tcl/Tk felület a\nPostgreSQL-hez.\n Készítette: Constantin Teodorescu"
-"Operation completed!" "Beavatkozás végrehajtva!"
+"Operation completed!" "Művelet végrehajtva!"
-"Max rows displayed in table/query view" "Maximális sorok száma a tábláknál/lekérdezéseknél"
+"Max rows displayed in table/query view" "Maximálisan megjelenített sorok száma a tábla/lekérdezés nézetben"
-"Passwords do not match!" "A jelszók nem egyeznek!"
+"Passwords do not match!" "Nem egyeznek a jelszavak!"
"Rename" "Átnevezés"
-"Entry" "Bejegyzés"
+"Entry" "Bevitel"
-"Error retrieving schema definition" "Hiba a séma-definició betöltése közben"
+"Error retrieving schema definition" "Hiba a séma definíció betöltése közben"
-"This is an action query!\n\nExecute it?" "Ez nem lekérdezés, hanem parancs.\nFuttatás ?"
+"This is an action query!\n\nExecute it?" "Ez egy lekérdezés !\nVégrehajtás ?"
-"Error retrieving view definition for" "Hiba a nézet (VIEW) betöltése közben "
+"Error retrieving view definition for" "Hiba a nézetdefiníció betöltése közben"
-"options" "beállitások"
+"options" "opciók"
-"Sequence '%s' not found!" "A(z) '%s' nevű szekvencia nem található!"
+"Sequence '%s' not found!" "'%s' szekvencia nem található"
"Text" "Szöveg"
-"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba a pg_exec futtatásánál %s\n\n%s"
+"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba pg_exec futtatásakor %s\n\n%s"
"Width" "Szélesség"
-"You have to supply a name for this query!" "Hiányzik a lekérdezés neve!"
+"You have to supply a name for this query!" "Nevet kell adni ehhez a lekérdezéshez!"
"Accessing data. Please wait ..." "Adatelérés. Kis türelmet ..."
-"Report footer" "A jelentés alja"
+"Report footer" "Jelentés lábléc"
"Parameters" "Paraméterek"
"Queries" "Lekérdezések"
-"Query '%s' already exists!" "A(z) '%s' nevű lekérdezés már létezik!"
+"Query '%s' already exists!" "'%s' lekérdezés már létezik!"
-"Font bold" "Vastag betűkészlet"
+"Font bold" "Félkövér betűtípus"
"Query builder" "Lekérdezés szerkesztő"
-"Error defining view" "Hiba a nézet (VIEW) definiálásánál"
+"Error defining view" "Hiba a nézet definícióban"
-"Top" "Csúcs"
+"Top" "Teteje"
-"You must supply a name for your table!" "Hiányzik a tábla neve!"
+"You must supply a name for your table!" "Nevet kell adni a táblának!"
-"Page footer" "A lap alja"
+"Page footer" "Lábléc"
-"Font italic" "Dőlt betűkészlet"
+"Font italic" "Dőlt betűtípus"
"Field name not entered!" "A mezőnév hiányzik!"
-"Index name cannot be null!" "Az index nem lehet NULL!"
+"Index name cannot be null!" "Az indexnév nem lehet NULL"
"Sort" "Rendezés"
-"Import-Export table" "Tábla behozatal/kivitel"
+"Import-Export table" "Tábla import/export"
"Point" "Pont"
-"type" "tipus"
+"type" "típus"
-"You should supply a name for this sequence" "Hiányzik a szekvencia neve!"
+"You should supply a name for this sequence" "Nevet kell adni ehhez a szekvenciának"
-"Remove link ?" "A kapcsolat törlése?"
+"Remove link ?" "Kapcsolat eltávolítása?"
-"You have to supply a table name!" "Hiányzik a tábla neve!"
+"You have to supply a table name!" "Meg kell adni táblanevet!"
"Report header" "Jelentés fejléc"
"Attributes" "Attribútumok"
-"Table '%s' already in schema" "A(z) '%s' tábla már szerepel a sémában!"
+"Table '%s' already in schema" "'%s' tábla már szerepel a sémában"
"Username" "Felhasználó név"
"Minvalue" "Minimális érték"
-"Sequence name" "Szekvencianév"
+"Sequence name" "Szekvencia neve"
-"Define sequence" "Szekvencia definiálás"
+"Define sequence" "Szekvencia definiálása"
"Function" "Függvény"
-"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendezés és szűrés (még) nem megoldott a lekérdezéseknél!\n\nHasználd őket a lekérdezés definiciókban!"
+"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendezés és szűrés (még) nem érhető el a lekérdezésből!\n\n Használd őket a lekérdezés definicióban!"
"Reports" "Jelentések"
-
+
"Columns" "Oszlopok"
"Indexes" "Indexek"
@@ -484,25 +485,25 @@ array set Messages {
"not null" "nem NULL"
-"Cluster index" "Index CLUSTER-elés"
+"Cluster index" "Klaszter index"
-"index columns" "indexelt oszlopok"
+"index columns" "oszlopok indexelése"
-"Add user" "Felhasználó hozzáadás"
+"Add user" "Felhasználó hozzáadása"
"Change permissions" "Engedélyek megváltoztatása"
-"select" "olvasás"
+"select" "kiválaszt"
-"update" "frissités"
+"update" "frissíts"
-"insert" "tárolás"
+"insert" "beszúr"
-"rule" "szabályok"
+"rule" "szabály"
-"Identification" "Azonositás"
+"Identification" "Azonosítás"
-"Owner ID" "Tulajdonos azonositó"
+"Owner ID" "Tulajdonos azonosító"
"Has primary key ?" "Van elsődleges kulcsa ?"
@@ -518,8 +519,6 @@ array set Messages {
"Index fields" "Index mezők"
-"Table OID" "Tábla OID"
-
+"Table OID" "Tábla tulajdonos azonosító"
+
}
-
-
diff --git a/src/bin/pgaccess/lib/languages/romana b/src/bin/pgaccess/lib/languages/romana
index d234ce3b0e..5e5fb063a3 100644
--- a/src/bin/pgaccess/lib/languages/romana
+++ b/src/bin/pgaccess/lib/languages/romana
@@ -48,7 +48,7 @@ array set Messages {
"Last value" "Ultima valoare"
-"Preferences" "Preferinţe"
+"Preferences" "Opţiuni"
"View '%s' already exists!\nOverwrite ?" "Vederea '%s' mai exista!\nO suprainscriem ?"
@@ -282,7 +282,7 @@ array set Messages {
"Save" "Salvează"
-"Exit" "Terminare"
+"Exit" "Termină"
"Inherits" "Strămoşi"
@@ -306,7 +306,7 @@ array set Messages {
"There is another field with the same name: '%s'!\n\nReplace it ?" "Mai exista un cimp cu acelasi nume: '%s'!\n\nIl inlocuim cu descrierea noua?"
-"Contents" "Conţinut"
+"Contents" "Cuprins"
"Views" "Vederi"
@@ -478,7 +478,7 @@ array set Messages {
"primary key" "cheie primară"
-"Back" "Inapoi"
+"Back" "Înapoi"
"Columns" "Coloane"
diff --git a/src/bin/pgaccess/lib/mainlib.tcl b/src/bin/pgaccess/lib/mainlib.tcl
index b4379a4f83..dd59987435 100644
--- a/src/bin/pgaccess/lib/mainlib.tcl
+++ b/src/bin/pgaccess/lib/mainlib.tcl
@@ -222,6 +222,7 @@ global PgAcVar CurrentDB
}
set PgAcVar(Old_Object_Name) $temp
Window show .pgaw:RenameObject
+ wm transient .pgaw:RenameObject .pgaw:Main
}
@@ -472,7 +473,7 @@ global PgAcVar
-background #efefef -cursor left_ptr
wm focusmodel $base passive
wm geometry $base 332x390+96+172
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -506,6 +507,8 @@ global PgAcVar
menu $base.fm.mndb.01 \
-borderwidth 1 -font $PgAcVar(pref,font_normal) \
-tearoff 0
+ $base.fm.mndb.01 add command \
+ -command {Window show .pgaw:NewDatabase ; wm transient .pgaw:NewDatabase .pgaw:Main} -label [intlmsg New]
$base.fm.mndb.01 add command \
-command {
Window show .pgaw:OpenDB
@@ -610,7 +613,7 @@ proc vTclWindow.pgaw:ImportExport {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 287x151+259+304
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -674,7 +677,7 @@ proc vTclWindow.pgaw:RenameObject {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 272x105+294+262
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -749,6 +752,36 @@ proc vTclWindow.pgaw:RenameObject {base} {
place $base.b2 -x 155 -y 65 -width 80 -anchor nw -bordermode ignore
}
+proc vTclWindow.pgaw:NewDatabase {base} {
+ if {$base == ""} {
+ set base .pgaw:NewDatabase
+ }
+ if {[winfo exists $base]} {
+ wm deiconify $base; return
+ }
+ toplevel $base -class Toplevel
+ wm focusmodel $base passive
+ wm geometry $base 272x105+294+262
+ wm maxsize $base 1280 1024
+ wm minsize $base 1 1
+ wm overrideredirect $base 0
+ wm resizable $base 0 0
+ wm title $base [intlmsg "New"]
+ label $base.l1 -borderwidth 0 -text [intlmsg {Name}]
+ entry $base.e1 -background #fefefe -borderwidth 1 -textvariable PgAcVar(New_Database_Name)
+ button $base.b1 -borderwidth 1 -command {
+ set retval [sql_exec noquiet "create database $PgAcVar(New_Database_Name)"]
+ if {$retval} {
+ Window destroy .pgaw:NewDatabase
+ }
+ } -text [intlmsg Create]
+ button $base.b2 -borderwidth 1 -command {Window destroy .pgaw:NewDatabase} -text [intlmsg Cancel]
+ place $base.l1 -x 15 -y 28 -anchor nw -bordermode ignore
+ place $base.e1 -x 100 -y 25 -anchor nw -bordermode ignore
+ place $base.b1 -x 55 -y 65 -width 80 -anchor nw -bordermode ignore
+ place $base.b2 -x 155 -y 65 -width 80 -anchor nw -bordermode ignore
+}
+
proc vTclWindow.pgaw:GetParameter {base} {
if {$base == ""} {
@@ -764,7 +797,7 @@ proc vTclWindow.pgaw:GetParameter {base} {
set x [expr ($sw - 297)/2]
set y [expr ($sh - 98)/2]
wm geometry $base 297x98+$x+$y
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -811,7 +844,7 @@ proc vTclWindow.pgaw:SQLWindow {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 551x408+192+169
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
@@ -863,14 +896,14 @@ proc vTclWindow.pgaw:About {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 471x177+168+243
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base [intlmsg "About"]
label $base.l1 -borderwidth 3 -font -Adobe-Helvetica-Bold-R-Normal-*-*-180-*-*-*-*-* -relief ridge -text PgAccess
label $base.l2 -relief groove -text [intlmsg "A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu"]
- label $base.l3 -borderwidth 0 -relief sunken -text {v 0.98}
+ label $base.l3 -borderwidth 0 -relief sunken -text {v 0.98.5}
label $base.l4 -relief groove -text "[intlmsg {You will always get the latest version at:}]
http://www.flex.ro/pgaccess
@@ -893,7 +926,7 @@ proc vTclWindow.pgaw:OpenDB {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 283x172+119+210
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
diff --git a/src/bin/pgaccess/lib/preferences.tcl b/src/bin/pgaccess/lib/preferences.tcl
index c752e03ba4..be63f8d302 100644
--- a/src/bin/pgaccess/lib/preferences.tcl
+++ b/src/bin/pgaccess/lib/preferences.tcl
@@ -121,11 +121,11 @@ proc vTclWindow.pgaw:Preferences {base} {
}
toplevel $base -class Toplevel
wm focusmodel $base passive
- wm geometry $base 450x360+100+213
+ wm geometry $base 500x400+100+113
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
- wm resizable $base 0 0
+ wm resizable $base 1 1
wm deiconify $base
wm title $base [intlmsg "Preferences"]
bind $base "Window destroy .pgaw:Preferences"
@@ -190,7 +190,7 @@ proc vTclWindow.pgaw:Preferences {base} {
frame $base.fpl.flb \
-height 75 -relief sunken -width 125
listbox $base.fpl.flb.llb \
- -borderwidth 1 -height 6 -yscrollcommand {.pgaw:Preferences.fpl.flb.vsb set}
+ -borderwidth 1 -height 3 -yscrollcommand {.pgaw:Preferences.fpl.flb.vsb set}
scrollbar $base.fpl.flb.vsb \
-borderwidth 1 -command {.pgaw:Preferences.fpl.flb.llb yview} -orient vert
frame $base.fb \
@@ -254,15 +254,15 @@ tk_messageBox -title [intlmsg Warning] -parent .pgaw:Main -message [intlmsg "Cha
pack $base.fal.st \
-in .pgaw:Preferences.fal -anchor center -expand 0 -fill x -side top -anchor w
pack $base.fpl \
- -in .pgaw:Preferences -anchor center -expand 0 -fill x -side top
+ -in .pgaw:Preferences -anchor center -expand 1 -fill both -side top
pack $base.fpl.lt \
-in .pgaw:Preferences.fpl -anchor center -expand 0 -fill none -side top
pack $base.fpl.flb \
- -in .pgaw:Preferences.fpl -anchor center -expand 0 -fill none -side top
+ -in .pgaw:Preferences.fpl -anchor center -expand 1 -fill y -side top
pack $base.fpl.flb.llb \
- -in .pgaw:Preferences.fpl.flb -anchor center -expand 0 -fill none -side left
+ -in .pgaw:Preferences.fpl.flb -anchor center -expand 1 -fill y -side left
pack $base.fpl.flb.vsb \
- -in .pgaw:Preferences.fpl.flb -anchor center -expand 0 -fill y -side right
+ -in .pgaw:Preferences.fpl.flb -anchor center -expand 1 -fill y -side right
pack $base.fb \
-in .pgaw:Preferences -anchor center -expand 0 -fill none -side bottom
grid $base.fb.btnsave \
diff --git a/src/bin/pgaccess/lib/queries.tcl b/src/bin/pgaccess/lib/queries.tcl
index fd880dfbc5..9b74b68191 100644
--- a/src/bin/pgaccess/lib/queries.tcl
+++ b/src/bin/pgaccess/lib/queries.tcl
@@ -185,7 +185,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 542x364+150+150
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
diff --git a/src/bin/pgaccess/lib/reports.tcl b/src/bin/pgaccess/lib/reports.tcl
index c526ca9b56..18a431904c 100644
--- a/src/bin/pgaccess/lib/reports.tcl
+++ b/src/bin/pgaccess/lib/reports.tcl
@@ -368,7 +368,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 652x426+96+120
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -562,7 +562,7 @@ proc vTclWindow.pgaw:ReportPreview {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 495x500+230+50
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
diff --git a/src/bin/pgaccess/lib/schema.tcl b/src/bin/pgaccess/lib/schema.tcl
index d3e40ef136..de11a032e2 100644
--- a/src/bin/pgaccess/lib/schema.tcl
+++ b/src/bin/pgaccess/lib/schema.tcl
@@ -482,7 +482,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 759x530+10+13
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
diff --git a/src/bin/pgaccess/lib/tables.tcl b/src/bin/pgaccess/lib/tables.tcl
index 857231236f..d25bce73ad 100644
--- a/src/bin/pgaccess/lib/tables.tcl
+++ b/src/bin/pgaccess/lib/tables.tcl
@@ -148,18 +148,23 @@ global PgAcVar
showError [intlmsg "User without name?"]
return
}
- sql_exec noquiet "revoke all on \"$PgAcVar(tblinfo,tablename)\" from $PgAcVar(permission,username)"
+ if {$PgAcVar(permission,username)=="PUBLIC"} {
+ set usrname PUBLIC
+ } else {
+ set usrname "\"$PgAcVar(permission,username)\""
+ }
+ sql_exec noquiet "revoke all on \"$PgAcVar(tblinfo,tablename)\" from $usrname"
if {$PgAcVar(permission,select)} {
- sql_exec noquiet "GRANT SELECT on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
+ sql_exec noquiet "GRANT SELECT on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,insert)} {
- sql_exec noquiet "GRANT INSERT on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
+ sql_exec noquiet "GRANT INSERT on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,update)} {
- sql_exec noquiet "GRANT UPDATE on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
+ sql_exec noquiet "GRANT UPDATE on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,rule)} {
- sql_exec noquiet "GRANT RULE on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
+ sql_exec noquiet "GRANT RULE on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
refreshTableInformation
}
@@ -939,7 +944,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 650x400
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 650 400
wm overrideredirect $base 0
wm resizable $base 1 1
@@ -1242,7 +1247,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 634x392+78+181
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -1513,7 +1518,7 @@ global PgAcVar
-background #c7c3c7
wm focusmodel $base passive
wm geometry $base 522x398+152+135
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -1929,7 +1934,7 @@ proc vTclWindow.pgaw:AddIndex {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 334x203+265+266
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -1998,7 +2003,7 @@ proc vTclWindow.pgaw:AddField {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 302x114+195+175
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -2054,7 +2059,7 @@ proc vTclWindow.pgaw:RenameField {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 215x75+258+213
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@@ -2097,7 +2102,7 @@ proc vTclWindow.pgaw:Permissions {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 273x147+256+266
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
diff --git a/src/bin/pgaccess/lib/visualqb.tcl b/src/bin/pgaccess/lib/visualqb.tcl
index dc4189efc9..563d5437f5 100644
--- a/src/bin/pgaccess/lib/visualqb.tcl
+++ b/src/bin/pgaccess/lib/visualqb.tcl
@@ -714,7 +714,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 759x530+10+13
- wm maxsize $base 1009 738
+ wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
diff --git a/src/bin/pgaccess/pgaccess.sh b/src/bin/pgaccess/pgaccess.sh
index b030e18f45..41fd5cae16 100755
--- a/src/bin/pgaccess/pgaccess.sh
+++ b/src/bin/pgaccess/pgaccess.sh
@@ -1,9 +1,10 @@
#!/bin/sh
-PATH_TO_WISH=__wish__
-PGACCESS_HOME=__POSTGRESDIR__/pgaccess
+PATH_TO_WISH=/usr/bin/wish
+PGACCESS_HOME=/usr/local/pgaccess
export PATH_TO_WISH
export PGACCESS_HOME
-exec $PATH_TO_WISH $PGACCESS_HOME/main.tcl "$@"
+exec ${PATH_TO_WISH} ${PGACCESS_HOME}/main.tcl "$@"
+