Skip to content

P
Postgres FD Implementation
Commit bb01e98d authored by Marc G. Fournier's avatar Marc G. Fournier
Browse files
Options

Bring pgaccess up to 0.82 - last update before release

parent 77ac40d7
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 211 additions and 343 deletions
src/bin/pgaccess/README.pga
View file @ bb01e98d
......@@ -24,7 +24,7 @@ PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
PGACCESS 0.81 1 March 1998
PGACCESS 0.82 1 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
......
src/bin/pgaccess/forms.html
View file @ bb01e98d
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="GENERATOR" CONTENT="Mozilla/4.04 [en] (X11; I; Linux 2.0.32 i586) [Netscape]">
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFEBCD" LINK="#0000EF" VLINK="#51188E" ALINK="#FF0000">
<H1>FORMS</H1>
<H1>
FORMS</H1>
<P>
<HR WIDTH="100%"></P>
<HR WIDTH="100%">
<P>This version (0.81) of PgAccess introduce the visual form builder.</P>
<P>This version (0.82) of PgAccess introduce the visual form builder.
<P>For the moment, it has only some basic widgets : labels, entries, buttons
, listboxes , checkboxes and radiobuttons.</P>
, listboxes , checkboxes and radiobuttons.
<P>Also there is a query widget that allows you yo have access to a query
results.</P>
results.
<P>In a manner very similar with Visual Tcl or Visual Basic, the user must
select a widget from the toolbar and drags on the canvas the rectangle
that would define the widget. It can also specify some attributes in a
separate window. Renaming, resizing items are possible modifying parameters
in attribute window. Do not forget to press Enter in the edit field after
changing a value in order to be accepted.</P>
changing a value in order to be accepted.
<P>You can also move items by dragging them or delete them by pressing
Del key.</P>
Del key.
<P>In attribute window, there are some fields named <B><TT><FONT SIZE=+1>Command
</FONT></TT></B>and <B><TT><FONT SIZE=+1>Variable</FONT></TT></B>.</P>
</FONT></TT></B>and <B><TT><FONT SIZE=+1>Variable</FONT></TT></B>.
<P>The field <B><TT><FONT SIZE=+1>Command </FONT></TT></B>have meaning
only for Button widgets and holds the command that will be invoked when
the button is pressed.</P>
the button is pressed.
<P>The field <B><TT><FONT SIZE=+1>Variable </FONT></TT></B>have meaning
only for EditField , Label widgets and checkboxes and it is the name of
the global variable that will hold the value for that widget. For checkboxes
the values are 1 or 0.</P>
the values are 1 or 0.
<P>In order to make a simple test, put an entry field and set it's variable
to <B>v1</B> and a button who's command is &quot;set v1 whisky&quot;. Press
the button &quot;Test form&quot; and click on the button. In that entry
should appear whisky. <BR>
Another test is defining in Script module a script called &quot;My first
script&quot; having the following commands:<BR>
<TT><FONT SIZE=+1>tk_messageBox -title Warning -message &quot;This is my
first message!&quot;<BR>
</FONT></TT>and then define a button who's command is <B><TT><FONT SIZE=+1>execute_script
&quot;My first script&quot;</FONT></TT></B>.</P>
<H2>Database manipulation</H2>
<P>Let's presume that our form have the internal name <B><TT>mf </TT></B>(my
form). He wil be referred inside the Tcl/Tk source as <B><TT>.mf<BR>
</TT></B>If you want to close the form in run-time you have to issue the
command <B><TT>destroy .mf</TT></B></P>
<P>Also, any widget will have the name prefixed by <B><TT>.mf </TT></B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;We
will have <B><TT>.mf.button1</TT></B> or <B><TT>.mf.listbox1</TT></B> .</P>
to <B>v1</B> and a button who's command is "set v1 whisky". Press the button
"Test form" and click on the button. In that entry should appear whisky.
<BR>Another test is defining in Script module a script called "My first
script" having the following commands:
<BR><TT><FONT SIZE=+1>tk_messageBox -title Warning -message "This is my
first message!"</FONT></TT>
<BR>and then define a button who's command is <B><TT><FONT SIZE=+1>execute_script
"My first script"</FONT></TT></B>.
<H2>
Database manipulation</H2>
Let's presume that our form have the internal name <B><TT>mf </TT></B>(my
form). He wil be referred inside the Tcl/Tk source as <B><TT>.mf</TT></B>
<BR>If you want to close the form in run-time you have to issue the command
<B><TT>destroy .mf</TT></B>
<P>Also, any widget will have the name prefixed by <B><TT>.mf&nbsp;</TT></B>&nbsp;&nbsp;&nbsp;&nbsp;
We will have <B><TT>.mf.button1</TT></B> or <B><TT>.mf.listbox1</TT></B>
.
<P>We can name the query widget <B><TT>qry</TT></B> for example. The complete
name will be <B><TT>.mf.qry</TT></B> then.<BR>
The <B><TT>Command </TT></B>property of the query widget must contain the
SQL command that will be executed.<BR>
When the form will be in run-time, automatically you will have acces to
the following methods :</P>
name will be <B><TT>.mf.qry</TT></B> then.
<BR>The <B><TT>Command </TT></B>property of the query widget must contain
the SQL command that will be executed.
<BR>When the form will be in run-time, automatically you will have acces
to the following methods :
<P><TT>.mf.qry:execute</TT> - opens the connection and execute the query
(returns nothing)<BR>
<TT>.mf.qry:nrecords</TT> - returns the number of records in the selected
query<BR>
<TT>.mf.qry:fields</TT> - returns a list of the fields in the result set<BR>
<TT>.mf.qry:movefirst</TT> - move the cursor to the first record in the
recordset<BR>
<TT>.mf.qry:movelast , .mf.qry:movenext , .mf.qry:moveprevious </TT>- moves
the cursor <BR>
<TT>.mf.qry:updatecontrols</TT> - update the variables inside the designed
form that have a particular name (I'll explain later)<BR>
<TT>.mf.qry:close</TT> - close the connection (<B><FONT COLOR="#FF0000">if
you don't close the query result, you will loose memory</FONT></B>)</P>
(returns nothing)
<BR><TT>.mf.qry:nrecords</TT> - returns the number of records in the selected
query
<BR><TT>.mf.qry:fields</TT> - returns a list of the fields in the result
set
<BR><TT>.mf.qry:movefirst</TT> - move the cursor to the first record in
the recordset
<BR><TT>.mf.qry:movelast , .mf.qry:movenext , .mf.qry:moveprevious </TT>-
moves the cursor
<BR><TT>.mf.qry:updatecontrols</TT> - update the variables inside the designed
form that have a particular name (I'll explain later)
<BR><TT>.mf.qry:close</TT> - close the connection (<B><FONT COLOR="#FF0000">if
you don't close the query result, you will loose memory</FONT></B>)
<P>If you want to bound some controls to the fields of the recordset, you
will have to name their associate variable like that :</P>
will have to name their associate variable like that :
<P><TT>.mf.qry.salary</TT> to get the &quot;salary&quot; field , or <TT>.mf.qry.name</TT>
to get the &quot;name&quot; field.</P>
<P><TT>.mf.qry.salary</TT> to get the "salary" field , or <TT>.mf.qry.name</TT>
to get the "name" field.
<P>It's simple, isn't it ? It's just like a new widget that have some properties
and methods that can be accesed.<BR>
Also, the name convention is just like in Tcl/Tk.</P>
and methods that can be accesed.
<BR>Also, the name convention is just like in Tcl/Tk.
<P>In order to avoid naming user defined forms with&nbsp; a particular
name of another PgAccess form, I would recommend naming them as udf0, udf1
(user defined form 0 , 1 )
<P>
<HR WIDTH="25%"></P>
<HR WIDTH="25%">
<P>Please feel free to send me your oppinion at <B>teo@flex.ro</B> on forms
designing and usage.<BR>
</P>
designing and usage.
</BODY>
</HTML>
src/bin/pgaccess/index.html
View file @ bb01e98d
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>PgAccess - a Tcl/Tk PostgreSQL interface</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]">
<META NAME="GENERATOR" CONTENT="Mozilla/4.04 [en] (X11; I; Linux 2.0.32 i586) [Netscape]">
<TITLE>PgAccess - a Tcl/Tk PostgreSQL interface</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1>PgAccess - a database management tool for <A HREF="http://www.postgreSQL.org">PostgreSQL</A></H1>
<H1>
PgAccess - a database management tool for <A HREF="http://www.postgreSQL.org">PostgreSQL</A></H1>
<P>
<HR></P>
<HR>
<P>This program is protected by the following <A HREF="copyright.html">copyright</A>
</P>
<LI><A HREF="pgaccess-0.81.tar.gz">Download the last version of Pgaccess
(press shift and click this link)</A>.</LI>
<LI>
<A HREF="pgaccess-0.82.tar.gz">Download the last version of Pgaccess (press
shift and click this link)</A>.</LI>
<P>Latest version of PgAccess is 0.81 , 1 March 1998 ! </P>
<P>Latest version of PgAccess is 0.82 , 1 March 1998 !
<BR>&nbsp;
<CENTER><TABLE BORDER=3 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" BGCOLOR="#FFB6C1" >
<TR>
<TD>
<CENTER><P><BR>
<B><FONT SIZE=+2>PgAccess can now design <A HREF="forms.html">Forms</A></FONT></B>,
<B><FONT SIZE=+2><A HREF="pga-rad.html">Reports and Scripts</A></FONT></B></P></CENTER>
<CENTER></CENTER>
<CENTER><B><FONT SIZE=+2>PgAccess can now design <A HREF="forms.html">Forms</A></FONT></B>,
<B><FONT SIZE=+2><A HREF="pga-rad.html">Reports and Scripts</A></FONT></B></CENTER>
</TD>
</TR>
</TABLE></CENTER>
<P>I think that there were some problems loading libpgtcl library. <BR>
I invite you to read a <A HREF="index.html#libpgtcl">special section concerning
<B>libpgtcl</B></A> </P>
<H3><FONT COLOR="#191970">What does PgAccess now!</FONT></H3>
<P>Here are some images from PgAccess windows : <A HREF="pic-pga-1.gif">Main
I think that there were some problems loading libpgtcl library.
<BR>I invite you to read a <A HREF="index.html#libpgtcl">special section
concerning <B>libpgtcl</B></A>
<H3>
<FONT COLOR="#191970">What does PgAccess now!</FONT></H3>
Here are some images from PgAccess windows : <A HREF="pic-pga-1.gif">Main
window </A>, <A HREF="pic-pga-2.gif">table builder </A>, <A HREF="pic-pga-4.gif">table(query)
view </A>, <A HREF="pic-pga-3.gif">visual query builder </A>. </P>
<P><B>Tables</B> <BR>
- opening tables for viewing, max 200 records (changed by preferences menu)
<BR>
- column resizing, dragging the vertical grid line (better in table space
rather than in the table header) <BR>
- text wrap in cells - layout saved for every table <BR>
- import/export to external files (SDF,CSV) <BR>
- filter capabilities (enter filter like (price&gt;3.14) <BR>
- sort order capabilities (enter manually the sort field(s)) <BR>
- editing in place <BR>
- improved table generator assistant <BR>
- improved field editing <BR>
<B>Queries</B> <BR>
- define , edit and stores &quot;user defined queries&quot; <BR>
- store queries as views <BR>
- execution of queries <BR>
- viewing of select type queries result <BR>
- query deleting and renaming <BR>
- <B><BLINK><FONT COLOR="#FF0000">NEW !!!</FONT></BLINK></B> Visual query
builder with drag &amp; drop capabilities. For any of you who had installed
the Tcl/Tk plugin for Netscape Navigator, you can see it at work <A HREF="qbtclet.html">clicking
here</A> <BR>
<B>Sequences</B> <BR>
- defines sequences, delete them and inspect them <BR>
<B>Functions</B> <BR>
- define, inspect and delete functions in SQL language <BR>
<B>Reports<BR>
</B>- design and display simple reports from tables<BR>
- fields and labels, font changing, style and size<BR>
- saves and loads report description from database<BR>
- show report previews, sample postscript output file<BR>
<B>Forms<BR>
</B>- open user defined forms<BR>
- form design module available<BR>
- query widget available, controls bound to query results<BR>
- <A HREF="forms.html">click here</A> for a description of forms and how
they can be used<BR>
<B>Scripts<BR>
</B>- define, modify and call user defined scripts<BR>
Here is <A HREF="pga-rad.html">a special section concerning forms and scripts</A>
.</P>
<P>On the TODO list! <BR>
- table design (add new fields, renaming, etc.) <BR>
<BR>
&nbsp; </P>
view </A>, <A HREF="pic-pga-3.gif">visual query builder </A>.
<P><B>Tables</B>
<BR>- opening tables for viewing, max 200 records (changed by preferences
menu)
<BR>- column resizing, dragging the vertical grid line (better in table
space rather than in the table header)
<BR>- text wrap in cells - layout saved for every table
<BR>- import/export to external files (SDF,CSV)
<BR>- filter capabilities (enter filter like (price>3.14)
<BR>- sort order capabilities (enter manually the sort field(s))
<BR>- editing in place
<BR>- improved table generator assistant
<BR>- improved field editing
<BR><B>Queries</B>
<BR>- define , edit and stores "user defined queries"
<BR>- store queries as views
<BR>- execution of queries
<BR>- viewing of select type queries result
<BR>- query deleting and renaming
<BR>- <B><BLINK><FONT COLOR="#FF0000">NEW !!!</FONT></BLINK></B> Visual
query builder with drag &amp; drop capabilities. For any of you who had
installed the Tcl/Tk plugin for Netscape Navigator, you can see it at work
<A HREF="qbtclet.html">clicking here</A>
<BR><B>Sequences</B>
<BR>- defines sequences, delete them and inspect them
<BR><B>Functions</B>
<BR>- define, inspect and delete functions in SQL language
<BR><B>Reports</B>
<BR>- design and display simple reports from tables
<BR>- fields and labels, font changing, style and size
<BR>- saves and loads report description from database
<BR>- show report previews, sample postscript output file
<BR><B>Forms</B>
<BR>- open user defined forms
<BR>- form design module available
<BR>- query widget available, controls bound to query results
<BR>- <A HREF="forms.html">click here</A> for a description of forms and
how they can be used
<BR><B>Scripts</B>
<BR>- define, modify and call user defined scripts
<BR>Here is <A HREF="pga-rad.html">a special section concerning forms and
scripts</A> .
<P>On the TODO list!
<BR>- table design (add new fields, renaming, etc.)
<P>&nbsp;
<P>If you have any comment, suggestion for improvements, please feel free
to e-mail to : <A HREF="mailto:teo@flex.ro">teo@flex.ro&nbsp;</A> <BR>
</P>
to e-mail to : <A HREF="mailto:teo@flex.ro">teo@flex.ro&nbsp;</A>
<P><B><FONT COLOR="#FF1493"><FONT SIZE=+2>Mailing list for PgAccess </FONT></FONT></B><A HREF="maillist.html">Here
you will find how to subscribe to this mailing list</A>.</P>
you will find how to subscribe to this mailing list</A>.
<P>
<HR></P>
<H1>More information about libgtcl</H1>
<P>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 located
<HR>
<H1>
More information about libgtcl</H1>
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 located
in the PostgreSQL directory /src/interfaces/libpgtcl. Specifically, you
will need a libpgtcl library that is 'load'-able from Tcl/Tk. This is technically
different from an ordinary PostgreSQL loadable object file, because libpgtcl
is a collection of object files. Under Linux, this is called libpgtcl.so.
<BR>
You can download <A HREF="libpgtcl.so">from here </A>a version already
<BR>You can download <A HREF="libpgtcl.so">from here </A>a version already
compiled for Linux i386 systems. Just copy libpgtcl.so into your system
library director (/usr/lib) and go for it. One of the solutions is to remove
from the source the line containing <B>load libpgtcl.so </B>and to load
pgaccess.tcl not with wish, but with pgwish (or wishpg) that wish that
was linked with libpgtcl library! </P>
was linked with libpgtcl library!
<P>If you have installed RedHat 5.0, you should get the last distribution
kit of postgreSQL and compile it from scratch. RedHat 5.0 is using some
new versions of libraries and you have to compile and install again at
least <B>libpq </B>and <B><TT>libpgtcl </TT></B>libraries.</P>
<P>However, the application should work without problems! </P>
least <B>libpq </B>and <B><TT>libpgtcl </TT></B>libraries.
<P>However, the application should work without problems!
</BODY>
</HTML>
src/bin/pgaccess/pga-rad.html
View file @ bb01e98d
This diff is collapsed.
src/bin/pgaccess/pgaccess.tcl
View file @ bb01e98d
......@@ -671,6 +671,7 @@ foreach objinfo [lrange $info 4 end] {
if {$mode=="design"} {fd_draw_object $i}
incr j
}
if {$mode=="design"} {wm geometry .fd $fdvar(geometry)}
}
proc {fd_mouse_down} {x y} {
......@@ -870,7 +871,12 @@ switch $fdobj($item,t) {
entry $base.$name -bo 1 -ba white -selectborderwidth 0 -highlightthickness 0
if {$var!=""} {$base.$name configure -textvar $var}
}
label {set wh {} ; label $base.$name -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -anchor nw -padx 0 -pady 0 -text $fdobj($item,l)}
label {
set wh {}
label $base.$name -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -anchor nw -padx 0 -pady 0 -text $fdobj($item,l)
set var {} ; catch {set var $fdobj($item,v)}
if {$var!=""} {$base.$name configure -textvar $var}
}
listbox {listbox $base.$name -borderwidth 1 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*}
}
if $visual {eval [subst "place $base.$name -x [expr [lindex $coord 0]-1] -y [expr [lindex $coord 1]-1] -anchor nw $wh -bordermode ignore"]}
......@@ -2559,7 +2565,7 @@ proc vTclWindow.about {base} {
label $base.l2 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -relief groove -text {A Tcl/Tk interface to
PostgreSQL
by Constantin Teodorescu}
label $base.l3 -borderwidth 0 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -relief sunken -text {vers 0.81}
label $base.l3 -borderwidth 0 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -relief sunken -text {vers 0.82}
label $base.l4 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -relief groove -text {You will always get the latest version at:
http://www.flex.ro/pgaccess
......@@ -2782,7 +2788,7 @@ proc vTclWindow.fw {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 306x288+298+290
wm geometry $base 306x288+233+130
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -2907,7 +2913,7 @@ proc vTclWindow.mw {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 550x400+189+228
wm geometry $base 550x400+5+5
wm maxsize $base 1009 738
wm minsize $base 550 400
wm overrideredirect $base 0
......@@ -2993,7 +2999,7 @@ proc vTclWindow.nt {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 630x312+148+315
wm geometry $base 630x312+100+40
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -3316,7 +3322,7 @@ proc vTclWindow.qb {base} {
###################
toplevel $base -class Toplevel -cursor top_left_arrow
wm focusmodel $base passive
wm geometry $base 442x344+282+299
wm geometry $base 442x344+150+150
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -3412,7 +3418,7 @@ proc vTclWindow.ql {base} {
###################
toplevel $base -class Toplevel -cursor top_left_arrow
wm focusmodel $base passive
wm geometry $base 759x530+233+177
wm geometry $base 759x530+10+13
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -3548,7 +3554,7 @@ proc vTclWindow.rb {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 652x426+96+160
wm geometry $base 652x426+96+120
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -3786,7 +3792,7 @@ proc vTclWindow.rpv {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 495x500+239+165
wm geometry $base 495x500+230+50
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -3910,7 +3916,7 @@ proc vTclWindow.sw {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 594x416+248+217
wm geometry $base 594x416+192+152
wm maxsize $base 1009 738
wm minsize $base 300 300
wm overrideredirect $base 0
......@@ -3955,7 +3961,7 @@ proc vTclWindow.tiw {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 390x460+243+120
wm geometry $base 390x460+243+20
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -4023,7 +4029,7 @@ proc vTclWindow.fd {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 377x315+185+234
wm geometry $base 377x315+103+101
wm maxsize $base 785 570
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -4064,7 +4070,7 @@ proc vTclWindow.fda {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 225x197+589+29
wm geometry $base 225x197+561+0
wm maxsize $base 785 570
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -4214,7 +4220,7 @@ proc vTclWindow.fdcmd {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 282x274+616+367
wm geometry $base 282x274+504+229
wm maxsize $base 785 570
wm minsize $base 1 19
wm overrideredirect $base 0
......@@ -4269,7 +4275,7 @@ proc vTclWindow.fdmenu {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 288x70+193+129
wm geometry $base 288x70+103+0
wm maxsize $base 785 570
wm minsize $base 1 1
wm overrideredirect $base 0
......@@ -4361,7 +4367,7 @@ proc vTclWindow.fdtb {base} {
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 90x152+65+180
wm geometry $base 90x152+0+0
wm maxsize $base 785 570
wm minsize $base 1 1
wm overrideredirect $base 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment