extensions.st
author Claus Gittinger <cg@exept.de>
Wed, 20 Jul 2011 17:56:29 +0200
changeset 2570 f0b8fc6cdabb
parent 2015 7828f394952b
child 2573 b91533c88862
permissions -rw-r--r--
change info
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2015
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     1
"{ Package: 'stx:libcomp' }"
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     2
!
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     3
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     4
!Object methodsFor:'user interaction & notifications'!
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     5
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     6
notifyTodo:msg position:position
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     7
         className:className selector:selector
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     8
         severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
     9
         equalityParameter:equalityParameter checkAction:checkAction
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    10
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    11
    "this is a message from the compiler system, to allow for a hook to remember
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    12
     things to do. Can aslo used by other subsystems to add entries to the toDoList"
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    13
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    14
    (Tools::CompilerWarningToDoListEntry notNil
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    15
    and:[Tools::CompilerWarningToDoListEntry isLoaded]) ifFalse:[^ self ].
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    16
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    17
    Tools::CompilerWarningToDoListEntry
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    18
        notifyTodo:msg position:position
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    19
        className:className selector:selector
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    20
        severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    21
        equalityParameter:equalityParameter checkAction:checkAction
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    22
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    23
    "Modified: / 15-03-2007 / 20:29:23 / cg"
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    24
! !
7828f394952b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2014
diff changeset
    25