Mercurial > dwindows
annotate 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 |
rev | line source |
---|---|
1184
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
1 /* REXX script to get the svn revision and display it. */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
2 Trace o |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
3 fn = 'SVN.REV' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
4 'svnversion . | rxqueue > nul:' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
5 /* default version to 0, if svnversion doesn't exist or no .svn here */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
6 ver = 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
7 If Queued() \= 0 Then |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
8 Do |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
9 /* Using PARSE PULL preserves case */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
10 /* If it is a double value get the first value only */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
11 Parse Pull sval ver ':' . |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
12 If Strip( ver ) = '' Then ver = sval |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
13 If ver = 'exported' Then ver = 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
14 If Datatype( Right( ver, 1 ) ) \= 'NUM' Then ver = Substr( ver, 1, Length( ver) - 1 ) |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
15 End |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
16 Call Stream fn, 'C', 'OPEN' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
17 Call Lineout fn,'VERREV='ver |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
18 Call Stream fn, 'C', 'CLOSE' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
19 Exit 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
20 |