326 |
326 |
327 projectDefinitionClass notNil ifTrue:[ |
327 projectDefinitionClass notNil ifTrue:[ |
328 vsePackageName := projectDefinitionClass perform:#vsePackageName ifNotUnderstood:nil. |
328 vsePackageName := projectDefinitionClass perform:#vsePackageName ifNotUnderstood:nil. |
329 ]. |
329 ]. |
330 vsePackageName isNil ifTrue:[ |
330 vsePackageName isNil ifTrue:[ |
331 (Dialog confirm:('No vsePackageName defined in ProjectDefinition.\\Proceed (using ST/X package name)?') withCRs) |
331 |action optionLabels options| |
332 ifFalse:[ |
332 |
|
333 projectDefinitionClass notNil ifTrue:[ |
|
334 optionLabels := #('Cancel' 'No, Browse' 'Yes'). |
|
335 options := #(#abort #browse #yes) |
|
336 ] ifFalse:[ |
|
337 optionLabels := #('Cancel' 'Yes'). |
|
338 options := #(#abort #yes) |
|
339 ]. |
|
340 action := OptionBox |
|
341 request:(Dialog resources stringWithCRs:'No vsePackageName defined in ProjectDefinition.\\Proceed (using ST/X package name)?') |
|
342 label:'VSE Package Export' |
|
343 image:(WarningBox iconBitmap) |
|
344 buttonLabels:(Dialog resources array:optionLabels) |
|
345 values:options |
|
346 default:(projectDefinitionClass isNil ifTrue:#abort ifFalse:#browse) |
|
347 onCancel:#abort. |
|
348 action == #abort ifTrue:[ |
|
349 AbortOperationRequest raise |
|
350 ]. |
|
351 action == #browse ifTrue:[ |
|
352 UserPreferences browserClass openInClass:projectDefinitionClass. |
333 AbortOperationRequest raise |
353 AbortOperationRequest raise |
334 ]. |
354 ]. |
335 ]. |
355 ]. |
336 |
356 |
337 projectDefinitionClass notNil ifTrue:[ |
357 projectDefinitionClass notNil ifTrue:[ |