Stringscan

Check-in [72f32b3a09]
Login

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

Overview
Comment:Add fullscreen API for Mac
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:72f32b3a09f31173de0b387e9f153b332518e542d9c7a9af82e88efc296349bf
User & Date: kevin 2017-07-07 04:04:37
Context
2017-07-08
02:50
Add batch scripts check-in: fe8657abf3 user: kevin tags: trunk
2017-07-07
04:04
Add fullscreen API for Mac check-in: 72f32b3a09 user: kevin tags: trunk
2017-06-25
02:51
Further tweaks of comments check-in: fadc0bf21b user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

15
16
17
18
19
20
21

22
23
24
25
26
27
28
...
119
120
121
122
123
124
125


126
127
128
129
130
131
132
if $platform == 'aqua'
	Tk::AUTO_PATH.list <<= File.dirname(__FILE__)
end


if $platform == 'aqua'
	TkPackage.require('windowlist')

end
TkPackage.require('regproc')
TkPackage.require('machelp')
TkPackage.require('softwareupdate')
TkPackage.require('xplat')


................................................................................
	$searchterm = TkVariable.new
	
	#top window and frame
	Tk::TkDND::DND
	$root = TkRoot.new {
		title "Stringscan"
	}


	
	#menu
	$menubar = TkMenu.new($root)
	TkOption.add '*tearOff', 0
	if $platform == 'aqua'
		$appmenu = TkSysMenu_Apple.new($menubar)
		$menubar.add :cascade, :menu => $appmenu







>







 







>
>







15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
...
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
if $platform == 'aqua'
	Tk::AUTO_PATH.list <<= File.dirname(__FILE__)
end


if $platform == 'aqua'
	TkPackage.require('windowlist')
	TkPackage.require('fullscreen')
end
TkPackage.require('regproc')
TkPackage.require('machelp')
TkPackage.require('softwareupdate')
TkPackage.require('xplat')


................................................................................
	$searchterm = TkVariable.new
	
	#top window and frame
	Tk::TkDND::DND
	$root = TkRoot.new {
		title "Stringscan"
	}
	
	Tk.tk_call('fullscreen::fullscreen', $root)
	
	#menu
	$menubar = TkMenu.new($root)
	TkOption.add '*tearOff', 0
	if $platform == 'aqua'
		$appmenu = TkSysMenu_Apple.new($menubar)
		$menubar.add :cascade, :menu => $appmenu