IsDebuggingQuery.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 16:28:42 +0100
branchjv
changeset 18759 c1217211909c
parent 18120 e3a375d5f6a8
permissions -rw-r--r--
Changed identification strings to contain jv-branch ...to make explicit that this distribution is not the official one used by eXept and therefore that eXept is not to be blamed in case of any problem.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
14836
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     1
"
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     2
 COPYRIGHT (c) 2012 by eXept Software AG
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     3
              All Rights Reserved
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     4
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     5
 This software is furnished under a license and may be used
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     6
 only in accordance with the terms of that license and with the
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     8
 be provided or otherwise made available to, or used by, any
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
     9
 other person.  No title to or ownership of the software is
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    10
 hereby transferred.
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    11
"
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    13
17268
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    14
"{ NameSpace: Smalltalk }"
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    15
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    16
Query subclass:#IsDebuggingQuery
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    20
	category:'Interface-Debugger'
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    21
!
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    22
14836
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    23
!IsDebuggingQuery class methodsFor:'documentation'!
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    24
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    25
copyright
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    26
"
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    27
 COPYRIGHT (c) 2012 by eXept Software AG
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    28
              All Rights Reserved
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    29
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    30
 This software is furnished under a license and may be used
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    31
 only in accordance with the terms of that license and with the
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    33
 be provided or otherwise made available to, or used by, any
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    34
 other person.  No title to or ownership of the software is
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    35
 hereby transferred.
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    36
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    37
"
17164
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    38
!
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    39
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    40
documentation
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    41
"
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    42
    Answered by the debugger while we are in it.
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    43
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    44
    Currently the only one interested in that are Futures,
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    45
    which will not force their value while in the debugger
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    46
    (so we can look at a future inside a debugger's inspector without
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    47
    forcing them)
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    48
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    49
    [Author:]
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    50
        Stefan Vogel, eXept
d33ed5ddd0d3 class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 14836
diff changeset
    51
"
14836
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    52
! !
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    53
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    54
!IsDebuggingQuery methodsFor:'default values'!
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    55
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    56
defaultResumeValue
17268
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    57
    "the default answer, if no one handles the query"
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    58
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    59
    ^ false
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    60
! !
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    61
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    62
!IsDebuggingQuery class methodsFor:'documentation'!
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    63
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    64
version
17268
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    65
    ^ '$Header: /cvs/stx/stx/libbasic/IsDebuggingQuery.st,v 1.4 2014-12-30 12:39:56 cg Exp $'
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    66
!
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    67
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    68
version_CVS
17268
28cc88757faf class: IsDebuggingQuery
Claus Gittinger <cg@exept.de>
parents: 17164
diff changeset
    69
    ^ '$Header: /cvs/stx/stx/libbasic/IsDebuggingQuery.st,v 1.4 2014-12-30 12:39:56 cg Exp $'
14389
f3f0359eddd1 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    70
! !
14836
8322ad4e8ad3 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 14389
diff changeset
    71