Skip to content

Script exclusion options #4

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
madpink wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Script exclusion options #4

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Binary file modified ScriptTracker.livecode
View file
Open in desktop
Binary file not shown.
4 changes: 3 additions & 1 deletion ScriptTracker_Scripts/stack_ScriptTracker_.livecodescript
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
15 changes: 14 additions & 1 deletion ScriptTracker_Scripts/stack_ScriptTracker_button_id_1003.livecodescript
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down