Module:Sandbox/Mr. Stradivarius/sandbox3: Difference between revisions

Revision as of 15:46, 4 September 2013

Revision as of 14:52, 5 September 2013

Line 18:

-- Makes a simple function that raises an error if the dot syntax is used with methods.

-- It is not 100% reliable, but will catch the majority of cases, and works with inheritance.

-- The uniqueMethod variable should be the name of a method unique to the class.

local function makeCheckSelfFunction( libraryName, varName, selfObjDesc )

local function makeCheckSelfFunction( libraryName, varName, selfObjDesc, uniqueMethod )

return function( self, method )

if type( self ) ~= 'table' or type( self.new ) ~= 'function' or type( self[ uniqueMethod ] ) ~= 'function' then

error( mw.ustring.format(

'%s: invalid %s. Did you call %s with a dot instead of a colon, i.e. %s.%s() instead of %s:%s()?',

Line 55 ⟶ 56:

s = checkString( s )

if s then

if type( array ) == 'table' then

table.insert( array, s )

elseif type( array ) == 'nil' then

array = {}

table.insert( array, s )

else

error( mw.ustring.format(

'Error in argument #1 to addStringToArray: expected type "table" or "nil", got type "%s"',

type( array )

), 2 )

end

end

return array or {}

end

Line 76 ⟶ 77:

local banner = {}

banner.__index = banner

local checkSelfBanner = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'banner', 'banner object', 'exportCategories' )

function banner:new( init )

init = type( init ) == 'table' and init or {}

local obj = {}

obj.objectName = init.objectName

if not obj.objectName then

error( [[No object name specified. Please use "banner:new{ objectName = 'myObject' }".]], 2 )

end

-- Set the project name and exit if its value is absent or invalid.

obj.project = init.project

if type( obj.project ) ~= 'string' or obj.project == '' then return end

-- Set the index metamethod and the metatable.

self.__index = self

Line 99 ⟶ 100:

function banner:setImage( s )

checkSelfBanner( self, 'setImage' )

s = checkString( s )

if s then

self.image = s

end

end

-- Gets the banner's main image.

function banner:getImage()

checkSelfBanner( self, 'getImage' )

return self.image

end

Line 114 ⟶ 115:

function banner:addCategory( s )

checkSelfBanner( self, 'addCategory' )

self.categories = addStringToArray( self.categories, s )

end

Line 169 ⟶ 170:

-- Adds an array of row objects to the banner object.

function banner:addRows( t )

checkSelfBanner( self, 'addRows' )

if type( t ) == 'table' then

for i, rowObject in ipairs( t ) do

self:addRow( rowObject )

end

end

end

Line 187 ⟶ 188:

local row = {}

row.__index = row

local checkSelfRow = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'row', 'row object', 'getCategories' ) -- TODO: replace getCategories with a less generic function.

function row:new( init )

Line 201 ⟶ 202:

function row:addCategory( s )

checkSelfRow( self, 'addCategory' )

self.categories = addStringToArray( self.categories, s )

end

Line 222 ⟶ 223:

function row:export()

checkSelfRow( self, 'export' )

-- Get the result of the icon and content export functions, and check the results.

local rowIconOutput = type( self.exportRowIcon ) == 'function' and self:exportRowIcon()

Line 228 ⟶ 229:

local rowContentOutput = type( self.exportRowContent ) == 'function' and self:exportRowContent()

rowContentOutput = checkString( rowContentOutput )

-- Export the row html.

local ret = htmlBuilder.create()

if rowIconOutput and rowContentOutput then

ret

.tag( 'tr' )

.tag( 'td' )

.wikitext( rowIconOutput )

.done()

.tag( 'td' )

.attr( 'colspan', '2' )

.wikitext( rowContentOutput )

elseif rowContentOutput and not rowIconOutput then

ret

.tag( 'tr' )

.tag( 'td' )

.attr( 'colspan', '3' )

.wikitext( rowContentOutput )

end

return tostring( ret )

Line 260 ⟶ 261:

local assessmentGrade = {}

assessmentGrade.__index = assessmentGrade

local checkSelfAssessmentGrade = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'assessmentGrade', 'assessmentGrade object', 'getGradeName' )

function assessmentGrade:new( init )

Line 274 ⟶ 275:

-- the grade name would be "c".

function assessmentGrade:setGradeName( s )

checkSelfAssessmentGrade( self, 'setGradeName' )

s = checkString( s )

if s then

self.gradeName = mw.ustring.lower( s )

end

end

-- Gets the grade name.

function assessmentGrade:getGradeName()

checkSelfAssessmentGrade( self, 'getGradeName' )

return self.gradeName

end

Line 291 ⟶ 292:

-- would be "foo".

function assessmentGrade:addTrigger( s )

checkSelfAssessmentGrade( self, 'addTrigger' )

self.triggers = addStringToArray( self.triggers, s )

end

-- Adds an array of triggers to the assessment grade object.

function assessmentGrade:addTriggers( t )

checkSelfAssessmentGrade( self, 'addTriggers' )

if type( t ) ~= 'table' then return end

for i, trigger in ipairs( t ) do

self:addTrigger( trigger )

end

end

-- Returns an array containing the trigger values for the assessment grade object.

function assessmentGrade:getTriggers()

checkSelfAssessmentGrade( self, 'getTriggers' )

return self.triggers or {}

end

Line 314 ⟶ 315:

-- by the qualityScale and importanceScale objects or banner objects.

function assessmentGrade:setCategory( s )

checkSelfAssessmentGrade( self, 'setCategory' )

s = checkString( s )

if s then

self.category = s

end

end

-- Gets the assessment grade's category.

function assessmentGrade:getCategory()

checkSelfAssessmentGrade( self, 'getCategory' )

return self.category

end

-- Sets the color of the icon box when the assessment grade is used.

function assessmentGrade:setColor( s )

checkSelfAssessmentGrade( self, 'setColor' )

s = checkString( s )

if s then

self.color = s

end

end

-- Gets the color used for the assessment grade.

function assessmentGrade:getColor()

checkSelfAssessmentGrade( self, 'getColor' )

return self.color

end

-- Sets an icon for the assessment grade.

function assessmentGrade:setIcon( s )

checkSelfAssessmentGrade( self, 'setIcon' )

s = checkString( s )

if s then

self.icon = s

end

end

-- Gets the assessment grade icon.

function assessmentGrade:getIcon()

checkSelfAssessmentGrade( self, 'getIcon' )

return self.icon

end

Line 380 ⟶ 381:

local assessmentScale = {}

assessmentScale.__index = assessmentScale

local checkSelfAssessmentScale = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'assessmentScale', 'assessmentScale object', 'addGrade' )

function assessmentScale:new( init )

Line 389 ⟶ 390:

self.__index = self

return setmetatable( obj, self )

end

-- Sets the name of the parameter that accepts trigger values from assessmentGrade objects.

-- For example, if an article was rated as |class=start, the parameter name would be "class".

function assessmentScale:setParamName( s )

checkSelfAssessmentScale( self, 'setParamName' )

s = checkString( s )

if s then

self.param = s

end

end

-- Gets the parameter name.

function assessmentScale:getParamName()

checkSelfAssessmentScale( self, 'getParamName' )

return self.param

end

Line 396 ⟶ 413:

function assessmentScale:setCategoryFamily( s )

checkSelfAssessmentScale( self, 'setCategoryFamily' )

s = checkString( s )

if s then

self.categoryFamily = s

end

end

Line 410 ⟶ 427:

-- Adds an assessment grade object.

function assessmentScale:addGrade( gradeObject )

checkSelfAssessmentScale( self, 'addGrade' )

gradeObject = checkObject( gradeObject )

if gradeObject then

local gradeName = gradeObject:getGradeName()

if not checkString( gradeName ) then

error( mw.ustring.format( 'Grade name not found (was type "%s"). Please set a grade name with the "setGradeName" method of the assessment grade object' , type( gradeName ) ), 2 )

else

self.grades = self.grades or {}

if self.grades[ gradeName ] then

error( mw.ustring.format( 'Attempted to add assessment grade %s, but assessment grade %s was already defined. Assessment grades can only be defined once', gradeName, gradeName ), 2 )

else

self.grades[ gradeName ] = gradeObject

end

end

end

end

end

-- Adds an array of grade objects.

function assessmentScale:addGrades( t )

checkSelfAssessmentScale( self, 'addGrades' )

if type( t ) ~= 'table' then return end

for i, gradeObject in ipairs( t ) do

self:addGrade( gradeObject )

end

end

-- Removes an assessment grade object from the assessment scale.

function assessmentScale:removeGrade( s )

checkSelfAssessmentScale( self, 'removeGrade' )

s = checkString( s )

if s and type( self.grades ) == 'table' and self.grades[ s ] then

self.grades[ s ] = nil

end

end

-- Removes multiple assessment grade objects from the assessment scale.

function assessmentScale:removeGrades( t )

checkSelfAssessmentScale( self, 'removeGrades' )

if type( t ) == 'table' then

for i, grade in ipairs( t ) do

self:removeGrade( grade )

end

end

end

-- Gets the object's grade table.

function assessmentScale:getGrades()

checkSelfAssessmentScale( self, 'getGrades' )

return self.grades or {}

end

-- Gets the specified grade object.

function assessmentScale:editGrade()

function assessmentScale:getGrade( gradeName )

checkSelfAssessmentScale( self, 'getGrade' )

self.grades = self.grades or {}

gradeName = checkString( gradeName )

if gradeName then

return self.grades[ gradeName ]

end

end

-- Edits a grade object in the grades table by calling one of its methods.

function assessmentScale:editGrade( gradeName, method, ... )

checkSelfAssessmentScale( self, 'editGrade' )

self.grades = self.grades or {}

gradeName = checkString( gradeName )

method = checkString( method )

if not ( gradeName and method ) then return end

local gradeObject = self.grades[ gradeName ]

if not checkObject( gradeObject ) then

error( mw.ustring.format( 'editGrade: no object found with grade name "%s"', gradeName ), 2 )

end

if type( gradeObject[ method ] ) ~= 'function' then

error( mw.ustring.format( 'editGrade: method "%s" was not found in the "%s" grade object', method, gradeName ), 2 )

end

self.grades[ gradeName ][ method ]( self, ... )

end

Line 468 ⟶ 509:

function assessmentScale:checkForDuplicateTriggers()

checkSelfAssessmentScale( self, 'checkForDuplicateTriggers' )

local grades = self:getGrades().grades or {}

mw.log( dts( grades ) )

if type( grades ) ~= 'table' then return end

local exists = {}

Line 481 ⟶ 521:

if trigger then

if exists[ trigger ] then

error( mw.ustring.format(
'Duplicate trigger values "%s" detected in the assessment scalegrade object',objects trigger"%s" ),and 2 )"%s"',

trigger, exists[ trigger ], name

), 2 )

else

exists[ trigger ] = truename

end

end

Line 497 ⟶ 540:

local qualityScale = assessmentScale:new()

local checkSelfQualityScale = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'qualityScale', 'qualityScale object', 'setFaGrade' )

-- Sets the FA (Featured Article) grade with default settings.

function qualityScale:setFaGrade()

checkSelfQualityScale( self, 'setFaGrade' )

local faGrade = qualityGrade:new()

faGrade:setGradeName( 'fa' )

faGrade:addTrigger( 'fa' )

faGrade:setColor( '#6699ff' )

faGrade:setIcon( 'Featured article star.svg' )

qualityScale self:addGrade( faGrade )

end

-- Sets the A grade with default settings.

function qualityScale:setAGrade()

checkSelfQualityScale( self, 'setAGrade' )

local aGrade = qualityGrade:new()

local aGrade = qualityGrade:new()

aGrade:setGradeName( 'a' )

aGrade:addTriggersetGradeName( 'a' )

aGrade:setColoraddTrigger( '#66ffffa' )

aGrade:setColor( '#66ffff' )

aGrade:setIcon( 'Symbol a class.svg' )

qualityScale self:addGrade( aGrade )

end

-- Sets the GA (Good Article) grade with default settings.

function qualityScale:setGaGrade()

checkSelfQualityScale( self, 'setGaGrade' )

local gaGrade = qualityGrade:new()

local gaGrade = qualityGrade:new()

gaGrade:setGradeName( 'ga' )

gaGrade:addTriggersetGradeName( 'ga' )

gaGrade:setColoraddTrigger( '#66ff66ga' )

gaGrade:setIconsetColor( 'Symbol support vote.svg#66ff66' )

gaGrade:setIcon( 'Symbol support vote.svg' )

qualityScale:addGrade( gaGrade )

self:addGrade( gaGrade )

end

-- Sets the B grade with default settings.

function qualityScale:setBGrade()

checkSelfQualityScale( self, 'setBGrade' )

local bGrade = qualityGrade:new()

local bGrade = qualityGrade:new()

bGrade:setGradeName( 'b' )

bGrade:addTriggersetGradeName( 'b' )

bGrade:setColoraddTrigger( '#b2ff66b' )

bGrade:setColor( '#b2ff66' )

qualityScale:addGrade( bGrade )

self:addGrade( bGrade )

end

-- Sets the C grade with default settings.

function qualityScale:setCGrade()

checkSelfQualityScale( self, 'setCGrade' )

local cGrade = qualityGrade:new()

local cGrade = qualityGrade:new()

cGrade:setGradeName( 'c' )

cGrade:addTriggersetGradeName( 'c' )

cGrade:setColoraddTrigger( '#ffff66c' )

cGrade:setColor( '#ffff66' )

qualityScale:addGrade( cGrade )

self:addGrade( cGrade )

end

-- Sets the Start grade with default settings.

function qualityScale:setStartGrade()

checkSelfQualityScale( self, 'setStartGrade' )

local startGrade = qualityGrade:new()

local startGrade:setGradeName( 'start'= qualityGrade:new()

startGrade:addTriggersetGradeName( 'start' )

startGrade:setColoraddTrigger( '#ffaa66start' )

startGrade:setColor( '#ffaa66' )

qualityScale:addGrade( startGrade )

self:addGrade( startGrade )

end

-- Sets the Stub grade with default settings.

function qualityScale:setStubGrade()

checkSelfQualityScale( self, 'setStubGrade' )

local stubGrade = qualityGrade:new()

local stubGrade:setGradeName( 'stub'= qualityGrade:new()

stubGrade:addTriggersetGradeName( 'stub' )

stubGrade:setColoraddTrigger( '#ff6666stub' )

stubGrade:setColor( '#ff6666' )

qualityScale:addGrade( stubGrade )

self:addGrade( stubGrade )

end

-- Sets the FL (Featured List) grade with default settings.

function qualityScale:setFlGrade()

checkSelfQualityScale( self, 'setFlGrade' )

local flGrade = qualityGrade:new()

local flGrade = qualityGrade:new()

flGrade:setGradeName( 'fl' )

flGrade:addTriggersetGradeName( 'fl' )

flGrade:setColoraddTrigger( '#6699fffl' )

flGrade:setIconsetColor( 'Featured article star.svg#6699ff' )

flGrade:setIcon( 'Featured article star.svg' )

qualityScale:addGrade( flGrade )

self:addGrade( flGrade )

end

-- Sets the List grade with default settings.

function qualityScale:setListGrade()

checkSelfQualityScale( self, 'setListGrade' )

local listGrade = qualityGrade:new()

local listGrade:setGradeName( 'list'= qualityGrade:new()

listGrade:addTriggersetGradeName( 'list' )

listGrade:setColoraddTrigger( '#aa88fflist' )

listGrade:setColor( '#aa88ff' )

qualityScale:addGrade( listGrade )

self:addGrade( listGrade )

end

-- Sets the NA (not applicable) grade with default settings.

function qualityScale:setNaGrade()

checkSelfQualityScale( self, 'setNaGrade' )

local naGrade = qualityGrade:new()

local naGrade = qualityGrade:new()

naGrade:setGradeName( 'na' )

naGrade:addTriggers{setGradeName( 'na', 'n/a' })

naGrade:setColor(addTriggers{ 'na', '#f5f5f5n/a' )}

naGrade:setColor( '#f5f5f5' )

qualityScale:addGrade( naGrade )

self:addGrade( naGrade )

end

-- Sets the Category grade with default settings.

function qualityScale:setCategoryGrade()

checkSelfQualityScale( self, 'setCategoryGrade' )

local categoryGrade = qualityGrade:new()

local categoryGrade:setGradeName( 'category'= qualityGrade:new()

categoryGrade:addTriggers{setGradeName( 'category', 'cat', 'categ' })

categoryGrade:setColor(addTriggers{ 'category', 'cat', '#ffdb58categ' )}

categoryGrade:setColor( '#ffdb58' )

qualityScale:addGrade( categoryGrade )

self:addGrade( categoryGrade )

end

-- Sets the Disambig (disambiguation) grade with default settings.

function qualityScale:setDisambigGrade()

checkSelfQualityScale( self, 'setDisambigGrade' )

local disambigGrade = qualityGrade:new()

local disambigGrade:setGradeName( 'disambig'= qualityGrade:new()

disambigGrade:setGradeName( 'disambig' )
disambigGrade:addTriggers{ 'disambiguation', 'disambig', 'disamb', 'dab' }

disambigGrade:setColor( '#00fa9a' )

qualityScale self:addGrade( disambigGrade )

end

-- Sets the File grade with default settings.

function qualityScale:setFileGrade()

checkSelfQualityScale( self, 'setFileGrade' )

local fileGrade = qualityGrade:new()

local fileGrade:setGradeName( 'file'= qualityGrade:new()

fileGrade:addTriggers{setGradeName( 'file', 'img', 'image' })

fileGrade:setColor(addTriggers{ 'file', 'img', '#ddccffimage' )}

fileGrade:setColor( '#ddccff' )

qualityScale:addGrade( fileGrade )

self:addGrade( fileGrade )

end

-- Sets the Portal grade with default settings.

function qualityScale:setPortalGrade()

checkSelfQualityScale( self, 'setPortalGrade' )

local portalGrade = qualityGrade:new()

local portalGrade:setGradeName( 'portal'= qualityGrade:new()

portalGrade:addTriggersetGradeName( 'portal' )

portalGrade:setColoraddTrigger( '#cc8899portal' )

portalGrade:setColor( '#cc8899' )

qualityScale:addGrade( portalGrade )

self:addGrade( portalGrade )

end

-- Sets the Project grade with default settings.

function qualityScale:setProjectGrade()

checkSelfQualityScale( self, 'setProjectGrade' )

local projectGrade = qualityGrade:new()

local projectGrade:setGradeName( 'project'= qualityGrade:new()

projectGrade:addTriggers{setGradeName( 'project', 'proj', 'prj' })

projectGrade:setColor(addTriggers{ 'project', 'proj', '#c0c090prj' )}

projectGrade:setColor( '#c0c090' )

qualityScale:addGrade( projectGrade )

self:addGrade( projectGrade )

end

-- Sets the Template grade with default settings.

function qualityScale:setTemplateGrade()

checkSelfQualityScale( self, 'setTemplateGrade' )

local templateGrade = qualityGrade:new()

local templateGrade:setGradeName( 'template'= qualityGrade:new()

templateGrade:setGradeName( 'template' )

templateGrade:addTriggers{ 'template', 'temp', 'tpl', 'tmp', 'templ' }

templateGrade:setColor(addTriggers{ 'template', 'temp', 'tpl', 'tmp', '#fbceb1templ' )}

templateGrade:setColor( '#fbceb1' )

qualityScale:addGrade( templateGrade )

self:addGrade( templateGrade )

end

-- Sets the Redirect grade with default settings.

function qualityScale:setRedirectGrade()

checkSelfQualityScale( self, 'setRedirectGrade' )

local redirectGrade = qualityGrade:new()

redirectGrade:setGradeName( 'redirect' )

redirectGrade:addTriggers{ 'redirect', 'red', 'redir' }

redirectGrade:setColor( '#c0c0c0' )

qualityScale self:addGrade( redirectGrade )

end

-- Sets the Book grade with default settings.

function qualityScale:setBookGrade()

checkSelfQualityScale( self, 'setBookGrade' )

local bookGrade = qualityGrade:new()

bookGrade:setGradeName( 'book' )

bookGrade:addTriggers{ 'book', 'bk' }

bookGrade:setColor( '#98ff98' )

qualityScale self:addGrade( bookGrade )

end

-- Sets the FM (Featured media) grade with default settings.

function qualityScale:setFmGrade()

checkSelfQualityScale( self, 'setFmGrade' )

local fmGrade = qualityGrade:new()

fmGrade:setGradeName( 'fm' )

fmGrade:addTrigger( 'fm' )

fmGrade:setColor( '#6699ff' )

fmGrade:setIcon( 'Featured article star.svg' )

qualityScale self:addGrade( fmGrade )

end

-- Set the standard quality scale with default values.

function qualityScale:setStandardQualityScale()

checkSelfQualityScale( self, 'setStandardQualityScale' )

self:setFaGrade()

self:setAGradesetFaGrade()

self:setGaGradesetAGrade()

self:setBGradesetGaGrade()

self:setCGradesetBGrade()

self:setStartGradesetCGrade()

self:setStubGradesetStartGrade()

self:setFlGradesetStubGrade()

self:setListGradesetFlGrade()

self:setNaGradesetListGrade()

self:setNaGrade()

end

-- Set the extended quality scale with default values.

function qualityScale:setExtendedQualityScale()

checkSelfQualityScale( self, 'setExtendedQualityScale' )

self:setStandardQualityScale()

self:setCategoryGradesetStandardQualityScale()

self:setDisambigGradesetCategoryGrade()

self:setFileGradesetDisambigGrade()

self:setPortalGradesetFileGrade()

self:setProjectGradesetPortalGrade()

self:setTemplateGradesetProjectGrade()

self:setTemplateGrade()

end

----------------------------------------------------------

-- Define the importanceGradeimportanceScale class

----------------------------------------------------------

local importanceGradeimportanceScale = assessmentGradeassessmentScale:new()

local checkSelfImportanceScale = makeCheckSelfFunction( 'Module:WikiProjectBanner', 'importanceScale', 'importanceScale object', 'setTopGrade' )

-- Sets the Top grade with default settings.

function importanceScale:setTopGrade()

checkSelfImportanceScale( self, 'setTopGrade' )

local topGrade = importanceGrade:new()

topGrade:setGradeName( 'top' )

topGrade:addTrigger( 'top' )

topGrade:setColor( '#ff00ff' )

self:addGrade( topGrade )

end

-- Sets the High grade with default settings.

function importanceScale:setHighGrade()

checkSelfImportanceScale( self, 'setHighGrade' )

local highGrade = importanceGrade:new()

highGrade:setGradeName( 'high' )

highGrade:addTrigger( 'high' )

highGrade:setColor( '#ff88ff' )

self:addGrade( highGrade )

end

-- Sets the Mid grade with default settings.

function importanceScale:setMidGrade()

checkSelfImportanceScale( self, 'setMidGrade' )

local midGrade = importanceGrade:new()

midGrade:setGradeName( 'mid' )

midGrade:addTrigger( 'mid' )

midGrade:setColor( '#ffbbff' )

self:addGrade( midGrade )

end

-- Sets the Low grade with default settings.

function importanceScale:setLowGrade()

checkSelfImportanceScale( self, 'setLowGrade' )

local lowGrade = importanceGrade:new()

lowGrade:setGradeName( 'low' )

lowGrade:addTrigger( 'low' )

lowGrade:setColor( '#ffddff' )

self:addGrade( lowGrade )

end

-- Sets the Bottom grade with default settings.

function importanceScale:setBottomGrade()

checkSelfImportanceScale( self, 'setBottomGrade' )

local bottomGrade = importanceGrade:new()

bottomGrade:setGradeName( 'bottom' )

bottomGrade:addTrigger( 'bottom' )

bottomGrade:setColor( '#ffeeff' )

self:addGrade( bottomGrade )

end

-- Sets the No grade with default settings.

function importanceScale:setNoGrade()

checkSelfImportanceScale( self, 'setNoGrade' )

local noGrade = importanceGrade:new()

noGrade:setGradeName( 'no' )

noGrade:addTrigger( 'no' )

noGrade:setColor( '#ffffff' )

self:addGrade( noGrade )

end

-- Sets the NA grade with default settings.

function importanceScale:setNaGrade()

checkSelfImportanceScale( self, 'setNaGrade' )

local naGrade = importanceGrade:new()

naGrade:setGradeName( 'na' )

naGrade:addTriggers{ 'na', 'n/a' }

naGrade:setColor( '#f5f5f5' )

self:addGrade( naGrade )

end

-- Sets the Core grade with default settings.

function importanceScale:setCoreGrade()

checkSelfImportanceScale( self, 'setCoreGrade' )

local coreGrade = importanceGrade:new()

coreGrade:setGradeName( 'core' )

coreGrade:addTrigger( 'core' )

coreGrade:setColor( '#ff00ff' )

self:addGrade( coreGrade )

end

-- Sets the standard importance scale with default settings.

function importanceScale:setStandardImportanceScale()

checkSelfImportanceScale( self, 'setStandardImportanceScale' )

self:setTopGrade()

self:setHighGrade()

self:setMidGrade()

self:setLowGrade()

self:setNaGrade()

end

----------------------------------------------------------

-- Define the taskForce class