author | Claus Gittinger <cg@exept.de> |
Sun, 08 Sep 2019 16:03:39 +0200 | |
changeset 6695 | e56559ffcb84 |
parent 6694 | 9422f9cb3c30 |
child 6696 | 4cc270fac972 |
DialogBox.st | file | annotate | diff | comparison | revisions |
--- a/DialogBox.st Sun Sep 08 16:03:05 2019 +0200 +++ b/DialogBox.st Sun Sep 08 16:03:39 2019 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1994 by Claus Gittinger All Rights Reserved @@ -11186,7 +11188,7 @@ self hide. ]. aBlock notNil ifTrue:[ - aBlock numArgs == 0 ifTrue:[ + aBlock argumentCount == 0 ifTrue:[ aBlock value ] ifFalse:[ aBlock value:(self actionArgument)