equal
deleted
inserted
replaced
316 ! ! |
316 ! ! |
317 |
317 |
318 !InlineMessageDialog class methodsFor:'others'! |
318 !InlineMessageDialog class methodsFor:'others'! |
319 |
319 |
320 version_CVS |
320 version_CVS |
321 ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.7 2012-05-17 15:31:22 vrany Exp $' |
321 ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.8 2013-02-21 16:30:02 vrany Exp $' |
322 ! ! |
322 ! ! |
323 |
323 |
324 !InlineMessageDialog methodsFor:'accessing'! |
324 !InlineMessageDialog methodsFor:'accessing'! |
325 |
325 |
326 backgroundColor: aColor |
326 backgroundColor: aColor |
395 ]. |
395 ]. |
396 |
396 |
397 "Modified: / 11-04-2012 / 16:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
397 "Modified: / 11-04-2012 / 16:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
398 ! |
398 ! |
399 |
399 |
|
400 doAbortIfWorking |
|
401 worker notNil ifTrue:[ self doAbort ]. |
|
402 |
|
403 "Created: / 04-10-2012 / 19:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
404 ! |
|
405 |
400 doOK |
406 doOK |
401 <resource: #uiCallback> |
407 <resource: #uiCallback> |
402 |
408 |
403 (worker notNil and:[worker isDead not]) ifTrue:[ |
409 (worker notNil and:[worker isDead not]) ifTrue:[ |
|
410 "/ raise its prio to make it terminate quickly |
|
411 worker priority:(Processor userSchedulingPriority + 1). |
|
412 worker terminate. |
404 worker := nil. |
413 worker := nil. |
405 worker terminate. |
|
406 "/ raise its prio to make it terminate quickly |
|
407 worker priority:(Processor userSchedulingPriority + 1) |
|
408 ]. |
414 ]. |
409 self hide. |
415 self hide. |
410 |
416 |
411 "Modified: / 11-04-2012 / 13:18:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
417 "Modified: / 27-07-2012 / 15:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
412 ! ! |
418 ! ! |
413 |
419 |
414 !InlineMessageDialog methodsFor:'adding & removing components'! |
420 !InlineMessageDialog methodsFor:'adding & removing components'! |
415 |
421 |
416 addButton: aButton |
422 addButton: aButton |
695 ! |
701 ! |
696 |
702 |
697 hide |
703 hide |
698 |
704 |
699 | myView otherView | |
705 | myView otherView | |
|
706 builder isNil ifTrue:[ ^ self ]. |
700 myView := self getMyView. |
707 myView := self getMyView. |
701 otherView := self getOtherView. |
708 otherView := self getOtherView. |
702 |
709 |
703 myView isVisible ifFalse:[ "/already hidden" |
710 myView isVisible ifFalse:[ "/already hidden" |
704 self reset. |
711 self reset. |
710 ]. |
717 ]. |
711 panelHiddenHolder notNil ifTrue:[ |
718 panelHiddenHolder notNil ifTrue:[ |
712 panelHiddenHolder value: true |
719 panelHiddenHolder value: true |
713 ]. |
720 ]. |
714 changeLayoutUponShowHide ~~ false ifTrue:[ |
721 changeLayoutUponShowHide ~~ false ifTrue:[ |
715 otherView layout: layout. |
722 otherView layout: layout. |
716 ]. |
723 ]. |
717 |
724 |
718 self reset. |
725 self reset. |
719 |
726 |
720 "Created: / 29-10-2010 / 11:55:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
727 "Created: / 29-10-2010 / 11:55:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
728 "Modified (format): / 17-01-2013 / 23:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
721 ! |
729 ! |
722 |
730 |
723 show |
731 show |
724 |
732 |
725 | myView otherView | |
733 | myView otherView | |
924 ! ! |
932 ! ! |
925 |
933 |
926 !InlineMessageDialog class methodsFor:'documentation'! |
934 !InlineMessageDialog class methodsFor:'documentation'! |
927 |
935 |
928 version |
936 version |
929 ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.7 2012-05-17 15:31:22 vrany Exp $' |
937 ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.8 2013-02-21 16:30:02 vrany Exp $' |
930 ! |
938 ! |
931 |
939 |
932 version_SVN |
940 version_SVN |
933 ^ '§Id: Tools__InlineMessageDialog.st 7976 2012-04-11 16:14:22Z vranyj1 §' |
941 ^ '§Id: Tools__InlineMessageDialog.st 7976 2012-04-11 16:14:22Z vranyj1 §' |
934 ! ! |
942 ! ! |
|
943 |