Newsgroups: comp.lang.smalltalk
Path: cantaloupe.srv.cs.cmu.edu!bb3.andrew.cmu.edu!nntp.sei.cmu.edu!cis.ohio-state.edu!math.ohio-state.edu!howland.reston.ans.net!nntp.crl.com!pacbell.com!amdahl.com!amd!amd.com!txnews.amd.com!news
From: "Paul G. Schaaf, Jr." <paul.schaaf@amd.com>
Subject: Re: Smalltalk-80: The Language
Content-Type: text/plain; charset=us-ascii
Message-ID: <30CDEEF3.66E4@amd.com>
Sender: news@txnews.amd.com
Nntp-Posting-Host: hqsp86
Content-Transfer-Encoding: 7bit
Organization: Advanced Micro Devices
References: <4a86l7$af9@newsbf02.news.aol.com> <4acnfc$n10$3@mhadg.production.compuserve.com>
Mime-Version: 1.0
Date: Tue, 12 Dec 1995 21:06:59 GMT
X-Mailer: Mozilla 2.0b3 (Win16; I)
Lines: 36

Eric Clayberg wrote:
> Balloon subclass: #PcgBaloon
>   instanceVariableNames:
>     'flameSetting maliciousnessLevel ignoranceLevel credentials'
>   classVariableNames:
>     'Current' "<--Thank god there's only one!"
>   poolDictionaries:
>     'StandardBoorishBehaviorConstants PseudoExpertConstants'
> 
> !PcgBaloon class methods !
> phrasesToUseWhenTryingToMakeFriendsAndInfluencePeople
>     ^#('shameless lies' 'very ignorant' 'dishonest insinuation'
>        'malicious misrepresentation' 'malicious insinuations'
>        'arrogantly self assured' 'inanities' 'sleaze'
>        'imbecilities' 'incompetence' 'squalid' 'stupid')! !
> 
> !PcgBaloon methods !
> initialize
>     flameSetting := maliciousnessLevel := ignoranceLevel := 100.
>     credentials := #()! 
> -Eric <g>

  type
      "Since types are equivalent to classes ;>"
      ^self class !

  hasClass
      "Answer whether the receiver's type has any class."
      ^false ! !

-----------------------------------------------------------------
Paul.Schaaf@AMD.Com         Advanced Micro Devices, Sunnyvale, CA
I don't speak for my company                   http://www.amd.com

"In theory, there is no difference between theory and practice, 
but in practice, there is." - unknown
