1 "{ Package: 'stx:libcomp' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Query subclass:#DoEnableCompilerOptionActionQuery

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'System-Compiler'

    10 !

    11 

    12 !DoEnableCompilerOptionActionQuery class methodsFor:'documentation'!

    13 

    14 documentation

    15 "

    16     Used to ask if a parser option should be enabled.

    17     When the compiler makes an error notification, it raises this query to

    18     ask for an actionblock. If the query is not answered, the 'enable in compiler options' dialog

    19     is not shown.

    20     If it is answered, the returned value must be the block.

    21     The dialog is shown, and if the user confirms (do not show again), the block is called.

    22     The block is typically provided from the warning generation code, which sets/clears

    23     some flag in the user preferences.

    24 "

    25 ! !

    26 

    27 !DoEnableCompilerOptionActionQuery class methodsFor:'queries'!

    28 

    29 actionQuery

    30     ^ self query

    31 ! !

    32 

    33 !DoEnableCompilerOptionActionQuery class methodsFor:'documentation'!

    34 

    35 version_CVS

    36     ^ '$Header$'

    37 ! !

    38