HDTenEightyP/NetNews huggingface dataset:
Newsgroups: comp.lang.tcl
Date: Fri, 18 Dec 92 15:22:47 EST
From: beshers@cs.columbia.edu (Clifford Beshers)
Subject: fun patch to tcolor demo.


I added the following procedure to the tcolor demo.  It is simply
a slimmed down version of tc_loadNamedColor.

Run two or more tcolor applications, set them to different color spaces,
set the update commands "tc_send {tcolor #i} {tcolor #j} ...",
and you can see the relationships between color spaces.

proc tc_send {args} {
	global color
	foreach i $args {
		send $i receiveColor $color
	}
}

proc receiveColor {name} {
    global red green blue color autoUpdate

    case [string length $name] {
	4 {set format "#%1x%1x%1x"; set shift 12}
	7 {set format "#%2x%2x%2x"; set shift 8}
	10 {set format "#%3x%3x%3x"; set shift 4}
	13 {set format "#%4x%4x%4x"; set shift 0}
	default {error "syntax error in color name \"$name\""}
    }
    if {[scan $name $format red green blue] != 3} {
         error "syntax error in color name \"$name\""
    }
    set red [expr $red<<$shift]
    set green [expr $green<<$shift]
    set blue [expr $blue<<$shift]

    tc_setScales
    set color [format "#%04x%04x%04x" $red $green $blue]
    .swatch config -bg $color
}
From: bagwill@swe.ncsl.nist.gov (Bob Bagwill)
Newsgroups: comp.lang.tcl
Subject: Re: Another note on Tk 3.0
Date: 18 Dec 92 18:17:00 GMT
X-Newsreader: TIN [version 1.1 PL6]

I noticed that the canvas man page does not seem to be updated
with the PostScript stuff.  And what should AdjustColor do in
the PS output?

--
Bob Bagwill
bagwill@swe.ncsl.nist.gov
Newsgroups: comp.lang.tcl
From: joel@saffron.CS.Berkeley.EDU (Joel A. Fine)
Newsgroups: comp.lang.tcl
Subject: Re: Help on reading shell variable/environment
Date: 15 Dec 1992 22:39:11 GMT
Organization: University of California, Berkeley
Distribution: world
NNTP-Posting-Host: saffron.cs.berkeley.edu
Keywords: TCL/TK,variable,environment,shell

In article <1992Dec15.204940.15394@bnr.ca>, tdoan@bnr.ca (Tuan Doan) writes:
|>    Does anyone know of a way to read shell variable or environment variable
|> inside TCL/TK?  I need to access the TERM variable so that to prevent my
|> TCL/TK program from being run when the user is not in an X window environment.

wish: echo $env(TERM)
xterm

|> Also, is there an easy way to implement set operations in TCL/TK?

In extended tcl (which you can get from barkley.berkeley.edu), there's union
and intersect:

tclX> set a [list a b c]
tclX> set b [list b c d]
tclX> union $a $b
a b c d
tclX> intersect $a $b
b c


- Joel Fine

Newsgroups: comp.lang.tcl
From: root@choreo.ca (Superuser)
Subject: problem with tk selection command
Organization: Choreo Systems, Ottawa Canada
Date: Fri, 18 Dec 1992 21:32:35 GMT


I have a listbox which I am allowing the user to select from.  I want him to
make a selection before choosing a specific button, for example, QUERY.

I can see the value in my variable, but if the selection is done and the user
didn't actually select anything, tk exits.  What else can I do?

Thanks
From: nicholsg@bnr.ca (Geoff Nichols)
Subject: Tcl Lint?
Keywords: lint
Reply-To: nicholsg@bnr.ca (Geoff Nichols)
Organization: Bell-Northern Research Ltd.
Date: Fri, 18 Dec 1992 19:19:30 GMT

Are there any Tcl programs out there which can check a Tcl procedure for
potential run-time errors which result in something like "can't read "x":
no such variable"? Sorta like a Tcl lint program.

Please let me know.

-- 
---------------------------------------------------------------------------
Geoff Nichols, nicholsg@bnr.ca
---------------------------------------------------------------------------
Newsgroups: comp.lang.tcl
From: spencer@med.umich.edu (Spencer W. Thomas)
Subject: Re: Exiting tk Apps
Date: Mon, 14 Dec 92 11:31:16 EST
Organization: University of Michigan

A simple script to kill off those non-existant "interpreters":

foreach p [winfo interps] {
	if [catch {send $p {}}] {
		exec wish -name $p << "destroy ."
	}
}

=S
--
=Spencer W. Thomas 		|  Info Tech and Networking, B1911 CFOB, 0704
   "Genome Informatician"	|  Univ of Michigan, Ann Arbor, MI 48109
Spencer.W.Thomas@med.umich.edu	|  313-747-2778, FAX 313-764-4133
From: joel@saffron.CS.Berkeley.EDU (Joel A. Fine)
Newsgroups: comp.lang.tcl
Subject: Commercial applications in Tcl?
Date: 11 Dec 1992 21:40:41 GMT
Organization: University of California, Berkeley
Distribution: world
NNTP-Posting-Host: saffron.cs.berkeley.edu

Hi,

Has anyone given any thought to what it might take to create a
restrictable commercial application in Tk/Tcl? Suppose that I want
to do all of my programming in tcl, and just use "wish" as the binary,
since others have already done all of the work to port it to various
machines, make it robust, etc. But if I do that, I have to distribute
source code. It's not clear to me how I could then restrict its use
to those who have paid for it.

Is there such a thing as compiled tcl, for example? Are there companies
actually doing commercial tk software? What do they do about this?

Perhaps this is a non-issue: since tk is a research project; is it
unreasonable to expect that programmers will actually generate non-
shareware tcl/tk applications?

- Joel Fine
From: farrar@adaclabs.com (Stephen Daedalus)
Newsgroups: comp.lang.tcl
Subject: Re: Strange error for null returned result
Keywords: TCL/TK, error, null, eval, exec, fgrep
Date: 18 Dec 92 17:01:23 GMT
Organization: The Eye of the Pyramid, Inc.

In article <1992Dec18.025847.26643@bnr.ca>, tdoan@bnr.ca (Tuan Doan) writes:
|> Hello,
|> 
|>    I think I encountered a very strange error condition in TCL/TK 2.3   For
|> the following logic:
|> 
|>    set t1 [eval exec "/bin/fgrep $pat /tempdir/clip.ps"]
|> 
|> works correctly if $pat exist in clip.ps   When fgrep could not find any
|> match and return null?, I get the following error:
|> 
|>     while executing
|> "exec /bin/fgrep adobe /tempdir/clip.ps"
|>     ("eval" body line 1)
|>     invoked from within
|> "eval exec /bin/fgrep adobe /tempdir/clip.ps"
|>     invoked from within
|> "set t1 "[eval exec /bin/fgrep $pat /tempdir/clip.ps]..."
|> 
|> I was wondering if anyone else encountered this problem.  If so, what is
|> the fix for it?
grep and its siblings return a 0 upon a successful search and (usually) 1
or some other non zero value upon failure.  It could be that exec or eval is
interpreting the non zero return value as an error.  You say "great, so I still
get an error".  You could put a " ; echo "" > /dev/null" after your grep command
so that it would always return a 0 and it would still set t1 correctly.  What
the heck, it`s got to work better than the truth.
> 
|> Thanks,
|> 
|>  __  __/  /   /   __  /    |   /    Tuan T. Doan
|>     /    /   /   /   /   / |  /     Advance Signalling Design
|>    /    /   /   __  /   /  | /      2201 Lakeside Blvd.  P.O. Box 833871
|> __/  ______/ __/ __/ __/  __/       Richardson, TX 75083-3871
|>                                     Phone: 6-444-4575/214-684-4575
|> Internet:  tdoan@bnr.ca             Fax:   6-444-3716/214-684-3716
|>       or   tdoan@x400gate.bnr.ca    

-- 
---
Richard Farrar		These views are my own, not my company's or country's.
ADAC Laboratories	"A man without hand is not a man."
farrar@adaclabs.com		- George Costanza, Seinfeld
		Spam is a registered trademark of Hormel
Newsgroups: comp.lang.tcl
From: schwartz@roke.cs.psu.edu (Scott Schwartz)
Subject: Re: Help on reading shell variable/environment
Date: Fri, 18 Dec 1992 01:40:32 GMT

bagwill@swe.ncsl.nist.gov (Bob Bagwill) writes:
   Joel A. Fine (joel@saffron.CS.Berkeley.EDU) wrote:
   : |> inside TCL/TK?  I need to access the TERM variable so that to prevent my
   : |> TCL/TK program from being run when the user is not in an X window 
        environment.
   : 
   : wish: echo $env(TERM)
   : xterm

   Or maybe this:

   wish: if {[info exists env(TERM)]} {set term $env(TERM)}


How about checking for DISPLAY instead.  TERM is irrelevent to X.
From: bagwill@swe.ncsl.nist.gov (Bob Bagwill)
Newsgroups: comp.lang.tcl
Subject: Re: Help on reading shell variable/environment
Date: 16 Dec 92 14:30:18 GMT
X-Newsreader: TIN [version 1.1 PL6]

Joel A. Fine (joel@saffron.CS.Berkeley.EDU) wrote:
: In article <1992Dec15.204940.15394@bnr.ca>, tdoan@bnr.ca (Tuan Doan) writes:
: |>    Does anyone know of a way to read shell variable or environment variable
: |> inside TCL/TK?  I need to access the TERM variable so that to prevent my
: |> TCL/TK program from being run when the user is not in an X window environment.
: 
: wish: echo $env(TERM)
: xterm

Or maybe this:

wish: if {[info exists env(TERM)]} {set term $env(TERM)}

--
Bob Bagwill
bagwill@swe.ncsl.nist.gov
From: ouster@sprite.Berkeley.EDU (John Ousterhout)
Newsgroups: comp.lang.tcl
Subject: Another note on Tk 3.0
Date: 18 Dec 1992 17:33:12 GMT
Organization: U.C. Berkeley Sprite Project
Distribution: world
NNTP-Posting-Host: tyranny.berkeley.edu


I forgot to mention in the README file for Tk 3.0 that menus must now
be descendants of their menubuttons (this is needed so that events can
get through to the menu when there's a grab on the menubutton).  For
menus in menu bars where you're using tk_menuBar, the menu need only
be a descendant of the menubar window, since that's where the grab
is set.
From: tromey@cns.caltech.edu (Tom Tromey)
Newsgroups: comp.lang.tcl
Subject: wm raise/lower
Date: 18 Dec 92 19:15:42
Organization: California Institute of Technology
NNTP-Posting-Host: kant.cns.caltech.edu

Included are patches to Tk 3.0 which implement the "wm raise window"
and "wm lower window" commands.  The named window must be a toplevel
window.

Tom

*** tkWm.c.~1~  Wed Dec 16 12:59:15 1992
--- tkWm.c      Fri Dec 18 15:57:01 1992
***************
*** 1052,1061 ****
--- 1052,1063 ----
            wmPtr->hints.icon_window = Tk_WindowId(tkwin2);
            wmPtr->hints.flags |= IconWindowHint;
            wmPtr->iconWindowName = Tk_PathName(tkwin2);
        }
        UpdateHints(winPtr);
+     } else if ((c == 'l') && (strncmp(argv[1], "lower", length)) == 0) {
+       XLowerWindow (winPtr->display, winPtr->window);
      } else if ((c == 'm') && (strncmp(argv[1], "maxsize", length) == 0)
            && (length >= 2)) {
        int width, height;
        if ((argc != 3) && (argc != 5)) {
            Tcl_AppendResult(interp, "wrong # arguments: must be \"",
***************
*** 1240,1249 ****
--- 1242,1253 ----
            }
        }
        if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
            UpdateWmProtocols(wmPtr);
        }
+     } else if ((c == 'r') && (strncmp(argv[1], "raise", length)) == 0) {
+       XRaiseWindow (winPtr->display, winPtr->window);
      } else if ((c == 's') && (strncmp(argv[1], "sizefrom", length) == 0)) {
        if ((argc != 3) && (argc != 4)) {
            Tcl_AppendResult(interp, "wrong # arguments: must be \"",
                    argv[0], " sizefrom window ?user|program?\"",
                    (char *) NULL);

--
tromey@cns.caltech.edu
"In a riddle whose answer is chess, what is the only prohibited word?"
I thought a moment and replied, "The word chess".
	-- Jorge Luis Borges
From: ouster@sprite.Berkeley.EDU (John Ousterhout)
Newsgroups: comp.lang.tcl
Subject: Re: tk3.0 - menu strangeness in widget demo
Date: 18 Dec 1992 21:04:56 GMT
Organization: U.C. Berkeley Sprite Project
Distribution: na
NNTP-Posting-Host: tyranny.berkeley.edu

In article <1992Dec18.193800.23262@cbnewsk.cb.att.com>, ellson@ontap.att.com (John Ellson) writes:
|> 
|> When I hold the left-mouse-button down over a menu in the "widget" demo
|> and drag it along to another menu the cursor alternates rapidly between 
|> pointing NW and NE.  The menu area is blocked out but the menu items are 
|> not shown until the button is released. 
|> 
|> This happens with or without John's version of the tkWm.c patch.  
|> The environment is SunOS 4.1.1, OpenWindows 3, olvwm 3.0.
|> 
|> John Ellson
|> AT&T Bell Labs
|> 

I just noticed this problem.  I've only seen it happen under OpenWindows.
I'll take a look and post a patch when I fix it.
Newsgroups: comp.lang.tcl
From: seiferth@rufous.cs.unm.edu (Justin Seiferth)
Subject: Re: Commercial applications in Tcl?
Organization: Computer Science Department, University of New Mexico
Date: Sat, 12 Dec 1992 04:24:03 GMT

Alternatively, you could write a Tcl compiler....
Newsgroups: comp.lang.tcl
From: karl@NeoSoft.com (Karl Lehenbauer)
Subject: Re: Is there a C++ interface to tcl?
Organization: NeoSoft Communications Services -- (713) 684-5900
Date: Fri, 11 Dec 1992 15:30:55 GMT

In article <1992Dec10.184740.5628@leland.Stanford.EDU> denisb@leland.Stanford.EDU (Denis Bohm) writes:
>Is there a C++ interface to tcl?  Maybe just a set of wrapper classes?

Check out tcl++.h, tcl++.C and main++.C in Extended Tcl...
-- 
-- Email info@NeoSoft.com for info on getting interactive Internet access.
"Turn on your hot tub by email now.  Ask me how."
From: theo@jake.prz.tu-berlin.de (Teodor Pirkmayer)
Newsgroups: comp.lang.tcl
Subject: How to interrupt the TCL interpreter
Date: 16 Dec 92 12:34:24 GMT
Organization: TU-Berlin TUBKOM, Germany


I would like to interrupt the tcl-interpreter during the execution of a script
and to continue the execution after an event arrives. Is it possible to 
solve this problem? How ?

Thanx in advance,

Theo Pirkmayer  

please email to :

theo@prz.tu-berlin.de
From: sgan@hounix.org (Seng Gan)
Subject: Expect & Tcl on DG AViiON running DG/UX 5.4.2
Organization: Houston UNIX Users Group (HOUNIX), Houston, TX
Date: Mon, 14 Dec 1992 19:01:35 GMT

Has anyone ported the expect and Tcl on Data General AViion running 
DGUNIX 5.4.2 (Unix SYstem V release 4.2)?
If you had, please tell me or E-mail me what are the changes I need
to make for such port.
Thanks in advance...........
Seng C. Gan
(gansc@texaco.com) 

Newsgroups: comp.lang.tcl
From: tdoan@bnr.ca (Tuan Doan)
Subject: Strange error for null returned result
Keywords: TCL/TK, error, null, eval, exec, fgrep
Organization: Bell-Northern Research, Richardson, Tx.
Date: Fri, 18 Dec 1992 02:58:47 GMT

Hello,

   I think I encountered a very strange error condition in TCL/TK 2.3   For
the following logic:

   set t1 [eval exec "/bin/fgrep $pat /tempdir/clip.ps"]

works correctly if $pat exist in clip.ps   When fgrep could not find any
match and return null?, I get the following error:

    while executing
"exec /bin/fgrep adobe /tempdir/clip.ps"
    ("eval" body line 1)
    invoked from within
"eval exec /bin/fgrep adobe /tempdir/clip.ps"
    invoked from within
"set t1 "[eval exec /bin/fgrep $pat /tempdir/clip.ps]..."

I was wondering if anyone else encountered this problem.  If so, what is
the fix for it?

Thanks,

 __  __/  /   /   __  /    |   /    Tuan T. Doan
    /    /   /   /   /   / |  /     Advance Signalling Design
   /    /   /   __  /   /  | /      2201 Lakeside Blvd.  P.O. Box 833871
__/  ______/ __/ __/ __/  __/       Richardson, TX 75083-3871
                                    Phone: 6-444-4575/214-684-4575
Internet:  tdoan@bnr.ca             Fax:   6-444-3716/214-684-3716
      or   tdoan@x400gate.bnr.ca    
Newsgroups: comp.lang.tcl
From: shmdgljd@rchland.vnet.ibm.com (Jay Schmidgall)
Subject: Re: xf1.4 on IBM RS/6000 - fails in "make misc"
Date: Thu, 17 Dec 1992 13:29:18 GMT
Reply-To: jay@vnet.ibm.com
Disclaimer: This posting represents the poster's views, not necessarily those of IBM
Organization: IBM Rochester, MN

In article <BzE5Lo.HEB@well.sf.ca.us>, nlane@well.sf.ca.us (Nathan D. Lane) writes:
|> I have retrieved xf-1.4 from barkley.berekeley.edu and am trying to
|> compile (?) it on the IBM RS-6000.
|> [...]
|> Has anyone out there gotten this to work on the RS-6000?  I'm running
|> AIX 3.2.0 (or .1 - can't tell with AIX).

The problem is that the comments in xf.sh get interpreted as preprocessor
directives.  However, it still seems to produce a working xf script -- you
just need to 'chmod +x xf'.  Not sure about the misc problem, but I'm able
to run xf fine even with that error.

-- 
: jay          jay@vnet.ibm.com    My opinions and ideas, not my employer's.
: shmdgljd@rchland.vnet.ibm.com    (c) Copyright 1992.  All rights reserved.
From: bagwill@swe.ncsl.nist.gov (Bob Bagwill)
Newsgroups: comp.lang.tcl
Subject: wanted - newer tk gopher client?
Date: 16 Dec 92 16:20:32 GMT
X-Newsreader: TIN [version 1.1 PL6]

A while ago Nathan Torkington posted a tk gopher client of limited
functionality.  I can't find his address.  Has he or someone else
worked on an improved one?  Thanks.

--
Bob Bagwill
bagwill@swe.ncsl.nist.gov
Newsgroups: comp.lang.tcl
From: "David Herron" <david@twg.com>
Subject: tk3.0 on Sun 386i
Sensitivity: Personal
Encoding:  86 TEXT , 4 TEXT 
Conversion: Prohibited
Organization: The Wollongong Group, Inc., Palo Alto, CA
Conversion-With-Loss: Prohibited
Date: Sat, 19 Dec 1992 01:10:19 GMT

Yes, my workstation's a 386i .. ohwell.

Anyway I am compiling tk3.0 & tcl6.5 on it with the supplied /bin/cc
and have come across a couple of problems.

One was the `cp -f' stuff in tk3.0/tcl/Makefile.

In tkEvent.c at lines 823, 825 and 838 are some ?: operations whose result
was (int *) but used NULL directly.  The compiler insisted this was wrong
and stopped.  So casting the NULL like the following is dunky-hoary:

    exceptPtr = (exceptCount == 0 ? (int *)NULL : &ready[2*MASK_SIZE]);
				    ^^^^^^^ Added cast.

The TK test scripts failed all over itself in pack.test.  None appear to
be real problems tho' ..



==== pack-8.13 syntax errors
==== Contents of test case:

    set msg ""
    set result [catch {pack append . .pack.blue top} msg]

==== Result was:
1 tried to pack ".pack.blue" in window that isn't its parent
---- Result should have been:
1 can't pack .pack.blue inside .
---- pack-8.13 FAILED


==== pack-8.17 syntax errors
==== Contents of test case:

    set msg ""
    set result [catch {pack append .pack .pack.blue {padx -2}} msg]
    concat $result $msg

==== Result was:
1 bad pad value "-2":  must be positive integer
---- Result should have been:
1 bad pad value "-2":  must be positive screen distance
---- pack-8.17 FAILED


==== pack-8.18 syntax errors
==== Contents of test case:

    set msg ""
    set result [catch {pack append .pack .pack.blue {padx}} msg]
    concat $result $msg

==== Result was:
1 wrong # args: "padx" option must be followed by count
---- Result should have been:
1 wrong # args: "padx" option must be followed by screen distance
---- pack-8.18 FAILED


==== pack-8.19 syntax errors
==== Contents of test case:

    set msg ""
    set result [catch {pack append .pack .pack.blue {pady -2}} msg]
    concat $result $msg

==== Result was:
1 bad pad value "-2":  must be positive integer
---- Result should have been:
1 bad pad value "-2":  must be positive screen distance
---- pack-8.19 FAILED


==== pack-8.20 syntax errors
==== Contents of test case:

    set msg ""
    set result [catch {pack append .pack .pack.blue {pady}} msg]
    concat $result $msg

==== Result was:
1 wrong # args: "pady" option must be followed by count
---- Result should have been:
1 wrong # args: "pady" option must be followed by screen distance
---- pack-8.20 FAILED

<- David Herron <david@twg.com> (work) <david@davids.mmdf.com> (home)
<-
<- During the '80s Usenet's mantra was: "Not all the world's a VAX".
<- During the '90s I hope it becomes:   "Not all the world's DOS (ick)".
From: garfield@cs.tu-berlin.de (Sven Delmas)
Newsgroups: comp.lang.tcl
Subject: Re: xf1.4 on IBM RS/6000 - fails in "make misc"
Date: 17 Dec 1992 12:25:57 GMT
Organization: Techn. Univ. Berlin (Germany)
NNTP-Posting-Host: avalanche.cs.tu-berlin.de
In-reply-to: nlane@well.sf.ca.us's message of Thu, 17 Dec 1992 06:48:59 GMT
To: 

In article <BzE5Lo.HEB@well.sf.ca.us> nlane@well.sf.ca.us (Nathan D. Lane) writes:

   I have retrieved xf-1.4 from barkley.berekeley.edu and am trying to
   compile (?) it on the IBM RS-6000.  I have tk2.3 and tcl6.4 compiled
   and working just fine on the IBM.  However, when the makefile for 
   xf gets to "installing: makexf", I get a raft of errors:

   installing: makexf
   "xf.sh", line 1.1: 1288-218 (W) Unknown preprocessing directive !.
   "xf.sh", line 2.3: 1288-218 (W) Unknown preprocessing directive This.
   "xf.sh", line 8.3: 1288-218 (W) Unknown preprocessing directive configure.
   "xf.sh", line 10.3: 1288-218 (W) Unknown preprocessing directive where.
This seems to be a problem with your cpp (or my installation routine
:-). If you have an alternative cpp (like gnus cpp) please try this
one. Edit the Makefile target: "makexf". Just replace /lib/cpp with
the alternative cpp command. 

   Then, one it gets down to making misc, it says "don't know how to make
   misc" - checked the makefile and it looks fine (e.g., it's there) and
   looks the same as the other targets.
Jup. This is a small bug in the Makefile. There is a patch named
xf1.4-patch, that should be available at the site where you grabbed
xf. You can also change this by hand. Just remove the "; \" at the end
of the target: "BuildAbout" (right before the target: "misc").  

Sven


--
----
  Sven Delmas (Techn. Univ. Berlin)
    garfield@cs.tu-berlin.de
----
  For every problem there is a solution which is simple, clean and wrong.
                                                  Henry Louis Mencken
From: madere@austin.ibm.com (Steve Madere)
Newsgroups: comp.lang.tcl
Subject: Width error in Tk entry widget
Date: 18 Dec 92 18:35:47 GMT
Organization: IBM Austin
Originator: madere@julius.austin.ibm.com



Disclaimer:  My inbound mail is messed up right now so please
	     just post replies.

The Tk entry widget seems to often end up being two characters wider than
requested.  I am running tk2.3 on an RS6000 with AIX 3.2.   Sample code
follows:


#This simple wish program creates an entry with width 30
#Clearly, there is a bug.....
entry .entry -borderwidth {1} -width 28
pack append . .entry {left frame center }

Please let me know if this behavior is seen on other platforms and 
if there is a fix available.
Please do not mail replies.  My inbound mail is currently messed up.
Just post any replies if possible.

Thanks.

Steve Madere
-- 

Steve Madere
(Do not reply with R! use the following address)
madere%aixserv@uunet.uu.net
From: censjg@caledonias3.caledonia.hw.ac.uk (Simon Greaves)
Newsgroups: comp.lang.tcl
Subject: Re: tclMotif, any info?
Date: 16 Dec 92 15:16:27 GMT
Organization: Department of Computer Science, Heriot-Watt University, Scotland

In article <SPENCER.92Dec11173536@guraldi.med.umich.edu>, spencer@med.umich.edu (Spencer W. Thomas) writes:
|> In article <1992Dec10.155238.13437@cs.hw.ac.uk> censjg@caledonias3.caledonia.hw.ac.uk (Simon Greaves) writes:
|> 
|> > 	exec xterm -e someprog &
|> 
|> > works fine, but
|> > 	exec xterm &
|> 
|> > gives 
|> > 	ioctl: not owner
|> 
|> This is probably coming from the csh.  When you do xterm -e someprog, it
|> doesn't run csh.  Do you get this message in the window where you
|> started your wish, or in the new xterm window?

It appears in the xterm, though I should probably add that this version
of tcl does not provide a "wish", but rather a prompt like tclX. It's all
based around Motif widgets, and has an equivalent of XtAppMainLoop call to
do its event stuff.

I tried a similar script using tcl/tk/wish and it worked fine.

Simon
Newsgroups: comp.lang.tcl
From: root@choreo.ca (Superuser)
Subject: problem with lists
Organization: Choreo Systems, Ottawa Canada
Date: Fri, 18 Dec 1992 21:30:13 GMT

Hey folks!

I am working on this app, and I'm having a little trouble with the way that
lists are created.

This is my code :

The idea is that I will read my input, which is two fields, colon selimited,
and stuff each field into a spearate list, which will be used later.

set end [ eof $fd ]
set nameList ""
set fileList ""
while { $end == 0 } {
   set record [ gets $fd ]
   set reclist [ split $record : ]
   puts stdout "list = $reclist"
   set file  [lindex $reclist 0]
   puts stdout "file = $file"
   set name  [lindex $reclist 1]
   puts stdout "name = $name"
      puts stdout "all = $nameList"
      set $nameList [ list $nameList $name ]
      list $fileList $file
      .label_and_buttons.list insert end $name
   set end [ eof $fd ]
}

The problem is that after frigging around various incantations, including
using lappend, I'm lost.  How do I get my lists to contain what I want here?

Thanks!

Newsgroups: comp.lang.tcl