equal
deleted
inserted
replaced
346 |
346 |
347 aKey size ~~ 0 ifTrue:[ |
347 aKey size ~~ 0 ifTrue:[ |
348 key := aKey asString |
348 key := aKey asString |
349 ]. |
349 ]. |
350 self listModel value:key |
350 self listModel value:key |
|
351 |
351 ! |
352 ! |
352 |
353 |
353 helpSpecFrom:aClass |
354 helpSpecFrom:aClass |
354 "read help text from an application associated with the class |
355 "read help text from an application associated with the class |
355 " |
356 " |
373 modifiedHolder removeDependent:self. |
374 modifiedHolder removeDependent:self. |
374 ]. |
375 ]. |
375 |
376 |
376 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
377 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
377 modifiedHolder addDependent:self. |
378 modifiedHolder addDependent:self. |
378 ]. |
379 |
|
380 self editTextView notNil ifTrue: [ |
|
381 self editTextView modifiedChannel onChangeSend:#value to:[ |
|
382 modifiedHolder notNil ifTrue:[ |
|
383 self editTextView modifiedChannel value ifTrue:[ |
|
384 modifiedHolder value:true |
|
385 ] |
|
386 ] |
|
387 ] |
|
388 ] |
|
389 ] |
379 |
390 |
380 |
391 |
381 ! |
392 ! |
382 |
393 |
383 updateList |
394 updateList |
643 |
654 |
644 (txt isNil or:[maxCharsPerLine isNil]) ifFalse:[ |
655 (txt isNil or:[maxCharsPerLine isNil]) ifFalse:[ |
645 txt := UIPainter convertString:(txt asString) maxLineSize:maxCharsPerLine skipLineFeed:false. |
656 txt := UIPainter convertString:(txt asString) maxLineSize:maxCharsPerLine skipLineFeed:false. |
646 ] |
657 ] |
647 ]. |
658 ]. |
648 view contents:txt. |
659 view contents:txt. |
|
660 view modified:false. |
649 ] |
661 ] |
650 ] |
662 ] |
651 |
663 |
652 ! ! |
664 ! ! |
653 |
665 |
654 !UIHelpTool methodsFor:'startup / release'! |
666 !UIHelpTool methodsFor:'startup / release'! |
655 |
667 |
656 closeRequest |
668 closeRequest |
657 |
669 |
658 (isModified and:[self masterApplication isNil]) ifTrue:[ |
670 (isModified and:[self masterApplication isNil]) ifTrue:[ |
659 (self confirm:'quit without without saving your modifications ?') ifFalse:[ |
671 (self confirm:'Exit without saving your modifications?') ifFalse:[ |
660 ^ self |
672 ^ self |
661 ] |
673 ] |
662 ]. |
674 ]. |
663 ^ super closeRequest. |
675 ^ super closeRequest. |
664 ! ! |
676 ! ! |