equal
deleted
inserted
replaced
2049 Dialog confirmWithCancel:'really ?' |
2049 Dialog confirmWithCancel:'really ?' |
2050 ) |
2050 ) |
2051 " |
2051 " |
2052 |
2052 |
2053 "Created: / 02-03-2007 / 15:11:14 / cg" |
2053 "Created: / 02-03-2007 / 15:11:14 / cg" |
|
2054 ! |
|
2055 |
|
2056 confirmWithRaiseAbortOnCancel:aString |
|
2057 "launch a Dialog, which allows user to enter yes, no and cancel. |
|
2058 Return true for 'yes', false for 'no'. |
|
2059 Raise the abort signal 'cancel'" |
|
2060 |
|
2061 |answer| |
|
2062 |
|
2063 answer := self |
|
2064 confirmWithCancel:aString |
|
2065 default:true |
|
2066 title:nil. |
|
2067 answer isNil ifTrue:[ |
|
2068 AbortOperationRequest raiseRequest. |
|
2069 ]. |
|
2070 ^ answer. |
|
2071 |
|
2072 " |
|
2073 Dialog confirmWithRaiseAbortOnCancel:'really ?' |
|
2074 " |
|
2075 |
|
2076 " |
|
2077 Transcript showCR:( |
|
2078 Dialog confirmWithRaiseAbortOnCancel:'really ?' |
|
2079 ) |
|
2080 " |
|
2081 |
|
2082 "Created: / 04-03-2017 / 10:23:36 / cg" |
2054 ! ! |
2083 ! ! |
2055 |
2084 |
2056 !DialogBox class methodsFor:'defaults'! |
2085 !DialogBox class methodsFor:'defaults'! |
2057 |
2086 |
2058 defaultLabel |
2087 defaultLabel |