🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.mac
Article #22049

Re: SHOWINIT Enclosed (Resource!!)

#22049
From: Larry Rosenstein
Date: Tue, 24 Nov 1987 21:58
47 lines
2296 bytes
In article <8711240508.AA03224@decwrl.dec.com> hunt@firqb.dec.com (Phil Hunt) writes:
> 
>He must have modified it to allow its use from a seperate resource!!
> 
>So I took the resource and pasted it into each and every INIT I have (42 of
>them) and lo, and behold, they all show their ICONS on startup now except for
>3 of them, namely, Suitcase!, Pyro! and CheapBeep.  

Yes.  Paul Mercer's ShowINIT code only requires the ID of the icon as a
parameter.  The code I wrote gets that number from its own resource ID.  You
can take the resource and paste it into any INIT file.  Then decide which
ICN# resource you want to display and change the id of my resource to the
same number.

>Pyro! and Suicase! INITs are ID=128.  I wonder if that is the reason it didn't
>work on them, even after ShowINIT was renamed to 127, oh well.

You do have to be careful not to have 2 INIT resource with the same number.
In the case of Pyro & Suitcase, you might try changing their original
INIT/128 resource to have id 127, and making my INIT resource have ID 128.
(Assuming that the icon you want to display has id 128.)

I also should point out (again) that the ShowINIT code is from Paul Mercer
and is in the public domain.  According to the documentation for one of
Paul's other works, he can be reached as:

Delphi:	LOGICHACK
MCI:	SOL

and at:

681 E. Seneca Tpk. #A4
Syracuse, NY 13205
315-492-3348

Be advised, however, that Paul is moving out to California (about this time,
I believe) so he may not be reachable for a couple of weeks.

-- 
Larry Rosenstein

Object Specialist
Apple Computer

AppleLink: Rosenstein1
UUCP:  {sun, voder, nsc, mtxinu, dual}!apple!lsr
CSNET: lsr@Apple.com
Technical Details
Message-ID: <6820@apple.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!lll-winken!lll-lcc!pyramid!voder!apple!lsr
References: <8711240508.AA03224@decwrl.dec.com>

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!lll-winken!lll-lcc!pyramid!voder!apple!lsr
From: lsr@apple.UUCP (Larry Rosenstein)
Newsgroups: comp.sys.mac
Subject: Re: SHOWINIT Enclosed (Resource!!)
Message-ID: <6820@apple.UUCP>
Date: Tue, 24-Nov-87 16:58:35 EST
Article-I.D.: apple.6820
Posted: Tue Nov 24 16:58:35 1987
Date-Received: Sat, 28-Nov-87 05:44:44 EST
References: <8711240508.AA03224@decwrl.dec.com>
Reply-To: lsr@apple.UUCP (Larry Rosenstein)
Organization: Advanced Technology Group, Apple Computer
Lines: 46