gst-visualgst/GtkAssistant.st at master · mathk/gst-visualgst · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
GtkBrowsingTool subclass: GtkAssistant [

    GtkAssistant class >> open [
	<category: 'user interface'>

	^ self openSized: 450@375
    ]

    accelPath [
        <category: 'accelerator path'>

        ^ '<Assistant>'
    ]

    windowTitle [
	^ 'Assistant'
    ]

    aboutTitle [
	^ 'About Assistant'
    ]

    buildCentralWidget [
	<category: 'intialize-release'>

        | webview |

        webview := GtkWebView new
                        openUrl: 'http://library.gnome.org/devel/gtk/stable/index.html';
                        showAll;
                        yourself.

	^ (GTK.GtkScrolledWindow withChild: webview)
	    showAll;
	    yourself
    ]

    hasChanged [
	<comment: 'I have to implement that. But I have nothing to do.'>

	^ false
    ]
]