diff --git a/ChangeLog b/ChangeLog
index f295f445..078a8ae2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -22479,3 +22479,6 @@
 	* Fixed a bug in the WebGet service that could cause 'Put'
 	operations to return an incomplete status message to the user
 	when posting large files.
+2021-09-30 Fred Gleason <fredg@paravelsystems.com>
+	* Added a '--show-styles' switch to all modules.
+	* Changed the default QStyle to 'Windows'.
diff --git a/lib/rd.h b/lib/rd.h
index 35e4e402..53a9c36f 100644
--- a/lib/rd.h
+++ b/lib/rd.h
@@ -603,7 +603,7 @@
  * GUI Style
  * (must be one of the values returned by QStyleFactory::keys())
  */
-#define RD_GUI_STYLE "Plastique"
+#define RD_GUI_STYLE "Windows"
 
 /*
  * Status / Note Bubble Background Color
diff --git a/lib/rdcmd_switch.cpp b/lib/rdcmd_switch.cpp
index 33ac04b6..3bc5ff6b 100644
--- a/lib/rdcmd_switch.cpp
+++ b/lib/rdcmd_switch.cpp
@@ -24,6 +24,7 @@
 
 #include <QCoreApplication>
 #include <QMessageBox>
+#include <QStyleFactory>
 
 #include <rdcmd_switch.h>
 
@@ -47,6 +48,13 @@ RDCmdSwitch::RDCmdSwitch(const QString &modname,const QString &usage)
     if(value=="-d") {
       switch_debug=true;
     }
+    if((value=="-show-styles")||(value=="--show-styles")) {
+      QStringList styles=QStyleFactory::keys();
+      for(int i=0;i<styles.size();i++) {
+	printf("%s\n",styles.at(i).toUtf8().constData());
+      }
+      exit(0);
+    }
     QStringList f0=value.split("=",QString::KeepEmptyParts);
     if(f0.size()>=2) {
       if(f0.at(0).left(1)=="-") {