Bug46661 ExecBlock oop: 2485412609
Bug46661 ExecBlock blockSource: "This is source for a block.  "
 ^ [
                                                        html tbsForm beHorizontal with: [

                                                                html tbsButton
                                                                        beSubmit;
                                                                        beInfo;
                                                                        beExtraSmall;
                                                                        tbsTooltip: 'Edit this note';
                                                                        callback: [
                                                                                self faApplicationContext renderEditItem: each withDBSessionKey: each storedInDBKey callerComponent: callerComponent
                                                                        ];
                                                                        with: [ html tbsGlyphIcon iconEdit ].

                                                                html space.

                                                                html anchor
                                                                        url: 'javascript:void(0)';
                                                                        tbsTooltip: noteCategory uniqueKeyLabelAndDBString;
                                                                        with: 'See Unique ID'.

                                                        ]
                                        ]
Bug46661 ExecBlock homeMethod inClass: DpReportResearchNoteCategory
Bug46661 ExecBlock homeMethod selector: renderReportInteractiveViewUsing:cache:reportSpec:callerComponent:on:
Bug46661 ExecBlock homeMethod source: renderReportInteractiveViewUsing: processor cache: aCache reportSpec: aReportSpecification callerComponent: callerComponent on: html

        self noteCategory ifNotNil: [ :noteCategory |
                html div
                        class: self reportElementContainerCssClasses;
                        id: self reportElementContainerId;   " 'reportNoteCategoryDiv'"
                        with: [
                                | notes |
                                notes := DpResearchNote allNotesForNoteCategory: noteCategory ticker: processor ticker.
                                notes do: [ :each |
                                        html span
                                                style: 'display: inline-block;';
                                                with: [
                                                        html heading
                                                                level: 3;
                                                                style: 'margin: 0px; text-decoration: underline; font-weight: bold;';
                                                                with: (self convertSpecString: each subject toConcreteStringUsing: processor).
                                                ].

                                        html span
                                                style: 'display: inline-block; float: right;';
                                                with: [
                                                        html tbsForm beHorizontal with: [

                                                                html tbsButton
                                                                        beSubmit;
                                                                        beInfo;
                                                                        beExtraSmall;
                                                                        tbsTooltip: 'Edit this note';
                                                                        callback: [
                                                                                self faApplicationContext renderEditItem: each withDBSessionKey: each storedInDBKey callerComponent: callerComponent
                                                                        ];
                                                                        with: [ html tbsGlyphIcon iconEdit ].

                                                                html space.

                                                                html anchor
                                                                        url: 'javascript:void(0)';
                                                                        tbsTooltip: noteCategory uniqueKeyLabelAndDBString;
                                                                        with: 'See Unique ID'.

                                                        ]
                                        ].

                                        html break.
                                        html html: (self convertSpecString: each note toConcreteStringUsing: processor).
                                        html break.
                                ].

                        ]
         ]