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
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')









>







15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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')


119
120
121
122
123
124
125


126
127
128
129
130
131
132
	$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







>
>







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
	$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