Mercurial > dwindows
annotate os2/svnrev.cmd @ 2231:4d2619f31ebd
Win: Subclass richtext controls and port the OS/2 MLE context menu code to it.
OS/2: Add missing Delete menu item from the MLE context menu. Reorder the menu
and disable menu items instead of removing them from the menu completely.
This is consistent with how these menus behave on Windows, and has the benefit
of the menu items always being in the same place. ENTRY_DELETE handlers may
need to be added to the special Unicode edit handler functions.
The OS/2 code has not been tested yet, follow up commits may be needed.
Menu identifiers 60001 to 60999 are now reserved for internal DW use.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Sun, 03 Jan 2021 16:03:00 +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 |