Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Templates: Thread limiter template for ABC 1998-05-08 -- Jim Defabia From jim-d@topspeed.com Fri May 08 20:45:10 1998
Editors note: Please note that some lines may wrap in the template code.
Here it is!
(watch out for any word-wrapping)
#TEMPLATE(ThreadLimiter,' Thread Limiter '),FAMILY('ABC')
#!----------------------------------------------------------------
#! Thread Limiter
#! By Jim DeFabia (EMAIL: jim-d@topspeed.com)
#!
#! Please Do Not redistribute without permission from Author
#!---------------------------------------------------------------
#EXTENSION(LimitStarts,'Limit Procedure to One Start'),PROCEDURE
#AT(%GlobalData)
GLO:RUNNING:%Procedure BYTE
#ENDAT
#LOCALDATA
LOC:RUNNING BYTE
#ENDLOCALDATA
#AT(%WindowManagerMethodCodeSection,'Init','(),BYTE'),FIRST
IF GlobalRequest <> SelectRecord
IF NOT GLO:RUNNING:%Procedure
GLO:RUNNING:%Procedure=THREAD()
LOC:RUNNING= GLO:RUNNING:%Procedure
ELSE
POST(EVENT:GainFocus,,GLO:RUNNING:%Procedure)
RETURN(Level:Fatal)
END
END
#ENDAT
#AT (%WindowEventHandling,'GainFocus'),FIRST
%window{PROP:Active}=TRUE
IF %window{PROP:Iconize}=TRUE
%window{PROP:Iconize}=''
END
#ENDAT
#AT(%WindowManagerMethodCodeSection,'Kill','(),BYTE'),LAST
IF LOC:RUNNING
GLO:RUNNING:%Procedure=0
END
#ENDAT
enjoy,
--
Jim DeFabia
TopSpeed Documentation
Patrick De Laet wrote in message <3550c28a.0@tsnews.clarion.com>...
>I'm using Jim Defabia's thread limiter template extensively in my
>applications.
>
>Is there a CW4 version available?
>
>
>pdl@net4all.be
>
>
>
Today is November 21, 2024, 3:36 am This article has been viewed 35213 times. Google search has resulted in 26 hits on this article since January 25, 2004.
|
|