A simple Applet framework

This topic contains 2 replies, has 2 voices, and was last updated by Simon Armstrong 1 year, 9 months ago.

Viewing 3 posts - 1 through 3 (of 3 total)

Author

Posts

July 2, 2017 at 12:12 am #9076

Participant

' applet class 

' manage preferences by json in sdl generated prefpath
' remember window dimensions
' fullscreen toggle on F1
' long press on Escape to close

#Import "<std>"
#Import "<mojo>"
#Import "<sdl2>"

Using std..
Using mojo..
Using sdl2..

Extern 

Function SDL_GetPrefPath:Byte Ptr(org:CString,app:CString)

Public 

Global AppletName:="MyNewApplet"
Global AppletAuthor:="nitrologic"

Global prefsPath:=String.FromCString(SDL_GetPrefPath(AppletAuthor,AppletName))
Global prefsFile:=AppletName+".prefs.json"

Global DefaultWindowFlags:=WindowFlags.Resizable|WindowFlags.HighDPI


Class Applet

	Field hasPrefs:Bool
	Field windowRect:Recti
	Field windowFullscreen:Bool		
	Field window:AppWindow
	Field defaults:JsonObject

	Method New()
		LoadPrefs()
		Local title:=AppletName
		If hasPrefs
			window=New AppWindow(Self, windowRect, windowFullscreen, title)
		Else
			window=New AppWindow(Self, title)
		Endif
	End

	Method KeyDown(key:Key)
	End

	Method KeyUp(key:Key)		
	End

	Function TrueFalse:String(b:Bool)
		If b Return "true"
		Return "false"
	End
	
	Method DefaultNumber:Double(name:String)
		Return defaults?defaults.GetNumber(name) Else 0
	End

	Method LoadPrefs()	
		defaults=JsonObject.Load(prefsPath+prefsFile)

		Local prefs:=defaults

		If Not prefs
			Print "prefs not loaded from "+prefsPath			
			Local raw:=LoadString(prefsPath)
			Print "raw="+raw
			Return
		Endif

		If prefs.Contains("winRect")
			Local a:=prefs.GetArray("winRect")
			Local f:=prefs.GetBool("winFullscreen")
			Local x:=a.GetNumber(0)
			Local y:=a.GetNumber(1)
			Local w:=a.GetNumber(2)
			Local h:=a.GetNumber(3)
			If w<240 w=240
			If h<120 h=120
			windowRect=New Recti(x,y,x+w,y+h)
			windowFullscreen=f
			hasPrefs=True
			Print "prefs loaded r="+x+","+y+","+w+","+h+" f="+TrueFalse(f)
		Endif
		
	End

	Method OnFrame(window:Window)
		If window.Fullscreen
			windowFullscreen=True
		Else
			windowFullscreen=False
			windowRect=window.Frame
		Endif
	End

	Function JsonString:String(args:Stack<String>)
		Local s:String
		For Local i:=0 Until args.Length Step 2
			Local a:=args[i+0]
			Local b:=args[i+1]
			If i>0 s+=","
			s+="~q"+a+"~q:"+b
		Next
		Return "{"+s+"}"
	End

	Method OnClose()		
		Local winRect:="["+windowRect.X+","+windowRect.Y+","+windowRect.Width+","+windowRect.Height+"]"
		Local winFS:=windowFullscreen?"true"else"false"

		Local json:=New Stack<String>
		json.Add("winRect")
		json.Add(winRect)
		json.Add("winFullscreen")
		json.Add(winFS)
		
		' add app specific serialisation from prefs here

		If GetFileType(prefsPath)=FileType.None CreateDir(prefsPath)
		
		Local js:=JsonString(json)

		If Not SaveString(js, prefsPath+prefsFile)
			'Notify("Warning", "Unable to open "+path, False)
			Print "Unable to save prefs to "+prefsPath
			Return
		Endif
		Print "saved prefs as "+js+" in "+prefsPath
		App.Terminate()
	End


End


Class AppWindow Extends Window
	Field applet:Applet
	Field goFullscreen:Bool
			
	Method New(host:Applet, rect:Recti, fullscreen:bool, title:String)
		Super.New(title,rect, DefaultWindowFlags)		
		applet=host
		goFullscreen=fullscreen
		Create()
	End
	
	Method New(host:Applet, title:String)
		Super.New(title,800,600,DefaultWindowFlags)		
		applet=host
		Create()
	End

	Method OnRender( display:Canvas ) Override	
		If goFullscreen
			goFullscreen=False
			Fullscreen=True
		Endif
	End

	Method Create()
		applet.OnFrame(Self)
	End

	Method OnWindowEvent(event:WindowEvent) Override
		Select event.Type
			Case EventType.WindowClose
				applet.OnClose()
			Case EventType.WindowResized
				applet.OnFrame(Self)
			Case EventType.WindowMoved
				applet.OnFrame(Self)
		End
	End

	Field EscapeTime:Int
	
	Method EscapeDown()			
		EscapeTime=App.Millisecs
	End

	Method EscapeUp()			
		Local duration:=App.Millisecs-EscapeTime
		If duration>300
			applet.OnClose()
		Endif
	End

	Method OnKeyEvent( event:KeyEvent ) Override	
		Select event.Type
		Case EventType.KeyDown
			Select event.Key
			Case Key.F1
				Fullscreen = Not Fullscreen				
				applet.OnFrame(Self)
			Case Key.Escape
				EscapeDown()
			Default
				applet.KeyDown(event.Key)
			End
		Case EventType.KeyUp
			Select event.Key
			Case Key.Escape
				EscapeUp()
			Default
				applet.KeyUp(event.Key)
			End
		End
	End
End


Function Main()
	New AppInstance	
	New Applet
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

' applet class

' manage preferences by json in sdl generated prefpath

' remember window dimensions

' fullscreen toggle on F1

' long press on Escape to close

#Import "<std>"

#Import "<mojo>"

#Import "<sdl2>"

Using std..

Using mojo..

Using sdl2..

Extern

Function SDL_GetPrefPath:Byte Ptr(org:CString,app:CString)

Public

Global AppletName:="MyNewApplet"

Global AppletAuthor:="nitrologic"

Global prefsPath:=String.FromCString(SDL_GetPrefPath(AppletAuthor,AppletName))

Global prefsFile:=AppletName+".prefs.json"

Global DefaultWindowFlags:=WindowFlags.Resizable|WindowFlags.HighDPI

Class Applet

Field hasPrefs:Bool

Field windowRect:Recti

Field windowFullscreen:Bool

Field window:AppWindow

Field defaults:JsonObject

Method New()

LoadPrefs()

Local title:=AppletName

If hasPrefs

window=New AppWindow(Self, windowRect, windowFullscreen, title)

Else

window=New AppWindow(Self, title)

Endif

End

Method KeyDown(key:Key)

End

Method KeyUp(key:Key)

End

Function TrueFalse:String(b:Bool)

If b Return "true"

Return "false"

End

Method DefaultNumber:Double(name:String)

Return defaults?defaults.GetNumber(name) Else 0

End

Method LoadPrefs()

defaults=JsonObject.Load(prefsPath+prefsFile)

Local prefs:=defaults

If Not prefs

Print "prefs not loaded from "+prefsPath

Local raw:=LoadString(prefsPath)

Print "raw="+raw

Return

Endif

If prefs.Contains("winRect")

Local a:=prefs.GetArray("winRect")

Local f:=prefs.GetBool("winFullscreen")

Local x:=a.GetNumber(0)

Local y:=a.GetNumber(1)

Local w:=a.GetNumber(2)

Local h:=a.GetNumber(3)

If w<240 w=240

If h<120 h=120

windowRect=New Recti(x,y,x+w,y+h)

windowFullscreen=f

hasPrefs=True

Print "prefs loaded r="+x+","+y+","+w+","+h+" f="+TrueFalse(f)

Endif

End

Method OnFrame(window:Window)

If window.Fullscreen

windowFullscreen=True

Else

windowFullscreen=False

windowRect=window.Frame

Endif

End

Function JsonString:String(args:Stack<String>)

Local s:String

For Local i:=0 Until args.Length Step 2

Local a:=args[i+0]

Local b:=args[i+1]

If i>0 s+=","

s+="~q"+a+"~q:"+b

Return "{"+s+"}"

End

Method OnClose()

Local winRect:="["+windowRect.X+","+windowRect.Y+","+windowRect.Width+","+windowRect.Height+"]"

Local winFS:=windowFullscreen?"true"else"false"

Local json:=New Stack<String>

json.Add("winRect")

json.Add(winRect)

json.Add("winFullscreen")

json.Add(winFS)

' add app specific serialisation from prefs here

If GetFileType(prefsPath)=FileType.None CreateDir(prefsPath)

Local js:=JsonString(json)

If Not SaveString(js, prefsPath+prefsFile)

'Notify("Warning", "Unable to open "+path, False)

Print "Unable to save prefs to "+prefsPath

Return

Endif

Print "saved prefs as "+js+" in "+prefsPath

App.Terminate()

End

Class AppWindow Extends Window

Field applet:Applet

Field goFullscreen:Bool

Method New(host:Applet, rect:Recti, fullscreen:bool, title:String)

Super.New(title,rect, DefaultWindowFlags)

applet=host

goFullscreen=fullscreen

Create()

End

Method New(host:Applet, title:String)

Super.New(title,800,600,DefaultWindowFlags)

applet=host

Create()

End

Method OnRender( display:Canvas ) Override

If goFullscreen

goFullscreen=False

Fullscreen=True

Endif

End

Method Create()

applet.OnFrame(Self)

End

Method OnWindowEvent(event:WindowEvent) Override

Select event.Type

Case EventType.WindowClose

applet.OnClose()

Case EventType.WindowResized

applet.OnFrame(Self)

Case EventType.WindowMoved

applet.OnFrame(Self)

End

Field EscapeTime:Int

Method EscapeDown()

EscapeTime=App.Millisecs

End

Method EscapeUp()

Local duration:=App.Millisecs-EscapeTime

If duration>300

applet.OnClose()

Endif

End

Method OnKeyEvent( event:KeyEvent ) Override

Select event.Type

Case EventType.KeyDown

Select event.Key

Case Key.F1

Fullscreen = Not Fullscreen

applet.OnFrame(Self)

Case Key.Escape

EscapeDown()

Default

applet.KeyDown(event.Key)

End

Case EventType.KeyUp

Select event.Key

Case Key.Escape

EscapeUp()

Default

applet.KeyUp(event.Key)

End

Function Main()

New AppInstance

New Applet

App.Run()

End

July 2, 2017 at 5:14 am #9079

AdamStrange

Participant

interesting stuff, especially the bits about SDL_GetPrefPath. Something I was wanting to know how to do

July 3, 2017 at 9:33 pm #9111

Simon Armstrong

Participant

I was thinking version control would be a great feature with the base class calling itch.io with httprequest and automatically downloading any new builds.

Author

Posts

Viewing 3 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic.

A simple Applet framework

Archives

Recent Replies

What is this?