1973 we use labels:selectors:receiver: here: |
1973 we use labels:selectors:receiver: here: |
1974 " |
1974 " |
1975 m := myMenu menuAt:#demos. |
1975 m := myMenu menuAt:#demos. |
1976 m subMenuAt:#games |
1976 m subMenuAt:#games |
1977 put:(PopUpMenu |
1977 put:(PopUpMenu |
1978 labels:(resources array:#( |
1978 itemList:#( |
1979 'Tetris' |
1979 ('Tetris' startTetris ) |
1980 'Tic Tac Toe' |
1980 ('Tic Tac Toe' startTicTacToe ) |
1981 'Tic Tac Toe (2 players)' |
1981 ('Tic Tac Toe (2 players)' startTicTacToe2 ) |
1982 )) |
1982 ) |
1983 selectors:#( |
1983 resources:resources). |
1984 startTetris |
|
1985 startTicTacToe |
|
1986 startTicTacToe2 |
|
1987 ) |
|
1988 receiver:self). |
|
1989 |
1984 |
1990 " |
1985 " |
1991 and labels:selector:args:receiver: here: |
1986 and labels:selector:args:receiver: here: |
1992 " |
1987 " |
1993 m subMenuAt:#geometricDesigns |
1988 m subMenuAt:#geometricDesigns |
1994 put:(PopUpMenu |
1989 put:(PopUpMenu |
1995 labels:(resources array:#( |
1990 itemList:#( |
1996 'Pen demo' |
1991 ('Pen demo' #openDemo: nil PenDemo ) |
1997 'Commander demo' |
1992 ('Commander demo' #openDemo: nil CommanderDemo ) |
1998 '-' |
1993 ('-' ) |
1999 'Mandelbrot demo' |
1994 ('Mandelbrot demo' #openDemo: nil ComplexIterationView ) |
2000 'Fractal plants demo' |
1995 ('Fractal plants demo' #openDemo: nil FractalPlantsDemo ) |
2001 'Fractal patterns demo' |
1996 ('Fractal patterns demo' #openDemo: nil FractalPatternsDemo ) |
2002 'more fractal patterns demo' |
1997 ('more fractal patterns demo' #openDemo: nil ArmchairUniverseDemo ) |
2003 )) |
1998 ) |
2004 selector:#openDemo: |
1999 resources:resources). |
2005 args:#( |
|
2006 PenDemo |
|
2007 CommanderDemo |
|
2008 nil |
|
2009 ComplexIterationView |
|
2010 FractalPlantsDemo |
|
2011 FractalPatternsDemo |
|
2012 ArmchairUniverseDemo |
|
2013 ) |
|
2014 receiver:self). |
|
2015 |
2000 |
2016 m subMenuAt:#simpleAnimations |
2001 m subMenuAt:#simpleAnimations |
2017 put:(PopUpMenu |
2002 put:(PopUpMenu |
2018 labels:(resources array:#( |
2003 itemList:#( |
2019 'Animation' |
2004 ('Animation' #openDemo nil Animation ) |
2020 'Globe demo' |
2005 ('Globe demo' #openDemo nil GlobeDemo ) |
2021 )) |
2006 ) |
2022 selector:#openDemo: |
2007 resources:resources). |
2023 args:#( |
|
2024 Animation |
|
2025 GlobeDemo |
|
2026 ) |
|
2027 receiver:self). |
|
2028 |
2008 |
2029 m subMenuAt:#'3Dgraphics' |
2009 m subMenuAt:#'3Dgraphics' |
2030 put:(PopUpMenu |
2010 put:(PopUpMenu |
2031 labels:(resources |
2011 itemList:#( |
2032 array:#( |
2012 ('plane' #openDemo: nil GLPlaneDemoView2 ) |
2033 'plane' |
2013 ('tetra' #openDemo: nil GLTetraDemoView ) |
2034 'tetra' |
2014 ('cube (wireframe)' #openDemo: nil GLWireCubeDemoView ) |
2035 'cube (wireframe)' |
2015 ('cube (solid)' #openDemo: nil GLCubeDemoView ) |
2036 'cube (solid)' |
2016 ('sphere (wireframe)' #openDemo: nil GLWireSphereDemoView ) |
2037 'sphere (wireframe)' |
2017 ('doughnut (wireframe)' #openDemo: nil GLDoughnutDemoView ) |
2038 'doughnut (wireframe)' |
2018 ('planet' #openDemo: nil GLPlanetDemoView ) |
2039 'planet' |
2019 ('teapot' #openDemo: nil GLTeapotDemo ) |
2040 'teapot' |
2020 ('logo' #openDemo: nil Logo3DView1 ) |
2041 'logo' |
2021 ('rubics cube' #openDemo: nil RubicsCubeView ) |
2042 'rubics cube' |
2022 ('x/y graph' #openDemo: nil GLXYGraph ) |
2043 'x/y graph' |
2023 ('x/y graph widget' #openDemo: nil #'CodingExamples_GUI::GLXYGraph3DDemo' ) |
2044 'x/y graph widget' |
2024 ('x/y graph animated' #openDemo: nil #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo') |
2045 'x/y graph animated' |
2025 ('-' ) |
2046 '-' |
2026 ('cube (light)' #openDemo: nil GLCubeDemoView2 ) |
2047 'cube (light)' |
2027 ('cube (light & texture)' #openDemo: nil GLBrickCubeDemoView ) |
2048 'cube (light & texture)' |
2028 ('sphere (light)' #openDemo: nil GLSphereDemoView2 ) |
2049 'sphere (light)' |
2029 ('colored octahedron' #openDemo: nil GLOctaHedronDemoView ) |
2050 'colored octahedron' |
2030 ) |
2051 )) |
2031 resources:resources). |
2052 selector:#openDemo: |
|
2053 args:#( |
|
2054 GLPlaneDemoView2 |
|
2055 GLTetraDemoView |
|
2056 GLWireCubeDemoView |
|
2057 GLCubeDemoView |
|
2058 GLWireSphereDemoView |
|
2059 GLDoughnutDemoView |
|
2060 GLPlanetDemoView |
|
2061 GLTeapotDemo |
|
2062 Logo3DView1 |
|
2063 RubicsCubeView |
|
2064 GLXYGraph |
|
2065 #'CodingExamples_GUI::GLXYGraph3DDemo' |
|
2066 #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo' |
|
2067 nil |
|
2068 GLCubeDemoView2 |
|
2069 GLBrickCubeDemoView |
|
2070 GLSphereDemoView2 |
|
2071 GLOctaHedronDemoView |
|
2072 ) |
|
2073 receiver:self). |
|
2074 |
2032 |
2075 m subMenuAt:#graphicEditors |
2033 m subMenuAt:#graphicEditors |
2076 put:(PopUpMenu |
2034 put:(PopUpMenu |
2077 labels:(resources array:#( |
2035 itemList:#( |
2078 'DrawTool' |
2036 ('DrawTool' #openDemo: nil DrawTool ) |
2079 'LogicTool' |
2037 ('LogicTool' #openDemo: nil LogicTool ) |
2080 'Paint Demo' |
2038 ('Paint Demo' #openDemo: nil ColorDrawDemo3 ) |
2081 )) |
2039 ) |
2082 selector:#openDemo: |
2040 resources:resources). |
2083 args:#( |
|
2084 DrawTool |
|
2085 LogicTool |
|
2086 ColorDrawDemo3 |
|
2087 ) |
|
2088 receiver:self). |
|
2089 |
2041 |
2090 m subMenuAt:#goodies |
2042 m subMenuAt:#goodies |
2091 put:(PopUpMenu |
2043 put:(PopUpMenu |
2092 labels:(resources array:#( |
2044 itemList:#( |
2093 'clock' |
2045 ('clock' #openDemo: nil Clock ) |
2094 'digital clock' |
2046 ('digital clock' #openDemo: nil DigitalClockView ) |
2095 'calendar' |
2047 ('calendar' #openDemo: nil Calendar ) |
2096 'calculator' |
2048 ('calculator' #openDemo: nil CalculatorView ) |
2097 '-' |
2049 ('-' ) |
2098 'mail tool' |
2050 ('mail tool' #openDemo: nil MailView ) |
2099 'news tool' |
2051 ('news tool' #openDemo: nil NewsView ) |
2100 'ftp tool' |
2052 ('ftp tool' #openDemo: nil FTPTool ) |
2101 )) |
2053 ) |
2102 selector:#openDemo: |
2054 resources:resources). |
2103 args:#( |
|
2104 Clock |
|
2105 DigitalClockView |
|
2106 Calendar |
|
2107 CalculatorView |
|
2108 nil |
|
2109 MailView |
|
2110 NewsView |
|
2111 FTPTool |
|
2112 ) |
|
2113 receiver:self). |
|
2114 |
2055 |
2115 "Modified: / 9.7.1998 / 22:27:10 / cg" |
2056 "Modified: / 9.7.1998 / 22:27:10 / cg" |
2116 ! |
2057 ! |
2117 |
2058 |
2118 setupFileMenu |
2059 setupFileMenu |
2414 |
2355 |
2415 |
2356 |
2416 m := myMenu menuAt:#tools. |
2357 m := myMenu menuAt:#tools. |
2417 m subMenuAt:#monitors |
2358 m subMenuAt:#monitors |
2418 put:(PopUpMenu |
2359 put:(PopUpMenu |
2419 labels:(resources array:#( |
2360 itemList:#( |
2420 'process' |
2361 ('process' #startApplication: nil #ProcessMonitor ) |
2421 'semaphores' |
2362 ('semaphores' #startApplication: nil #SemaphoreMonitor ) |
2422 'memory' |
2363 ('memory' #startApplication: nil #MemoryMonitor ) |
2423 'irq latency' |
2364 ('irq latency' #startApplication: nil #InterruptLatencyMonitor ) |
2424 'event view' |
2365 ('event view' #startApplication: nil #EventMonitor ) |
2425 'event trace' |
2366 ('event trace' #startApplication: nil #StopEventTrace ) |
2426 '-' |
2367 ('-' ) |
2427 'memory usage' |
2368 ('memory usage' #startApplication: nil #MemoryUsageView ) |
2428 )) |
2369 ) |
2429 selectors:#( |
2370 resources:resources). |
2430 #startApplication: |
|
2431 #startApplication: |
|
2432 #startApplication: |
|
2433 #startApplication: |
|
2434 #startApplication: |
|
2435 #startStopEventTrace |
|
2436 nil |
|
2437 #startApplication: |
|
2438 ) |
|
2439 args:#( |
|
2440 #ProcessMonitor |
|
2441 #SemaphoreMonitor |
|
2442 #MemoryMonitor |
|
2443 #InterruptLatencyMonitor |
|
2444 #EventMonitor |
|
2445 #StopEventTrace |
|
2446 nil |
|
2447 #MemoryUsageView |
|
2448 ) |
|
2449 receiver:self). |
|
2450 |
2371 |
2451 m subMenuAt:#views |
2372 m subMenuAt:#views |
2452 put:(PopUpMenu |
2373 put:(PopUpMenu |
2453 labels:(resources array:#( |
2374 itemList:#( |
2454 'iconify all' |
2375 ('iconify all' #iconifyAllWindows ) |
2455 'de-iconify all' |
2376 ('de-iconify all' #deIconifyAllWindows ) |
2456 '-' |
2377 ('-' ) |
2457 'find & raise ...' |
2378 ('find & raise ...' #findAndRaiseWindow ) |
2458 '-' |
2379 ('-' ) |
2459 'view tree (all views)' |
2380 ('view tree (all views)' #startFullWindowTreeView ) |
2460 'view tree' |
2381 ('view tree' #startWindowTreeView ) |
2461 '-' |
2382 ('-' ) |
2462 'select & inspect view' |
2383 ('select & inspect view' #viewInspect ) |
2463 '-' |
2384 ('-' ) |
2464 'select & destroy view' |
2385 ('select & destroy view' #viewDestroy ) |
2465 'find & destroy ...' |
2386 ('find & destroy ...' #findAndDestroyWindow ) |
2466 )) |
2387 ) |
2467 selectors:#( |
2388 resources:resources). |
2468 #iconifyAllWindows |
|
2469 #deIconifyAllWindows |
|
2470 nil |
|
2471 #findAndRaiseWindow |
|
2472 nil |
|
2473 #startFullWindowTreeView |
|
2474 #startWindowTreeView |
|
2475 nil |
|
2476 #viewInspect |
|
2477 nil |
|
2478 #viewDestroy |
|
2479 #findAndDestroyWindow |
|
2480 ) |
|
2481 receiver:self). |
|
2482 |
2389 |
2483 m subMenuAt:#misc |
2390 m subMenuAt:#misc |
2484 put:(PopUpMenu |
2391 put:(PopUpMenu |
2485 labels:(resources array:#( |
2392 itemList:#( |
2486 'garbage collect' |
2393 ('garbage collect' #garbageCollect ) |
2487 'garbage collect & compress' |
2394 ('garbage collect & compress' #compressingGarbageCollect ) |
2488 )) |
2395 ) |
2489 selectors:#( |
2396 resources:resources). |
2490 #garbageCollect |
|
2491 #compressingGarbageCollect |
|
2492 ) |
|
2493 receiver:self). |
|
2494 |
2397 |
2495 m subMenuAt:#hardcopy |
2398 m subMenuAt:#hardcopy |
2496 put:(PopUpMenu |
2399 put:(PopUpMenu |
2497 labels:(resources array:#( |
2400 itemList:#( |
2498 'screen' |
2401 ('screen' #fullScreenHardcopy ) |
2499 'area' |
2402 ('area' #screenHardcopy ) |
2500 'view' |
2403 ('view' #viewHardcopy ) |
2501 )) |
2404 ) |
2502 selectors:#( |
2405 resources:resources). |
2503 #fullScreenHardcopy |
|
2504 #screenHardcopy |
|
2505 #viewHardcopy |
|
2506 ) |
|
2507 receiver:self). |
|
2508 |
2406 |
2509 "Modified: / 31.10.1997 / 16:01:53 / cg" |
2407 "Modified: / 31.10.1997 / 16:01:53 / cg" |
2510 "Modified: / 19.12.1997 / 13:15:27 / stefan" |
2408 "Modified: / 19.12.1997 / 13:15:27 / stefan" |
2511 ! ! |
2409 ! ! |
2512 |
2410 |