Overview
Comment:Resets terminal to X after printing to PostScript.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 9a7dfa67713b63db58201c1b8b67c065799fa5515ed8943a7bf966c41600e7b1
User & Date: geraint@users.sourceforge.net on 2002-07-26 18:54:54
Other Links: branch diff | manifest | tags
Context
2002-08-06
09:56:54
Updated to work with changes in unstable version of Octave 2.1.36.
Tested with 2.0.17 (ok) but will break earlier unstables (2.1.(<=35)).
check-in: 86d35ba0ce user: geraint@users.sourceforge.net tags: origin/master, trunk
2002-07-26
18:54:54
Resets terminal to X after printing to PostScript. check-in: 9a7dfa6771 user: geraint@users.sourceforge.net tags: origin/master, trunk
2002-07-24
19:26:20
Axis range entry responds to return key and adjusts range instantaneously.
Selection of Z parameter automatically switches to 3D mode.
check-in: 9b5bbc91af user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/struc2gnuplot_txt2wish from [609ddc833a] to [92f837acf1].

405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428

429
430
431
432
433
434
435
436
437
	}
    ]
    puts "save '\$filename'"
}

## print output to postscript
proc "print_postscript" "" {
    global parameter;
    if {"\$parameter"==""} {
	tk_dialog ".mtt_Print_Error" "Print Error" "Select a parameter!" "" "0" "Try Again"
    } else {
	set filename [tk_getSaveFile\
		-initialdir ".."\
		-initialfile "\$parameter.ps"\
		-defaultextension ".ps"\
		-filetypes {
		    {{Postscript} {.ps}}
		    {{All files} {*}}
		}
	]
	if {\$filename != ""} {
	    puts "set term postscript"
	    puts "set output '\$filename'"
	    puts "replot"

	    tk_dialog ".printed" "Graph Printed!" "PostScript saved as \$filename" "" "0" "Close"
	}
    }
}

proc "get_value" "string initial" {
    frame .f
    frame .f.buttons
    global get_value_retval







|
|
<
<
|
|
|
|
|
|
|
|
|
|
|
|
|
>
|
<







405
406
407
408
409
410
411
412
413


414
415
416
417
418
419
420
421
422
423
424
425
426
427
428

429
430
431
432
433
434
435
	}
    ]
    puts "save '\$filename'"
}

## print output to postscript
proc "print_postscript" "" {
    global parameter
    global windownum


    set filename [tk_getSaveFile\
		      -initialdir ".."\
		      -initialfile "\$parameter.ps"\
		      -defaultextension ".ps"\
		      -filetypes {
			  {{Postscript} {.ps}}
			  {{All files} {*}}
		      }
		 ]
    if {\$filename != ""} {
	puts "set term postscript"
	puts "set output '\$filename'"
	puts "replot"
	puts "set term x11 \$windownum"
	tk_dialog ".printed" "Graph Printed!" "PostScript saved as \$filename" "" "0" "Close"

    }
}

proc "get_value" "string initial" {
    frame .f
    frame .f.buttons
    global get_value_retval


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]