DoNotShowCompilerWarningAgainForThisReceiverSelectorActionQuery.st
author Jan Vrany <jan.vrany@labware.com>
Thu, 27 Oct 2022 14:53:59 +0100
branchjv
changeset 4735 3b11fb3ede98
parent 3769 025b8151cec1
permissions -rw-r--r--
Allow single underscore as method / block argument and temporaries This commit is a follow up for 38b221e.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3769
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2016 by eXept Software AG
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libcomp' }"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Smalltalk }"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
Query subclass:#DoNotShowCompilerWarningAgainForThisReceiverSelectorActionQuery
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'System-Compiler'
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!DoNotShowCompilerWarningAgainForThisReceiverSelectorActionQuery class methodsFor:'documentation'!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
copyright
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
 COPYRIGHT (c) 2016 by eXept Software AG
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
              All Rights Reserved
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 hereby transferred.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
documentation
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    Used to ask if a warning should be shown again for this receiver/selector combination.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    When the compiler makes an error notification, it raises this query to
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    ask for an actionblock. If the query is not answered, the 'no not show again' dialog
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    is not shown.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    If it is answered, the returned value must be the block.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    The dialog is shown, and if the user confirms (do not show again), the block is called.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    The block is typically provided from the warning generation code, which sets/clears
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    some flag in the user preferences.
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
! !
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!DoNotShowCompilerWarningAgainForThisReceiverSelectorActionQuery class methodsFor:'queries'!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
actionQuery
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    ^ self query
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
! !
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
!DoNotShowCompilerWarningAgainForThisReceiverSelectorActionQuery class methodsFor:'documentation'!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
version
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    ^ '$Header$'
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
!
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
version_CVS
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    ^ '$Header$'
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
! !
025b8151cec1 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67