equal
deleted
inserted
replaced
120 "Created: 30.4.1996 / 14:43:45 / cg" |
120 "Created: 30.4.1996 / 14:43:45 / cg" |
121 ! |
121 ! |
122 |
122 |
123 openInClass:aClass selector:aSelector |
123 openInClass:aClass selector:aSelector |
124 "launch a standard browser which immediately switches |
124 "launch a standard browser which immediately switches |
125 to aClass>>aSelector." |
125 to aClass>>aSelector. Returns the browser" |
126 |
126 |
127 |brwsr classesName| |
127 |brwsr classesName| |
128 |
128 |
129 brwsr := self openOnDevice:(Screen current). |
129 brwsr := self openOnDevice:(Screen current). |
130 brwsr waitUntilVisible. |
130 brwsr waitUntilVisible. |
376 |
376 |
377 default |
377 default |
378 "convenient getter for the user's preference. |
378 "convenient getter for the user's preference. |
379 Returns his choice of browser class" |
379 Returns his choice of browser class" |
380 |
380 |
381 ^ UserPreferences current systemBrowserClass |
381 ^ UserPreferences systemBrowserClass |
382 |
382 |
383 " |
383 " |
384 SystemBrowser default open |
384 SystemBrowser default open |
385 " |
385 " |
386 ! |
386 ! |