Class: VRVirtualDesktopForm

Inherits:
VRForm
  • Object
show all
Includes:
VRClosingSensitive, VRMenuUseable, VRTimerFeasible, VRTrayiconFeasible
Defined in:
lib/VRVirtualDesktopForm.rb

Overview

To do, add in list box control and send traces to it

Constant Summary collapse

OBJECT_DB_ICON_ID = 
1
SCREEN_ICON_ID_BASE = 
2
SC_MINIMIZE = 
0xF020

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.run_gui(restore) ⇒ Object

run this form



32
33
34
35
36
37
38
39
40
 
# File 'lib/VRVirtualDesktopForm.rb', line 32

def run_gui(restore)
  vrForm = VRLocalScreen.newform(nil, nil, VRVirtualDesktopForm)
  vrForm.exinit(restore).create.goto_tray
  begin
    VRLocalScreen.messageloop
  ensure
    vrForm.handle_exit
  end
end

Instance Method Details

#clean_tray ⇒ Object

clean the icon out of the tray



171
172
173
174
175
 
# File 'lib/VRVirtualDesktopForm.rb', line 171

def clean_tray
  $TRACE.debug 5, "cleaning tray"
  delete_trayicon(OBJECT_DB_ICON_ID)
  @virtual_desktops.delete_trayicons
end

#construct ⇒ Object

construct the form



46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
# File 'lib/VRVirtualDesktopForm.rb', line 46

def construct
  self.caption = @caption

  icon_filename = @icon_path + "/" + @icon_file
  $TRACE.debug 5, "icon filename = '#{icon_filename}'"
  @icon = VRLocalScreen.factory.iconfromfile(icon_filename)

  @window_manager = Win32::WindowManager.new
  @virtual_desktops = Win32::VirtualDesktops.new(self, @icon_path, SCREEN_ICON_ID_BASE, 6, @window_manager)
  $TRACE.debug 5, "at start windows = " + @window_manager.get_all_windows.values.map{|w| w.to_s}.join(",")

  # attempt to restore windows

  if @restore then
    begin 
      @virtual_desktops.restore
    rescue Errno::ENOENT
      # ignore this error

    end
  end

  # add any windows that weren't added on restore (if restore happened

  @window_manager.get_all_windows.each_value do |window|
    $TRACE.debug 5, "checking window: #{window}"
    #window.show

    unless @virtual_desktops.contains_window(window)
      $TRACE.debug 5, "adding window: #{window} to active desktop"
      @virtual_desktops.active_desktop.add_window(window)
    end
  end
  @virtual_desktops.save

  # set up menus

  fileMenu = 
      ["&File", 
          [
            ["E&xit","file_exit"]
          ]
        ]
  menus = [fileMenu]
   setMenu newMenu.set(menus)
  
  @tray_menu = newPopupMenu
  @tray_menu.set(@tray_menu_source)

    addTimer 500,"windowUpdate"
    
  # used add handler for minimize

  wm_syscommand = WMsg::WM_COMMAND+1
  addHandler wm_syscommand,"syscommand",MSGTYPE::ARGWINT,nil
  acceptEvents [wm_syscommand]
end

#exinit(restore, caption, icon_file, icon_path, tray_menu_additions = []) ⇒ Object

initialize this form



101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
# File 'lib/VRVirtualDesktopForm.rb', line 101

def exinit(restore, caption, icon_file, icon_path, tray_menu_additions=[])
  @exited = false
  @restore = restore
  @caption = caption
  @icon_file = icon_file
  @icon_path = icon_path

  @tray_menu_source = [
    ["Set Screen Name...", "set_screen_name"],
    ["Exit", "exit"]
  ]
  @tray_menu_source.insert(0, tray_menu_additions) unless tray_menu_additions.empty?
  self
end

#exit_clicked ⇒ Object

user clicked tray menu Exit



225
226
227
 
# File 'lib/VRVirtualDesktopForm.rb', line 225

def exit_clicked
  handle_close
end

#file_exit_clicked ⇒ Object

user clicked File | Exit



207
208
209
 
# File 'lib/VRVirtualDesktopForm.rb', line 207

def file_exit_clicked
  handle_close
end

#goto_tray ⇒ Object

enable the tray icon



147
148
149
150
151
152
153
 
# File 'lib/VRVirtualDesktopForm.rb', line 147

def goto_tray
  #return unless @displayed

  @virtual_desktops.create_trayicons
  create_trayicon(@icon.hicon, @caption, OBJECT_DB_ICON_ID)
  self.hide
  @displayed = false
end

#handle_close ⇒ Object

common handler for exit menu selections



240
241
242
243
244
245
 
# File 'lib/VRVirtualDesktopForm.rb', line 240

def handle_close
  if user_okays_close then
    handle_exit
    self.close
  end
end

#handle_exit ⇒ Object

handle exit of program by all methods



249
250
251
252
253
254
255
 
# File 'lib/VRVirtualDesktopForm.rb', line 249

def handle_exit
  return if @exited

  @exited = true
  @virtual_desktops.handle_exit
  clean_tray
end

#restore_clicked ⇒ Object

user clicked tray menu show ObjectDatabase



219
220
221
 
# File 'lib/VRVirtualDesktopForm.rb', line 219

def restore_clicked
  up_from_tray
end

#self_close ⇒ Object

user clicked close box



259
260
261
262
263
264
265
266
 
# File 'lib/VRVirtualDesktopForm.rb', line 259

def self_close
  # handle user clicks close box

  if user_okays_close then
    clean_tray
  else
    SKIP_DEFAULTHANDLER
  end
end

#self_syscommand(message_type) ⇒ Object

Handler for system commands



122
123
124
125
126
127
128
129
 
# File 'lib/VRVirtualDesktopForm.rb', line 122

def self_syscommand(message_type)
  $TRACE.debug 5, "message_type = #{message_type}"
  if message_type == SC_MINIMIZE then
    $TRACE.debug 5, "going to tray"
    goto_tray
    SKIP_DEFAULTHANDLER
  end
end

#self_traylbuttondown(iconid) ⇒ Object

this is called when left button is clicked on tray icon. we display the tray menu



181
182
183
184
185
186
187
188
 
# File 'lib/VRVirtualDesktopForm.rb', line 181

def self_traylbuttondown(iconid)
  case iconid
  when OBJECT_DB_ICON_ID
    showPopup @tray_menu
  else
    @virtual_desktops.change_desktop(iconid)
  end
end

#self_trayrbuttonup(iconid) ⇒ Object

this is called when right button is clicked on tray icon



193
194
195
196
197
198
199
200
 
# File 'lib/VRVirtualDesktopForm.rb', line 193

def self_trayrbuttonup(iconid)
  case iconid
  when OBJECT_DB_ICON_ID
    showPopup @tray_menu
  else
    @virtual_desktops.move_window(iconid)
  end
end

#set_screen_name_clicked ⇒ Object

allow the user to set screen names



213
214
215
 
# File 'lib/VRVirtualDesktopForm.rb', line 213

def set_screen_name_clicked
  @virtual_desktops.set_screen_name
end

#tray_clicked ⇒ Object

this is called when?



140
141
142
 
# File 'lib/VRVirtualDesktopForm.rb', line 140

def tray_clicked
  goto_tray
end

#up_from_tray ⇒ Object

show the window from the tray



158
159
160
161
162
163
164
165
166
 
# File 'lib/VRVirtualDesktopForm.rb', line 158

def up_from_tray
  return if @displayed
  # delete_trayicon(1)

  myexstyle = self.exwinstyle
  myexstyle.ws_ex_toolwindow = false
  myexstyle.ws_ex_appwindow = true
  self.show
  @displayed = true
end

#user_okays_close ⇒ Object

ask user if they are sure they want to quit



233
234
235
236
 
# File 'lib/VRVirtualDesktopForm.rb', line 233

def user_okays_close
  ret = messageBox("Are you sure you want to quit?", "Exit?", VRMessageBoxConst::MB_YESNO)
  ret == VRDialogComponent::IDYES
end

#windowUpdate_timer ⇒ Object 



131
132
133
 
# File 'lib/VRVirtualDesktopForm.rb', line 131

def windowUpdate_timer
  @virtual_desktops.periodic_timer
end