>I need to get the names of the Months from the "itl1" resource.
>
>This is for a program that needs to be localized internationally.
>
>I know where the info is, but I just do have the knowledge to sucking it
>out with toolkit calls.
>
>The docs are in Inside Mac, TEXT page B-28
>I need to get the months Array.
>
>I think I need to use  intlHndl& = FN IUGETINTL(1) but I have no idea how
>to extract the array data.

DIM 15 DayID$(7),15 MonthID$(12):' the day/month names we can use (Jan to Dec)'
'
Hndl& = FN GETRESOURCE(_"itl1",0):'        handle to month/day names
LONG IF Hndl&:'                       make sure we read something in
  OSErr=FN HLOCK(Hndl&):'                       lock down the handle
  BLOCKMOVE [Hndl&],@DayID$(1),112:'   copy out the days of the week
  BLOCKMOVE [Hndl&]+112,@MonthID$(1),192:'  copy out the month names
  OSErr=FN HUNLOCK(Hndl&):'                   then unlock the handle
  CALL RELEASERESOURCE(Hndl&):'           and clear it out of memory
XELSE
  DayID$(1)="Sunday"
  DayID$(2)="Monday"
  DayID$(3)="Tuesday"
  DayID$(4)="Wednesday"
  DayID$(5)="Thursday"
  DayID$(6)="Friday"
  DayID$(7)="Saturday"
  MonthID$(1)="January"
  MonthID$(2)="February"
  MonthID$(3)="March"
  MonthID$(4)="April"
  MonthID$(5)="May"
  MonthID$(6)="June"
  MonthID$(7)="July"
  MonthID$(8)="August"
  MonthID$(9)="September"
  MonthID$(10)="October"
  MonthID$(11)="November"
  MonthID$(12)="December"
END IF
'
Hope this helps....

Mel Patrick - theWabbitGuy - mel@...
mailto:mel@...
http://www.intergate.bc.ca/business/mel