equal
deleted
inserted
replaced
525 |
525 |
526 self addComponent:aWidget. |
526 self addComponent:aWidget. |
527 enterField |
527 enterField |
528 width:1.0; |
528 width:1.0; |
529 origin:[0.0 @ (space2 + labelField preferredHeight "height")]; |
529 origin:[0.0 @ (space2 + labelField preferredHeight "height")]; |
530 leftInset:ViewSpacing-aWidget borderWidth; |
530 leftInset:(ViewSpacing-aWidget borderWidth) rightInset:1 "ViewSpacing". |
531 rightInset:1 "ViewSpacing". |
|
532 |
531 |
533 aWidget addDependent:self. "to get preferredExtent-changes" |
532 aWidget addDependent:self. "to get preferredExtent-changes" |
534 |
533 |
535 self makeTabable:aWidget |
534 self makeTabable:aWidget |
536 |
535 |
537 "Modified: / 23-01-2012 / 17:30:17 / cg" |
536 "Modified: / 23-01-2012 / 17:30:17 / cg" |
|
537 "Modified (format): / 16-07-2019 / 16:37:23 / Claus Gittinger" |
538 ! |
538 ! |
539 |
539 |
540 createEnterField |
540 createEnterField |
541 "this has been extracted from the initialize method |
541 "this has been extracted from the initialize method |
542 to allow redefinition in subclasses. (FilenameEnterBox for example). |
542 to allow redefinition in subclasses. (FilenameEnterBox for example). |
566 labelField |
566 labelField |
567 label:''; |
567 label:''; |
568 borderWidth:0; |
568 borderWidth:0; |
569 adjust:#left; |
569 adjust:#left; |
570 origin:(0.0 @ ViewSpacing) extent:[1.0 @ labelField height]; |
570 origin:(0.0 @ ViewSpacing) extent:[1.0 @ labelField height]; |
571 leftInset:ViewSpacing; |
571 leftInset:ViewSpacing rightInset:ViewSpacing. |
572 rightInset:ViewSpacing. |
|
573 |
572 |
574 self addEnterField:(self createEnterField). |
573 self addEnterField:(self createEnterField). |
575 yPosition := enterField bottom + ViewSpacing. |
574 yPosition := enterField bottom + ViewSpacing. |
|
575 |
|
576 "Modified: / 16-07-2019 / 16:37:27 / Claus Gittinger" |
576 ! |
577 ! |
577 |
578 |
578 reAdjustGeometry |
579 reAdjustGeometry |
579 "sent late in the setup process - gives me a chance |
580 "sent late in the setup process - gives me a chance |
580 to resize for new font dimensions" |
581 to resize for new font dimensions" |