author | Claus Gittinger <cg@exept.de> |
Tue, 23 Apr 2019 23:14:55 +0200 | |
changeset 4407 | cf8780f42d7e |
parent 3114 | 1cd94f2790f1 |
child 3841 | a22f33410bdf |
permissions | -rw-r--r-- |
2573
b91533c88862
- nodes are no longer shared
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2015
diff
changeset
|
1 |
"{ Package: 'stx:libcomp' }"! |
2015 | 2 |
|
3 |
!Object methodsFor:'user interaction & notifications'! |
|
4 |
||
5 |
notifyTodo:msg position:position |
|
6 |
className:className selector:selector |
|
7 |
severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol |
|
8 |
equalityParameter:equalityParameter checkAction:checkAction |
|
9 |
||
10 |
"this is a message from the compiler system, to allow for a hook to remember |
|
11 |
things to do. Can aslo used by other subsystems to add entries to the toDoList" |
|
12 |
||
13 |
(Tools::CompilerWarningToDoListEntry notNil |
|
14 |
and:[Tools::CompilerWarningToDoListEntry isLoaded]) ifFalse:[^ self ]. |
|
15 |
||
16 |
Tools::CompilerWarningToDoListEntry |
|
17 |
notifyTodo:msg position:position |
|
18 |
className:className selector:selector |
|
19 |
severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol |
|
20 |
equalityParameter:equalityParameter checkAction:checkAction |
|
21 |
||
22 |
"Modified: / 15-03-2007 / 20:29:23 / cg" |
|
23 |
! ! |
|
24 |
||
2573
b91533c88862
- nodes are no longer shared
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2015
diff
changeset
|
25 |
!stx_libcomp class methodsFor:'documentation'! |
b91533c88862
- nodes are no longer shared
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2015
diff
changeset
|
26 |
|
b91533c88862
- nodes are no longer shared
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2015
diff
changeset
|
27 |
extensionsVersion_CVS |
3114
1cd94f2790f1
Some more support for new breakpoints.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2582
diff
changeset
|
28 |
^ '$Header: /cvs/stx/stx/libcomp/extensions.st,v 1.5 2013-04-16 07:21:33 vrany Exp $' |
1cd94f2790f1
Some more support for new breakpoints.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2582
diff
changeset
|
29 |
! ! |