Check-in [543f2597d0]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:added multiline text to label in demo2.ss
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:543f2597d0298f08d6d908939fd8d700ebd739c6
User & Date: aldo 2016-09-12 17:27:45
Context
2016-09-12
17:28
added basic keyboard support check-in: bcc0c5730e user: aldo tags: trunk
17:27
added multiline text to label in demo2.ss check-in: 543f2597d0 user: aldo tags: trunk
17:26
fixed multiline text label check-in: 5c8595d58b user: aldo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to demos/demo2.ss.

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
..
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
..
53
54
55
56
57
58
59
60
61
62
63

(include "miogui.ss")

(stylesheet '(  [button ==>
			(width 100) 
			(height 50) 
			(color red)
			(background-color (rgbf 0.1 0.1 0.8 1))
			(border-style solid)
			(border-color (rgbf 0 0 0.9 1))
			(border-width 1) 
			(border-radius 7)
			(padding 10)

			(text-align center)
			(transition-duration 0.2)]
		[(and button (: hover)) ==> 
		 (border-color green) (background-color (rgbf 0.2 0.2 0.9 1))]
		[(> button label) ==> (color white)]
		[(and button (: pressed)) ==>
		 (background-color (rgb 200 200 200)) 
................................................................................
		       (border-width 1) (border-color black)]
		[label ==>
		       (color black) (padding 5) 
		       (background-color white)]
		[slider ==> (height 20) (color black) (padding 2)]

		[(id panel-1) ==> 
		 (width 100 %) (height 89 %) (top 0) (left 0) (position absolute) 
		 (background-color (rgb 125 125 125))
		 (display flex)
		 (justify-content space-around)
		 (align-items center)
		 (flex-direction column)]
		[(id label1) ==>
		 (align-self stretch)
		 (height 50)]
		))


(init-sdl "buttons")

(miogui-user-render
 (lambda ()
................................................................................
	   (if (button 'button1 "BUTTON 1")
	       (printf "BUTTON 1 CLICKED!\n"))
	   
	   (if (button 'button2 (format "FRAME NUMBER: ~d" (mi-frame-number)))
	       (printf "BUTTON 2 CLICKED!\n"))
	   (when (button 'button3 (format "FPS: ~,2F" mi-stat-fps))
		 (printf "BUTTON3 CLICKED!\n"))
	   (label 'label1 "GOOD MORNING!")))
  (debug-tooltip)))

(miogui-run)



|
<
<







>







 







|






|
<







 







|



1
2
3
4


5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
..
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

41
42
43
44
45
46
47
..
51
52
53
54
55
56
57
58
59
60
61

(include "miogui.ss")

(stylesheet '(  [button ==> 


			(color red)
			(background-color (rgbf 0.1 0.1 0.8 1))
			(border-style solid)
			(border-color (rgbf 0 0 0.9 1))
			(border-width 1) 
			(border-radius 7)
			(padding 10)
			(font-size 15)
			(text-align center)
			(transition-duration 0.2)]
		[(and button (: hover)) ==> 
		 (border-color green) (background-color (rgbf 0.2 0.2 0.9 1))]
		[(> button label) ==> (color white)]
		[(and button (: pressed)) ==>
		 (background-color (rgb 200 200 200)) 
................................................................................
		       (border-width 1) (border-color black)]
		[label ==>
		       (color black) (padding 5) 
		       (background-color white)]
		[slider ==> (height 20) (color black) (padding 2)]

		[(id panel-1) ==> 
		 (width 640) (height 480) (top 0) (left 0) (position absolute) 
		 (background-color (rgb 125 125 125))
		 (display flex)
		 (justify-content space-around)
		 (align-items center)
		 (flex-direction column)]
		[(id label1) ==>
		 (align-self stretch)]

		))


(init-sdl "buttons")

(miogui-user-render
 (lambda ()
................................................................................
	   (if (button 'button1 "BUTTON 1")
	       (printf "BUTTON 1 CLICKED!\n"))
	   
	   (if (button 'button2 (format "FRAME NUMBER: ~d" (mi-frame-number)))
	       (printf "BUTTON 2 CLICKED!\n"))
	   (when (button 'button3 (format "FPS: ~,2F" mi-stat-fps))
		 (printf "BUTTON3 CLICKED!\n"))
	   (label 'label1 "1\nGOOD MORNING!\nLine 2\nLine 3\nLine 4")))
  (debug-tooltip)))

(miogui-run)