Re: How to detect X?

winfo server:

E:\sh>perl -MTcl::Tk -we "print map {qq/[$_]/} Tcl::Tk::tkinit->interp
+->winfo('server','.')"
[Windows][5.0][2195][Win32]
[download]

On X system there will be obvious difference.

I know that similar call exists in Tk, but can't remember right now, as it is easier done in Tcl::Tk.

Comment on Re: How to detect X? Download Code

Replies are listed 'Best First'.
Re^2: How to detect X? by rcseege (Pilgrim) on Feb 22, 2005 at 01:24 UTC
Easier, eh? How about this: `perl -MTk -we "print tkinit->server"` [download] Sorry, couldn't resist...	[reply] [d/l]
Re^3: How to detect X? by Courage (Parson) on Feb 22, 2005 at 05:04 UTC
it was easier for me to find in docs: I remember I saw it somewhere in Tk but had only Tcl/Tk handy. In my opinion Tcl::Tk is more Tk than Tk, because first one refers to most recent and up-to-date one. addition: as long as Tcl::Tk many compatible with Tk, and based on your post, here are two other ways which indeed work: `perl -MTcl::Tk -we "print Tcl::Tk::tkinit->server"` [download] or `perl -MTcl::Tk=:perlTk -we "print tkinit->server"` [download]	[reply] [d/l] [select]