[Dr. Geo] [Bug 2029422] Re: Cannot validate macro

[hilaire]

** Changed in: drgeo
       Status: New => Fix Committed

-- 
You received this bug notification because you are a member of DrGeo
developers, which is subscribed to Dr. Geo.
Matching subscriptions: Dr. Geo bug report
https://bugs.launchpad.net/bugs/2029422

Title:
  Cannot validate macro

Status in Dr. Geo:
  Fix Committed

Bug description:
  In WizardMacroBuild, modify #frontPage method:

  fourthPage
  | pane row titleLabel descriptionLabel tMorph descrMorph labelsWidth |
        pane := self emptyPane.
        row := LayoutMorph newRow separation: 4.
        titleLabel := LabelMorph contents: 'Title:' translated.
        descriptionLabel := LabelMorph contents: 'Description:' translated.
        labelsWidth := titleLabel morphWidth max: descriptionLabel morphWidth.
        row addMorph: titleLabel fixedWidth: labelsWidth.
        tMorph := TextModelMorph textProvider: model textGetter: #title 
textSetter: #title: ::
                hideScrollBarsIndefinitely; 
                askBeforeDiscardingEdits: false.
        tMorph scroller 
                setProperty: #keyStroke: 
                toValue: [:event | 
                        tMorph scroller acceptContents.
                        self changed: #isReadyToApply].
        row addMorphUseAll: tMorph.
        pane addMorph: row fixedHeight: titleLabel morphHeight.
        row :=  LayoutMorph newRow separation: 4.
        row addMorph: descriptionLabel fixedWidth: labelsWidth .
        descrMorph := TextModelMorph textProvider: model textGetter: 
#description textSetter: #description: ::
                askBeforeDiscardingEdits: false.
        descrMorph scroller 
                setProperty: #keyStroke: 
                toValue: [:event | 
                        descrMorph scroller acceptContents.
                        self changed: #isReadyToApply].
        row addMorphUseAll: descrMorph.
        pane addMorphUseAll: row.
        ^(WizardPage applyPage: 'Give a name and a description' translated on: 
self)
                contents: pane;
                yourself

To manage notifications about this bug go to:
https://bugs.launchpad.net/drgeo/+bug/2029422/+subscriptions