← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/tk/pldefaults.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/tk/pldefaults.tcl
14
14
#
15
15
# You should have received a copy of the GNU Library General Public License
16
16
# along with PLplot; if not, write to the Free Software
17
 
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
17
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
18
18
#
19
 
# $Id: pldefaults.tcl,v 1.24 2004/01/17 16:41:37 rlaboiss Exp $
 
19
# $Id: pldefaults.tcl,v 1.26 2005/04/27 06:43:22 rlaboiss Exp $
20
20
#----------------------------------------------------------------------------
21
21
# Sets default configuration options for plplot/TK driver.
22
22
# Maurice LeBrun
82
82
# Called by plplot based Tcl apps at startup to set resources.
83
83
 
84
84
proc pldefaults {} {
 
85
    #puts "loading library defaults"
85
86
    pl_libdefaults
 
87
    #puts "loading user defaults"
86
88
    pl_loadAppDefaults {plplot PLplot} userDefault
87
89
}
88
90
 
190
192
        option add *Entry.relief                sunken          startupFile
191
193
        option add *Scrollbar.relief            sunken          startupFile
192
194
 
 
195
    # Preserve aspect ratio on zooming.  Valid values: true|false.
 
196
        option add *zoom_fixaspect              true            startupFile
 
197
 
 
198
    # Location of initial point when zooming.  Valid values: corner|center.
 
199
        option add *zoom_startfrom              center          startupFile
 
200
 
 
201
    # Name of default save device.  Valid values are installation-dependent,
 
202
    # but you might try one of: ps, psc, plm, png, jpeg.
 
203
        option add *save_dev                    psc             startupFile
 
204
 
 
205
    # Multi plots per file.  If true, must explicitly close it before exiting!
 
206
        option add *save_multi                  false           startupFile
 
207
 
193
208
    # I have this in here so that applications written before Tk 4.0 still
194
209
    # look the same.  More selectivity might be better.
195
210
 
202
217
    }
203
218
    
204
219
# Various options -- use global variables for simplicity.
205
 
# Not a great solution but will have to do for now.
206
 
 
207
 
# zoom options:
208
 
#  0:   0=don't preserve aspect ratio, 1=do
209
 
#  1:   0=stretch from corner, 1=stretch from center
210
 
 
211
 
    global zoomopt_0;           set zoomopt_0 1
212
 
    global zoomopt_1;           set zoomopt_1 1
213
 
 
214
 
# save options:
215
 
#  0:   name of default save device
216
 
#  1:   0=save 1 plot/file, 1=save multi plots/file (must close!)
217
 
 
218
 
    global saveopt_0;           set saveopt_0 psc
219
 
    global saveopt_1;           set saveopt_1 0
220
220
 
221
221
# Scale widget bindings
222
222