DoEnableCompilerOptionActionQuery.st
author Stefan Vogel <sv@exept.de>
Tue, 11 Feb 2020 17:51:19 +0100
changeset 4630 d0efc42fccf3
parent 4489 e96387661c07
permissions -rw-r--r--
#BUGFIX by stefan class: ByteCodeCompiler changed: #compile:forClass:inCategory:notifying:install:skipIfSame:silent:foldConstants:ifFail: failBlock may have an optional argument
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