equal
deleted
inserted
replaced
5109 |
5109 |
5110 <resource: #style (#'dialogBox.okAtLeft')> |
5110 <resource: #style (#'dialogBox.okAtLeft')> |
5111 |
5111 |
5112 |helpButton| |
5112 |helpButton| |
5113 |
5113 |
5114 helpButton := Button label:(resources string:'help'). |
5114 helpButton := Button label:(resources string:'Help'). |
5115 helpButton action:[ |
5115 helpButton action:[ |
5116 self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText] |
5116 self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText] |
5117 ]. |
5117 ]. |
5118 |
5118 |
5119 "/ changed: |
5119 "/ changed: |
5138 addOkButton. |
5138 addOkButton. |
5139 |
5139 |
5140 box open |
5140 box open |
5141 " |
5141 " |
5142 |
5142 |
5143 "Modified: 20.5.1996 / 20:30:55 / cg" |
5143 "Modified: / 9.9.1996 / 22:40:21 / stefan" |
5144 "Modified: 9.9.1996 / 22:40:21 / stefan" |
5144 "Modified: / 17.11.2001 / 09:42:50 / cg" |
5145 ! |
5145 ! |
5146 |
5146 |
5147 addOK:checkBlock |
5147 addOK:checkBlock |
5148 |butt| |
5148 |butt| |
5149 |
5149 |
7253 ! ! |
7253 ! ! |
7254 |
7254 |
7255 !DialogBox class methodsFor:'documentation'! |
7255 !DialogBox class methodsFor:'documentation'! |
7256 |
7256 |
7257 version |
7257 version |
7258 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.178 2001-11-16 14:09:40 cg Exp $' |
7258 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.179 2001-11-17 10:57:37 cg Exp $' |
7259 ! ! |
7259 ! ! |
7260 DialogBox initialize! |
7260 DialogBox initialize! |