Newsgroups: comp.lang.smalltalk
Path: cantaloupe.srv.cs.cmu.edu!bb3.andrew.cmu.edu!newsfeed.pitt.edu!godot.cc.duq.edu!newsgate.duke.edu!news.mathworks.com!newsfeed.internetmci.com!uwm.edu!lll-winken.llnl.gov!nntp.coast.net!howland.reston.ans.net!EU.net!sun4nl!NLnet!okhuijsen
From: okhuijsen@twice.nl (Stephan Okhuijsen)
Subject: Re: ENFIN Memory Leak
X-Nntp-Posting-Host: utr99-176.utrecht.nl.net
Message-ID: <okhuijsen.19.000EBD69@twice.nl>
Sender: news@solair1.inter.NL.net (News at news)
Organization: Twice Technology
X-Newsreader: Trumpet for Windows [Version 1.0 Rev A]
References: <4l9u8f$9s0@vixen.cso.uiuc.edu> <DsKHKt.JIp@inter.NL.net>
Date: Thu, 6 Jun 1996 12:45:17 GMT
Lines: 178

In article <DsKHKt.JIp@inter.NL.net> pkraaij@solair1.inter.nl.net (Peter Kraaijenoord) writes:
>Xref: sun4nl comp.lang.smalltalk:35246
>Newsgroups: comp.lang.smalltalk
>Path: sun4nl!Utrecht.NL.net!news
>From: pkraaij@solair1.inter.nl.net (Peter Kraaijenoord)
>Subject: Re: ENFIN Memory Leak
>X-Nntp-Posting-Host: amf51-20.amersfoort.nl.net
>Message-ID: <DsKHKt.JIp@inter.NL.net>
>Sender: news@inter.NL.net (News at newsutr)
>Organization: NLnet
>X-Newsreader: Forte Free Agent 1.0.82
>References: <4l9u8f$9s0@vixen.cso.uiuc.edu>
>Date: Thu, 6 Jun 1996 04:17:07 GMT
>Lines: 66


>Hi Geoffrey,

>Tried to help you but cannot read your  t.cls file

Hi Peter,

Long time no see (must be three years).
Good to see you still aktive in this area.

Here comes the translation of the t.cls file (this time not UUDECODED):

------------------------------------------------------------------------

Controller subclass: #Work1Controller
instanceVariableNames: '
	button1
	count
	ef
'
classVariableNames: ''
poolDictionaries: '' !


!Work1Controller class methods!


initialize
	|controller|
	controller := self name: #Work1.
	controller setStartCursorsAutomaticallyTo: false.
	controller createItems; initializeBindings.
	controller finishInit.
!"end initialize"


!"End of Work1Controller class methods block"

!Work1Controller methods!


createItems
	|cItem temp form controller|
	controller := self.
	form := Form
		name:				controllerName
		rect:				{225 300 858 230}
		controller:		controller.
	form setGridTo: true.
	form setSnapTo: true.
	form setXGridResTo: 40.
	form setYGridResTo: 40.
	cItem := controller add: #button1
		class:			FormButton
		rect:				{438 40 361 82}
		options:			{#Return #Tab #Up #Down #Backtab #Left #Right}
		form:				form
		text:				'Continue'.
	cItem := controller add: #ef
		class:			FormMLString
		rect:				{47 49 349 63}
		options:			{#NoEdit #NoSelect #Return #Tab #Up #Down #Backtab #MultiLine}
		form:				form.
	cItem setFormatTo: {#HCenter #VCenter {#PointSize 10} #White {#Background #Blue}}.
	form setInitialFocusItemTo: button1.
	controller setMainFormTo: controllerName.
!"end createItems"


initializeBindings
	|temp|
	temp := self actionDict.
	temp at: #button1 put: #add1.
!"end initializeBindings"


add1
	|str|

count := count+1.
str := (count asString).
ef putValue: str.
!"end add1"


openInitialization

count := 0.
ef putValue: count.
":Section Reference
add1

count := count + 1.
ef putValue: count
:End"
!"end openInitialization"


!"End of Work1Controller methods bloc


>>section 1/1   file t.cls   [ Wincode v2.6.1 ]

>>begin 644 t.cls
>>M0V]N=')O;&QE<B!S=6)C;&%S<SH@(U=O<FLQ0V]N=')O;&QE<@T*:6YS=&%N
>>M8V5687)I86)L94YA;65S.B`G#0H)8G5T=&]N,0T*"6-O=6YT#0H)968-"B<-
>>M"F-L87-S5F%R:6%B;&5.86UE<SH@)R<-"G!O;VQ$:6-T:6]N87)I97,Z("<G
>>M("$-"@T*#0HA5V]R:S%#;VYT<F]L;&5R(&-L87-S(&UE=&AO9',A#0H-"@T*
>>M:6YI=&EA;&EZ90T*"7QC;VYT<F]L;&5R?`T*"6-O;G1R;VQL97(@.CT@<V5L
>>M9B!N86UE.B`C5V]R:S$N#0H)8V]N=')O;&QE<B!S9713=&%R=$-U<G-O<G-!
>>M=71O;6%T:6-A;&QY5&\Z(&9A;'-E+@T*"6-O;G1R;VQL97(@8W)E871E271E
>>M;7,[(&EN:71I86QI>F5":6YD:6YG<RX-"@EC;VYT<F]L;&5R(&9I;FES:$EN
>>M:70N#0HA(F5N9"!I;FET:6%L:7IE(@T*#0H-"B$B16YD(&]F(%=O<FLQ0V]N
>>M=')O;&QE<B!C;&%S<R!M971H;V1S(&)L;V-K(@T*#0HA5V]R:S%#;VYT<F]L
>>M;&5R(&UE=&AO9',A#0H-"@T*8W)E871E271E;7,-"@E\8TET96T@=&5M<"!F
>>M;W)M(&-O;G1R;VQL97)\#0H)8V]N=')O;&QE<B`Z/2!S96QF+@T*"69O<FT@
>>M.CT@1F]R;0T*"0EN86UE.@D)"0EC;VYT<F]L;&5R3F%M90T*"0ER96-T.@D)
>>M"0E[,C(U(#,P,"`X-3@@,C,P?0T*"0EC;VYT<F]L;&5R.@D)8V]N=')O;&QE
>>M<BX-"@EF;W)M('-E=$=R:614;SH@=')U92X-"@EF;W)M('-E=%-N87!4;SH@
>>M=')U92X-"@EF;W)M('-E=%A'<FED4F5S5&\Z(#0P+@T*"69O<FT@<V5T64=R
>>M:61297-4;SH@-#`N#0H)8TET96T@.CT@8V]N=')O;&QE<B!A9&0Z("-B=71T
>>M;VXQ#0H)"6-L87-S.@D)"49O<FU"=71T;VX-"@D)<F5C=#H)"0D)>S0S."`T
>>M,"`S-C$@.#)]#0H)"6]P=&EO;G,Z"0D)>R-2971U<FX@(U1A8B`C57`@(T1O
>>M=VX@(T)A8VMT86(@(TQE9G0@(U)I9VAT?0T*"0EF;W)M.@D)"0EF;W)M#0H)
>>M"71E>'0Z"0D)"2=#;VYT:6YU92<N#0H)8TET96T@.CT@8V]N=')O;&QE<B!A
>>M9&0Z("-E9@T*"0EC;&%S<SH)"0E&;W)M34Q3=')I;F<-"@D)<F5C=#H)"0D)
>>M>S0W(#0Y(#,T.2`V,WT-"@D);W!T:6]N<SH)"0E[(TYO161I="`C3F]396QE
>>M8W0@(U)E='5R;B`C5&%B("-5<"`C1&]W;B`C0F%C:W1A8B`C375L=&E,:6YE
>>M?0T*"0EF;W)M.@D)"0EF;W)M+@T*"6-)=&5M('-E=$9O<FUA=%1O.B![(TA#
>>M96YT97(@(U9#96YT97(@>R-0;VEN=%-I>F4@,3!]("-7:&ET92![(T)A8VMG
>>M<F]U;F0@(T)L=65]?2X-"@EF;W)M('-E=$EN:71I86Q&;V-U<TET96U4;SH@
>>M8G5T=&]N,2X-"@EC;VYT<F]L;&5R('-E=$UA:6Y&;W)M5&\Z(&-O;G1R;VQL
>>M97).86UE+@T*(2)E;F0@8W)E871E271E;7,B#0H-"@T*:6YI=&EA;&EZ94)I
>>M;F1I;F=S#0H)?'1E;7!\#0H)=&5M<"`Z/2!S96QF(&%C=&EO;D1I8W0N#0H)
>>M=&5M<"!A=#H@(V)U='1O;C$@<'5T.B`C861D,2X-"B$B96YD(&EN:71I86QI
>>M>F5":6YD:6YG<R(-"@T*#0IA9&0Q#0H)?'-T<GP-"@T*8V]U;G0@.CT@8V]U
>>M;G0K,2X-"G-T<B`Z/2`H8V]U;G0@87-3=')I;F<I+@T*968@<'5T5F%L=64Z
>>M('-T<BX-"B$B96YD(&%D9#$B#0H-"@T*;W!E;DEN:71I86QI>F%T:6]N#0H-
>>M"F-O=6YT(#H](#`N#0IE9B!P=71686QU93H@8V]U;G0N#0HB.E-E8W1I;VX@
>>M4F5F97)E;F-E#0IA9&0Q#0H-"F-O=6YT(#H](&-O=6YT("L@,2X-"F5F('!U
>>M=%9A;'5E.B!C;W5N=`T*.D5N9"(-"B$B96YD(&]P96Y);FET:6%L:7IA=&EO
>>M;B(-"@T*#0HA(D5N9"!O9B!7;W)K,4-O;G1R;VQL97(@;65T:&]D<R!B;&]C
>>$:R(-"B(-
>>`
>>end



>Peter Kraaijenoord

>        Company:                        Private:
>        DPFinance
>        PO Box 800                      J.P.C. Leinweberstraat 48
>        3800 AV  Amersfoort             3905 EJ  Veenendaal
>        The Netherlands                 The Netherlands

>        pkraaijenoord@dp.dpfinance.nl   101462.22@compuserve.com

><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
>                       "OO, it's Smalltalk time"
><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>


