HDTenEightyP/NetNews huggingface dataset:
From: adrianho@barkley.berkeley.edu (Adrian J Ho)
Newsgroups: comp.lang.tcl
Subject: Re: bug in expr?
Date: 22 Jul 92 08:25:45
Organization: University of California, Berkeley
NNTP-Posting-Host: barkley.berkeley.edu
In-reply-to: rtor@ansa.co.uk's message of 22 Jul 92 10:15:22 GMT

In article <9207221015.AA13447@yscydion.ansa.co.uk> rtor@ansa.co.uk (Owen Rees) writes:
>wish: set x [format "%#g" [expr 400000.0+500000.0]]
                      ^^^
Hmmmm...forgot about the "#" flag.  That would probably be a better
substitution in the patches I previously posted than %e or %f.  8-)
--
-----------------------------------------------------------------------------
Adrian Ho, He With The Embarrassingly *Dead* Passion ** Phone: (510) 642-5563
System Manager, CFD Lab, ME Dept, UC Berkeley * adrianho@barkley.berkeley.edu
Maintainer, Tcl/Tk Contrib Archive ---- barkley.berkeley.edu [128.32.142.237]
  Send all Tcl/Tk Archive-related stuff to tcl-archive@barkley.berkeley.edu
Newsgroups: comp.lang.tcl
From: joe@athena.mit.edu (Joseph C Wang)
Subject: Timeout using the send command
Followup-To: comp.lang.tcl,poster
Organization: Massachusetts Institute of Technology
Date: Sat, 25 Jul 1992 11:20:00 GMT

How can I change the timeout on the "send" command?
From: colas@bagheera.inria.fr (Colas Nahaboo)
Newsgroups: comp.lang.tcl
Subject: Re: tkwm?
Date: 21 Jul 92 08:40:14 GMT
Organization: Koala Project, Bull Research France

In article <MeOgrta00h5KM=qH9W@cs.cmu.edu>, Sean.Levy@cs.cmu.edu writes:
|> If possible, you should just be able
|> to use tk like you always would, although there are probably some
|> gotchas in the context of a wm.

You said it! Be prepared for looong debugging sessions :-)
Seriously, I would advise you to go the easy route and try to add customization
to an already-existing wm (twm being the best candidate), and let it do all the
tricky stuff. You would only replace the "display" code with Tk buttons for
window names, and add new functions, written in TCL to be triggered. (to
implement rooms)

Writing an X window manager from scratch is quite complex now, with all the
ICCCM and the proprietary hacks dones by proprietary toolkits (Motif, OLIT, and
others...)

-- 
Colas Nahaboo, colas@sa.inria.fr, Bull Research Koala proj. Wool&Gwm Architect
Pho:(33) 93.65.77.70(.66 Fax), INRIA, B.P.93 - 06902 Sophia Antipolis, FRANCE.
Newsgroups: comp.lang.tcl
From: karl@NeoSoft.com (Karl Lehenbauer)
Subject: Re: Installation/Distribution Problems
Organization: NeoSoft Communications Services -- (713) 684-5900
Date: Wed, 22 Jul 1992 18:50:26 GMT

You might have a look at Extended Tcl on barkley.berkeley.edu.  It has
the ability to startup with info from an environment variable or a config
file, either of which can then set a tcl search path and automatically
pull in stuff in /usr/local/tcl, /usr/local/lib/tcl, /usr/local/lib/tk,
or what have you.
-- 
-- Email info@NeoSoft.com for info on getting Internet access.
"Silent gratitude isn't very much use to anyone." -- G. B. Stearn
Newsgroups: comp.lang.tcl
From: lim@doctor.chem.yale.edu (Dongchul Lim)
Subject: tk_butDown and tk_butUp
Organization: Laboratory for Computational Chemistry, Yale University
Date: Sat, 25 Jul 1992 05:21:56 GMT

I compiled tcl6.3 and tk2.1 on our SGI4D running IRIX 4.0.1.
Then I tested 'wish' with demo programs.
Whenever I tried to click on a button, I got the following
error message:
tkerror failed to handle background error.
    Original error: invalid command name "tk_butDown"
    Error in tkerror: invalid command name "tkerror"

Does this mean 'tk_butDown' command desn't exist?
Or have I done something wrong with compilation?
-dcl

--
********************************************************************
* Dongchul Lim                   | Phone (203) 432-6288            *
* Dept. of Chemistry, Yale Univ. | Email: lim@rani.chem.yale.edu   *
* 225 Prospect Street            |            (130.132.25.65)      *
* New Haven, CT 06511            |                                 *
********************************************************************
| Dongchul Lim                   | Phone (203) 432-6288            |
| Dept. of Chemistry, Yale Univ. | Email: lim@doctor.chem.yale.edu |
| 225 Prospect Street            |            (130.132.25.60)      |
| New Haven, CT 06511            |                                 |
From: adrianho@barkley.berkeley.edu (Adrian J Ho)
Newsgroups: comp.lang.tcl
Subject: Re: How do I imbed tcl in an application
Date: 30 Jul 92 15:11:11
Organization: University of California, Berkeley
	<ADRIANHO.92Jul27175403@barkley.berkeley.edu>
	<1992Jul28.113922.19882@cas.org>,<156g6sINNnp2@agate.berkeley.edu>
	<1992Jul29.222557.7305@cpu.com>
	<ADRIANHO.92Jul29201730@barkley.berkeley.edu>
NNTP-Posting-Host: barkley.berkeley.edu
In-reply-to: adrianho@barkley.berkeley.edu's message of 29 Jul 92 20:17:30

In article <ADRIANHO.92Jul29201730@barkley.berkeley.edu> adrianho@barkley.berkeley.edu (Adrian J Ho) writes:
>IMHO, a neater way is to modify the Tcl library to allow for the
>specification and storage of subcommand descriptors. [...]

And of course I forgot to describe the changes for Tcl_DeleteCommand()
and every other procedure that looks up the command hash table.  At
last glance, the list of procedures to be modified looks like this:

tclBasic.c:
	Tcl_CreateCommand()
	Tcl_DeleteCommand()
	Tcl_DeleteInterp()
	Tcl_Eval()
tclCmdIL.c:
	Tcl_InfoCmd()
tclCmdMZ.c:
	Tcl_RenameCmd()
tclProc.c:
	TclFindProc()

All these procedures need to be modified to do some tree-walking
instead of grabbing/modifying the top-level entry from the command
hash table.  Of course, it would probably be easier to construct
special access methods for commandTables and modify all the above
procedures to use them.
--
-----------------------------------------------------------------------------
Adrian Ho, He With The Embarrassingly *Dead* Passion ** Phone: (510) 642-5563
System Manager, CFD Lab, ME Dept, UC Berkeley * adrianho@barkley.berkeley.edu
Maintainer, Tcl/Tk Contrib Archive ---- barkley.berkeley.edu [128.32.142.237]
  Send all Tcl/Tk Archive-related stuff to tcl-archive@barkley.berkeley.edu
Newsgroups: comp.lang.tcl
From: lwv26@cas.org (Larry W. Virden)
Subject: Re: How do I imbed tcl in an application
Followup-To: comp.lang.tcl
Reply-To: lvirden@cas.org (Larry W. Virden)
Organization: Nedriv Software and Shoe Shiners, Uninc.
Date: Fri, 31 Jul 1992 10:47:21 GMT

In article <ADRIANHO.92Jul30145641@barkley.berkeley.edu> adrianho@barkley.berkeley.edu (Adrian J Ho) writes:
:In article <1992Jul30.130352.11885@cpu.com> gwlester@cpu.com (Gerald W. Lester) writes:
:
:>   Another change that would be noce is to extend the proc command to take
:>an optional fourth arguement that would be a tcl command to invoke when the
:>procedure is deleted.
:
:Adding that just requires a few changes to Tcl_ProcCmd() to accomplish
:that, but I can't think of any application for this enhancement.  Can
:you suggest any concrete examples?  (The reason I ask is coz I figured
:John would've added it a long time ago if it had any utility.)
:--

Would that be useful in the case where the user tells the window manager to
kill the Tk window?
-- 
Larry W. Virden                 UUCP: osu-cis!chemabs!lvirden
Same Mbox: BITNET: lvirden@cas  INET: lvirden@cas.org
Personal: 674 Falls Place,   Reynoldsburg, OH 43068-1614
America Online: lvirden@aol.com
Newsgroups: comp.lang.tcl
From: schwartz@roke.cs.psu.edu (Scott Schwartz)
Subject: Re: Installation/Distribution Problems
	<1992Jul22.185026.20369@NeoSoft.com>
Date: Thu, 23 Jul 1992 01:16:42 GMT

karl@NeoSoft.com (Karl Lehenbauer) writes:
   You might have a look at Extended Tcl on barkley.berkeley.edu.  It has
   the ability to startup with info from an environment variable or a config
   file, either of which can then set a tcl search path and automatically
   pull in stuff in /usr/local/tcl, /usr/local/lib/tcl, /usr/local/lib/tk,
   or what have you.

Speaking of Extended Tcl, its autoload mechanism conflicts with the
standard one.  Speaking as a nervous user of tclx, it would be nice to
see a convergance of some sort.  Currently one has to tweak wish
scripts (like demos/widget) that assume the standard system to get
them to cooperate with tclx.
From: adrianho@barkley.berkeley.edu (Adrian J Ho)
Newsgroups: comp.lang.tcl
Subject: Re: Installing TCL/TK so it can be used for development
Date: 21 Jul 92 02:19:38
Organization: University of California, Berkeley
NNTP-Posting-Host: barkley.berkeley.edu
In-reply-to: david@twg.com's message of 21 Jul 92 00:02:50 GMT

In article <1992Jul21.000250.14233@twg.com> david@twg.com (David Herron) writes:
>One of the problems with TCL/TK is there are no `make install' tags
>in the Makefile's.  Therefore there is little guidance as to what the
>Official Stand on installing things are.

I doubt there's any, which explains the anarchy...

As another example, this cluster (side note: barkley.berkeley.edu is
also the main file server for this cluster, so please try to limit
your FTP sessions to 5PM - 8AM PST) supports machines with several
different architectures, so I've arranged stuff as follows (with the
aid of amd, a really spiffy automount daemon):

	binaries	/usr/local/bin
	object libs	/usr/local/lib
	scripts		/usr/local/common/lib/{tcl,tk}
	includes	/usr/local/include/{tcl,tk}

(The subdirectories containing the system-dependent binaries and
libraries are hidden by amd, thus presenting a uniform hierarchy for
everything from a SPARC IPC to an IBM RS6000.  I lump both Tcl and
Extended Tcl stuff together, since I view TclX as simply an extension
to the main Tcl distribution.)

>It's not a big deal, really.  Just edit the Makefile to include more -I flags
>and TK already knows where its own $tk_library is, so it can find its own
>library files.  Rather, for me it isn't a big deal.  But this *is* one more
>hassle to getting these things installed.  It *is* a place where there is
>room for making incompatible decisions.  etc.

I'm not too keen on a fixed Tcl/Tk hierarchy, but if I were to
implement it, I'd do it the way I outlined above, with one exception:
I'd hang the Tk subdirectories off the Tcl ones, instead of having
them separate.  After all, they are really Tcl extensions.  By the
same token, all other extension packages would have their own
subdirectories hanging off the Tcl ones.

As for your user base not being well-versed in the methods and
machinations of cc/make, it would probably be best if you installed
whatever packages are needed yourself, using whatever arrangement you
find most convenient.  Then, detail that arrangement for your users.

If your user base absolutely *has* to install it themselves, outline
the proper procedure for installation, and when you write the
Makefiles, bear in mind that each package needed could be in a
separate directory, and code accordingly.  Adding subdirectory
specifiers to your #include's (eg. '#include "tcl/tcl.h") is a no-no.
--
-----------------------------------------------------------------------------
Adrian Ho, He With The Embarrassingly *Dead* Passion ** Phone: (510) 642-5563
System Manager, CFD Lab, ME Dept, UC Berkeley * adrianho@barkley.berkeley.edu
Maintainer, Tcl/Tk Contrib Archive ---- barkley.berkeley.edu [128.32.142.237]
  Send all Tcl/Tk Archive-related stuff to tcl-archive@barkley.berkeley.edu
Newsgroups: comp.lang.tcl
From: "David Herron" <david@twg.com>
Subject: keyboard-driven listbox widget 
Sensitivity: Personal
Encoding:  7 TEXT , 82 TEXT 
Conversion: Prohibited
Organization: The Wollongong Group, Inc., Palo Alto, CA
Conversion-With-Loss: Prohibited
Date: Tue, 28 Jul 1992 21:56:13 GMT

Greetings!

The following is code I use for driving listboxes from a keyboard.  This
lets you use UP, DOWN, PgUp and PgDn keys to scroll the listbox.  It requires
that keyboard focus has been pointed at the listbox, one easy way to do
this is with the FOCUS module.


#!/usr/local/bin/wish -f
#
# $Id: util.tcl,v 1.4 1992/07/23 05:09:46 david Exp $
# util -- Some utility procedures.
#
# $Log: util.tcl,v $
# Revision 1.4  1992/07/23  05:09:46  david
# Add function to bind the listbox properly.
#
# Revision 1.3  1992/07/15  04:17:24  david
# Add code for doing BUSY indicators.
#
# Revision 1.2  1992/06/05  03:56:34  david
# Had problems with foreach{}'s controlled by a [$list curselection]
# derived list.  If we modified the list (added or deleted members) the
# offsets were thrown off.  Meaning the actions acted on the wrong
# list members.  Changed to repeatadly do [$list curselection] ...
#
# Revision 1.1  1992/05/27  06:51:29  david
# Initial revision.
#
#


# LISTBOX:scroll -- Scroll a listbox by one line in the given direction.
proc LISTBOX:scroll {list scroll direction} {
	set cur   [$scroll get]
	set first [lindex $cur 2]

	if { $direction == "down" } {
		 set new [expr $first+1]
		 $list yview $new
	} else {
		 set new [expr $first-1]
		 $list yview $new
	}

	$list select from $new
}

# LISTBOX:scrollPage -- Scroll a listbox by one `page' in the given direction.
#	A page is the current `height' of the listbox.
proc LISTBOX:scrollPage {list scroll direction} {
	set cur   [$scroll get]
	set win   [lindex $cur 1]
	set first [lindex $cur 2]

	if { $direction == "down" } {
		 set new [expr $first+$win]
		 $list yview $new
	} else {
		 set new [expr $first-$win]
		 $list yview $new
	}

	$list select from $new
}


proc LISTBOX:bind {{list} {scroll}} {
	bind $list <Key-Down>	"LISTBOX:scroll %W $scroll down "
	bind $list <Key-Up>	"LISTBOX:scroll %W $scroll up   "

	# On Sun type-4 keyboard these are marked: PgDn & PgUp
	# If this does not work for you, use `xev' to find
	# the values for the keys you prefer to use.
	# <Shift-Up> or <M-Up> are both good possibilities.
	bind $list <Key-F35> "LISTBOX:scrollPage %W $scroll down "
	bind $list <Key-F29> "LISTBOX:scrollPage %W $scroll up   "

	# Next & Prior are from the HDS FX-15
	bind $list <Key-Next>  "LISTBOX:scrollPage %W $scroll down "
	bind $list <Key-Prior> "LISTBOX:scrollPage %W $scroll up   "
}

# LISTBOX:firstSel -- Return the first selected entry.
proc LISTBOX:firstSel list {
	set l [$list curselection]
	if {$l == ""} { return "" }
	return [lindex $l 0]
}

Newsgroups: comp.lang.tcl
From: arorav@bnr.ca (Vikas Arora)
Subject:  Printing the objects on the Canvas
Organization: Bell-Northern Research
Date: Fri, 31 Jul 92 13:59:43 GMT

I have started using Tcl recently and I am facing
problem in getting the objects drawn on the canvas
onto a laser printer...has anyone tried it...
is there any utility available.
any pointers/suggestions will be of great use.

Thanks,

Vikas
Software Engineering Centre
Bell Northern Research
From: adrianho@barkley.berkeley.edu (Adrian J Ho)
Newsgroups: comp.lang.tcl
Subject: Re: bug in expr?
Date: 22 Jul 92 04:15:20
Organization: University of California, Berkeley
	<ADRIANHO.92Jul22040954@barkley.berkeley.edu>
NNTP-Posting-Host: barkley.berkeley.edu
In-reply-to: adrianho@barkley.berkeley.edu's message of 22 Jul 92 04:09:54

In article <ADRIANHO.92Jul22040954@barkley.berkeley.edu> adrianho@barkley.berkeley.edu (Adrian J Ho) writes:
>      (2) Change %g above to %e or %f.  Disadvantage: Some numbers will
>          look ugly (eg. 900000.0 is returned as 900000.000000).  Apply
>          the following patch (change %e to %f if that's your liking):

Oops, the patch was incomplete -- there were two instances of
double-to-string conversion.  Here's the "definitive" one:

*** tclExpr.c~  Mon Mar 23 09:54:06 1992
--- tclExpr.c   Wed Jul 22 04:12:24 1992
***************
*** 1124,1130 ****
      if (valuePtr->type == TYPE_INT) {
        sprintf(valuePtr->pv.buffer, "%ld", valuePtr->intValue);
      } else if (valuePtr->type == TYPE_DOUBLE) {
!       sprintf(valuePtr->pv.buffer, "%g", valuePtr->doubleValue);
      }
      valuePtr->type = TYPE_STRING;
  }
--- 1124,1130 ----
      if (valuePtr->type == TYPE_INT) {
        sprintf(valuePtr->pv.buffer, "%ld", valuePtr->intValue);
      } else if (valuePtr->type == TYPE_DOUBLE) {
!       sprintf(valuePtr->pv.buffer, "%e", valuePtr->doubleValue);
      }
      valuePtr->type = TYPE_STRING;
  }
***************
*** 1318,1324 ****
        if (value.type == TYPE_INT) {
            sprintf(interp->result, "%ld", value.intValue);
        } else if (value.type == TYPE_DOUBLE) {
!           sprintf(interp->result, "%g", value.doubleValue);
        } else {
            if (value.pv.buffer != value.staticSpace) {
                interp->result = value.pv.buffer;
--- 1318,1324 ----
        if (value.type == TYPE_INT) {
            sprintf(interp->result, "%ld", value.intValue);
        } else if (value.type == TYPE_DOUBLE) {
!           sprintf(interp->result, "%e", value.doubleValue);
        } else {
            if (value.pv.buffer != value.staticSpace) {
                interp->result = value.pv.buffer;
--
-----------------------------------------------------------------------------
Adrian Ho, He With The Embarrassingly *Dead* Passion ** Phone: (510) 642-5563
System Manager, CFD Lab, ME Dept, UC Berkeley * adrianho@barkley.berkeley.edu
Maintainer, Tcl/Tk Contrib Archive ---- barkley.berkeley.edu [128.32.142.237]
  Send all Tcl/Tk Archive-related stuff to tcl-archive@barkley.berkeley.edu
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject:      SetEnv
Date: 28 Jul 92 17:01:36 GMT

Sorry about the misinformation.  I am currently programming in C and TP6 and
sometimes recall something in one.  SetEnv is not in TP6 but there is a C++
routine that does it.  Thanks for those who pointed this out.  Anyways, there
needs to be one for TP6.
From: usr3947a@tso.uc.edu (Kenneth Wronkiewicz)
Newsgroups: comp.lang.pascal
Subject: Re: WANTED: multi-line text entry with editing featu
Date: 28 Jul 92 16:59:26 GMT

excatly what code i could use as whell.....   i figure that it would be a 
parcedure with a ReadChar or ReadLn command then a checking routene for word
wrap, command charachters, etc.
Newsgroups: comp.lang.pascal
From: silvert@cs.dal.ca (Bill Silvert)
Subject: Re: Numerical Recipes
Reply-To: silvert@biome.bio.ns.ca (Bill Silvert)
Organization: Math, Stats & CS, Dalhousie University, Halifax, NS, Canada
Distribution: na
Date: Tue, 21 Jul 1992 19:52:06 GMT

In <Brr44J.5z7@news.cso.uiuc.edu> wmsg4931@uxa.cso.uiuc.edu (Walter M. Seiler) writes:

>I have Numerical Recipes in C book and the fortran
>book and the fortran disk.  But was wondering if
>anyone out there could assist me in getting the
>C and/or pascal code segments.

The code is distributed on disk and is copyrighted.  A stupid situation
where you can type it in from the book but not copy it from a disk that
a friend has.  And you can't include the code when you publish a paper
that calls it.


-- 
William Silvert, Habitat Ecology Division, Bedford Inst. of Oceanography
P. O. Box 1006, Dartmouth, Nova Scotia, CANADA B2Y 4A2.  Tel. (902)426-1577
InterNet Address: silvert@biome.bio.ns.ca
Newsgroups: comp.lang.pascal
From: phfrom@nyx.uni-konstanz.de (Hartmut Frommert)
Subject: Re: Functions and Procedures as Parameters
Organization: Dept. of Physics, University of Constance
Date: Tue, 21 Jul 1992 08:46:24 GMT

bx304@cleveland.Freenet.Edu (Jeff Epler) writes:

>In a previous article, husak@ux1.cso.uiuc.edu (Stephen R. Husak) says:

>>I've been trying to implement the following in TP5.5... [..]

I use TP 6.0, bu think this makes no diff here..

>>I want to pass a function into another function:
>>
>>eg -- function First(a,b: real;
>>                     function test(x:integer):integer);
>> [..]	

>[..]
>I *think* that one must declare a TYPE that is a function.  What you
>have above doesn't work for the same reason that function
>george(harry:array[1..20] of char):char; doesn't work.

You're right.

>Try something like this:

>type 
> xfunction:function(x:integer):integer;

>function yfunction(first,last:integer; theFunc:xFunction):integer

>Then in the procedure it should look something like:
> inc(temp,theFunc(i));

>Just as though theFunc was a 'normal' function.  (It is, however, a pointer.
                              ^^^^^^^^                               ~~~~~~~
*NOT QUITE*, since it *MUST* be declared *FAR* (either by              ^
         * function theFunc(x:integer):integer; far;       or          |
         * {$F+} (* the compiler option *)                             |
                                                              because of this
> [..]

Similarly you can define arrays of *far-declared* funcs/procs, and thelike.

--
 Hartmut Frommert, LS Dehnen, Physics, | E-Mail: <phfrom@dknkurz1.bitnet>
 Univ of Constance, P.O.Box 55 60,     |     or  <phfrom@nyx.uni-konstanz.de>
 D-W-7750 Constance, Germany  | + SAVE THE WHALES ! BOYCOTT NORWAY !        +
 Phone: +49-(0)7531-88-3747   | + Whales R intelligent. Whale killers not.  +
+ Whale killing is murder. Eating whales is cannibalism. Eat whale killers. +
From: sl8nl@cc.usu.edu
Newsgroups: comp.lang.pascal
Subject: Re: Stony Brook Pascal+
Date: 30 Jul 92 22:53:45 MDT
Followup-To: gt1827a@prism.gatech.edu
Organization: Utah State University

> Has anyone had any experience using Pascal+ yet?  I'm looking to use it
> to interface existing Turbo Pascal 6.0 code to Alsys Ada, a task which is
> beyond the capabilities of TP.  Anyone with any experiences with this
> package, particularly the interfacing capabilities, let me know your 
> opinion.

David, 

Pascal+ is very flexible in what it has to offer.  I bought it many months
ago, and I'm very impressed with it.  The optimizations are downright 
amazing!

It also provides complete calling control for procedures and functions...
basically, if you knew your Ada proceure used registers DS,ES,AX,DX
and it needs passed in via BX a value, you would (or something close):

procedure AdaProc(TEstValue : Word) [USES DS,ES,AX,DX] [BX]; external
'AdaProc';

or something close to that (I couldn't remember off the top of my head).

The manuals document everything really well.

Josh
From: damm@diku.dk (Kristian Damm Jensen)
Newsgroups: comp.lang.pascal
Subject: Re: Is this legal - why/why not?
Date: 30 Jul 92 11:32:02 GMT
Organization: Department of Computer Science, U of Copenhagen

ins894r@aurora.cc.monash.edu.au (Aaron Wigley [Wigs]) writes:

>sirosh@cs.utexas.edu (Joseph Sirosh) writes:
>: I have two questions.
>: 
>: 1. The following declaration for an enumerated type is legal.
>:     Type Used = (Integer, Char, Boolean);
>: 
>: even though Integer, Char, Boolean etc. are names of predefined types.
>: This works on Think Pascal on the Mac.

>In pascal it is possible to redefine types:
>Eg,

>Type
>	real = extended;

>What it seems you are doing is redefing the types Integer, Char, Boolean,
>and I would expect big problems..

No. It is possible to redefine the meaning of certain names. That does
not change the type as a concept. BUT you will not be able to refer to
the type denoted by that name (unless of course you already gave it
another name too), and that can cause real trouble.

The following sequence it quite legal and used with care wouldn't
cause any trouble: 

type
  newint = integer;
  newreal = real;
  newbool = boolean;
  types = (integer, boolean, real);

But I find it hard to see why anybody would want to do such a thing.
-- 
Kristian Damm Jensen (damm@diku.dk)
"Life is like a sewer - what you get out of it depends on what you put into it"
- Tom Lehrer
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: Re: HELP, TVision Questions
Date: 28 Jul 92 17:55:49 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: The David Taylor Model Basin

In comp.lang.pascal, s1949782@titan.ucc.umass.edu (Matthew Crocker) writes:
[ heavily edited ]
>Here's my problem
>
> I have a Dialog box (tDialog) stored in a Resource file.
[...]
>
>Procedure MSCDialogType.Init;
 ^^^^^^^^^
This should probably be a CONSTRUCTOR, since i presume you're showing
us some real code...

regards, pete
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth      roth@oasys.dt.navy.mil
"Never argue with someone who buys ink by the barrel." - Daniel Janal.
Newsgroups: comp.lang.pascal