DoEnableCompilerOptionActionQuery.st
author Claus Gittinger <cg@exept.de>
Sun, 03 May 2020 23:44:59 +0200
changeset 4650 e9b212d470ff
parent 4489 e96387661c07
permissions -rw-r--r--
#FEATURE by cg class: ParseError added: #position
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4489
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libcomp' }"
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: Smalltalk }"
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
Query subclass:#DoEnableCompilerOptionActionQuery
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	category:'System-Compiler'
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!DoEnableCompilerOptionActionQuery class methodsFor:'documentation'!
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
documentation
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    Used to ask if a parser option should be enabled.
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    When the compiler makes an error notification, it raises this query to
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    ask for an actionblock. If the query is not answered, the 'enable in compiler options' dialog
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
    is not shown.
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
    If it is answered, the returned value must be the block.
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    The dialog is shown, and if the user confirms (do not show again), the block is called.
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    The block is typically provided from the warning generation code, which sets/clears
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    some flag in the user preferences.
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
"
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
! !
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!DoEnableCompilerOptionActionQuery class methodsFor:'queries'!
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
actionQuery
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
    ^ self query
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
! !
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
!DoEnableCompilerOptionActionQuery class methodsFor:'documentation'!
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
version_CVS
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
    ^ '$Header$'
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
! !
e96387661c07 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38