Changeset 25077 for gs3-extensions
- Timestamp:
- 2012-02-13T17:02:43+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/html-to-expeditee/trunk/src/bin/script/keyboard.pl
r25056 r25077 228 228 my $searchBoxText = "Search text goes here"; 229 229 230 my $textAttr = {}; 231 $textAttr->{'f'} = "tb30"; 232 233 $expeditee_frame_io->addText($x,$y,$searchBoxText,undef,$textAttr); 234 235 #add button images for 'Search' button and 'Reset' button. 230 my $searchTextAttr = {}; 231 $searchTextAttr->{'f'} = "tb30"; 232 $searchTextAttr->{'D'} = "search text"; 233 234 $expeditee_frame_io->addText($x,$y,$searchBoxText,undef,$searchTextAttr); 235 236 #add button images for 'Search' button,'Reset' button & 'Constraint Search' button. 236 237 $x = ($x - 5) + $xr + 10; 237 238 $y -= 55; #reset y to original value so buttons align with search box. 238 239 240 my $textAttr = {}; 239 241 $textAttr->{'X'} = "runFrame"; 240 242 $textAttr->{'x'} = "false"; #set action mark. … … 252 254 253 255 my $searchBtnText = "Search"; 254 $textAttr->{'d'} = "100 100 100"; #set text color256 $textAttr->{'d'} = "100 100 100"; #set text color 255 257 $expeditee_frame_io->addText($x,$y,$searchBtnText,undef,$textAttr); 256 258 … … 265 267 my $resetBtnText = "Reset"; 266 268 267 $expeditee_frame_io->addText($x,$y,$resetBtnText,undef,$textAttr); 269 $expeditee_frame_io->addText($x,$y,$resetBtnText,undef,$textAttr); 270 271 $x += 160; 272 273 my $constraintsBtnText = "Constraints"; 274 $textAttr->{'F'} = "Keyboard-Actions52"; #link to frame containing Constraint Search code. 275 $expeditee_frame_io->addText($x,$y,$constraintsBtnText,undef,$textAttr); 276 277 $x = ($x - 25 - 160) + $width + 10; 278 $y -= 55; 279 $expeditee_frame_io->addText($x,$y,$imgBtn,undef,$textAttr); 268 280 269 281 } … … 278 290 sub add_key 279 291 { 280 my ($expeditee_frame_io,$label,$char,$x,$y ) =@_;292 my ($expeditee_frame_io,$label,$char,$x,$y,$fn) =@_; 281 293 282 294 my $imgBtn = ""; … … 308 320 elsif(($label eq "macron") || ($label eq "shift")) { 309 321 310 322 my $yellowText = "100 84 16"; 311 323 $imgBtn = "\@i: images/buttons/key_special.png"; 312 324 313 325 $textAttr->{'f'} = "tb32"; 326 327 if($fn == 2 && $label eq "shift") { 328 $textAttr->{'d'} = $yellowText; 329 } 330 elsif($fn == 3 && $label eq "macron") { 331 $textAttr->{'d'} = $yellowText; 332 } 333 elsif($fn == 4) { 334 $textAttr->{'d'} = $yellowText; 335 } 336 314 337 $width = 145; 315 338 316 339 } 317 elsif($label eq "Bksp") {340 elsif($label eq "Bksp") { 318 341 319 342 $imgBtn = "\@i: images/buttons/key_bksp.png"; … … 348 371 if($label eq "macron") { 349 372 $xl += 10; 350 $yt += 55;351 373 } 352 374 elsif($label eq "shift") { 353 375 $xl += 35; 354 $yt += 55;355 376 } 356 377 elsif($label eq "Bksp") { 357 $xl += 55; 358 $yt += 50; 378 $xl += 50; 359 379 } 360 380 else { 361 381 $xl += 20; 362 $yt += 55; 363 } 364 365 382 } 383 384 $yt += 55; 366 385 367 386 … … 410 429 if ($letter_rec_type eq "") { 411 430 my $letter = $letter_rec; 412 add_key($expeditee_frame_io,$letter,$letter,$x,$y,$default_key_width,$default_key_height );431 add_key($expeditee_frame_io,$letter,$letter,$x,$y,$default_key_width,$default_key_height,$fn); 413 432 print " $letter "; 414 433 } … … 418 437 my $char = $letter_rec->{'char'}; 419 438 420 add_key($expeditee_frame_io,$label,$char,$x,$y );439 add_key($expeditee_frame_io,$label,$char,$x,$y,$fn); 421 440 422 441 print " $label "; … … 428 447 my $goto_keyboard_title = $goto_keyboard->{'title'}; 429 448 430 add_key($expeditee_frame_io,$label,$label,$x,$y );449 add_key($expeditee_frame_io,$label,$label,$x,$y,$fn); 431 450 432 451 print " $label ";
Note:
See TracChangeset
for help on using the changeset viewer.