This little code snippet's aim is to provide you with a way of knowing whether your platform is [Microsoft Windows], [Wine] or [ReactOS].

Most of the time, you may not care. Wine and ReactOS generally do their thing well enough and they're not a significant target market (yet) as far as potential sales go. Still, you might want to code around known and persistent bugs or unsupported functionality (if you're happy to support the platforms) or signal a warning to their users of non-compatibility or non-support.

 proc getWindowsAPIVendor {} {
  if {[tk windowingsystem] != "win32"} { return -1 }
  package require registry 
  if {![catch { registry keys "HKEY_CURRENT_USER\\Software\\Wine\\X11 Driver" } junk]} {
   set ::win32(APIVendor) Wine 
   } elseif {![catch { registry keys "HKEY_CURRENT_USER\\Software\\ReactOS" } junk]} {
   set ::win32(APIVendor) ReactOS 
   } else {
   # If neither, we're (probably) on Microsoft Windows
   set ::win32(APIVendor) Microsoft
   }
  return "$::win32(APIVendor)"
  }
 getWindowsAPIVendor

 # Output to the user
 tk_messageBox -title "Info" -message "Hey there, [getWindowsAPIVendor] user! We're running on $::win32(APIVendor)"

----
!!!!!!
%| [Category Porting] | [Category Windows] |%
!!!!!!