Workspace.st
changeset 4398 fa39aafcc0f3
parent 4395 a862858a2165
child 4401 1ac7fcf9786d
equal deleted inserted replaced
4397:e1070eefcd61 4398:fa39aafcc0f3
   811                                           model:doNotShowAgainHolder).
   811                                           model:doNotShowAgainHolder).
   812                     ].
   812                     ].
   813                     DoNotShowCompilerWarningAgainForThisMethodActionQuery isHandled ifTrue:[
   813                     DoNotShowCompilerWarningAgainForThisMethodActionQuery isHandled ifTrue:[
   814                         makeSpace value.
   814                         makeSpace value.
   815                         box verticalPanel
   815                         box verticalPanel
   816                             add:(CheckBox label:'Do not show for this method (reenable via Launcher''s settings dialog)' 
   816                             add:(CheckBox label:(resources string:'Do not warn in this method (for %1 - reenable earlier via Launcher''s settings dialog)' with:ParserFlags perMethodDisableWarningTimeDuration) 
   817                                           model:doNotShowAgainForThisMethodHolder).
   817                                           model:doNotShowAgainForThisMethodHolder).
   818                     ].
   818                     ].
   819                 ].
   819                 ].
   820                 ex proceed.
   820                 ex proceed.
   821             ] do:[
   821             ] do:[
   867         AbortOperationRequest raise.
   867         AbortOperationRequest raise.
   868     ].
   868     ].
   869     ^ false
   869     ^ false
   870 
   870 
   871     "Created: / 24-11-1995 / 22:56:34 / cg"
   871     "Created: / 24-11-1995 / 22:56:34 / cg"
   872     "Modified: / 28-02-2012 / 16:34:05 / cg"
   872     "Modified: / 08-03-2012 / 10:24:21 / cg"
   873 !
   873 !
   874 
   874 
   875 highlightingErrorLine:lineNr do:aBlock
   875 highlightingErrorLine:lineNr do:aBlock
   876     "evaluate aBlock while some selection is shown highlighted with error colors."
   876     "evaluate aBlock while some selection is shown highlighted with error colors."
   877 
   877 
   969                 ].
   969                 ].
   970                 DoNotShowCompilerWarningAgainForThisMethodActionQuery isHandled ifTrue:[
   970                 DoNotShowCompilerWarningAgainForThisMethodActionQuery isHandled ifTrue:[
   971                     makeSpace value.
   971                     makeSpace value.
   972                     box verticalPanel
   972                     box verticalPanel
   973                         add:(CheckBox
   973                         add:(CheckBox
   974                                 label:'Do not show this dialog for this method' 
   974                                 label:(resources string:'Do not warn in this method (for %1 - reenable earlier via Launcher''s settings dialog)' with:ParserFlags perMethodDisableWarningTimeDuration)  
   975                                 model:doNotShowAgainForThisMethodHolder).
   975                                 model:doNotShowAgainForThisMethodHolder).
   976                 ].
   976                 ].
   977             ].
   977             ].
   978             ex proceed.
   978             ex proceed.
   979         ] do:[
   979         ] do:[
   997         AbortOperationRequest raise.
   997         AbortOperationRequest raise.
   998         ^ false
   998         ^ false
   999     ].
   999     ].
  1000     ^ action == #correct
  1000     ^ action == #correct
  1001 
  1001 
  1002     "Modified: / 28-02-2012 / 16:34:29 / cg"
  1002     "Modified: / 08-03-2012 / 10:23:58 / cg"
  1003 !
  1003 !
  1004 
  1004 
  1005 warning:aString position:relPos to:relEndPos from:aCompiler 
  1005 warning:aString position:relPos to:relEndPos from:aCompiler 
  1006     "compiler notifies us of a warning - same behavior as error"
  1006     "compiler notifies us of a warning - same behavior as error"
  1007 
  1007 
  1981 ! !
  1981 ! !
  1982 
  1982 
  1983 !Workspace class methodsFor:'documentation'!
  1983 !Workspace class methodsFor:'documentation'!
  1984 
  1984 
  1985 version_CVS
  1985 version_CVS
  1986     ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.243 2012-03-07 16:53:22 cg Exp $'
  1986     ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.244 2012-03-08 10:02:11 cg Exp $'
  1987 ! !
  1987 ! !