f992793784ed7532811121ca29da6a16f88a1c21
[imager-screenshot.git] / svwin32.c
1 #include "svwin32.h"
2
3 SSHWND
4 hwnd_from_sv(pTHX_ SV *sv) {
5   SvGETMAGIC(sv);
6
7   if (SvPOK(sv)) {
8     STRLEN len;
9     char const *p = SvPV_nomg(sv, len);
10
11     if (len == 6 && strEQ(p, "active")) {
12       return (SSHWND)GetForegroundWindow();
13     }
14     else {
15       return (SSHWND)NULL;
16     }
17   }
18
19   return SvUV_nomg(sv);
20 }