diff --git a/ScriptTracker.livecode b/ScriptTracker.livecode
index d6d8cd6..c0a5d1b 100755
Binary files a/ScriptTracker.livecode and b/ScriptTracker.livecode differ
diff --git a/ScriptTracker_Scripts/stack_ScriptTracker_.livecodescript b/ScriptTracker_Scripts/stack_ScriptTracker_.livecodescript
index fe44b46..4781bc9 100644
--- a/ScriptTracker_Scripts/stack_ScriptTracker_.livecodescript
+++ b/ScriptTracker_Scripts/stack_ScriptTracker_.livecodescript
@@ -101,7 +101,9 @@ function getDefaultPrefsA
    put kSyncBeforeSave into tPrefsA["SyncBeforeSave"]
    put kAutoExternalEditor into tPrefsA["AutoExternalEditor"]
    put revIDEGetPreference("LCB_textEditor") into tPrefsA["Editor"]
-   
+   repeat for each item tType in "stack,group,card,widget,button,field,other"
+      put false into tPrefsA["exclude" & tType ]
+   end repeat
    return tPrefsA
 end getDefaultPrefsA
 
diff --git a/ScriptTracker_Scripts/stack_ScriptTracker_button_id_1003.livecodescript b/ScriptTracker_Scripts/stack_ScriptTracker_button_id_1003.livecodescript
index c2e2cff..0ef9468 100644
--- a/ScriptTracker_Scripts/stack_ScriptTracker_button_id_1003.livecodescript
+++ b/ScriptTracker_Scripts/stack_ScriptTracker_button_id_1003.livecodescript
@@ -334,12 +334,22 @@ private command _saveScriptFile \
       pObjectLongName /* long name of control      */
    local tCollisionPolicy, tDiff, tFileHash, tFileMissing, tFileNewer
    local tFileScript, tFullFilePath, tHash, tProps, tPropSets
-   local tScript, tScriptChanged
+   local tScript, tScriptChanged, tType
    
    if pObjectLongID is empty then
       put xDataA[pStackName]["longID"] into pObjectLongID
    end if
    
+   // exclude scripts based on type
+   put word 1 of pObjectLongID into tType
+   if sPrefsA["exclude" & tType] then
+      exit _saveScriptFile
+   else if tType is not among the items of \
+         "stack,card,group,button,field,widget" and \
+         sPrefsA["excludeOther"] then
+      exit _saveScriptFile
+   end if
+   
    put _buildFile(pStackName, xDataA, pObjectLongID, pObjectLongName) into tScript
    if tScript is empty then exit _saveScriptFile
    addToCount
@@ -559,6 +569,9 @@ private function _buildFile \
    if (the script of pObjectLongID is not empty) then
       put the script of pObjectLongID into tScript
    end if
+   if line 1 of tScript contains "exclude" then
+      return empty
+   end if
    if (the behavior of pObjectLongID is not empty) then
       put "# Behavior:" && the behavior of pObjectLongID & lf into tBehavior
    end if