news
About Elegant Chaos
info
About me and my friends
people
Software from Elegant Chaos
software
Other stuff...
stuff

UL_SetStackVersion

Revision 2
Revised on 19/03/95 21:45

Description

Set version resource of a stack. Takes name of the stack, major version number (eg 1.0), revision letter and number (eg d1, b23), and a text string to display in the Get Info dialog for the stack.

Note that this routine requires the Version XFCN.


Code

on UL_SetStackVersion name,v,r,text
  -- go to the stack
  UL_LockAndPush
  go stack name
  
  -- set numeric version in form 1.0d2, 1.3b4, etc...
  put v & r into numeric
  get Version("numbers","stack",numeric)
  
  -- set string for Info dialog
  get Version("about","stack",numeric & ", " & text)
  
  -- go back to where we were
  UL_UnlockAndPop
  
end UL_SetStackVersion