← 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: 2023-11-23 16:53:12 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20231123165312-nddt8asmdbtq823c
Several bug fixes

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/DrGeo.pck.st
1
 
'From Cuis 6.0 [latest update: #6068] on 19 November 2023 at 9:56:20 pm'!
 
1
'From Cuis 6.0 [latest update: #6079] on 23 November 2023 at 5:52:33 pm'!
2
2
'Description '!
3
 
!provides: 'DrGeo' 1 654!
 
3
!provides: 'DrGeo' 1 655!
4
4
!requires: 'Gettext' 1 17 nil!
5
5
!requires: 'SVG' 1 16 nil!
6
6
!requires: 'YAXO' 1 19 nil!
6480
6480
        DrGeoSystem stopSpinner.
6481
6481
        ^ panel! !
6482
6482
 
6483
 
!DrGFileOpenMorph methodsFor: 'GUI building' stamp: 'hlsf 8/3/2023 23:22:27'!
 
6483
!DrGFileOpenMorph methodsFor: 'GUI building' stamp: 'hlsf 11/23/2023 17:50:41'!
6484
6484
computePreviewFor: aSketchFile
6485
6485
        | stream drgeo form |
6486
6486
        stream := aSketchFile readStream.
6489
6489
                ensure: [stream close].
6490
6490
        drgeo 
6491
6491
                ifNil: [form := Form extent: 1@1] 
6492
 
                ifNotNil: [drgeo presenter previewOnFile: ((aSketchFile pathName allButLast: 4), 'png') asFileEntry     ].
 
6492
                ifNotNil: [drgeo previewOnFile: ((aSketchFile pathName allButLast: 4), 'png') asFileEntry       ].
6493
6493
        ^ form! !
6494
6494
 
6495
6495
!DrGFileOpenMorph methodsFor: 'GUI building' stamp: 'hlsf 4/11/2022 21:24:20'!
7088
7088
        
7089
7089
        ^true! !
7090
7090
 
7091
 
!DrGSmalltalkSketchBrowser methodsFor: 'user interface support' stamp: 'hlsf 8/3/2023 18:19:23'!
 
7091
!DrGSmalltalkSketchBrowser methodsFor: 'user interface support' stamp: 'hlsf 11/23/2023 17:27:51'!
7092
7092
styleByParagraphs
7093
 
        ^ true! !
 
7093
        ^ false! !
7094
7094
 
7095
7095
!DrGSmalltalkSketchBrowser methodsFor: 'user interface support' stamp: 'hlsf 4/12/2022 23:25:32'!
7096
7096
textStylerClassFor: object
7320
7320
        
7321
7321
        ^true! !
7322
7322
 
7323
 
!DrGSmalltalkSketchEditor methodsFor: 'user interface support' stamp: 'hlsf 8/3/2023 18:15:40'!
 
7323
!DrGSmalltalkSketchEditor methodsFor: 'user interface support' stamp: 'hlsf 11/23/2023 17:27:30'!
7324
7324
styleByParagraphs
7325
 
        ^ true! !
 
7325
        ^ false! !
7326
7326
 
7327
7327
!DrGSmalltalkSketchEditor methodsFor: 'user interface support' stamp: 'hlsf 4/14/2022 16:40:27'!
7328
7328
textStylerClassFor: object