← Back to branch summary

~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/DrGeoTablet.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2012-01-27 21:15:40 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20120127211540-912spf97bhpx6mve
Initial additions

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/DrGeoTablet.pck.st
1
 
'From Cuis 6.0 [latest update: #5448] on 16 August 2022 at 12:00:54 pm'!
2
 
'Description '!
3
 
!provides: 'DrGeoTablet' 1 1!
4
 
!requires: 'DrGeo' 1 430 nil!
5
 
SystemOrganization addCategory: 'DrGeoTablet'!
6
 
 
7
 
 
8
 
!classDefinition: #DrGTablet category: 'DrGeoTablet'!
9
 
DrGPlatform subclass: #DrGTablet
10
 
        instanceVariableNames: 'wheelHeight'
11
 
        classVariableNames: ''
12
 
        poolDictionaries: ''
13
 
        category: 'DrGeoTablet'!
14
 
!classDefinition: 'DrGTablet class' category: 'DrGeoTablet'!
15
 
DrGTablet class
16
 
        instanceVariableNames: ''!
17
 
 
18
 
!classDefinition: #DrGAndroid category: 'DrGeoTablet'!
19
 
DrGTablet subclass: #DrGAndroid
20
 
        instanceVariableNames: ''
21
 
        classVariableNames: ''
22
 
        poolDictionaries: ''
23
 
        category: 'DrGeoTablet'!
24
 
!classDefinition: 'DrGAndroid class' category: 'DrGeoTablet'!
25
 
DrGAndroid class
26
 
        instanceVariableNames: ''!
27
 
 
28
 
!classDefinition: #DrGiPad category: 'DrGeoTablet'!
29
 
DrGTablet subclass: #DrGiPad
30
 
        instanceVariableNames: ''
31
 
        classVariableNames: ''
32
 
        poolDictionaries: ''
33
 
        category: 'DrGeoTablet'!
34
 
!classDefinition: 'DrGiPad class' category: 'DrGeoTablet'!
35
 
DrGiPad class
36
 
        instanceVariableNames: ''!
37
 
 
38
 
 
39
 
!DrGTablet commentStamp: '' prior: 0!
40
 
Preferences common to tablets!
41
 
 
42
 
!DrGAndroid commentStamp: '' prior: 0!
43
 
Preferences for Android tablet!
44
 
 
45
 
!DrGiPad commentStamp: '' prior: 0!
46
 
Preferences for iPad tablet!
47
 
 
48
 
!DrGTablet methodsFor: 'initialize-release'!
49
 
reset
50
 
        super reset.
51
 
        wheelHeight _ nil! !
52
 
 
53
 
!DrGTablet methodsFor: 'initialize-release' stamp: 'hlsf 4/10/2022 15:04:23'!
54
 
startUp
55
 
        super startUp.
56
 
        self splash.
57
 
        (WorldMorph submorphs anySatisfy: [:morph | morph class == DrGeoView]) ifFalse:
58
 
                [DrGeo newFullscreen]! !
59
 
 
60
 
!DrGTablet methodsFor: 'user interface'!
61
 
wheelHeight
62
 
        ^ wheelHeight ifNil: [ |maxWheelHeight|
63
 
                maxWheelHeight _ (Display height - (3.4 * self toolbarIconSize) - 32 - self wheelWidth) // 2.
64
 
                wheelHeight _ 180 min: maxWheelHeight]! !
65
 
 
66
 
!DrGTablet methodsFor: 'user interface'!
67
 
wheelWidth
68
 
        ^ 55! !
69
 
 
70
 
!DrGTablet methodsFor: 'font'!
71
 
canvasFontSize
72
 
        ^ 12! !
73
 
 
74
 
!DrGTablet methodsFor: 'font'!
75
 
setFontPreferences
76
 
        StandardFonts codeFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
77
 
        StandardFonts listFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 14).
78
 
        StandardFonts menuFont: (LogicalFont familyName: DrGeoSystem fontName pointSize: 14).
79
 
        StandardFonts windowTitleFont: (LogicalFont familyName: DrGeoSystem fontName pointSize: 14).
80
 
        StandardFonts balloonFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
81
 
        StandardFonts haloFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
82
 
        StandardFonts buttonFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 16).
83
 
        StandardFonts defaultFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 14).
84
 
! !
85
 
 
86
 
!DrGAndroid methodsFor: 'initialize-release' stamp: 'hlsf 4/21/2020 21:32:20'!
87
 
initialize
88
 
        canWeDisplaySpinner _ true.
89
 
        WorldState desktopMenuTitle: 'Dr. Geo'.
90
 
        WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.
91
 
        PolymorphSystemSettings uiThemeClass:  DrGeoTheme.
92
 
        UITheme currentSettings fastDragging: true.
93
 
        UITheme currentSettings fadedBackgroundWindows: false.
94
 
        SystemWindow fullscreenMargin: 0.
95
 
        UITheme currentSettings preferRoundCorner: false.
96
 
 
97
 
        TaskbarMorph showTaskbar: false.
98
 
        World color: Color white.! !
99
 
 
100
 
!DrGAndroid methodsFor: 'initialize-release'!
101
 
startUp 
102
 
        super startUp.
103
 
        (Smalltalk at: #Android) setVMTimerInterval: 100! !
104
 
 
105
 
!DrGAndroid methodsFor: 'user interface'!
106
 
showVirtualKeyboard: boolean
107
 
        (Smalltalk at: #Android) onScreenKbd: (boolean ifTrue: [1] ifFalse: [0])! !
108
 
 
109
 
!DrGAndroid methodsFor: 'user interface'!
110
 
toolbarIconSize
111
 
        toolbarIconSize
112
 
                ifNil: [ toolbarIconSize _ (Display height - 110) / 12 truncateTo: 4.
113
 
                        toolbarIconSize _ toolbarIconSize min: 48 max: 12].
114
 
        ^ toolbarIconSize! !
115
 
 
116
 
!DrGAndroid methodsFor: 'path'!
117
 
mySketchesPath
118
 
        ^ ((Smalltalk at: #Android) getSDCardRoot), '/MySketches'.! !
119
 
 
120
 
!DrGAndroid methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:43:02'!
121
 
rootPath
122
 
        ^  DirectoryEntry smalltalkImageDirectory! !
123
 
 
124
 
!DrGAndroid methodsFor: 'testing'!
125
 
isAndroid
126
 
        ^ true! !
127
 
 
128
 
!DrGiPad methodsFor: 'initialize-release' stamp: 'hlsf 4/21/2020 21:32:20'!
129
 
initialize
130
 
        canWeDisplaySpinner _ true.
131
 
        WorldState desktopMenuTitle: 'Dr. Geo'.
132
 
        WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.
133
 
 
134
 
        PolymorphSystemSettings uiThemeClass:  DrGeoTheme.
135
 
        UITheme currentSettings fastDragging: true.
136
 
        UITheme currentSettings fadedBackgroundWindows: false.
137
 
        SystemWindow fullscreenMargin: 0.
138
 
        UITheme currentSettings preferRoundCorner: false.
139
 
 
140
 
        TaskbarMorph showTaskbar: false.
141
 
        World color: Color white.
142
 
"       HostWindowProxy basicNew primitiveWindowSize: 1 x: 1024 y: 768. " "does not work when building from Linux"
143
 
"       World doOneCycleNow.
144
 
        DrGeo new view extent: 1024@768; position: 0@0."! !
145
 
 
146
 
!DrGiPad methodsFor: 'initialize-release'!
147
 
startUp
148
 
        GetTextTranslator userDefaultLocaleDirs add: self localePath.
149
 
        NaturalLanguageTranslator privateStartUp.
150
 
        super startUp.
151
 
! !
152
 
 
153
 
!DrGiPad methodsFor: 'as yet unclassified'!
154
 
openURI: aString
155
 
        | sharedApp nsUrl |
156
 
        sharedApp _ ((Smalltalk at: #ObjectiveCBridge) classObjectForName: #UIApplication) sharedApplication.
157
 
        nsUrl _ (Smalltalk at: #ObjectiveCBridge) classObjectForName: #NSURL.
158
 
        sharedApp openURL: (nsUrl URLWithString: aString asNSStringUTF8).
159
 
        
160
 
        "(ObjectiveCBridge  classObjectForName: #UIApplication) sharedApplication 
161
 
                openURL: ((ObjectiveCBridge classObjectForName: #NSURL) URLWithString: 'http://www.drgeo.eu' asNSStringUTF8)"! !
162
 
 
163
 
!DrGiPad methodsFor: 'testing'!
164
 
isiPad
165
 
        ^ true! !
166
 
 
167
 
!DrGiPad methodsFor: 'path'!
168
 
localePath
169
 
        ^ self rootPath / 'locale'! !
170
 
 
171
 
!DrGiPad methodsFor: 'path'!
172
 
mySketchesPath
173
 
        | path |
174
 
        path _ self sandboxPath asFileReference / 'MySketches'.
175
 
        ^path fullName
176
 
! !
177
 
 
178
 
!DrGiPad methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:43:33'!
179
 
rootPath
180
 
        ^ DirectoryEntry smalltalkImageDirectory! !
181
 
 
182
 
!DrGiPad methodsFor: 'path'!
183
 
sandboxPath
184
 
        | path |
185
 
        path _ self rootPath  parent / 'Documents'.
186
 
        path ensureDirectory.
187
 
        ^path fullName! !
188
 
 
189
 
!DrGiPad methodsFor: 'user interface'!
190
 
showVirtualKeyboard: boolean
191
 
        (Smalltalk at: #IPhonePlatform) showKeyboard: boolean! !
192
 
 
193
 
!DrGiPad methodsFor: 'user interface'!
194
 
toolbarIconSize
195
 
        ^ 40! !
196
 
 
197
 
!DrGeoSystem class methodsFor: '*DrGeoTablet'!
198
 
beAndroid
199
 
        "self beAndroid"
200
 
        platform _ DrGAndroid new.
201
 
        self addStartUp! !
202
 
 
203
 
!DrGeoSystem class methodsFor: '*DrGeoTablet'!
204
 
beiPad
205
 
        "self beiPad"
206
 
        platform _ DrGiPad new.
207
 
        self addStartUp! !