← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/DrGeo.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2022-10-27 22:15:53 UTC
  • Revision ID: hilaire@drgeo.eu-20221027221553-2lg0e4e9kiat3rc7
Erudite action with buttons

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/DrGeo.pck.st
1
 
'From Cuis 6.0 [latest update: #5510] on 26 October 2022 at 11:38:06 pm'!
 
1
'From Cuis 6.0 [latest update: #5510] on 28 October 2022 at 12:15:25 am'!
2
2
'Description '!
3
 
!provides: 'DrGeo' 1 491!
 
3
!provides: 'DrGeo' 1 493!
4
4
!requires: 'Gettext' 1 17 nil!
5
5
!requires: 'SVG' 1 16 nil!
6
6
!requires: 'YAXO' 1 19 nil!
7185
7185
                addMorphUseAll: self newCodeAndView;
7186
7186
                yourself! !
7187
7187
 
7188
 
!DrGSmalltalkSketchEditor methodsFor: 'GUI building' stamp: 'hlsf 10/26/2022 11:20:38'!
 
7188
!DrGSmalltalkSketchEditor methodsFor: 'GUI building' stamp: 'hlsf 10/27/2022 23:34:15'!
7189
7189
newToolbar
7190
7190
        ^ LayoutMorph newRow ::
7191
7191
                separation: 5@0 ;
7195
7195
                addMorph: (self button: #debug action: #debugSketch help: 'Debug the Smalltalk sketch.' translated);
7196
7196
                addMorph: (self button: #stop action: #stopSketch help: 'Stop the execution of the Smalltalk sketch.' translated);
7197
7197
                addMorph: self transparentMorph layoutSpec: (LayoutSpec proportionalWidth: 1.0);
7198
 
                addMorph: (self button: #open action: #openHelp help: 'Dr. Geo tutorial' translated)
 
7198
                addMorph: (self button: #doc action: #openHelp help: 'Dr. Geo tutorial' translated)
7199
7199
                yourself! !
7200
7200
 
7201
7201
!DrGSmalltalkSketchEditor methodsFor: 'GUI building' stamp: 'hlsf 10/6/2022 12:44:50'!
12011
12011
priority
12012
12012
        ^ STCommandLineHandler priority + 1! !
12013
12013
 
12014
 
!DrGeoErudite class methodsFor: 'as yet unclassified' stamp: 'MM 10/22/2022 19:03:51'!
 
12014
!DrGeoErudite class methodsFor: 'as yet unclassified' stamp: 'MM 10/27/2022 10:35:59'!
12015
12015
initialize
12016
12016
 
12017
12017
        "self initialize"
12018
12018
 
12019
 
        EruditeMarkupGrammar addCodeAction: 'copyToDrGeo'! !
 
12019
        EruditeMarkupGrammar addCodeAction: 'withDrGeoActions'! !
12020
12020
 
12021
12021
!DrGeoPresenter methodsFor: 'accessing'!
12022
12022
app
33707
33707
                setBalloonText: aPref description.
33708
33708
        views at: aPref nameDetailed put: listMorph! !
33709
33709
 
33710
 
!MorphicEruditeDocRenderer methodsFor: '*DrGeo' stamp: 'hlsf 10/26/2022 23:10:39'!
 
33710
!MorphicEruditeDocRenderer methodsFor: '*DrGeo' stamp: 'MM 10/27/2022 11:00:56'!
 
33711
createButton: aForm action: aBlock balloonText: balloonText
 
33712
 
 
33713
        | button |
 
33714
        
 
33715
        button _ ImageMorph new image: aForm; yourself.
 
33716
        button setBalloonText: balloonText.
 
33717
        button setProperty: #handlesMouseDown: toValue: true.
 
33718
        button setProperty: #'mouseButton1Down:localPosition:' toValue: [:keyEvent :pos | aBlock value].
 
33719
        
 
33720
        ^ button
 
33721
 
 
33722
        ! !
 
33723
 
 
33724
!MorphicEruditeDocRenderer methodsFor: '*DrGeo' stamp: 'hlsf 10/27/2022 23:43:29'!
33711
33725
renderCodeCopyToDrGeo: aDocCode
 
33726
        self deprecatedMethod.
 
33727
        self renderCodeWithDrGeoActions: aDocCode ! !
 
33728
 
 
33729
!MorphicEruditeDocRenderer methodsFor: '*DrGeo' stamp: 'hlsf 10/28/2022 00:15:14'!
 
33730
renderCodeWithDrGeoActions: aDocCode
33712
33731
 
33713
33732
        |text button textModel |
33714
33733
        
33720
33739
        stream nextPut: textModel actualContents.
33721
33740
        stream nextPut: ' '.
33722
33741
        
33723
 
        button _ Text string: '[copy to Dr. Geo]' attributes: 
33724
 
                                        {TextEmphasis underlined. 
33725
 
                                                BlockTextAction do: [:anObject | requestor triggerEvent: #askToCopyCode with: aDocCode code]}.
33726
 
        stream nextPut: button! !
 
33742
        "Add as many buttons as you need here: "
 
33743
        
 
33744
        button _ self createButton: Theme current openIcon 
 
33745
                        action: [requestor triggerEvent: #askToCopyCode with: aDocCode code]
 
33746
                        balloonText: 'Copy this code to the Dr. Geo Smalltalk sketch editor.' translated. 
 
33747
        stream nextPut: (Text streamContents: [:s | button printOn: s]).
 
33748
        
 
33749
        stream nextPut: ' '. "separation between buttons"
 
33750
        
 
33751
        button _ self createButton: Theme current imageIcon 
 
33752
                        action: [ self someDrGeoAction: aDocCode]
 
33753
                        balloonText: 'Preview the resulting Sketch when this code is executed.' translated. 
 
33754
        stream nextPut: (Text streamContents: [:s | button printOn: s]).! !
 
33755
 
 
33756
!MorphicEruditeDocRenderer methodsFor: '*DrGeo' stamp: 'MM 10/27/2022 11:09:27'!
 
33757
someDrAction: aDocCode
 
33758
 
 
33759
        ^ self shouldBeImplemented ! !
33727
33760
DrGeoErudite initialize!
33728
33761
DrGDirectionItem initialize!