Stringscan

Check-in [0d4fb93e31]
Login

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

Overview
Comment:Fix for fullscreen after code changes on macOS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:0d4fb93e317f019ba0b9052e938335b0bef755731426f083ee5245b5a7231660
User & Date: kevin 2017-09-23 01:49:14
Context
2017-09-23
02:56
Update screen shots check-in: 90f7921dc6 user: kevin tags: trunk
01:49
Fix for fullscreen after code changes on macOS check-in: 0d4fb93e31 user: kevin tags: trunk
2017-09-22
03:00
User documentation update for 1.1 check-in: 701f3e2aed user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
...
281
282
283
284
285
286
287



288
289
290
291
292
293
294
    $searchterm = TkVariable.new
    #top window and frame
    Tk::TkDND::DND
    $root = TkRoot.new {
        title "Stringscan"
    }
    $root.iconphoto_default($icon)
    if $platform == 'aqua'
        Tk.tk_call('fullscreen::fullscreen', $root)
    end
        $root.withdraw
        #menu
    $menubar = TkMenu.new($root)
    TkOption.add '*tearOff', 0
    if $platform == 'aqua'
        $appmenu = TkSysMenu_Apple.new($menubar)
        $menubar.add :cascade, :menu => $appmenu
................................................................................
    $root.bind("#{$accelkey}-O", proc{choosedir})
    $root.bind("#{$accelkey}-o", proc{choosedir})
    $root.bind("#{$accelkey}-R", proc{stringgrep})
    $root.bind("#{$accelkey}-r", proc{stringgrep})

    $root.update
    $root.deiconify




end


#select search directory
def choosedir
    $tbox.configure('state'=>'normal')







|
<
<







 







>
>
>







137
138
139
140
141
142
143
144


145
146
147
148
149
150
151
...
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
    $searchterm = TkVariable.new
    #top window and frame
    Tk::TkDND::DND
    $root = TkRoot.new {
        title "Stringscan"
    }
    $root.iconphoto_default($icon)
   


        $root.withdraw
        #menu
    $menubar = TkMenu.new($root)
    TkOption.add '*tearOff', 0
    if $platform == 'aqua'
        $appmenu = TkSysMenu_Apple.new($menubar)
        $menubar.add :cascade, :menu => $appmenu
................................................................................
    $root.bind("#{$accelkey}-O", proc{choosedir})
    $root.bind("#{$accelkey}-o", proc{choosedir})
    $root.bind("#{$accelkey}-R", proc{stringgrep})
    $root.bind("#{$accelkey}-r", proc{stringgrep})

    $root.update
    $root.deiconify
     if $platform == 'aqua'
        Tk.tk_call('fullscreen::fullscreen', $root)
    end

end


#select search directory
def choosedir
    $tbox.configure('state'=>'normal')