Mercurial > dwindows
view os2/svnrev.cmd @ 1395:e0a66f06501c
Updated the tooltip bubble help on OS/2 to display the tooltip after 2 seconds...
Then remove it after 15 seconds of visibility. The old method was okay for bitmap
buttons... but this new method is more consistent with other platforms and good
for other types of controls tooltips.
Also trim trailing newline when using PMPrintf to prevent double spacing.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Sun, 27 Nov 2011 10:02:38 +0000 |
parents | 31a78c16c306 |
children |
line wrap: on
line source
/* REXX script to get the svn revision and display it. */ Trace o fn = 'SVN.REV' 'svnversion . | rxqueue > nul:' /* default version to 0, if svnversion doesn't exist or no .svn here */ ver = 0 If Queued() \= 0 Then Do /* Using PARSE PULL preserves case */ /* If it is a double value get the first value only */ Parse Pull sval ver ':' . If Strip( ver ) = '' Then ver = sval If ver = 'exported' Then ver = 0 If Datatype( Right( ver, 1 ) ) \= 'NUM' Then ver = Substr( ver, 1, Length( ver) - 1 ) End Call Stream fn, 'C', 'OPEN' Call Lineout fn,'VERREV='ver Call Stream fn, 'C', 'CLOSE' Exit 0