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: 9c7043790b84ca7de9bf66e5707d3ff2431a155037dc3cba100f441dcbd075cd
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: 1a10229dfb 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: 9c7043790b 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: 5adabf2493 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 ]