Tools__LintRuleSettingsApplication.st
branchjv
changeset 12433 864df9509297
parent 12432 f60cf9a3482b
child 15566 184cea584be5
equal deleted inserted replaced
12432:f60cf9a3482b 12433:864df9509297
   114               hasHorizontalScrollBar: true
   114               hasHorizontalScrollBar: true
   115               hasVerticalScrollBar: true
   115               hasVerticalScrollBar: true
   116               listModel: rulesetList
   116               listModel: rulesetList
   117               useIndex: false
   117               useIndex: false
   118               highlightMode: line
   118               highlightMode: line
   119               doubleClickSelector: doConfigurationEdit
   119               doubleClickSelector: doEdit
   120             )
   120             )
   121            (VerticalPanelViewSpec
   121            (VerticalPanelViewSpec
   122               name: 'Buttons1'
   122               name: 'Buttons1'
   123               layout: (LayoutFrame -95 1 65 0 0 1 0 0.7)
   123               layout: (LayoutFrame -95 1 65 0 0 1 0 0.7)
   124               horizontalLayout: fit
   124               horizontalLayout: fit
   195            )
   195            )
   196          
   196          
   197         )
   197         )
   198       )
   198       )
   199 
   199 
   200     "Modified: / 27-02-2013 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   200     "Modified: / 28-02-2013 / 10:03:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   201 ! !
   201 ! !
   202 
   202 
   203 !LintRuleSettingsApplication methodsFor:'accessing'!
   203 !LintRuleSettingsApplication methodsFor:'accessing'!
   204 
   204 
   205 selection
   205 selection
   398 !LintRuleSettingsApplication methodsFor:'queries'!
   398 !LintRuleSettingsApplication methodsFor:'queries'!
   399 
   399 
   400 hasUnsavedChanges
   400 hasUnsavedChanges
   401     "superclass AbstractSettingsApplication says that I am responsible to implement this method"
   401     "superclass AbstractSettingsApplication says that I am responsible to implement this method"
   402 
   402 
   403     ^RBCompositeLintRule rulesets ~= self rulesetList
   403     ^RBCompositeLintRule rulesets asArray ~= self rulesetList asArray
   404 
   404 
   405     "Modified: / 27-02-2013 / 11:17:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   405     "Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   406 ! !
   406 ! !
   407 
   407 
   408 !LintRuleSettingsApplication class methodsFor:'documentation'!
   408 !LintRuleSettingsApplication class methodsFor:'documentation'!
   409 
   409 
   410 version_HG
   410 version_HG