home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / programm / 14875 < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.3 KB  |  42 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!munnari.oz.au!uniwa!cujo!NewsWatcher!user
  3. From: peter@cujo.curtin.edu.au (Peter N Lewis)
  4. Subject: TN 306 GetIconSuite glue fatal error
  5. Message-ID: <peter-020992122411@134.7.50.3>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: news@cujo.curtin.edu.au (News Manager)
  8. Organization: NCRPDA, Curtin University
  9. Date: Wed, 2 Sep 1992 04:30:46 GMT
  10. Lines: 30
  11.  
  12. Hi All,
  13.  
  14. I just came across this in TN 306:
  15.  
  16. In the body:
  17.  
  18. Function GetIconSuite(    Var theSuite: Handle; theID:Integer;
  19.         theSelector:Longint):OSErr;
  20.  
  21. In the interface:
  22.  
  23. FUNCTION GetIconSuite(VAR theIconSuite: Handle;theResID: INTEGER;
  24.     selector: Integer): OSErr;    INLINE    $303C, $0501, $ABC9;
  25.  
  26. pascal OSErr GetIconSuite(Handle *theIconSuite,short theResID,short
  27. selector)= {0x303C, 0x0501, 0xABC9};    
  28.  
  29. Now, look carefully at the selector ... oooops!
  30.  
  31. Its suppose to be a LongInt/long, not an integer/short!  The same most
  32. probabbly applies to ForEachIconDo's selector but I haven't checked it. 
  33. Its clear it has to be a long, since the svAllMiniData constant that can be
  34. passed is $00FF0000, certainly not a short value...
  35.  
  36. You have been warned,
  37.    Peter.
  38.  
  39. _______________________________________________________________________
  40. Peter N Lewis, NCRPDA, Curtin University       peter@cujo.curtin.edu.au
  41. GPO Box U1987, Perth WA 6001, AUSTRALIA             FAX: +61 9 367 8141
  42.