Mercurial > dwindows
annotate os2/svnrev.cmd @ 2759:cd6a306800f5
GTK4: New way of querying the mouse pointer position.
The old code was completely bogus and did not work at all.
Since there doesn't seem to be a way to actually query the position...
Plus with wayland there are no global coordinates... instead...
Any event we handle that has pointer coordinates... we convert them to be
window relative and save them. When querying the pointer location,
we return the latest coordinates that we had handled.
I removed the thread safety since there are no API calls, but we may want to
put it back so that the data doesn't get changed during the call...
although that may not be the most tragic thing.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Mon, 03 Jan 2022 16:23:51 +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 |